SIstemati tab
git-svn-id: svn://10.65.10.50/trunk@4720 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
ceb81b6181
commit
369511d820
414
mg/batbcau.uml
414
mg/batbcau.uml
@ -14,13 +14,13 @@ END
|
|||||||
|
|
||||||
|
|
||||||
STRING F_CODICE 4
|
STRING F_CODICE 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Codice causale "
|
PROMPT 2 1 "Codice causale "
|
||||||
FIELD CODTAB
|
FIELD CODTAB
|
||||||
KEY 1
|
KEY 1
|
||||||
USE %CAU
|
USE %CAU
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
INPUT CODTAB F_CODICE
|
INPUT CODTAB F_CODICE
|
||||||
DISPLAY "Codice " CODTAB
|
DISPLAY "Codice " CODTAB
|
||||||
DISPLAY "Descrizione@50 " S0
|
DISPLAY "Descrizione@50 " S0
|
||||||
OUTPUT F_CODICE CODTAB
|
OUTPUT F_CODICE CODTAB
|
||||||
@ -28,284 +28,270 @@ BEGIN
|
|||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESCAU 50
|
STRING F_DESCAU 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "Descrizione "
|
PROMPT 2 3 "Descrizione "
|
||||||
FIELD S0
|
FIELD S0
|
||||||
USE %CAU KEY 2
|
USE %CAU KEY 2
|
||||||
KEY 2
|
KEY 2
|
||||||
INPUT S0 F_DESCAU
|
INPUT S0 F_DESCAU
|
||||||
COPY DISPLAY F_CODICE
|
COPY DISPLAY F_CODICE
|
||||||
COPY OUTPUT F_CODICE
|
COPY OUTPUT F_CODICE
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
WARNING "Manca la descrizione"
|
WARNING "Manca la descrizione"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGGF 4
|
STRING F_RAGGF 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Raggrupp. fiscale "
|
PROMPT 2 5 "Raggrupp. fiscale "
|
||||||
FIELD S8
|
FIELD S8
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
USE %RFC
|
USE %RFC
|
||||||
INPUT CODTAB F_RAGGF
|
INPUT CODTAB F_RAGGF
|
||||||
DISPLAY "Codice " CODTAB
|
DISPLAY "Codice " CODTAB
|
||||||
DISPLAY "Descrizione@40" S0
|
DISPLAY "Descrizione@40" S0
|
||||||
OUTPUT F_RAGGF CODTAB
|
OUTPUT F_RAGGF CODTAB
|
||||||
OUTPUT F_RAGGFD S0
|
OUTPUT F_RAGGFD S0
|
||||||
OUTPUT F_TIPOMOV S6
|
OUTPUT F_TIPOMOV S6
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
GROUP 23
|
GROUP 23
|
||||||
MESSAGE DISABLE,F_TIPOMOV
|
MESSAGE DISABLE,F_TIPOMOV
|
||||||
MESSAGE EMPTY ENABLE,F_TIPOMOV|RESET,F_RAGGFD
|
MESSAGE EMPTY ENABLE,F_TIPOMOV|RESET,F_RAGGFD
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGGFD 50
|
STRING F_RAGGFD 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 30 5 ""
|
PROMPT 30 5 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_TIPOMOV 16
|
LISTBOX F_TIPOMOV 16
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 6 "Tipo movimento "
|
PROMPT 2 6 "Tipo movimento "
|
||||||
FIELD S7
|
FIELD S7
|
||||||
ITEM "C|carico"
|
ITEM "C|carico"
|
||||||
ITEM "S|scarico"
|
ITEM "S|scarico"
|
||||||
ITEM "V|varie"
|
ITEM "V|varie"
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_TIPOPR 16
|
LISTBOX F_TIPOPR 16
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 42 6 "Tipo prezzo "
|
PROMPT 42 6 "Tipo prezzo "
|
||||||
FIELD S6
|
FIELD S6
|
||||||
ITEM "P|Prezzo"
|
ITEM "P|Prezzo"
|
||||||
ITEM "C|Costo"
|
ITEM "C|Costo"
|
||||||
ITEM "L|Libero"
|
ITEM "L|Libero"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CAUCOLL 4
|
STRING F_CAUCOLL 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Causale collegata "
|
PROMPT 2 8 "Causale collegata "
|
||||||
FIELD S9
|
FIELD S9
|
||||||
USE %CAU SELECT S9==""
|
USE %CAU SELECT S9==""
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
INPUT CODTAB F_CAUCOLL
|
INPUT CODTAB F_CAUCOLL
|
||||||
DISPLAY "Codice " CODTAB
|
DISPLAY "Codice " CODTAB
|
||||||
DISPLAY "Descrizione@50 " S0
|
DISPLAY "Descrizione@50 " S0
|
||||||
OUTPUT F_CAUCOLL CODTAB
|
OUTPUT F_CAUCOLL CODTAB
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
|
LISTBOX F_SGNGIAC 1
|
||||||
|
BEGIN
|
||||||
LISTBOX F_SGNGIAC 1
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 10 "Movimentazione giacenza "
|
PROMPT 2 10 "Movimentazione giacenza "
|
||||||
FIELD I0
|
FIELD I0
|
||||||
ITEM "0| "
|
ITEM "0| "
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "1|+"
|
ITEM "1|+"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "-1|-"
|
ITEM "-1|-"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
GROUP G_SGN
|
GROUP G_SGN
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_SGNRIM 1
|
LISTBOX F_SGNRIM 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 11 " '' '' rim.iniz. "
|
PROMPT 2 11 " '' '' rim.iniz. "
|
||||||
FIELD I11
|
FIELD I11
|
||||||
ITEM "0| "
|
ITEM "0| "
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "1|+"
|
ITEM "1|+"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "-1|-"
|
ITEM "-1|-"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
GROUP G_SGN
|
GROUP G_SGN
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_SGNACQ 1
|
LISTBOX F_SGNACQ 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 12 " '' '' acquistato "
|
PROMPT 2 12 " '' '' acquistato "
|
||||||
FIELD I1
|
FIELD I1
|
||||||
ITEM "0| "
|
ITEM "0| "
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "1|+"
|
ITEM "1|+"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "-1|-"
|
ITEM "-1|-"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
GROUP G_SGN
|
GROUP G_SGN
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_SGNVEN 1
|
LISTBOX F_SGNVEN 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 42 12 "Movimentazione venduto "
|
PROMPT 42 12 "Movimentazione venduto "
|
||||||
FIELD I3
|
FIELD I3
|
||||||
ITEM "0| "
|
ITEM "0| "
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "1|+"
|
ITEM "1|+"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "-1|-"
|
ITEM "-1|-"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
GROUP G_SGN
|
GROUP G_SGN
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_SGNENTR 1
|
LISTBOX F_SGNENTR 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 13 " '' '' entrato "
|
PROMPT 2 13 " '' '' entrato "
|
||||||
FIELD I2
|
FIELD I2
|
||||||
ITEM "0| "
|
ITEM "0| "
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "1|+"
|
ITEM "1|+"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "-1|-"
|
ITEM "-1|-"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
GROUP G_SGN
|
GROUP G_SGN
|
||||||
END
|
END
|
||||||
LISTBOX F_SGNUSC 1
|
LISTBOX F_SGNUSC 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 42 13 " '' '' uscito "
|
PROMPT 42 13 " '' '' uscito "
|
||||||
FIELD I4
|
FIELD I4
|
||||||
ITEM "0| "
|
ITEM "0| "
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "1|+"
|
ITEM "1|+"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "-1|-"
|
ITEM "-1|-"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
GROUP G_SGN
|
GROUP G_SGN
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
LISTBOX F_SGNORDF 1
|
LISTBOX F_SGNORDF 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 14 " '' '' ord. forn. "
|
PROMPT 2 14 " '' '' ord. forn. "
|
||||||
FIELD I6
|
FIELD I6
|
||||||
ITEM "0| "
|
ITEM "0| "
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "1|+"
|
ITEM "1|+"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "-1|-"
|
ITEM "-1|-"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
GROUP G_SGN
|
GROUP G_SGN
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_SGNORDC 1
|
LISTBOX F_SGNORDC 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 42 14 " '' '' ord. cli. "
|
PROMPT 42 14 " '' '' ord. cli. "
|
||||||
FIELD I5
|
FIELD I5
|
||||||
ITEM "0| "
|
ITEM "0| "
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "1|+"
|
ITEM "1|+"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "-1|-"
|
ITEM "-1|-"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
GROUP G_SGN
|
GROUP G_SGN
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_SGNSCAR 1
|
LISTBOX F_SGNSCAR 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 15 " '' '' scarti "
|
PROMPT 2 15 " '' '' scarti "
|
||||||
FIELD I12
|
FIELD I12
|
||||||
ITEM "0| "
|
ITEM "0| "
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "1|+"
|
ITEM "1|+"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "-1|-"
|
ITEM "-1|-"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
GROUP G_SGN
|
GROUP G_SGN
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_SGNPRODF 1
|
LISTBOX F_SGNPRODF 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 16 " '' '' prod. fin. "
|
PROMPT 2 16 " '' '' prod. fin. "
|
||||||
FIELD I10
|
FIELD I10
|
||||||
ITEM "0| "
|
ITEM "0| "
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "1|+"
|
ITEM "1|+"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "-1|-"
|
ITEM "-1|-"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
GROUP G_SGN
|
GROUP G_SGN
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_SGNPRODC 1
|
LISTBOX F_SGNPRODC 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 42 16 " '' '' prod.comp. "
|
PROMPT 42 16 " '' '' prod.comp. "
|
||||||
FIELD I9
|
FIELD I9
|
||||||
ITEM "0| "
|
ITEM "0| "
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "1|+"
|
ITEM "1|+"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "-1|-"
|
ITEM "-1|-"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
GROUP G_SGN
|
GROUP G_SGN
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_SGNACL 1
|
LISTBOX F_SGNACL 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 17 " '' '' a conto l. "
|
PROMPT 2 17 " '' '' a conto l. "
|
||||||
FIELD I8
|
FIELD I8
|
||||||
ITEM "0| "
|
ITEM "0| "
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "1|+"
|
ITEM "1|+"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "-1|-"
|
ITEM "-1|-"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
GROUP G_SGN
|
GROUP G_SGN
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_SGNINCL 1
|
LISTBOX F_SGNINCL 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 42 17 " '' '' in conto l."
|
PROMPT 42 17 " '' '' in conto l."
|
||||||
FIELD I7
|
FIELD I7
|
||||||
ITEM "0| "
|
ITEM "0| "
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "1|+"
|
ITEM "1|+"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "-1|-"
|
ITEM "-1|-"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
GROUP G_SGN
|
GROUP G_SGN
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_SGNLABEL 1
|
LISTBOX F_SGNLABEL 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 18 " '' '' etichette "
|
PROMPT 2 18 " '' '' etichette "
|
||||||
FIELD I13
|
FIELD I13
|
||||||
ITEM "0| "
|
ITEM "0| "
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "1|+"
|
ITEM "1|+"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
ITEM "-1|-"
|
ITEM "-1|-"
|
||||||
MESSAGE K_TAB,F_SUMSIGN
|
MESSAGE K_TAB,F_SUMSIGN
|
||||||
GROUP G_SGN
|
GROUP G_SGN
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_SUMSIGN 4 0
|
NUMBER F_SUMSIGN 4 0
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 19 "Controllo segni "
|
PROMPT 2 19 "Controllo segni "
|
||||||
FLAGS "DG"
|
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)
|
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
|
MESSAGE COPY,F_CHECKER
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CHECKER 4 0
|
NUMBER F_CHECKER 4 0
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 0 0 "Checker "
|
PROMPT 0 0 "Checker "
|
||||||
FLAGS "HG"
|
FLAGS "HG"
|
||||||
NUM_EXPR #F_SUMSIGN=="0"
|
NUM_EXPR #F_SUMSIGN=="0"
|
||||||
WARNING "Deve essere soddisfatta l'equazione: ((GIAC-RIM)-(ACQ+ENTR)+(VEN+USC)+(ACL-INCL)+(PRODF-PRODC))=0"
|
WARNING "Deve essere soddisfatta l'equazione: ((GIAC-RIM)-(ACQ+ENTR)+(VEN+USC)+(ACL-INCL)+(PRODF-PRODC))=0"
|
||||||
END
|
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
|
ENDPAGE
|
||||||
|
Loading…
x
Reference in New Issue
Block a user