f5e27b6add
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 98.01.03pl015 git-svn-id: svn://10.65.10.50/trunk@6577 c028cbd2-c16b-5b4b-a496-9718f37d4682
367 lines
6.4 KiB
Plaintext
Executable File
367 lines
6.4 KiB
Plaintext
Executable File
#include "batbcau.h"
|
|
|
|
TOOLBAR "" 0 20 60 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Definizione causale" 11 60 14
|
|
|
|
GROUPBOX DLG_NULL 75 5
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
|
|
STRING F_CODICE 5
|
|
BEGIN
|
|
PROMPT 2 1 "Codice causale "
|
|
FIELD CODTAB
|
|
KEY 1
|
|
USE %CAU
|
|
FLAGS "U"
|
|
INPUT CODTAB F_CODICE
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50 " S0
|
|
OUTPUT F_CODICE CODTAB
|
|
OUTPUT F_DESCAU S0
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY, F_CODICE2
|
|
END
|
|
|
|
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
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Manca la descrizione"
|
|
MESSAGE COPY, F_DESCAU2
|
|
END
|
|
|
|
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 H_TIPOMOV S7
|
|
CHECKTYPE NORMAL
|
|
GROUP 23
|
|
MESSAGE EMPTY RESET,F_RAGGFD|RESET,H_TIPOMOV|CHECK,H_TIPOMOV
|
|
END
|
|
|
|
STRING F_RAGGFD 50 40
|
|
BEGIN
|
|
PROMPT 30 5 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
STRING H_TIPOMOV 1
|
|
BEGIN
|
|
FLAGS "HG"
|
|
PROMPT 2 7 "Tipo movimento "
|
|
MESSAGE COPY,F_TIPOMOV | DISABLE,F_TIPOMOV
|
|
MESSAGE EMPTY ENABLE,F_TIPOMOV
|
|
END
|
|
|
|
|
|
LISTBOX F_TIPOMOV 16
|
|
BEGIN
|
|
PROMPT 2 7 "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 2 9 "Tipo prezzo "
|
|
FIELD S6
|
|
ITEM "P|Prezzo"
|
|
ITEM "C|Costo"
|
|
ITEM "L|Libero"
|
|
END
|
|
|
|
BOOL F_MOVQTA
|
|
BEGIN
|
|
FIELD B0
|
|
PROMPT 2 11 "Movimenta solo quantita'"
|
|
MESSAGE TRUE RESET,F_MOVVAL
|
|
END
|
|
|
|
BOOL F_MOVVAL
|
|
BEGIN
|
|
FIELD B1
|
|
PROMPT 42 11 "Movimenta solo valori"
|
|
MESSAGE TRUE RESET,F_MOVQTA
|
|
END
|
|
|
|
BOOL F_UPDTULC
|
|
BEGIN
|
|
FIELD B2
|
|
PROMPT 2 13 "Aggiorna costo medio"
|
|
END
|
|
|
|
STRING F_CAUCOLL 5
|
|
BEGIN
|
|
PROMPT 2 15 "Causale collegata "
|
|
FIELD S9
|
|
USE %CAU SELECT S9==""
|
|
FLAGS "U"
|
|
INPUT CODTAB F_CAUCOLL
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50 " S0
|
|
OUTPUT F_CAUCOLL CODTAB
|
|
OUTPUT F_DCAUCOLL S0
|
|
CHECKTYPE NORMAL
|
|
ADD NONE //RUN MG0 -0 %CAU
|
|
WARNING "La causale collegata deve essere una causale senza ulteriori collegamenti"
|
|
END
|
|
|
|
STRING F_DCAUCOLL 50 40
|
|
BEGIN
|
|
PROMPT 32 15 ""
|
|
USE %CAU KEY 2 SELECT S9==""
|
|
FLAGS "U"
|
|
INPUT S0 F_DCAUCOLL
|
|
DISPLAY "Descrizione@50 " S0
|
|
DISPLAY "Codice " CODTAB
|
|
OUTPUT F_DCAUCOLL S0
|
|
OUTPUT F_CAUCOLL CODTAB
|
|
CHECKTYPE NORMAL
|
|
ADD NONE //RUN MG0 -0 %CAU
|
|
WARNING "La causale collegata deve essere una causale senza ulteriori collegamenti"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Movimentazione campi" 11 60 14
|
|
|
|
STRING F_CODICE2 5
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 1 "Codice causale "
|
|
END
|
|
|
|
STRING F_DESCAU2 50
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 2 "Descrizione "
|
|
END
|
|
|
|
LISTBOX F_SGNGIAC 1
|
|
BEGIN
|
|
PROMPT 2 4 "Movimentazione giacenza "
|
|
FIELD S2[1,2]
|
|
ITEM "0| "
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "+1|+"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "-1|-"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
GROUP G_SGNQTA
|
|
END
|
|
|
|
LISTBOX F_SGNRIM 1
|
|
BEGIN
|
|
PROMPT 2 5 " '' '' rim.iniz. "
|
|
FIELD S2[23,24]
|
|
ITEM "0| "
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "+1|+"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "-1|-"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
GROUP G_SGNVAL
|
|
END
|
|
|
|
LISTBOX F_SGNACQ 1
|
|
BEGIN
|
|
PROMPT 2 6 " '' '' acquistato "
|
|
FIELD S2[3,4]
|
|
ITEM "0| "
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "+1|+"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "-1|-"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
GROUP G_SGNVAL
|
|
END
|
|
|
|
LISTBOX F_SGNVEN 1
|
|
BEGIN
|
|
PROMPT 2 7 " '' '' venduto "
|
|
FIELD S2[7,8]
|
|
ITEM "0| "
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "+1|+"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "-1|-"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
GROUP G_SGNVAL
|
|
END
|
|
|
|
LISTBOX F_SGNENTR 1
|
|
BEGIN
|
|
PROMPT 2 8 " '' '' entrato "
|
|
FIELD S2[5,6]
|
|
ITEM "0| "
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "+1|+"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "-1|-"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
GROUP G_SGNVAL
|
|
END
|
|
|
|
LISTBOX F_SGNUSC 1
|
|
BEGIN
|
|
PROMPT 2 9 " '' '' uscito "
|
|
FIELD S2[9,10]
|
|
ITEM "0| "
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "+1|+"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "-1|-"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
GROUP G_SGNVAL
|
|
END
|
|
|
|
|
|
LISTBOX F_SGNSCAR 1
|
|
BEGIN
|
|
PROMPT 2 10 " '' '' scarti "
|
|
FIELD S2[25,26]
|
|
ITEM "0| "
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "+1|+"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "-1|-"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
GROUP G_SGNVAL
|
|
END
|
|
|
|
LISTBOX F_SGNPRODF 1
|
|
BEGIN
|
|
PROMPT 2 11 " '' '' prod. fin. "
|
|
FIELD S2[21,22]
|
|
ITEM "0| "
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "+1|+"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "-1|-"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
GROUP G_SGNQTA
|
|
END
|
|
|
|
LISTBOX F_SGNPRODC 1
|
|
BEGIN
|
|
PROMPT 2 12 " '' '' prod.comp. "
|
|
FIELD S2[19,20]
|
|
ITEM "0| "
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "+1|+"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "-1|-"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
GROUP G_SGNQTA
|
|
END
|
|
|
|
LISTBOX F_SGNACL 1
|
|
BEGIN
|
|
PROMPT 2 13 " '' '' a conto l. "
|
|
FIELD S2[17,18]
|
|
ITEM "0| "
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "+1|+"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "-1|-"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
GROUP G_SGNQTA
|
|
END
|
|
|
|
LISTBOX F_SGNINCL 1
|
|
BEGIN
|
|
PROMPT 2 14 " '' '' in conto l."
|
|
FIELD S2[15,16]
|
|
ITEM "0| "
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "+1|+"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "-1|-"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
GROUP G_SGNQTA
|
|
END
|
|
|
|
LISTBOX F_SGNLABEL 1
|
|
BEGIN
|
|
PROMPT 2 15 " '' '' etichette "
|
|
FIELD S2[27,28]
|
|
ITEM "0| "
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "+1|+"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "-1|-"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
GROUP G_SGNQTA
|
|
END
|
|
|
|
LISTBOX F_SGNORDF 1
|
|
BEGIN
|
|
PROMPT 2 16 " '' '' ord. forn. "
|
|
FIELD S2[13,14]
|
|
ITEM "0| "
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "+1|+"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "-1|-"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
GROUP G_SGNVAL
|
|
END
|
|
|
|
LISTBOX F_SGNORDC 1
|
|
BEGIN
|
|
PROMPT 2 17 " '' '' ord. cli. "
|
|
FIELD S2[11,12]
|
|
ITEM "0| "
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "+1|+"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
ITEM "-1|-"
|
|
MESSAGE CHECK,F_SUMSIGN
|
|
GROUP G_SGNVAL
|
|
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
|
|
END
|
|
|
|
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"
|
|
END
|
|
|
|
ENDPAGE
|