SIstemati tab

git-svn-id: svn://10.65.10.50/trunk@4720 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1997-06-19 14:41:38 +00:00
parent ceb81b6181
commit 369511d820

View File

@ -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