diff --git a/mg/batbcau.uml b/mg/batbcau.uml index d93735fce..11d844f11 100755 --- a/mg/batbcau.uml +++ b/mg/batbcau.uml @@ -14,13 +14,13 @@ END STRING F_CODICE 4 -BEGIN - PROMPT 2 1 "Codice causale " +BEGIN + PROMPT 2 1 "Codice causale " FIELD CODTAB KEY 1 USE %CAU FLAGS "U" - INPUT CODTAB F_CODICE + INPUT CODTAB F_CODICE DISPLAY "Codice " CODTAB DISPLAY "Descrizione@50 " S0 OUTPUT F_CODICE CODTAB @@ -28,284 +28,270 @@ BEGIN CHECKTYPE REQUIRED END -STRING F_DESCAU 50 -BEGIN +STRING F_DESCAU 50 +BEGIN PROMPT 2 3 "Descrizione " FIELD S0 USE %CAU KEY 2 KEY 2 INPUT S0 F_DESCAU - COPY DISPLAY F_CODICE - COPY OUTPUT F_CODICE + COPY DISPLAY F_CODICE + COPY OUTPUT F_CODICE CHECKTYPE REQUIRED WARNING "Manca la descrizione" END -STRING F_RAGGF 4 -BEGIN +STRING F_RAGGF 4 +BEGIN PROMPT 2 5 "Raggrupp. fiscale " - FIELD S8 - FLAGS "U" - USE %RFC - INPUT CODTAB F_RAGGF - DISPLAY "Codice " CODTAB - DISPLAY "Descrizione@40" S0 - OUTPUT F_RAGGF CODTAB - OUTPUT F_RAGGFD S0 - OUTPUT F_TIPOMOV S6 - CHECKTYPE NORMAL - GROUP 23 - MESSAGE DISABLE,F_TIPOMOV - MESSAGE EMPTY ENABLE,F_TIPOMOV|RESET,F_RAGGFD + FIELD S8 + FLAGS "U" + USE %RFC + INPUT CODTAB F_RAGGF + DISPLAY "Codice " CODTAB + DISPLAY "Descrizione@40" S0 + OUTPUT F_RAGGF CODTAB + OUTPUT F_RAGGFD S0 + OUTPUT F_TIPOMOV S6 + CHECKTYPE NORMAL + GROUP 23 + MESSAGE DISABLE,F_TIPOMOV + MESSAGE EMPTY ENABLE,F_TIPOMOV|RESET,F_RAGGFD END -STRING F_RAGGFD 50 -BEGIN +STRING F_RAGGFD 50 +BEGIN PROMPT 30 5 "" - FLAGS "D" + FLAGS "D" END -LISTBOX F_TIPOMOV 16 -BEGIN +LISTBOX F_TIPOMOV 16 +BEGIN PROMPT 2 6 "Tipo movimento " - FIELD S7 - ITEM "C|carico" - ITEM "S|scarico" - ITEM "V|varie" + FIELD S7 + ITEM "C|carico" + ITEM "S|scarico" + ITEM "V|varie" END -LISTBOX F_TIPOPR 16 -BEGIN +LISTBOX F_TIPOPR 16 +BEGIN PROMPT 42 6 "Tipo prezzo " - FIELD S6 - ITEM "P|Prezzo" - ITEM "C|Costo" - ITEM "L|Libero" + FIELD S6 + ITEM "P|Prezzo" + ITEM "C|Costo" + ITEM "L|Libero" END -STRING F_CAUCOLL 4 -BEGIN +STRING F_CAUCOLL 4 +BEGIN PROMPT 2 8 "Causale collegata " - FIELD S9 + FIELD S9 USE %CAU SELECT S9=="" FLAGS "U" - INPUT CODTAB F_CAUCOLL + INPUT CODTAB F_CAUCOLL DISPLAY "Codice " CODTAB DISPLAY "Descrizione@50 " S0 OUTPUT F_CAUCOLL CODTAB - CHECKTYPE NORMAL + CHECKTYPE NORMAL END - - -LISTBOX F_SGNGIAC 1 -BEGIN +LISTBOX F_SGNGIAC 1 +BEGIN PROMPT 2 10 "Movimentazione giacenza " - FIELD I0 - ITEM "0| " - MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" - MESSAGE K_TAB,F_SUMSIGN - ITEM "-1|-" - MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + FIELD I0 + ITEM "0| " + MESSAGE K_TAB,F_SUMSIGN + ITEM "1|+" + MESSAGE K_TAB,F_SUMSIGN + ITEM "-1|-" + MESSAGE K_TAB,F_SUMSIGN + GROUP G_SGN END -LISTBOX F_SGNRIM 1 -BEGIN +LISTBOX F_SGNRIM 1 +BEGIN PROMPT 2 11 " '' '' rim.iniz. " - FIELD I11 - ITEM "0| " - MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" - MESSAGE K_TAB,F_SUMSIGN - ITEM "-1|-" - MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + FIELD I11 + ITEM "0| " + MESSAGE K_TAB,F_SUMSIGN + ITEM "1|+" + MESSAGE K_TAB,F_SUMSIGN + ITEM "-1|-" + MESSAGE K_TAB,F_SUMSIGN + GROUP G_SGN END -LISTBOX F_SGNACQ 1 -BEGIN - PROMPT 2 12 " '' '' acquistato " - FIELD I1 - ITEM "0| " - MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" - MESSAGE K_TAB,F_SUMSIGN - ITEM "-1|-" - MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN +LISTBOX F_SGNACQ 1 +BEGIN + PROMPT 2 12 " '' '' acquistato " + FIELD I1 + ITEM "0| " + MESSAGE K_TAB,F_SUMSIGN + ITEM "1|+" + MESSAGE K_TAB,F_SUMSIGN + ITEM "-1|-" + MESSAGE K_TAB,F_SUMSIGN + GROUP G_SGN END -LISTBOX F_SGNVEN 1 -BEGIN - PROMPT 42 12 "Movimentazione venduto " - FIELD I3 - ITEM "0| " - MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" - MESSAGE K_TAB,F_SUMSIGN - ITEM "-1|-" - MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN +LISTBOX F_SGNVEN 1 +BEGIN + PROMPT 42 12 "Movimentazione venduto " + FIELD I3 + ITEM "0| " + MESSAGE K_TAB,F_SUMSIGN + ITEM "1|+" + MESSAGE K_TAB,F_SUMSIGN + ITEM "-1|-" + MESSAGE K_TAB,F_SUMSIGN + GROUP G_SGN END -LISTBOX F_SGNENTR 1 -BEGIN - PROMPT 2 13 " '' '' entrato " - FIELD I2 - ITEM "0| " - MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" - MESSAGE K_TAB,F_SUMSIGN - ITEM "-1|-" - MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN +LISTBOX F_SGNENTR 1 +BEGIN + PROMPT 2 13 " '' '' entrato " + FIELD I2 + ITEM "0| " + MESSAGE K_TAB,F_SUMSIGN + ITEM "1|+" + MESSAGE K_TAB,F_SUMSIGN + ITEM "-1|-" + MESSAGE K_TAB,F_SUMSIGN + GROUP G_SGN END -LISTBOX F_SGNUSC 1 -BEGIN +LISTBOX F_SGNUSC 1 +BEGIN PROMPT 42 13 " '' '' uscito " - FIELD I4 - ITEM "0| " - MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" - MESSAGE K_TAB,F_SUMSIGN - ITEM "-1|-" - MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + FIELD I4 + ITEM "0| " + MESSAGE K_TAB,F_SUMSIGN + ITEM "1|+" + MESSAGE K_TAB,F_SUMSIGN + ITEM "-1|-" + MESSAGE K_TAB,F_SUMSIGN + GROUP G_SGN END -LISTBOX F_SGNORDF 1 -BEGIN +LISTBOX F_SGNORDF 1 +BEGIN PROMPT 2 14 " '' '' ord. forn. " - FIELD I6 - ITEM "0| " - MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" - MESSAGE K_TAB,F_SUMSIGN - ITEM "-1|-" - MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + FIELD I6 + ITEM "0| " + MESSAGE K_TAB,F_SUMSIGN + ITEM "1|+" + MESSAGE K_TAB,F_SUMSIGN + ITEM "-1|-" + MESSAGE K_TAB,F_SUMSIGN + GROUP G_SGN END -LISTBOX F_SGNORDC 1 -BEGIN - PROMPT 42 14 " '' '' ord. cli. " - FIELD I5 - ITEM "0| " - MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" - MESSAGE K_TAB,F_SUMSIGN - ITEM "-1|-" - MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN +LISTBOX F_SGNORDC 1 +BEGIN + PROMPT 42 14 " '' '' ord. cli. " + FIELD I5 + ITEM "0| " + MESSAGE K_TAB,F_SUMSIGN + ITEM "1|+" + MESSAGE K_TAB,F_SUMSIGN + ITEM "-1|-" + MESSAGE K_TAB,F_SUMSIGN + GROUP G_SGN END -LISTBOX F_SGNSCAR 1 -BEGIN - PROMPT 2 15 " '' '' scarti " - FIELD I12 - ITEM "0| " - MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" - MESSAGE K_TAB,F_SUMSIGN - ITEM "-1|-" - MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN +LISTBOX F_SGNSCAR 1 +BEGIN + PROMPT 2 15 " '' '' scarti " + FIELD I12 + ITEM "0| " + MESSAGE K_TAB,F_SUMSIGN + ITEM "1|+" + MESSAGE K_TAB,F_SUMSIGN + ITEM "-1|-" + MESSAGE K_TAB,F_SUMSIGN + GROUP G_SGN END LISTBOX F_SGNPRODF 1 -BEGIN - PROMPT 2 16 " '' '' prod. fin. " - FIELD I10 - ITEM "0| " - MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" - MESSAGE K_TAB,F_SUMSIGN - ITEM "-1|-" - MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN +BEGIN + PROMPT 2 16 " '' '' prod. fin. " + FIELD I10 + ITEM "0| " + MESSAGE K_TAB,F_SUMSIGN + ITEM "1|+" + MESSAGE K_TAB,F_SUMSIGN + ITEM "-1|-" + MESSAGE K_TAB,F_SUMSIGN + GROUP G_SGN END -LISTBOX F_SGNPRODC 1 -BEGIN +LISTBOX F_SGNPRODC 1 +BEGIN PROMPT 42 16 " '' '' prod.comp. " - FIELD I9 - ITEM "0| " - MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" - MESSAGE K_TAB,F_SUMSIGN - ITEM "-1|-" - MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + FIELD I9 + ITEM "0| " + MESSAGE K_TAB,F_SUMSIGN + ITEM "1|+" + MESSAGE K_TAB,F_SUMSIGN + ITEM "-1|-" + MESSAGE K_TAB,F_SUMSIGN + GROUP G_SGN END -LISTBOX F_SGNACL 1 -BEGIN - PROMPT 2 17 " '' '' a conto l. " - FIELD I8 - ITEM "0| " - MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" - MESSAGE K_TAB,F_SUMSIGN - ITEM "-1|-" - MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN +LISTBOX F_SGNACL 1 +BEGIN + PROMPT 2 17 " '' '' a conto l. " + FIELD I8 + ITEM "0| " + MESSAGE K_TAB,F_SUMSIGN + ITEM "1|+" + MESSAGE K_TAB,F_SUMSIGN + ITEM "-1|-" + MESSAGE K_TAB,F_SUMSIGN + GROUP G_SGN END -LISTBOX F_SGNINCL 1 -BEGIN - PROMPT 42 17 " '' '' in conto l." - FIELD I7 - ITEM "0| " - MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" - MESSAGE K_TAB,F_SUMSIGN - ITEM "-1|-" - MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN +LISTBOX F_SGNINCL 1 +BEGIN + PROMPT 42 17 " '' '' in conto l." + FIELD I7 + ITEM "0| " + MESSAGE K_TAB,F_SUMSIGN + ITEM "1|+" + MESSAGE K_TAB,F_SUMSIGN + ITEM "-1|-" + MESSAGE K_TAB,F_SUMSIGN + GROUP G_SGN END -LISTBOX F_SGNLABEL 1 -BEGIN +LISTBOX F_SGNLABEL 1 +BEGIN PROMPT 2 18 " '' '' etichette " - FIELD I13 - ITEM "0| " - MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" - MESSAGE K_TAB,F_SUMSIGN - ITEM "-1|-" - MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + FIELD I13 + ITEM "0| " + MESSAGE K_TAB,F_SUMSIGN + ITEM "1|+" + MESSAGE K_TAB,F_SUMSIGN + ITEM "-1|-" + MESSAGE K_TAB,F_SUMSIGN + GROUP G_SGN END -NUMBER F_SUMSIGN 4 0 -BEGIN - PROMPT 2 19 "Controllo segni " - FLAGS "DG" - NUM_CALC ((#F_SGNGIAC-#F_SGNRIM)-(#F_SGNACQ+#F_SGNENTR)+(#F_SGNVEN+#F_SGNUSC)+(#F_SGNACL-#F_SGNINCL)+(#F_SGNPRODF-#F_SGNPRODC)+#F_SGNSCAR) - MESSAGE COPY,F_CHECKER +NUMBER F_SUMSIGN 4 0 +BEGIN + PROMPT 2 19 "Controllo segni " + FLAGS "DG" + NUM_CALC ((#F_SGNGIAC-#F_SGNRIM)-(#F_SGNACQ+#F_SGNENTR)+(#F_SGNVEN+#F_SGNUSC)+(#F_SGNACL-#F_SGNINCL)+(#F_SGNPRODF-#F_SGNPRODC)+#F_SGNSCAR) + MESSAGE COPY,F_CHECKER END -NUMBER F_CHECKER 4 0 -BEGIN +NUMBER F_CHECKER 4 0 +BEGIN PROMPT 0 0 "Checker " - FLAGS "HG" - NUM_EXPR #F_SUMSIGN=="0" - WARNING "Deve essere soddisfatta l'equazione: ((GIAC-RIM)-(ACQ+ENTR)+(VEN+USC)+(ACL-INCL)+(PRODF-PRODC))=0" + FLAGS "HG" + NUM_EXPR #F_SUMSIGN=="0" + WARNING "Deve essere soddisfatta l'equazione: ((GIAC-RIM)-(ACQ+ENTR)+(VEN+USC)+(ACL-INCL)+(PRODF-PRODC))=0" END -/* -L'item "0" deve essere il primo item dei listbox; -la presenza del blank (==0) riporta la listbox al primo -item -STRING F_ERASER 1 -BEGIN - PROMPT 0 0 "" - FLAGS "HG" - MESSAGE EMPTY "X",F_ERASER|"0",G_SGN@ -END*/ - - ENDPAGE