root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Esplosione tab

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4833 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-07-07 11:00:41 +00:00
parent a237631368
commit ebfe1b0c3a
6 changed files with 1217 additions and 1216 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

448
mg/mg1100.uml
View File

@ -14,134 +14,134 @@ END
NUMBER F_NUMREG 7 NUMBER F_NUMREG 7
BEGIN BEGIN
// FLAGS "D" // FLAGS "D"
FIELD NUMREG FIELD NUMREG
PROMPT 2 2 "Operazione numero " PROMPT 2 2 "Operazione numero "
KEY 1 3 4 KEY 1 3 4
USE LF_MOVMAG USE LF_MOVMAG
INPUT NUMREG F_NUMREG INPUT NUMREG F_NUMREG
DISPLAY "N.reg." NUMREG DISPLAY "N.reg." NUMREG
DISPLAY "Anno" ANNOES DISPLAY "Anno" ANNOES
DISPLAY "Data reg." DATAREG DISPLAY "Data reg." DATAREG
DISPLAY "Data comp." DATACOMP DISPLAY "Data comp." DATACOMP
OUTPUT F_NUMREG NUMREG OUTPUT F_NUMREG NUMREG
OUTPUT H_NUMREG NUMREG OUTPUT H_NUMREG NUMREG
OUTPUT F_DATAREG DATAREG OUTPUT F_DATAREG DATAREG
OUTPUT F_DATACOMP DATACOMP OUTPUT F_DATACOMP DATACOMP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
NUMBER F_ANNOES 4 NUMBER F_ANNOES 4
BEGIN BEGIN
FLAGS "D" FLAGS "D"
PROMPT 2 3 "Esercizio di competenza " PROMPT 2 3 "Esercizio di competenza "
FIELD ANNOES FIELD ANNOES
MESSAGE COPY,H_ANNOES MESSAGE COPY,H_ANNOES
END END
DATE F_DATAREG DATE F_DATAREG
BEGIN BEGIN
PROMPT 38 2 "Data di registrazione " PROMPT 38 2 "Data di registrazione "
FLAGS "A" FLAGS "A"
FIELD DATAREG FIELD DATAREG
KEY 3 KEY 3
USE LF_MOVMAG KEY 3 USE LF_MOVMAG KEY 3
INPUT NUMREG F_NUMREG INPUT NUMREG F_NUMREG
INPUT DATAREG F_DATAREG INPUT DATAREG F_DATAREG
DISPLAY "N.reg." NUMREG DISPLAY "N.reg." NUMREG
DISPLAY "Anno" ANNOES DISPLAY "Anno" ANNOES
DISPLAY "Data reg." DATAREG DISPLAY "Data reg." DATAREG
DISPLAY "Data comp." DATACOMP DISPLAY "Data comp." DATACOMP
OUTPUT F_NUMREG NUMREG OUTPUT F_NUMREG NUMREG
OUTPUT F_DATAREG DATAREG OUTPUT F_DATAREG DATAREG
OUTPUT H_DATAREG DATAREG OUTPUT H_DATAREG DATAREG
OUTPUT F_DATACOMP DATACOMP OUTPUT F_DATACOMP DATACOMP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
DATE F_DATACOMP DATE F_DATACOMP
BEGIN BEGIN
PROMPT 38 3 "Data di competenza " PROMPT 38 3 "Data di competenza "
FLAGS "A" FLAGS "A"
FIELD DATACOMP FIELD DATACOMP
KEY 4 KEY 4
USE LF_MOVMAG KEY 4 USE LF_MOVMAG KEY 4
INPUT NUMREG F_NUMREG INPUT NUMREG F_NUMREG
INPUT DATACOMP F_DATACOMP INPUT DATACOMP F_DATACOMP
COPY DISPLAY F_DATAREG COPY DISPLAY F_DATAREG
OUTPUT F_NUMREG NUMREG OUTPUT F_NUMREG NUMREG
OUTPUT F_DATAREG DATAREG OUTPUT F_DATAREG DATAREG
OUTPUT F_DATACOMP DATACOMP OUTPUT F_DATACOMP DATACOMP
OUTPUT H_DATACOMP DATACOMP OUTPUT H_DATACOMP DATACOMP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_DESCR 50 40 STRING F_DESCR 50 40
BEGIN BEGIN
PROMPT 2 4 "Descrizione " PROMPT 2 4 "Descrizione "
FIELD DESCR FIELD DESCR
MESSAGE COPY,H_DESCR MESSAGE COPY,H_DESCR
END END
LISTBOX F_RIFADOC 30 LISTBOX F_RIFADOC 30
BEGIN BEGIN
PROMPT 2 5 "Movimento " PROMPT 2 5 "Movimento "
FLAG "HG" FLAG "HG"
ITEM "N|non riferito a documento" ITEM "N|non riferito a documento"
MESSAGE ENABLE,G_DEFMOV@ MESSAGE ENABLE,G_DEFMOV@
ITEM "S|riferito a documento" ITEM "S|riferito a documento"
MESSAGE DISABLE,G_DEFMOV@ MESSAGE DISABLE,G_DEFMOV@
END END
LISTBOX F_NUMPROVV 1 20 LISTBOX F_NUMPROVV 1 20
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "HG" FLAGS "HG"
ITEM "D|Definitiva" ITEM "D|Definitiva"
END END
STRING F_NUMDOC 3 STRING F_NUMDOC 3
BEGIN BEGIN
FLAGS "D" FLAGS "D"
PROMPT 2 6 "Documento: numero " PROMPT 2 6 "Documento: numero "
FIELD NUMDOC FIELD NUMDOC
USE LF_DOC USE LF_DOC
INPUT PROVV F_NUMPROVV SELECT INPUT PROVV F_NUMPROVV SELECT
INPUT NDOC F_NUMDOC INPUT NDOC F_NUMDOC
INPUT ANNO F_ANNOES INPUT ANNO F_ANNOES
DISPLAY "NDoc" NDOC DISPLAY "NDoc" NDOC
DISPLAY "Tipo" TIPODOC DISPLAY "Tipo" TIPODOC
DISPLAY "Anno" ANNO DISPLAY "Anno" ANNO
OUPUT F_NUMDOC NDOC OUPUT F_NUMDOC NDOC
OUPUT F_ANNODOC ANNO OUPUT F_ANNODOC ANNO
OUPUT F_TIPOCF TIPOCF OUPUT F_TIPOCF TIPOCF
OUPUT F_CODCLI CODCF OUPUT F_CODCLI CODCF
OUPUT F_CODFOR CODCF OUPUT F_CODFOR CODCF
OUPUT F_CODCAUS CAUSMAG1 OUPUT F_CODCAUS CAUSMAG1
CHECKTYPE NORMAL CHECKTYPE NORMAL
MESSAGE "S",F_RIFADOC MESSAGE "S",F_RIFADOC
MESSAGE EMPTY "N",F_RIFADOC MESSAGE EMPTY "N",F_RIFADOC
END END
NUMBER F_ANNODOC 4 NUMBER F_ANNODOC 4
BEGIN BEGIN
FLAGS "D" FLAGS "D"
PROMPT 30 6 "anno " PROMPT 30 6 "anno "
FIELD ANNODOC FIELD ANNODOC
USE LF_DOC SELECT NDOC==F_NUMDOC USE LF_DOC SELECT NDOC==F_NUMDOC
INPUT ANNODOC F_ANNODOC INPUT ANNODOC F_ANNODOC
DISPLAY "Anno" ANNODOC DISPLAY "Anno" ANNODOC
DISPLAY "NDoc" NDOC DISPLAY "NDoc" NDOC
DISPLAY "Tipo" TIPODOC DISPLAY "Tipo" TIPODOC
COPY OUTPUT F_NUMDOC COPY OUTPUT F_NUMDOC
// CHECKTYPE NORMAL // CHECKTYPE NORMAL
END END
STRING F_CODCAUS 5 STRING F_CODCAUS 5
BEGIN BEGIN
PROMPT 2 8 "Codice causale " PROMPT 2 8 "Codice causale "
FIELD CODCAUS FIELD CODCAUS
USE %CAU USE %CAU
FLAGS "U" FLAGS "U"
INPUT CODTAB F_CODCAUS INPUT CODTAB F_CODCAUS
@ -150,81 +150,81 @@ BEGIN
OUTPUT F_CODCAUS CODTAB OUTPUT F_CODCAUS CODTAB
OUTPUT F_DESCAU S0 OUTPUT F_DESCAU S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD RUN MG0 -0 %CAU
GROUP G_DEFMOV GROUP G_DEFMOV
END END
STRING F_DESCAU 50 30 STRING F_DESCAU 50 30
BEGIN BEGIN
PROMPT 30 8 "" PROMPT 30 8 ""
USE %CAU KEY 2 USE %CAU KEY 2
INPUT S0 F_DESCAU INPUT S0 F_DESCAU
DISPLAY "Descrizione@50 " S0 DISPLAY "Descrizione@50 " S0
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB
COPY OUTPUT1 F_CODCAUS COPY OUTPUT1 F_CODCAUS
GROUP G_DEFMOV GROUP G_DEFMOV
END END
LISTBOX F_TIPOCF 10 LISTBOX F_TIPOCF 10
BEGIN BEGIN
PROMPT 2 9 "Relativo a " PROMPT 2 9 "Relativo a "
FIELD TIPOCF FIELD TIPOCF
ITEM " |Nessuno" ITEM " |Nessuno"
MESSAGE HIDE,F_CODCLI|HIDE,F_CODFOR|RESET,F_CODCF|HIDE,F_RAGSOC MESSAGE HIDE,F_CODCLI|HIDE,F_CODFOR|RESET,F_CODCF|HIDE,F_RAGSOC
ITEM "C|Cliente" ITEM "C|Cliente"
MESSAGE SHOW,F_CODCLI|HIDE,F_CODFOR|SHOW,F_RAGSOC MESSAGE SHOW,F_CODCLI|HIDE,F_CODFOR|SHOW,F_RAGSOC
ITEM "F|Fornitore" ITEM "F|Fornitore"
MESSAGE HIDE,F_CODCLI|SHOW,F_CODFOR|SHOW,F_RAGSOC MESSAGE HIDE,F_CODCLI|SHOW,F_CODFOR|SHOW,F_RAGSOC
GROUP G_DEFMOV GROUP G_DEFMOV
END END
// campi per READ/WRITE su archivio (e ricerca utente) // campi per READ/WRITE su archivio (e ricerca utente)
NUMBER F_CODCLI 6 NUMBER F_CODCLI 6
BEGIN BEGIN
PROMPT 2 10 "Codice cliente " PROMPT 2 10 "Codice cliente "
FIELD CODCF FIELD CODCF
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF F_TIPOCF SELECT INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_CODCLI INPUT CODCF F_CODCLI
DISPLAY "Codice " CODCF DISPLAY "Codice " CODCF
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
MESSAGE EMPTY RESET,F_CODCF MESSAGE EMPTY RESET,F_CODCF
CHECKTYPE NORMAL CHECKTYPE NORMAL
GROUP G_DEFMOV GROUP G_DEFMOV
END END
// campi per READ/WRITE su archivio (e ricerca utente) // campi per READ/WRITE su archivio (e ricerca utente)
NUMBER F_CODFOR 6 NUMBER F_CODFOR 6
BEGIN BEGIN
PROMPT 2 10 "Codice fornitore " PROMPT 2 10 "Codice fornitore "
FIELD CODCF FIELD CODCF
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF F_TIPOCF SELECT INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_CODFOR INPUT CODCF F_CODFOR
DISPLAY "Codice " CODCF DISPLAY "Codice " CODCF
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
MESSAGE EMPTY RESET,F_CODCF MESSAGE EMPTY RESET,F_CODCF
CHECKTYPE NORMAL CHECKTYPE NORMAL
GROUP G_DEFMOV GROUP G_DEFMOV
END END
// esegue i controlli e ricopia i valori del codice sia in CLI che in FOR // esegue i controlli e ricopia i valori del codice sia in CLI che in FOR
// agisce anche quando l'utente non entra in gioco (settaggio da LISTINO...) // agisce anche quando l'utente non entra in gioco (settaggio da LISTINO...)
NUMBER F_CODCF 6 NUMBER F_CODCF 6
BEGIN BEGIN
FLAGS "HG" FLAGS "HG"
PROMPT 0 1 "" PROMPT 0 1 ""
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF F_TIPOCF SELECT INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_CODCF INPUT CODCF F_CODCF
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
CHECKTYPE NORMAL CHECKTYPE NORMAL
MESSAGE COPY,F_CODCLI|COPY,F_CODFOR MESSAGE COPY,F_CODCLI|COPY,F_CODFOR
END END
STRING F_RAGSOC 50 40 STRING F_RAGSOC 50 40
@ -235,122 +235,122 @@ BEGIN
INPUT RAGSOC F_RAGSOC INPUT RAGSOC F_RAGSOC
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice " CODCF DISPLAY "Codice " CODCF
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
GROUP G_DEFMOV GROUP G_DEFMOV
END END
LISTBOX F_TIPOCONDV 1 12 LISTBOX F_TIPOCONDV 1 12
BEGIN BEGIN
PROMPT 2 12 "Condizione di vendita " PROMPT 2 12 "Condizione di vendita "
ITEM " |Nessuna" ITEM " |Nessuna"
MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN
MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF
MESSAGE ENABLE,F_TIPOCF|RESET,F_TIPOCF MESSAGE ENABLE,F_TIPOCF|RESET,F_TIPOCF
ITEM "L|Listino" ITEM "L|Listino"
MESSAGE SHOW,F_CATVEN MESSAGE SHOW,F_CATVEN
MESSAGE ENABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF MESSAGE ENABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF
MESSAGE RESET,F_CODCONTR|RESET,F_CODOFF MESSAGE RESET,F_CODCONTR|RESET,F_CODOFF
MESSAGE DISABLE,F_TIPOCF|RESET,F_TIPOCF MESSAGE DISABLE,F_TIPOCF|RESET,F_TIPOCF
ITEM "C|Contratto" ITEM "C|Contratto"
MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN
MESSAGE DISABLE,F_CODLIST|ENABLE,F_CODCONTR|DISABLE,F_CODOFF MESSAGE DISABLE,F_CODLIST|ENABLE,F_CODCONTR|DISABLE,F_CODOFF
MESSAGE RESET,F_CODLIST|RESET,F_CODOFF MESSAGE RESET,F_CODLIST|RESET,F_CODOFF
MESSAGE ENABLE,F_TIPOCF MESSAGE ENABLE,F_TIPOCF
ITEM "O|Offerta" ITEM "O|Offerta"
MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN
MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|ENABLE,F_CODOFF MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|ENABLE,F_CODOFF
MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR
MESSAGE DISABLE,F_TIPOCF|RESET,F_TIPOCF MESSAGE DISABLE,F_TIPOCF|RESET,F_TIPOCF
// GROUP G_DEFMOV // GROUP G_DEFMOV
END END
STRING F_CODCONDV 3 STRING F_CODCONDV 3
BEGIN BEGIN
PROMPT 1 1 "Codice CONDV " PROMPT 1 1 "Codice CONDV "
FLAGS "HG" FLAGS "HG"
END END
STRING F_CATVEN 2 STRING F_CATVEN 2
BEGIN BEGIN
FLAGS "D" FLAGS "D"
PROMPT 2 13 "Cat.ven." PROMPT 2 13 "Cat.ven."
FIELD CATVEN FIELD CATVEN
USE CVE USE CVE
INPUT CODTAB F_CATVEN INPUT CODTAB F_CATVEN
DISPLAY "Cat." CODTAB DISPLAY "Cat." CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CATVEN CODTAB OUTPUT F_CATVEN CODTAB
MESSAGE CHECK,F_CODLIST MESSAGE CHECK,F_CODLIST
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_CODLIST 3 STRING F_CODLIST 3
BEGIN BEGIN
PROMPT 20 13 "Codice listino " PROMPT 20 13 "Codice listino "
FIELD CODLIST FIELD CODLIST
USE LF_CONDV USE LF_CONDV
INPUT TIPO "L" INPUT TIPO "L"
INPUT CATVEN F_CATVEN INPUT CATVEN F_CATVEN
INPUT COD F_CODLIST INPUT COD F_CODLIST
DISPLAY "Cat.Ven." CATVEN DISPLAY "Cat.Ven." CATVEN
DISPLAY "C/F" TIPOCF DISPLAY "C/F" TIPOCF
DISPLAY "Cod Cli/For" CODCF DISPLAY "Cod Cli/For" CODCF
DISPLAY "Codice" COD DISPLAY "Codice" COD
DISPLAY "Descr.@30" DESCR DISPLAY "Descr.@30" DESCR
// OUTPUT F_TIPOCONDV TIPO // OUTPUT F_TIPOCONDV TIPO
OUTPUT F_CODLIST COD OUTPUT F_CODLIST COD
OUTPUT F_CATVEN CATVEN OUTPUT F_CATVEN CATVEN
OUTPUT F_TIPOCF TIPOCF OUTPUT F_TIPOCF TIPOCF
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
OUTPUT F_CODCONDV COD OUTPUT F_CODCONDV COD
CHECKTYPE NORMAL CHECKTYPE NORMAL
// GROUP G_DEFMOV // GROUP G_DEFMOV
END END
STRING F_CODCONTR 3 STRING F_CODCONTR 3
BEGIN BEGIN
PROMPT 20 14 "Codice contratto " PROMPT 20 14 "Codice contratto "
FIELD CODCONT FIELD CODCONT
USE LF_CONDV USE LF_CONDV
INPUT TIPO "C" INPUT TIPO "C"
INPUT CATVEN F_CATVEN INPUT CATVEN F_CATVEN
INPUT TIPOCF F_TIPOCF INPUT TIPOCF F_TIPOCF
INPUT CODCF F_CODCF INPUT CODCF F_CODCF
INPUT COD F_CODCONTR INPUT COD F_CODCONTR
DISPLAY "Cat.Ven." CATVEN DISPLAY "Cat.Ven." CATVEN
DISPLAY "C/F" TIPOCF DISPLAY "C/F" TIPOCF
DISPLAY "Cod Cli/For" CODCF DISPLAY "Cod Cli/For" CODCF
DISPLAY "Codice" COD DISPLAY "Codice" COD
DISPLAY "Descr.@30" DESCR DISPLAY "Descr.@30" DESCR
// OUTPUT F_TIPOCONDV TIPO // OUTPUT F_TIPOCONDV TIPO
OUTPUT F_TIPOCF TIPOCF OUTPUT F_TIPOCF TIPOCF
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
OUTPUT F_CODCONTR COD OUTPUT F_CODCONTR COD
OUTPUT F_CODCONDV COD OUTPUT F_CODCONDV COD
CHECKTYPE NORMAL CHECKTYPE NORMAL
// GROUP G_DEFMOV // GROUP G_DEFMOV
END END
STRING F_CODOFF 3 STRING F_CODOFF 3
BEGIN BEGIN
PROMPT 20 15 "Codice offerta " PROMPT 20 15 "Codice offerta "
FIELD CODCAMP FIELD CODCAMP
USE LF_CONDV USE LF_CONDV
INPUT TIPO "O" INPUT TIPO "O"
INPUT CATVEN F_CATVEN INPUT CATVEN F_CATVEN
INPUT COD F_CODOFF INPUT COD F_CODOFF
DISPLAY "Codice" COD DISPLAY "Codice" COD
DISPLAY "Descr.@30" DESCR DISPLAY "Descr.@30" DESCR
OUTPUT F_TIPOCONDV TIPO OUTPUT F_TIPOCONDV TIPO
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
OUTPUT F_CODOFF COD OUTPUT F_CODOFF COD
OUTPUT F_CODCONDV COD OUTPUT F_CODCONDV COD
CHECKTYPE NORMAL CHECKTYPE NORMAL
// GROUP G_DEFMOV // GROUP G_DEFMOV
END END
ENDPAGE ENDPAGE
@ -367,61 +367,61 @@ END
NUMBER H_NUMREG 7 NUMBER H_NUMREG 7
BEGIN BEGIN
FLAGS "D" FLAGS "D"
FIELD NUMREG FIELD NUMREG
PROMPT 2 2 "Operazione numero " PROMPT 2 2 "Operazione numero "
END END
NUMBER H_ANNOES 4 NUMBER H_ANNOES 4
BEGIN BEGIN
FLAGS "D" FLAGS "D"
PROMPT 2 3 "Esercizio di competenza " PROMPT 2 3 "Esercizio di competenza "
END END
DATE H_DATAREG DATE H_DATAREG
BEGIN BEGIN
PROMPT 38 2 "Data di registrazione " PROMPT 38 2 "Data di registrazione "
FLAGS "D" FLAGS "D"
END END
DATE H_DATACOMP DATE H_DATACOMP
BEGIN BEGIN
PROMPT 38 3 "Data di competenza " PROMPT 38 3 "Data di competenza "
FLAGS "D" FLAGS "D"
END END
STRING H_DESCR 50 40 STRING H_DESCR 50 40
BEGIN BEGIN
PROMPT 2 4 "Descrizione " PROMPT 2 4 "Descrizione "
FLAGS "D" FLAGS "D"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 6 "Righe" PROMPT 2 6 "Righe"
GROUP G_DEFMOV GROUP G_DEFMOV
END END
SPREADSHEET F_RIGHE 77 12 SPREADSHEET F_RIGHE 77 12
BEGIN BEGIN
PROMPT 2 7 "RIGHE DI MOVIMENTO" PROMPT 2 7 "RIGHE DI MOVIMENTO"
FLAGS "AI" FLAGS "AI"
USE LF_RMOVMAG KEY NRIG USE LF_RMOVMAG KEY NRIG
INPUT NUMREG F_NUMREG INPUT NUMREG F_NUMREG
ITEM " @1F" ITEM "@1F"
ITEM "CodArt" ITEM "CodArt"
ITEM "CodMag" ITEM "CodMag"
ITEM "CodDep" ITEM "CodDep"
ITEM "Liv1" ITEM "Liv1"
ITEM "Liv2" ITEM "Liv2"
ITEM "Liv3" ITEM "Liv3"
ITEM "Liv4" ITEM "Liv4"
ITEM "UM" ITEM "UM"
ITEM "Qta" ITEM "Qta"
ITEM "Prezzo" ITEM "Prezzo"
ITEM "Causale" ITEM "Causale"
END END

24
mg/mg1100a.h
View File

@ -1,25 +1,25 @@
// colonne visibili dello Sheet // colonne visibili dello Sheet
#define F_AUTOMATICA 101 #define F_AUTOMATICA 101
#define F_CODART 102 #define F_CODART 102
#define F_CODMAG 103 #define F_CODMAG 103
#define F_CODDEP 104 #define F_CODDEP 104
#define F_LIV1 105 #define F_LIV1 105
#define F_LIV2 106 #define F_LIV2 106
#define F_LIV3 107 #define F_LIV3 107
#define F_LIV4 108 #define F_LIV4 108
#define F_UM 109 #define F_UM 109
#define F_QUANT 110 #define F_QUANT 110
#define F_PREZZO 111 #define F_PREZZO 111
#define F_CAUSRIG 112 #define F_CAUSRIG 112
// colonne non visibili dello Sheet // colonne non visibili dello Sheet
#define F_DESMAG 150 #define F_DESMAG 150
#define F_DESDEP 151 #define F_DESDEP 151
#define H_DESMAG 152 #define H_DESMAG 152
#define H_GESTGIA 153 #define H_GESTGIA 153
#define F_UBICAZD 154 #define F_UBICAZD 154
#define F_DESART 155 #define F_DESART 155
#define F_VALORE 156 #define F_VALORE 156
#define F_DESCAUSRIG 157 #define F_DESCAUSRIG 157
#define G_NOAUTO 1 #define G_NOAUTO 1

209
mg/mg1100a.uml
View File

@ -23,45 +23,45 @@ PAGE "Righe movimenti" -1 -1 80 23
STRING F_AUTOMATICA 1 STRING F_AUTOMATICA 1
BEGIN BEGIN
PROMPT 2 1 "Tipo riga " PROMPT 2 1 "Tipo riga "
FIELD AUTOMATICA FIELD AUTOMATICA
FLAGS "DG" FLAGS "DG"
MESSAGE EMPTY ENABLE,G_NOAUTO@ MESSAGE EMPTY ENABLE,G_NOAUTO@
MESSAGE DISABLE,G_NOAUTO@ MESSAGE DISABLE,G_NOAUTO@
END END
STRING F_CODART 20 STRING F_CODART 20
BEGIN BEGIN
PROMPT 2 2 "Codice articolo " PROMPT 2 2 "Codice articolo "
FIELD CODART FIELD CODART
FLAGS "U" FLAGS "U"
USE LF_ANAMAG USE LF_ANAMAG
INPUT CODART F_CODART INPUT CODART F_CODART
DISPLAY "Codice@20" CODART DISPLAY "Codice@20" CODART
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODART CODART OUTPUT F_CODART CODART
OUTPUT F_DESART DESCR OUTPUT F_DESART DESCR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
GROUP G_NOAUTO GROUP G_NOAUTO
END END
STRING F_DESART 50 STRING F_DESART 50
BEGIN BEGIN
PROMPT 2 3 "Descrizione " PROMPT 2 3 "Descrizione "
FLAGS "U" FLAGS "U"
USE LF_ANAMAG KEY 2 USE LF_ANAMAG KEY 2
INPUT DESCR F_DESART INPUT DESCR F_DESART
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice@20" CODART DISPLAY "Codice@20" CODART
COPY OUTPUT F_CODART COPY OUTPUT F_CODART
CHECKTYPE NORMAL CHECKTYPE NORMAL
GROUP G_NOAUTO GROUP G_NOAUTO
END END
STRING F_CODMAG 3 STRING F_CODMAG 3
BEGIN BEGIN
PROMPT 2 5 "Magazzino " PROMPT 2 5 "Magazzino "
FLAGS "U" FLAGS "U"
FIELD CODMAG[1,3] FIELD CODMAG[1,3]
USE MAG SELECT CODTAB[4,5]=="" USE MAG SELECT CODTAB[4,5]==""
INPUT CODTAB F_CODMAG INPUT CODTAB F_CODMAG
DISPLAY "Codice " CODTAB[1,3] DISPLAY "Codice " CODTAB[1,3]
@ -71,17 +71,17 @@ BEGIN
OUTPUT H_DESMAG S0 OUTPUT H_DESMAG S0
OUTPUT H_GESTGIA B0 OUTPUT H_GESTGIA B0
// OUTPUT F_CODDEP CODTAB[4,5] // OUTPUT F_CODDEP CODTAB[4,5]
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_CODDEP 2 STRING F_CODDEP 2
BEGIN BEGIN
PROMPT 2 6 "Deposito " PROMPT 2 6 "Deposito "
FLAGS "U" FLAGS "U"
FIELD CODMAG[4,5] FIELD CODMAG[4,5]
USE MAG USE MAG
INPUT CODTAB[1,3] F_CODMAG INPUT CODTAB[1,3] F_CODMAG
INPUT CODTAB[4,5] F_CODDEP INPUT CODTAB[4,5] F_CODDEP
DISPLAY "Cod. magazzino" CODTAB[1,3] DISPLAY "Cod. magazzino" CODTAB[1,3]
DISPLAY "Cod. deposito" CODTAB[4,5] DISPLAY "Cod. deposito" CODTAB[4,5]
@ -89,42 +89,42 @@ BEGIN
OUTPUT F_CODDEP CODTAB[4,5] OUTPUT F_CODDEP CODTAB[4,5]
OUTPUT F_DESDEP S0 OUTPUT F_DESDEP S0
OUTPUT F_CODMAG CODTAB[1,3] OUTPUT F_CODMAG CODTAB[1,3]
CHECKTYPE NORMAL CHECKTYPE NORMAL
STR_EXPR ((#H_GESTGIA=="X")&&(#F_CODDEP!=""))||(#H_GESTGIA!="X") STR_EXPR ((#H_GESTGIA=="X")&&(#F_CODDEP!=""))||(#H_GESTGIA!="X")
// WARNING "Indicare il deposito" // WARNING "Indicare il deposito"
END END
STRING F_DESMAG 50 STRING F_DESMAG 50
BEGIN BEGIN
PROMPT 22 5 "" PROMPT 22 5 ""
USE MAG KEY 2 USE MAG KEY 2
INPUT S0 F_DESMAG INPUT S0 F_DESMAG
DISPLAY "Denominazione mag.@50" S0 DISPLAY "Denominazione mag.@50" S0
DISPLAY "Cod. magazzino" CODTAB[1,3] DISPLAY "Cod. magazzino" CODTAB[1,3]
DISPLAY "Cod. deposito" CODTAB[4,5] DISPLAY "Cod. deposito" CODTAB[4,5]
OUTPUT F_CODMAG CODTAB[1,3] OUTPUT F_CODMAG CODTAB[1,3]
OUTPUT F_CODDEP CODTAB[4,5] OUTPUT F_CODDEP CODTAB[4,5]
// GUIDO!!!!!!!!!!!!!!!!! in che ordine vengono eseguiti gli output // GUIDO!!!!!!!!!!!!!!!!! in che ordine vengono eseguiti gli output
// a cascata??? perchè mi ritrovo il coddep cancellato??? // a cascata??? perchè mi ritrovo il coddep cancellato???
END END
STRING F_DESDEP 50 STRING F_DESDEP 50
BEGIN BEGIN
PROMPT 22 6 "" PROMPT 22 6 ""
FLAGS "H" FLAGS "H"
COPY USE F_DESMAG COPY USE F_DESMAG
INPUT S0 F_DESDEP INPUT S0 F_DESDEP
COPY DISPLAY F_DESMAG COPY DISPLAY F_DESMAG
COPY OUTPUT F_DESMAG COPY OUTPUT F_DESMAG
// MESSAGE K_TAB,F_CODDEP // MESSAGE K_TAB,F_CODDEP
END END
STRING H_DESMAG 50 STRING H_DESMAG 50
BEGIN BEGIN
PROMPT 22 5 "" PROMPT 22 5 ""
FLAGS "D" FLAGS "D"
END END
//Abilitazione/disabil. dei campi relativi al deposito //Abilitazione/disabil. dei campi relativi al deposito
@ -132,7 +132,7 @@ BOOLEAN H_GESTGIA
BEGIN BEGIN
PROMPT 1 1 "" PROMPT 1 1 ""
FLAGS "HG" FLAGS "HG"
MESSAGE TRUE ENABLE,F_CODDEP|CHECK,F_CODDEP|SHOW,F_DESDEP|SHOW,H_DESMAG|HIDE,F_DESMAG MESSAGE TRUE ENABLE,F_CODDEP|CHECK,F_CODDEP|SHOW,F_DESDEP|SHOW,H_DESMAG|HIDE,F_DESMAG
MESSAGE FALSE RESET,F_CODDEP|RESET,F_DESDEP|DISABLE,F_CODDEP|HIDE,F_DESDEP|HIDE,H_DESMAG|SHOW,F_DESMAG MESSAGE FALSE RESET,F_CODDEP|RESET,F_DESDEP|DISABLE,F_CODDEP|HIDE,F_DESDEP|HIDE,H_DESMAG|SHOW,F_DESMAG
END END
@ -140,105 +140,105 @@ END
STRING F_LIV1 10 STRING F_LIV1 10
BEGIN BEGIN
PROMPT 2 8 "Livello 1 " PROMPT 2 8 "Livello 1 "
USE GCG //SELECT CODTAB[1,1]=="1" USE GCG //SELECT CODTAB[1,1]=="1"
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1] JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] "1" INPUT CODTAB[1,1] "1"
INPUT CODTAB[2,11] F_LIV1 INPUT CODTAB[2,11] F_LIV1
DISPLAY "Livello@20" 500@->S0 DISPLAY "Livello@20" 500@->S0
DISPLAY "Gruppo@10" CODTAB[2,20] DISPLAY "Gruppo@10" CODTAB[2,20]
DISPLAY "Descr.@30" S0 DISPLAY "Descr.@30" S0
OUTPUT F_LIV1 CODTAB[2,12] OUTPUT F_LIV1 CODTAB[2,12]
CHECKTYPE NORMAL CHECKTYPE NORMAL
MESSAGE EMPTY RESET,F_LIV2|RESET,F_LIV3|RESET,F_LIV4 MESSAGE EMPTY RESET,F_LIV2|RESET,F_LIV3|RESET,F_LIV4
GROUP G_NOAUTO GROUP G_NOAUTO
END END
STRING F_LIV2 6 STRING F_LIV2 6
BEGIN BEGIN
PROMPT 40 8 "Livello 2 " PROMPT 40 8 "Livello 2 "
// Non mettere FLAGS "D" perchè disabiliterebbe tutta la colonna // Non mettere FLAGS "D" perchè disabiliterebbe tutta la colonna
USE GCG //SELECT CODTAB[1,1]=="2" USE GCG //SELECT CODTAB[1,1]=="2"
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1] JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] "2" INPUT CODTAB[1,1] "2"
INPUT CODTAB[2,12] F_LIV2 INPUT CODTAB[2,12] F_LIV2
COPY DISPLAY F_LIV1 COPY DISPLAY F_LIV1
OUTPUT F_LIV2 CODTAB[2,12] OUTPUT F_LIV2 CODTAB[2,12]
CHECKTYPE NORMAL CHECKTYPE NORMAL
MESSAGE EMPTY RESET,F_LIV3|RESET,F_LIV4 MESSAGE EMPTY RESET,F_LIV3|RESET,F_LIV4
GROUP G_NOAUTO GROUP G_NOAUTO
END END
STRING F_LIV3 6 STRING F_LIV3 6
BEGIN BEGIN
PROMPT 2 9 "Livello 3 " PROMPT 2 9 "Livello 3 "
USE GCG //SELECT CODTAB[1,1]=="3" USE GCG //SELECT CODTAB[1,1]=="3"
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1] JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] "3" INPUT CODTAB[1,1] "3"
INPUT CODTAB[2,12] F_LIV3 INPUT CODTAB[2,12] F_LIV3
COPY DISPLAY F_LIV1 COPY DISPLAY F_LIV1
OUTPUT F_LIV3 CODTAB[2,12] OUTPUT F_LIV3 CODTAB[2,12]
CHECKTYPE NORMAL CHECKTYPE NORMAL
GROUP G_NOAUTO GROUP G_NOAUTO
MESSAGE EMPTY RESET,F_LIV4 MESSAGE EMPTY RESET,F_LIV4
END END
STRING F_LIV4 6 STRING F_LIV4 6
BEGIN BEGIN
PROMPT 40 9 "Livello 4 " PROMPT 40 9 "Livello 4 "
USE GCG //SELECT CODTAB[1,1]=="4" USE GCG //SELECT CODTAB[1,1]=="4"
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1] JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] "4" INPUT CODTAB[1,1] "4"
INPUT CODTAB[2,12] F_LIV4 INPUT CODTAB[2,12] F_LIV4
COPY DISPLAY F_LIV1 COPY DISPLAY F_LIV1
OUTPUT F_LIV4 CODTAB[2,12] OUTPUT F_LIV4 CODTAB[2,12]
CHECKTYPE NORMAL CHECKTYPE NORMAL
GROUP G_NOAUTO GROUP G_NOAUTO
END END
STRING F_UM 2 STRING F_UM 2
BEGIN BEGIN
FLAGS "U" FLAGS "U"
PROMPT 2 11 "Unità di misura " PROMPT 2 11 "Unità di misura "
FIELD UM FIELD UM
USE LF_UMART KEY 2 USE LF_UMART KEY 2
INPUT CODART F_CODART SELECT INPUT CODART F_CODART SELECT
INPUT UM F_UM INPUT UM F_UM
DISPLAY "U.M.@10" UM DISPLAY "U.M.@10" UM
DISPLAY "F.C.@10" FC DISPLAY "F.C.@10" FC
OUTPUT F_CODART CODART OUTPUT F_CODART CODART
OUTPUT F_UM UM OUTPUT F_UM UM
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
GROUP G_NOAUTO GROUP G_NOAUTO
END END
NUMBER F_QUANT 15 5 NUMBER F_QUANT 15 5
BEGIN BEGIN
PROMPT 2 13 "Quantità " PROMPT 2 13 "Quantità "
FIELD QUANT FIELD QUANT
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Indicare la quantità" WARNING "Indicare la quantità"
GROUP G_NOAUTO GROUP G_NOAUTO
END END
NUMBER F_PREZZO 18 3 NUMBER F_PREZZO 18 3
BEGIN BEGIN
PROMPT 2 14 "Prezzo " PROMPT 2 14 "Prezzo "
FIELD PREZZO FIELD PREZZO
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Indicare il prezzo" WARNING "Indicare il prezzo"
END END
NUMBER F_VALORE 15 5 NUMBER F_VALORE 15 5
BEGIN BEGIN
FLAGS "D" FLAGS "D"
PROMPT 42 14 "Valore totale " PROMPT 42 14 "Valore totale "
NUM_CALC #F_PREZZO*#F_QUANT NUM_CALC #F_PREZZO*#F_QUANT
END END
STRINGA F_CAUSRIG 4 STRING F_CAUSRIG 4
BEGIN BEGIN
PROMPT 2 15 "Codice causale " PROMPT 2 16 "Codice causale "
FIELD CAUS FIELD CAUS
USE %CAU USE %CAU
FLAGS "U" FLAGS "U"
INPUT CODTAB F_CAUSRIG INPUT CODTAB F_CAUSRIG
@ -246,14 +246,15 @@ BEGIN
DISPLAY "Descrizione@50 " S0 DISPLAY "Descrizione@50 " S0
OUTPUT F_CAUSRIG CODTAB OUTPUT F_CAUSRIG CODTAB
OUTPUT F_DESCAUSRIG S0 OUTPUT F_DESCAUSRIG S0
MESSAGE EMPTY RESET,F_DESCAUSRIG MESSAGE EMPTY RESET,F_DESCAUSRIG
GROUP G_NOAUTO ADD RUN MG0 -0 %CAU
GROUP G_NOAUTO
END END
NUMBER F_DESCAUSRIG 50 30 STRING F_DESCAUSRIG 50 30
BEGIN BEGIN
FLAGS "D" FLAGS "D"
PROMPT 42 15 "" PROMPT 42 16 ""
END END
ENDPAGE ENDPAGE

452
mg/mg3100.cpp
View File

@ -17,13 +17,13 @@
class TForm_giacprezzi : public TForm_stampemg class TForm_giacprezzi : public TForm_stampemg
{ {
TConfig *conf_ditta; TConfig *conf_ditta;
TCondizione_vendita * listino; TCondizione_vendita * listino;
public: public:
void set_codlistino(const char * codcm,const char * cod); void set_codlistino(const char * codcm,const char * cod);
bool validate(TForm_item &cf, TToken_string &s); bool validate(TForm_item &cf, TToken_string &s);
TForm_giacprezzi(const char *name,const char *code) ; TForm_giacprezzi(const char *name,const char *code) ;
~TForm_giacprezzi(); ~TForm_giacprezzi();
}; };
bool TForm_giacprezzi::validate(TForm_item &cf, TToken_string &s) bool TForm_giacprezzi::validate(TForm_item &cf, TToken_string &s)
@ -32,144 +32,144 @@ bool TForm_giacprezzi::validate(TForm_item &cf, TToken_string &s)
TString subcode; TString subcode;
if (code=="_USER") { if (code=="_USER") {
subcode=s.get(); subcode=s.get();
if (subcode=="PREZZO") { if (subcode=="PREZZO") {
TString codart(relation()->lfile(LF_ANAMAG).get("CODART")); TString codart(relation()->lfile(LF_ANAMAG).get("CODART"));
if (listino->ricerca(codart,0.0)) if (listino->ricerca(codart,0.0))
cf.set(listino->get_prezzo().string()); cf.set(listino->get_prezzo().string());
return TRUE; return TRUE;
} }
} }
return TForm_stampemg::validate(cf, s); return TForm_stampemg::validate(cf, s);
} }
void TForm_giacprezzi::set_codlistino(const char * codcatv,const char * codlist) void TForm_giacprezzi::set_codlistino(const char * codcatv,const char * codlist)
{ {
listino->put_listino(codlist,codcatv); listino->put_listino(codlist,codcatv);
} }
TForm_giacprezzi::TForm_giacprezzi(const char *name,const char *code) : TForm_giacprezzi::TForm_giacprezzi(const char *name,const char *code) :
TForm_stampemg(name,code) TForm_stampemg(name,code)
{ {
listino=new TCondizione_vendita(new TConfig(CONFIG_DITTA,"")); listino=new TCondizione_vendita(new TConfig(CONFIG_DITTA,""));
listino->set_anamag(relation()->lfile(LF_ANAMAG)); listino->set_anamag(relation()->lfile(LF_ANAMAG));
listino->set_umart(relation()->lfile(LF_UMART)); listino->set_umart(relation()->lfile(LF_UMART));
} }
TForm_giacprezzi::~TForm_giacprezzi() TForm_giacprezzi::~TForm_giacprezzi()
{ {
delete &(listino->config_ditta()); delete &(listino->config_ditta());
delete listino; delete listino;
} }
class TStampadatist_mask: public TMask class TStampadatist_mask: public TMask
{ {
static bool handle_ragg(TMask_field &fld, KEY k); // handler static bool handle_ragg(TMask_field &fld, KEY k); // handler
static bool handle_liv(TMask_field &fld, KEY k); // handler static bool handle_liv(TMask_field &fld, KEY k); // handler
static bool handle_subord(TMask_field &fld, KEY k); // handler static bool handle_subord(TMask_field &fld, KEY k); // handler
public: public:
TStampadatist_mask(); TStampadatist_mask();
~TStampadatist_mask(){}; ~TStampadatist_mask(){};
}; };
TStampadatist_mask::TStampadatist_mask(): TStampadatist_mask::TStampadatist_mask():
TMask("mg3100") TMask("mg3100")
{ {
TConfig prassid(CONFIG_DITTA, "ve"); // apre il file di configurazione della ditta corrente TConfig prassid(CONFIG_DITTA, "ve"); // apre il file di configurazione della ditta corrente
if (prassid.get_bool("GES", NULL, A_LISTINI)) if (prassid.get_bool("GES", NULL, A_LISTINI))
field(F_CATVENLISTINO).enable(prassid.get_bool("GESLISCV")); field(F_CATVENLISTINO).enable(prassid.get_bool("GESLISCV"));
else { else {
field(F_CATVENLISTINO).disable(); field(F_CODLISTINO).disable(); field(F_CATVENLISTINO).disable(); field(F_CODLISTINO).disable();
} }
TMag_livelli giaclev("FCA"),artlev("FCG"); TMag_livelli giaclev("FCA"),artlev("FCG");
set_handler(F_TOLIVELLOART, handle_liv); set_handler(F_TOLIVELLOART, handle_liv);
set_handler(F_TOLIVELLOGIAC, handle_liv); set_handler(F_TOLIVELLOGIAC, handle_liv);
set_handler(F_ORDINE, handle_ragg); set_handler(F_ORDINE, handle_ragg);
set_handler(F_DETTAGLIODEP, handle_ragg); set_handler(F_DETTAGLIODEP, handle_ragg);
set_handler(F_DETTAGLIOMAG, handle_ragg); set_handler(F_DETTAGLIOMAG, handle_ragg);
set_handler(F_ORDINEART,handle_subord); set_handler(F_ORDINEART,handle_subord);
if (!artlev.enabled()) { if (!artlev.enabled()) {
TMask_field &f1=field(F_RAGGCODICE); TMask_field &f1=field(F_RAGGCODICE);
f1.reset(); f1.check();f1.hide(); f1.reset(); f1.check();f1.hide();
} }
if (!giaclev.enabled()) { if (!giaclev.enabled()) {
TMask_field &f2=field(F_RAGGLIVGIAC); TMask_field &f2=field(F_RAGGLIVGIAC);
f2.reset(); f2.check();f2.hide(); f2.reset(); f2.check();f2.hide();
} }
} }
bool TStampadatist_mask::handle_subord(TMask_field &fld, KEY k) bool TStampadatist_mask::handle_subord(TMask_field &fld, KEY k)
{ {
if (k == K_SPACE) if (k == K_SPACE)
{ {
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE); TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC); TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
switch (fld.get()[1]) { switch (fld.get()[1]) {
case 'C': case 'C':
if (fld.mask().get(F_ORDINE)=="A") if (fld.mask().get(F_ORDINE)=="A")
fraggcod.enable(); fraggcod.enable();
else { else {
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP)) if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
{ {
fraggcod.reset(); fraggcod.disable(); fraggcod.reset(); fraggcod.disable();
fragggiac.reset(); fragggiac.disable(); fragggiac.reset(); fragggiac.disable();
fraggcod.do_message(0);fragggiac.do_message(0); fraggcod.do_message(0);fragggiac.do_message(0);
} }
} }
break; break;
case 'M': case 'M':
case 'D': case 'D':
fraggcod.reset(); fraggcod.check();fraggcod.disable(); fraggcod.reset(); fraggcod.check();fraggcod.disable();
break; break;
} }
} }
return TRUE; return TRUE;
} }
bool TStampadatist_mask::handle_liv(TMask_field &fld, KEY k) bool TStampadatist_mask::handle_liv(TMask_field &fld, KEY k)
{ {
if (k == K_TAB) if (k == K_TAB)
{ {
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI); TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
TOperable_field &fdettmag=(TOperable_field &)fld.mask().field(F_DETTAGLIOMAG); TOperable_field &fdettmag=(TOperable_field &)fld.mask().field(F_DETTAGLIOMAG);
if (fld.mask().get(F_ORDINE)=="A") if (fld.mask().get(F_ORDINE)=="A")
{ {
if (fld.mask().get_int(F_TOLIVELLOART) || fld.mask().get_int(F_TOLIVELLOGIAC)) if (fld.mask().get_int(F_TOLIVELLOART) || fld.mask().get_int(F_TOLIVELLOGIAC))
{ {
// raggruppamenti prima del dettaglio magazzini // raggruppamenti prima del dettaglio magazzini
ftotmag.reset(); ftotmag.disable();ftotmag.do_message(0); ftotmag.reset(); ftotmag.disable();ftotmag.do_message(0);
} else { } else {
ftotmag.enable(); ftotmag.enable();
} }
} }
} }
return TRUE; return TRUE;
} }
bool TStampadatist_mask::handle_ragg(TMask_field &fld, KEY k) bool TStampadatist_mask::handle_ragg(TMask_field &fld, KEY k)
{ {
if (k == K_SPACE) if (k == K_SPACE)
{ {
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI); TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE); TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC); TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
if (fld.mask().get(F_ORDINE)=="M") if (fld.mask().get(F_ORDINE)=="M")
{ {
ftotmag.enable(); ftotmag.enable();
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP)) if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
{ {
fraggcod.reset(); fraggcod.disable(); fraggcod.reset(); fraggcod.disable();
fragggiac.reset(); fragggiac.disable(); fragggiac.reset(); fragggiac.disable();
fraggcod.do_message(0);fragggiac.do_message(0); fraggcod.do_message(0);fragggiac.do_message(0);
return TRUE; return TRUE;
} }
} }
fraggcod.enable(); fraggcod.enable();
fragggiac.enable(); fragggiac.enable();
} }
return TRUE; return TRUE;
} }
@ -177,10 +177,10 @@ bool TStampadatist_mask::handle_ragg(TMask_field &fld, KEY k)
// STAMPA anagrafiche // STAMPA anagrafiche
class TStampa_datistorici : public TPrint_application class TStampa_datistorici : public TPrint_application
{ {
TArray * _files; TArray * _files;
TMask * _mask; TMask * _mask;
TCursor * _cur; TCursor * _cur;
TForm_giacprezzi * _form; // to be moved into TPrint_application TForm_giacprezzi * _form; // to be moved into TPrint_application
protected: protected:
virtual bool print_one(int file) virtual bool print_one(int file)
@ -189,9 +189,9 @@ protected:
virtual bool user_destroy(); virtual bool user_destroy();
virtual bool set_print(int i=1); virtual bool set_print(int i=1);
virtual void set_page(int file,int count) virtual void set_page(int file,int count)
{ } { }
void setprint_permagazzini(); void setprint_permagazzini();
void setprint_perarticoli(); void setprint_perarticoli();
public: public:
TStampa_datistorici() {} TStampa_datistorici() {}
@ -208,8 +208,8 @@ bool TStampa_datistorici::user_create()
bool TStampa_datistorici::user_destroy() bool TStampa_datistorici::user_destroy()
{ {
delete _mask; delete _mask;
delete _files; delete _files;
return TRUE; return TRUE;
} }
@ -220,51 +220,51 @@ void TStampa_datistorici::setprint_permagazzini()
TString cfilter,sortexp,joinexp; TString cfilter,sortexp,joinexp;
_form = new TForm_giacprezzi("mg3100b", ""); _form = new TForm_giacprezzi("mg3100b", "");
_cur = _form->cursor(); _cur = _form->cursor();
// setta il filtro sul cursore // setta il filtro sul cursore
if (*_mask->get(F_DAART)) if (*_mask->get(F_DAART))
cfilter << "(CODART>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ; cfilter << "(CODART>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ;
if (*_mask->get(F_AART)) if (*_mask->get(F_AART))
cfilter << "(CODART<=" <<'"' << _mask->get(F_AART)<< "\")&&" ; cfilter << "(CODART<=" <<'"' << _mask->get(F_AART)<< "\")&&" ;
switch (*_mask->get(F_FILTRO)) { switch (*_mask->get(F_FILTRO)) {
case '0': // non nulli case '0': // non nulli
cfilter << "(STR(" << LF_MAG << "->GIAC!=\"0\"))&&"; cfilter << "(STR(" << LF_MAG << "->GIAC!=\"0\"))&&";
break; break;
case 'P': // positivi case 'P': // positivi
cfilter << "(STR(" << LF_MAG << "->GIAC>\"0\"))&&"; cfilter << "(STR(" << LF_MAG << "->GIAC>\"0\"))&&";
break; break;
case 'N': // negativi case 'N': // negativi
cfilter << "(STR(" << LF_MAG << "->GIAC<\"0\"))&&"; cfilter << "(STR(" << LF_MAG << "->GIAC<\"0\"))&&";
break; break;
case 'S': // sottoscorta case 'S': // sottoscorta
cfilter << "(STR(GIAC<SCORTAMIN))&&"; cfilter << "(STR(GIAC<SCORTAMIN))&&";
break; break;
} }
if (cfilter.not_empty()) if (cfilter.not_empty())
cfilter.cut(cfilter.len()-2); cfilter.cut(cfilter.len()-2);
// abilita/disabilita le sezioni dei totali // abilita/disabilita le sezioni dei totali
_form->setdett_permag(_mask->get_int(F_FROMLIVELLOART), _form->setdett_permag(_mask->get_int(F_FROMLIVELLOART),
_mask->get_int(F_TOLIVELLOART), _mask->get_int(F_TOLIVELLOART),
_mask->get_int(F_FROMLIVELLOGIAC), _mask->get_int(F_FROMLIVELLOGIAC),
_mask->get_int(F_TOLIVELLOGIAC), _mask->get_int(F_TOLIVELLOGIAC),
TRUE, TRUE,
_mask->get_bool(F_TOTALIDEPOSITI), _mask->get_bool(F_TOTALIDEPOSITI),
_mask->get_bool(F_DETTAGLIODEP)); _mask->get_bool(F_DETTAGLIODEP));
_form->find_field('H',odd_page,FF_FLAGGIAC).set((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)!='S') ? "1": "0"); _form->find_field('H',odd_page,FF_FLAGGIAC).set((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)!='S') ? "1": "0");
_form->find_field('H',odd_page,FF_FLAGSOTTOS).set((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)=='S') ? "1": "0"); _form->find_field('H',odd_page,FF_FLAGSOTTOS).set((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)=='S') ? "1": "0");
_form->find_field('B',odd_page,FF_FLAGVALMEDI).set(_mask->get_bool(F_VALMEDI) ? "1": "0"); _form->find_field('B',odd_page,FF_FLAGVALMEDI).set(_mask->get_bool(F_VALMEDI) ? "1": "0");
_form->find_field('H',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI)); _form->find_field('H',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI));
_form->find_field('B',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI)); _form->find_field('B',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI));
_form->set_codlistino(_mask->get(F_CATVENLISTINO),_mask->get(F_CODLISTINO)); _form->set_codlistino(_mask->get(F_CATVENLISTINO),_mask->get(F_CODLISTINO));
darec.put("ANNOES",_mask->get(F_ANNOES)); darec.put("ANNOES",_mask->get(F_ANNOES));
darec.put("CODMAG",_mask->get(F_DAMAG)); darec.put("CODMAG",_mask->get(F_DAMAG));
arec.put("ANNOES",_mask->get(F_ANNOES)); arec.put("ANNOES",_mask->get(F_ANNOES));
arec.put("CODMAG",_mask->get(F_AMAG)); arec.put("CODMAG",_mask->get(F_AMAG));
_cur->setfilter(cfilter); _cur->setfilter(cfilter);
_cur->setregion(darec,arec); _cur->setregion(darec,arec);
} }
// ORDINAMENTO // ORDINAMENTO
@ -272,108 +272,108 @@ void TStampa_datistorici::setprint_perarticoli()
{ {
TRectype darec(LF_ANAMAG),arec(LF_ANAMAG); TRectype darec(LF_ANAMAG),arec(LF_ANAMAG);
TString cfilter,filter,joinexp; TString cfilter,filter,joinexp;
TString sortexp("ANNOES|CODART|LIVELLO|CODMAG"); TString sortexp("ANNOES|CODART|LIVELLO|CODMAG");
char subordine=*_mask->get(F_ORDINEART); char subordine=*_mask->get(F_ORDINEART);
_form = new TForm_giacprezzi("mg3100a", ""); _form = new TForm_giacprezzi("mg3100a", "");
_cur = _form->cursor(); _cur = _form->cursor();
if (*_mask->get(F_DAMAG)) if (*_mask->get(F_DAMAG))
filter << "(CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ; filter << "(CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ;
if (*_mask->get(F_AMAG)) if (*_mask->get(F_AMAG))
filter << "(CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ; filter << "(CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ;
switch (*_mask->get(F_FILTRO)) { switch (*_mask->get(F_FILTRO)) {
case '0': // non nulli case '0': // non nulli
filter << "(STR(" << LF_MAG << "->GIAC!=\"0\"))&&"; filter << "(STR(" << LF_MAG << "->GIAC!=\"0\"))&&";
break; break;
case 'P': // positivi case 'P': // positivi
filter << "(STR(" << LF_MAG << "->GIAC>\"0\"))&&"; filter << "(STR(" << LF_MAG << "->GIAC>\"0\"))&&";
break; break;
case 'N': // negativi case 'N': // negativi
filter << "(STR(" << LF_MAG << "->GIAC<\"0\"))&&"; filter << "(STR(" << LF_MAG << "->GIAC<\"0\"))&&";
break; break;
case 'S': // sottoscorta case 'S': // sottoscorta
filter << "(STR(GIAC<SCORTAMIN))&&"; filter << "(STR(GIAC<SCORTAMIN))&&";
break; break;
} }
if (filter.not_empty()) if (filter.not_empty())
filter.cut(filter.len()-2); filter.cut(filter.len()-2);
switch (subordine) switch (subordine)
{ {
case 'C': case 'C':
_cur->setkey(1); _cur->setkey(1);
darec.put("CODART",_mask->get(F_DAART)); darec.put("CODART",_mask->get(F_DAART));
arec.put("CODART",_mask->get(F_AART)); arec.put("CODART",_mask->get(F_AART));
_form->find_field('B',odd_page,"H_CATMER").hide(); _form->find_field('B',odd_page,"H_CATMER").hide();
_form->find_field('B',odd_page,"TOT_CATMER").hide(); _form->find_field('B',odd_page,"TOT_CATMER").hide();
_form->setcatmer(FALSE); _form->setcatmer(FALSE);
break; break;
case 'D': case 'D':
_cur->setkey(2); _cur->setkey(2);
darec.put("DESCR",_mask->get(F_DADES)); darec.put("DESCR",_mask->get(F_DADES));
arec.put("DESCR",_mask->get(F_ADES)); arec.put("DESCR",_mask->get(F_ADES));
_form->find_field('B',odd_page,"H_CATMER").disable(); _form->find_field('B',odd_page,"H_CATMER").disable();
_form->find_field('B',odd_page,"TOT_CATMER").hide(); _form->find_field('B',odd_page,"TOT_CATMER").hide();
_form->setcatmer(FALSE); _form->setcatmer(FALSE);
break; break;
case 'M': case 'M':
_cur->setkey(3); _cur->setkey(3);
darec.put("GRMERC",_mask->get(F_DACATMER)); darec.put("GRMERC",_mask->get(F_DACATMER));
darec.put("CODART",_mask->get(F_DAART)); darec.put("CODART",_mask->get(F_DAART));
arec.put("GRMERC",_mask->get(F_ACATMER)); arec.put("GRMERC",_mask->get(F_ACATMER));
arec.put("CODART",_mask->get(F_AART)); arec.put("CODART",_mask->get(F_AART));
_form->find_field('B',odd_page,"H_CATMER").show(); _form->find_field('B',odd_page,"H_CATMER").show();
_form->find_field('B',odd_page,"TOT_CATMER").show(); _form->find_field('B',odd_page,"TOT_CATMER").show();
_form->setcatmer(TRUE); _form->setcatmer(TRUE);
break; break;
} }
_form->setdett_perart( _form->setdett_perart(
_mask->get_int(F_FROMLIVELLOART), _mask->get_int(F_FROMLIVELLOART),
_mask->get_int(F_TOLIVELLOART), _mask->get_int(F_TOLIVELLOART),
_mask->get_int(F_FROMLIVELLOGIAC), _mask->get_int(F_FROMLIVELLOGIAC),
_mask->get_int(F_TOLIVELLOGIAC), _mask->get_int(F_TOLIVELLOGIAC),
_mask->get_bool(F_TOTALIMAGAZZINI), _mask->get_bool(F_TOTALIMAGAZZINI),
_mask->get_bool(F_TOTALIDEPOSITI)); _mask->get_bool(F_TOTALIDEPOSITI));
_form->find_field('H',odd_page,FF_FLAGGIAC).set((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)!='S') ? "1": "0"); _form->find_field('H',odd_page,FF_FLAGGIAC).set((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)!='S') ? "1": "0");
_form->find_field('H',odd_page,FF_FLAGSOTTOS).set((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)=='S') ? "1": "0"); _form->find_field('H',odd_page,FF_FLAGSOTTOS).set((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)=='S') ? "1": "0");
_form->find_field('B',odd_page,FF_FLAGVALMEDI).set(_mask->get_bool(F_VALMEDI) ? "1": "0"); _form->find_field('B',odd_page,FF_FLAGVALMEDI).set(_mask->get_bool(F_VALMEDI) ? "1": "0");
_form->find_field('H',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI)); _form->find_field('H',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI));
_form->find_field('B',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI)); _form->find_field('B',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI));
_form->set_codlistino(_mask->get(F_CATVENLISTINO),_mask->get(F_CODLISTINO)); _form->set_codlistino(_mask->get(F_CATVENLISTINO),_mask->get(F_CODLISTINO));
joinexp << "ANNOES==" << _mask->get(F_ANNOES) << "|CODART==CODART"; joinexp << "ANNOES==" << _mask->get(F_ANNOES) << "|CODART==CODART";
TSortedfile *mag; TSortedfile *mag;
mag= new TSortedfile(LF_MAG,NULL,sortexp,filter,1); mag= new TSortedfile(LF_MAG,NULL,sortexp,filter,1);
_cur->relation()->replace(mag,1,joinexp); _cur->relation()->replace(mag,1,joinexp);
_cur->setfilter(cfilter); _cur->setfilter(cfilter);
_cur->setregion(darec,arec); _cur->setregion(darec,arec);
} }
bool TStampa_datistorici::set_print(int i) bool TStampa_datistorici::set_print(int i)
{ {
while (TRUE) { while (TRUE) {
if (_mask->run() != K_ENTER) if (_mask->run() != K_ENTER)
return FALSE; return FALSE;
if (*_mask->get(F_ORDINE)=='A') if (*_mask->get(F_ORDINE)=='A')
{ {
setprint_perarticoli(); setprint_perarticoli();
} else { } else {
setprint_permagazzini(); setprint_permagazzini();
} }
_form->print(); _form->print();
delete _form; delete _form;
} // while true } // while true
return TRUE; return TRUE;
} }
int mg3100(int argc, char* argv[]) int mg3100(int argc, char* argv[])
{ {
TStampa_datistorici a;// derivata da Application e con uso di form TStampa_datistorici a;// derivata da Application e con uso di form
a.run(argc,argv,"Stampa dati storici di giacenza"); a.run(argc,argv,"Stampa dati storici di giacenza");
return 0; return 0;
} }

332
mg/mg3200.cpp
View File

@ -15,103 +15,103 @@
class TStampadisp_mask: public TMask class TStampadisp_mask: public TMask
{ {
static bool handle_ragg(TMask_field &fld, KEY k); // handler static bool handle_ragg(TMask_field &fld, KEY k); // handler
static bool handle_liv(TMask_field &fld, KEY k); // handler static bool handle_liv(TMask_field &fld, KEY k); // handler
static bool handle_subord(TMask_field &fld, KEY k); // handler static bool handle_subord(TMask_field &fld, KEY k); // handler
public: public:
TStampadisp_mask(); TStampadisp_mask();
~TStampadisp_mask(){}; ~TStampadisp_mask(){};
}; };
TStampadisp_mask::TStampadisp_mask(): TStampadisp_mask::TStampadisp_mask():
TMask("mg3200") TMask("mg3200")
{ {
TMag_livelli giaclev("FCA"),artlev("FCG"); TMag_livelli giaclev("FCA"),artlev("FCG");
set_handler(F_TOLIVELLOART, handle_liv); set_handler(F_TOLIVELLOART, handle_liv);
set_handler(F_TOLIVELLOGIAC, handle_liv); set_handler(F_TOLIVELLOGIAC, handle_liv);
set_handler(F_ORDINE, handle_ragg); set_handler(F_ORDINE, handle_ragg);
set_handler(F_DETTAGLIODEP, handle_ragg); set_handler(F_DETTAGLIODEP, handle_ragg);
set_handler(F_DETTAGLIOMAG, handle_ragg); set_handler(F_DETTAGLIOMAG, handle_ragg);
set_handler(F_ORDINEART,handle_subord); set_handler(F_ORDINEART,handle_subord);
if (!artlev.enabled()) { if (!artlev.enabled()) {
TMask_field &f1=field(F_RAGGCODICE); TMask_field &f1=field(F_RAGGCODICE);
f1.reset(); f1.check();f1.hide(); f1.reset(); f1.check();f1.hide();
} }
if (!giaclev.enabled()) { if (!giaclev.enabled()) {
TMask_field &f2=field(F_RAGGLIVGIAC); TMask_field &f2=field(F_RAGGLIVGIAC);
f2.reset(); f2.check();f2.hide(); f2.reset(); f2.check();f2.hide();
} }
} }
bool TStampadisp_mask::handle_subord(TMask_field &fld, KEY k) bool TStampadisp_mask::handle_subord(TMask_field &fld, KEY k)
{ {
if (k == K_SPACE) if (k == K_SPACE)
{ {
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE); TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC); TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
switch (fld.get()[1]) { switch (fld.get()[1]) {
case 'C': case 'C':
if (fld.mask().get(F_ORDINE)=="A") if (fld.mask().get(F_ORDINE)=="A")
fraggcod.enable(); fraggcod.enable();
else { else {
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP)) if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
{ {
fraggcod.reset(); fraggcod.disable(); fraggcod.reset(); fraggcod.disable();
fragggiac.reset(); fragggiac.disable(); fragggiac.reset(); fragggiac.disable();
fraggcod.do_message(0);fragggiac.do_message(0); fraggcod.do_message(0);fragggiac.do_message(0);
} }
} }
break; break;
case 'M': case 'M':
case 'D': case 'D':
fraggcod.reset(); fraggcod.check();fraggcod.disable(); fraggcod.reset(); fraggcod.check();fraggcod.disable();
break; break;
} }
} }
return TRUE; return TRUE;
} }
bool TStampadisp_mask::handle_liv(TMask_field &fld, KEY k) bool TStampadisp_mask::handle_liv(TMask_field &fld, KEY k)
{ {
if (k == K_TAB) if (k == K_TAB)
{ {
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI); TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
TOperable_field &fdettmag=(TOperable_field &)fld.mask().field(F_DETTAGLIOMAG); TOperable_field &fdettmag=(TOperable_field &)fld.mask().field(F_DETTAGLIOMAG);
if (fld.mask().get(F_ORDINE)=="A") if (fld.mask().get(F_ORDINE)=="A")
{ {
if (fld.mask().get_int(F_TOLIVELLOART) || fld.mask().get_int(F_TOLIVELLOGIAC)) if (fld.mask().get_int(F_TOLIVELLOART) || fld.mask().get_int(F_TOLIVELLOGIAC))
{ {
// raggruppamenti prima del dettaglio magazzini // raggruppamenti prima del dettaglio magazzini
ftotmag.reset(); ftotmag.disable();ftotmag.do_message(0); ftotmag.reset(); ftotmag.disable();ftotmag.do_message(0);
} else { } else {
ftotmag.enable(); ftotmag.enable();
} }
} }
} }
return TRUE; return TRUE;
} }
bool TStampadisp_mask::handle_ragg(TMask_field &fld, KEY k) bool TStampadisp_mask::handle_ragg(TMask_field &fld, KEY k)
{ {
if (k == K_SPACE) if (k == K_SPACE)
{ {
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI); TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE); TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC); TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
if (fld.mask().get(F_ORDINE)=="M") if (fld.mask().get(F_ORDINE)=="M")
{ {
ftotmag.enable(); ftotmag.enable();
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP)) if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
{ {
fraggcod.reset(); fraggcod.disable(); fraggcod.reset(); fraggcod.disable();
fragggiac.reset(); fragggiac.disable(); fragggiac.reset(); fragggiac.disable();
fraggcod.do_message(0);fragggiac.do_message(0); fraggcod.do_message(0);fragggiac.do_message(0);
return TRUE; return TRUE;
} }
} }
fraggcod.enable(); fraggcod.enable();
fragggiac.enable(); fragggiac.enable();
} }
return TRUE; return TRUE;
} }
@ -119,10 +119,10 @@ bool TStampadisp_mask::handle_ragg(TMask_field &fld, KEY k)
// mg3200 Stampa // mg3200 Stampa
class TStampa_disp : public TPrint_application class TStampa_disp : public TPrint_application
{ {
TArray * _files; TArray * _files;
TStampadisp_mask * _mask; TStampadisp_mask * _mask;
TCursor * _cur; TCursor * _cur;
TForm_stampemg * _form; // to be moved into TPrint_application TForm_stampemg * _form; // to be moved into TPrint_application
protected: protected:
virtual bool print_one(int file) virtual bool print_one(int file)
@ -131,9 +131,9 @@ protected:
virtual bool user_destroy(); virtual bool user_destroy();
virtual bool set_print(int i=1); virtual bool set_print(int i=1);
virtual void set_page(int file,int count) virtual void set_page(int file,int count)
{ } { }
void setprint_permagazzini(); void setprint_permagazzini();
void setprint_perarticoli(); void setprint_perarticoli();
public: public:
TStampa_disp() {} TStampa_disp() {}
@ -150,8 +150,8 @@ bool TStampa_disp::user_create()
bool TStampa_disp::user_destroy() bool TStampa_disp::user_destroy()
{ {
delete _mask; delete _mask;
delete _files; delete _files;
return TRUE; return TRUE;
} }
@ -163,29 +163,29 @@ void TStampa_disp::setprint_permagazzini()
TString cfilter,sortexp,joinexp; TString cfilter,sortexp,joinexp;
_form = new TForm_stampemg("mg3200b", ""); _form = new TForm_stampemg("mg3200b", "");
_cur = _form->cursor(); _cur = _form->cursor();
// setta il filtro sul cursore // setta il filtro sul cursore
if (*_mask->get(F_DAART)) if (*_mask->get(F_DAART))
cfilter << "(CODART>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ; cfilter << "(CODART>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ;
if (*_mask->get(F_AART)) if (*_mask->get(F_AART))
cfilter << "(CODART<=" <<'"' << _mask->get(F_AART)<< "\")&&" ; cfilter << "(CODART<=" <<'"' << _mask->get(F_AART)<< "\")&&" ;
if (cfilter.not_empty()) if (cfilter.not_empty())
cfilter.cut(cfilter.len()-2); cfilter.cut(cfilter.len()-2);
// abilita/disabilita le sezioni dei totali // abilita/disabilita le sezioni dei totali
_form->setdett_permag(_mask->get_int(F_FROMLIVELLOART), _form->setdett_permag(_mask->get_int(F_FROMLIVELLOART),
_mask->get_int(F_TOLIVELLOART), _mask->get_int(F_TOLIVELLOART),
_mask->get_int(F_FROMLIVELLOGIAC), _mask->get_int(F_FROMLIVELLOGIAC),
_mask->get_int(F_TOLIVELLOGIAC), _mask->get_int(F_TOLIVELLOGIAC),
TRUE, TRUE,
_mask->get_bool(F_TOTALIDEPOSITI), _mask->get_bool(F_TOTALIDEPOSITI),
_mask->get_bool(F_DETTAGLIODEP)); _mask->get_bool(F_DETTAGLIODEP));
darec.put("ANNOES",_mask->get(F_ANNOES)); darec.put("ANNOES",_mask->get(F_ANNOES));
darec.put("CODMAG",_mask->get(F_DAMAG)); darec.put("CODMAG",_mask->get(F_DAMAG));
arec.put("ANNOES",_mask->get(F_ANNOES)); arec.put("ANNOES",_mask->get(F_ANNOES));
arec.put("CODMAG",_mask->get(F_AMAG)); arec.put("CODMAG",_mask->get(F_AMAG));
_cur->setfilter(cfilter); _cur->setfilter(cfilter);
_cur->setregion(darec,arec); _cur->setregion(darec,arec);
} }
// ORDINAMENTO // ORDINAMENTO
@ -193,87 +193,87 @@ void TStampa_disp::setprint_perarticoli()
{ {
TRectype darec(LF_ANAMAG),arec(LF_ANAMAG); TRectype darec(LF_ANAMAG),arec(LF_ANAMAG);
TString cfilter,filter,joinexp; TString cfilter,filter,joinexp;
TString sortexp("ANNOES|CODART|LIVELLO|CODMAG"); TString sortexp("ANNOES|CODART|LIVELLO|CODMAG");
char subordine=*_mask->get(F_ORDINEART); char subordine=*_mask->get(F_ORDINEART);
_form = new TForm_stampemg("mg3200a", ""); _form = new TForm_stampemg("mg3200a", "");
_cur = _form->cursor(); _cur = _form->cursor();
if (*_mask->get(F_DAMAG)) if (*_mask->get(F_DAMAG))
filter << "(CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ; filter << "(CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ;
if (*_mask->get(F_AMAG)) if (*_mask->get(F_AMAG))
filter << "(CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ; filter << "(CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ;
if (filter.not_empty()) if (filter.not_empty())
filter.cut(filter.len()-2); filter.cut(filter.len()-2);
switch (subordine) switch (subordine)
{ {
case 'C': case 'C':
_cur->setkey(1); _cur->setkey(1);
darec.put("CODART",_mask->get(F_DAART)); darec.put("CODART",_mask->get(F_DAART));
arec.put("CODART",_mask->get(F_AART)); arec.put("CODART",_mask->get(F_AART));
_form->find_field('B',odd_page,"H_CATMER").hide(); _form->find_field('B',odd_page,"H_CATMER").hide();
_form->find_field('B',odd_page,"TOT_CATMER").hide(); _form->find_field('B',odd_page,"TOT_CATMER").hide();
_form->setcatmer(FALSE); _form->setcatmer(FALSE);
break; break;
case 'D': case 'D':
_cur->setkey(2); _cur->setkey(2);
darec.put("DESCR",_mask->get(F_DADES)); darec.put("DESCR",_mask->get(F_DADES));
arec.put("DESCR",_mask->get(F_ADES)); arec.put("DESCR",_mask->get(F_ADES));
_form->find_field('B',odd_page,"H_CATMER").disable(); _form->find_field('B',odd_page,"H_CATMER").disable();
_form->find_field('B',odd_page,"TOT_CATMER").hide(); _form->find_field('B',odd_page,"TOT_CATMER").hide();
_form->setcatmer(FALSE); _form->setcatmer(FALSE);
break; break;
case 'M': case 'M':
_cur->setkey(3); _cur->setkey(3);
darec.put("GRMERC",_mask->get(F_DACATMER)); darec.put("GRMERC",_mask->get(F_DACATMER));
darec.put("CODART",_mask->get(F_DAART)); darec.put("CODART",_mask->get(F_DAART));
arec.put("GRMERC",_mask->get(F_ACATMER)); arec.put("GRMERC",_mask->get(F_ACATMER));
arec.put("CODART",_mask->get(F_AART)); arec.put("CODART",_mask->get(F_AART));
_form->find_field('B',odd_page,"H_CATMER").show(); _form->find_field('B',odd_page,"H_CATMER").show();
_form->find_field('B',odd_page,"TOT_CATMER").show(); _form->find_field('B',odd_page,"TOT_CATMER").show();
_form->setcatmer(TRUE); _form->setcatmer(TRUE);
break; break;
} }
_form->setdett_perart( _form->setdett_perart(
_mask->get_int(F_FROMLIVELLOART), _mask->get_int(F_FROMLIVELLOART),
_mask->get_int(F_TOLIVELLOART), _mask->get_int(F_TOLIVELLOART),
_mask->get_int(F_FROMLIVELLOGIAC), _mask->get_int(F_FROMLIVELLOGIAC),
_mask->get_int(F_TOLIVELLOGIAC), _mask->get_int(F_TOLIVELLOGIAC),
_mask->get_bool(F_TOTALIMAGAZZINI), _mask->get_bool(F_TOTALIMAGAZZINI),
_mask->get_bool(F_TOTALIDEPOSITI)); _mask->get_bool(F_TOTALIDEPOSITI));
joinexp << "ANNOES==" << _mask->get(F_ANNOES) << "|CODART==CODART"; joinexp << "ANNOES==" << _mask->get(F_ANNOES) << "|CODART==CODART";
TSortedfile *mag; TSortedfile *mag;
mag= new TSortedfile(LF_MAG,NULL,sortexp,filter,1); mag= new TSortedfile(LF_MAG,NULL,sortexp,filter,1);
_cur->relation()->replace(mag,1,joinexp); _cur->relation()->replace(mag,1,joinexp);
_cur->setfilter(cfilter); _cur->setfilter(cfilter);
_cur->setregion(darec,arec); _cur->setregion(darec,arec);
} }
bool TStampa_disp::set_print(int i) bool TStampa_disp::set_print(int i)
{ {
while (TRUE) { while (TRUE) {
if (_mask->run() != K_ENTER) if (_mask->run() != K_ENTER)
return FALSE; return FALSE;
if (*_mask->get(F_ORDINE)=='A') if (*_mask->get(F_ORDINE)=='A')
{ {
setprint_perarticoli(); setprint_perarticoli();
} else { } else {
setprint_permagazzini(); setprint_permagazzini();
} }
_form->print(); _form->print();
delete _form; delete _form;
} // while true } // while true
return TRUE; return TRUE;
} }
int mg3200(int argc, char* argv[]) int mg3200(int argc, char* argv[])
{ {
TStampa_disp a;// derivata da Application e con uso di form TStampa_disp a;// derivata da Application e con uso di form
a.run(argc,argv,"Stampa disponibilità"); a.run(argc,argv,"Stampa disponibilità");
return 0; return 0;
} }

968
mg/mg3300.cpp
View File

File diff suppressed because it is too large Load Diff