SIstemati tab
git-svn-id: svn://10.65.10.50/trunk@4720 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
ceb81b6181
commit
369511d820
414
mg/batbcau.uml
414
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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user