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
parent
d886f45fb5
commit
e5ba1fd588
192
mg/batbcau.uml
192
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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user