diff --git a/mg/batbcau.uml b/mg/batbcau.uml index 11d844f11..9f876f758 100755 --- a/mg/batbcau.uml +++ b/mg/batbcau.uml @@ -14,7 +14,7 @@ END STRING F_CODICE 4 -BEGIN +BEGIN PROMPT 2 1 "Codice causale " FIELD CODTAB KEY 1 @@ -29,20 +29,20 @@ BEGIN END STRING F_DESCAU 50 -BEGIN +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 +BEGIN PROMPT 2 5 "Raggrupp. fiscale " FIELD S8 FLAGS "U" @@ -52,35 +52,60 @@ BEGIN DISPLAY "Descrizione@40" S0 OUTPUT F_RAGGF CODTAB OUTPUT F_RAGGFD S0 - OUTPUT F_TIPOMOV S6 + OUTPUT H_TIPOMOV S6 CHECKTYPE NORMAL GROUP 23 - MESSAGE DISABLE,F_TIPOMOV - MESSAGE EMPTY ENABLE,F_TIPOMOV|RESET,F_RAGGFD + MESSAGE EMPTY RESET,F_RAGGFD|RESET,H_TIPOMOV|CHECK,H_TIPOMOV END STRING F_RAGGFD 50 -BEGIN +BEGIN PROMPT 30 5 "" FLAGS "D" END -LISTBOX F_TIPOMOV 16 -BEGIN + +STRING H_TIPOMOV 1 +BEGIN + FLAGS "HG" PROMPT 2 6 "Tipo movimento " - FIELD S7 - ITEM "C|carico" - ITEM "S|scarico" - ITEM "V|varie" + MESSAGE COPY,F_TIPOMOV | DISABLE,F_TIPOMOV + MESSAGE EMPTY ENABLE,F_TIPOMOV END -LISTBOX F_TIPOPR 16 -BEGIN + +LISTBOX F_TIPOMOV 16 +BEGIN + PROMPT 2 6 "Tipo movimento " + FIELD S7 + ITEM "V|varie" + ITEM "C|carico" + ITEM "S|scarico" + STR_EXPR (#F_TIPOMOV=="V")||(#F_RAGGF!="") + WARNING "Necessario indicare il raggruppamento fiscale" +END + +LISTBOX F_TIPOPR 16 +BEGIN PROMPT 42 6 "Tipo prezzo " FIELD S6 ITEM "P|Prezzo" ITEM "C|Costo" - ITEM "L|Libero" + ITEM "L|Libero" +END + +BOOL F_MOVQTA +BEGIN + FIELD B0 + PROMPT 2 7 "Movimenta solo quantita'" + MESSAGE TRUE RESET,F_MOVVAL +END + +BOOL F_MOVVAL +BEGIN + FIELD B1 + PROMPT 42 7 "Movimenta solo valori" + MESSAGE TRUE RESET,F_MOVQTA END STRING F_CAUCOLL 4 @@ -96,186 +121,193 @@ BEGIN CHECKTYPE NORMAL END -LISTBOX F_SGNGIAC 1 -BEGIN + +NUMBER F_SUMSIGN 4 0 +BEGIN + PROMPT 2 19 "Controllo segni " + FLAGS "DG" +END + +LISTBOX F_SGNGIAC 1 +BEGIN PROMPT 2 10 "Movimentazione giacenza " - FIELD I0 + FIELD S2[1,2] ITEM "0| " MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" + ITEM "+1|+" MESSAGE K_TAB,F_SUMSIGN ITEM "-1|-" MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + GROUP G_SGNQTA END LISTBOX F_SGNRIM 1 BEGIN PROMPT 2 11 " '' '' rim.iniz. " - FIELD I11 + FIELD S2[23,24] ITEM "0| " MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" + ITEM "+1|+" MESSAGE K_TAB,F_SUMSIGN ITEM "-1|-" MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + GROUP G_SGNVAL END -LISTBOX F_SGNACQ 1 -BEGIN +LISTBOX F_SGNACQ 1 +BEGIN PROMPT 2 12 " '' '' acquistato " - FIELD I1 + FIELD S2[3,4] ITEM "0| " MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" + ITEM "+1|+" MESSAGE K_TAB,F_SUMSIGN ITEM "-1|-" MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + GROUP G_SGNVAL END LISTBOX F_SGNVEN 1 -BEGIN - PROMPT 42 12 "Movimentazione venduto " - FIELD I3 +BEGIN + PROMPT 42 12 "Movimentazione venduto " + FIELD S2[7,8] ITEM "0| " MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" + ITEM "+1|+" MESSAGE K_TAB,F_SUMSIGN ITEM "-1|-" MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + GROUP G_SGNVAL END LISTBOX F_SGNENTR 1 -BEGIN - PROMPT 2 13 " '' '' entrato " - FIELD I2 +BEGIN + PROMPT 2 13 " '' '' entrato " + FIELD S2[5,6] ITEM "0| " MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" + ITEM "+1|+" MESSAGE K_TAB,F_SUMSIGN ITEM "-1|-" MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + GROUP G_SGNVAL END + LISTBOX F_SGNUSC 1 BEGIN PROMPT 42 13 " '' '' uscito " - FIELD I4 + FIELD S2[9,10] ITEM "0| " MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" + ITEM "+1|+" MESSAGE K_TAB,F_SUMSIGN ITEM "-1|-" MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + GROUP G_SGNVAL END LISTBOX F_SGNORDF 1 -BEGIN - PROMPT 2 14 " '' '' ord. forn. " - FIELD I6 +BEGIN + PROMPT 2 14 " '' '' ord. forn. " + FIELD S2[13,14] ITEM "0| " MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" + ITEM "+1|+" MESSAGE K_TAB,F_SUMSIGN ITEM "-1|-" MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + GROUP G_SGNVAL END LISTBOX F_SGNORDC 1 -BEGIN +BEGIN PROMPT 42 14 " '' '' ord. cli. " - FIELD I5 + FIELD S2[11,12] ITEM "0| " MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" + ITEM "+1|+" MESSAGE K_TAB,F_SUMSIGN ITEM "-1|-" MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN -END + GROUP G_SGNVAL LISTBOX F_SGNSCAR 1 -BEGIN +BEGIN PROMPT 2 15 " '' '' scarti " - FIELD I12 + FIELD S2[25,26] ITEM "0| " MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" + ITEM "+1|+" MESSAGE K_TAB,F_SUMSIGN ITEM "-1|-" MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + GROUP G_SGNVAL END LISTBOX F_SGNPRODF 1 -BEGIN +BEGIN PROMPT 2 16 " '' '' prod. fin. " - FIELD I10 + FIELD S2[21,22] ITEM "0| " MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" + ITEM "+1|+" MESSAGE K_TAB,F_SUMSIGN ITEM "-1|-" MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + GROUP G_SGNQTA END -LISTBOX F_SGNPRODC 1 -BEGIN +LISTBOX F_SGNPRODC 1 +BEGIN PROMPT 42 16 " '' '' prod.comp. " - FIELD I9 + FIELD S2[19,20] ITEM "0| " MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" + ITEM "+1|+" MESSAGE K_TAB,F_SUMSIGN ITEM "-1|-" MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + GROUP G_SGNQTA END -LISTBOX F_SGNACL 1 -BEGIN +LISTBOX F_SGNACL 1 +BEGIN PROMPT 2 17 " '' '' a conto l. " - FIELD I8 + FIELD S2[17,18] ITEM "0| " MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" + ITEM "+1|+" MESSAGE K_TAB,F_SUMSIGN ITEM "-1|-" MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + GROUP G_SGNQTA END LISTBOX F_SGNINCL 1 -BEGIN - PROMPT 42 17 " '' '' in conto l." - FIELD I7 +BEGIN + PROMPT 42 17 " '' '' in conto l." + FIELD S2[15,16] ITEM "0| " MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" + ITEM "+1|+" MESSAGE K_TAB,F_SUMSIGN ITEM "-1|-" MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + GROUP G_SGNQTA END LISTBOX F_SGNLABEL 1 BEGIN PROMPT 2 18 " '' '' etichette " - FIELD I13 + FIELD S2[27,28] ITEM "0| " MESSAGE K_TAB,F_SUMSIGN - ITEM "1|+" + ITEM "+1|+" MESSAGE K_TAB,F_SUMSIGN ITEM "-1|-" MESSAGE K_TAB,F_SUMSIGN - GROUP G_SGN + GROUP G_SGNQTA END NUMBER F_SUMSIGN 4 0