Nuova codifica dei segni di movimentazione (permettono fino a 25 segni)

git-svn-id: svn://10.65.10.50/trunk@4827 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-07-07 10:48:48 +00:00
parent d886f45fb5
commit e5ba1fd588

View File

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