campo-sirio/ve/vetbmre.uml

#include "vetbmre.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Corrispondenza per fatture da emettere/ricevere" 0 0 0 0

GROUPBOX DLG_NULL 75 7
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

STRING F_GRUPPO 3
BEGIN
  PROMPT 2 3 "Conto origine  "
  FIELD CODTAB[1,3]
  USE MRE 
  JOIN LF_PCON INTO GRUPPO==CODTAB[1,3] CONTO==CODTAB[4,6] SOTTOCONTO==CODTAB[7,12]
  INPUT CODTAB[1,3] F_GRUPPO
  INPUT CODTAB[4,6] F_CONTO
  INPUT CODTAB[7,12] F_SOTTO
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Conto" CODTAB[4,6]
  DISPLAY "Sottoconto" CODTAB[7,12]
  DISPLAY "Descrizione@50" LF_PCON->DESCR
  OUTPUT F_GRUPPO CODTAB[1,3]
  OUTPUT F_CONTO  CODTAB[4,6]
  OUTPUT F_SOTTO  CODTAB[7,12]
  OUTPUT F_DESCRCONTO LF_PCON->DESCR
  FLAGS "R_"
  CHECKTYPE REQUIRED
  KEY 1
 END

STRING F_CONTO 3
BEGIN
  PROMPT 25 3 ""
  FIELD CODTAB[4,6]
  USE LF_PCON
  INPUT  GRUPPO F_GRUPPO
  INPUT CONTO F_CONTO  
  INPUT SOTTOCONTO F_SOTTO  
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO  CONTO
  OUTPUT F_SOTTO  SOTTOCONTO
  OUTPUT F_DESCRCONTO DESCR
  KEY 1
  CHECKTYPE SEARCH
  FLAGS "R_"
  ADD RUN CG0 -0
 END
 
STRING F_SOTTO 6
BEGIN
  PROMPT 35 3 ""
  FIELD CODTAB[7,12]
  COPY ALL F_CONTO
  KEY 1
  CHECKTYPE SEARCH
  FLAGS "R_"
  ADD RUN CG0 -0
END

STRING F_DESCRCONTO 50
BEGIN
  PROMPT 17 5 ""
  FLAG "U"
  USE LF_PCON KEY 2
  INPUT DESCR F_DESCRCONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_CONTO
  WARNING "Conto assente"
  KEY 1
  ADD RUN CG0 -0
END                

LIST F_TIPOC 1 13
BEGIN
  PROMPT 1 9 "Tipo conto     "
  FIELD S6
  GROUP 1 3
  HELP "Tipo dei sottoconti (Normale o clienti/fornitori)"
  ITEM " |Normali" MESSAGE ENABLE,F_SOTTOC
  ITEM "C|Clienti" MESSAGE CLEAR,F_SOTTOC
  ITEM "F|Fornitori" MESSAGE CLEAR,F_SOTTOC
END

NUMBER F_GRUPPOC 3
BEGIN
  PROMPT 2 11 "Conto destinaz."
  FIELD I0
  USE LF_PCON SELECT (CONTO=="") && (SOTTOCONTO=="")
  INPUT GRUPPO F_GRUPPOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPOC GRUPPO
  CHECKTYPE SEARCH
  WARNING "Gruppo assente"
  ADD RUN CG0 -0
END

NUMBER F_CONTOC 3
BEGIN
  PROMPT 25 11 ""
  FIELD I1
  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
  COPY INPUT F_GRUPPOC
  INPUT CONTO F_CONTOC
  COPY DISPLAY F_CONTO
  COPY OUTPUT F_GRUPPOC
  OUTPUT F_CONTOC CONTO
  OUTPUT F_TIPOC TMCF
  OUTPUT F_DESCRCONTOC  DESCR
  CHECKTYPE SEARCH
  WARNING "Conto assente"
  ADD RUN CG0 -0
END

NUMBER F_SOTTOC 6
BEGIN
  PROMPT 35 11 ""
  FIELD I2
  USE LF_PCON
  COPY INPUT F_CONTOC
  INPUT SOTTOCONTO F_SOTTOC      
  COPY DISPLAY F_CONTOC
  COPY OUTPUT F_GRUPPOC
  OUTPUT F_CONTOC CONTO
  OUTPUT F_SOTTOC SOTTOCONTO
  OUTPUT F_DESCRCONTOC DESCR
  CHECKTYPE NORMAL
  WARNING "Sottoconto assente"
  ADD RUN CG0 -0
END

STRING F_DESCRCONTOC 50
BEGIN
  PROMPT 17 13 ""
  FLAG "U"
  USE LF_PCON KEY 2
  JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT DESCR F_DESCRCONTOC
  COPY DISPLAY F_DESCRCONTO
  COPY OUTPUT F_SOTTOC
  WARNING "Conto assente"
  ADD RUN CG0 -0
END

ENDMASK