Esplosione tab
git-svn-id: svn://10.65.10.50/trunk@4833 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto
parent
a237631368
commit
ebfe1b0c3a
448
mg/mg1100.uml
448
mg/mg1100.uml
@ -14,134 +14,134 @@ END
|
||||
|
||||
NUMBER F_NUMREG 7
|
||||
BEGIN
|
||||
// FLAGS "D"
|
||||
FIELD NUMREG
|
||||
PROMPT 2 2 "Operazione numero "
|
||||
KEY 1 3 4
|
||||
USE LF_MOVMAG
|
||||
INPUT NUMREG F_NUMREG
|
||||
DISPLAY "N.reg." NUMREG
|
||||
DISPLAY "Anno" ANNOES
|
||||
DISPLAY "Data reg." DATAREG
|
||||
DISPLAY "Data comp." DATACOMP
|
||||
OUTPUT F_NUMREG NUMREG
|
||||
OUTPUT H_NUMREG NUMREG
|
||||
OUTPUT F_DATAREG DATAREG
|
||||
OUTPUT F_DATACOMP DATACOMP
|
||||
CHECKTYPE REQUIRED
|
||||
// FLAGS "D"
|
||||
FIELD NUMREG
|
||||
PROMPT 2 2 "Operazione numero "
|
||||
KEY 1 3 4
|
||||
USE LF_MOVMAG
|
||||
INPUT NUMREG F_NUMREG
|
||||
DISPLAY "N.reg." NUMREG
|
||||
DISPLAY "Anno" ANNOES
|
||||
DISPLAY "Data reg." DATAREG
|
||||
DISPLAY "Data comp." DATACOMP
|
||||
OUTPUT F_NUMREG NUMREG
|
||||
OUTPUT H_NUMREG NUMREG
|
||||
OUTPUT F_DATAREG DATAREG
|
||||
OUTPUT F_DATACOMP DATACOMP
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_ANNOES 4
|
||||
BEGIN
|
||||
FLAGS "D"
|
||||
FLAGS "D"
|
||||
PROMPT 2 3 "Esercizio di competenza "
|
||||
FIELD ANNOES
|
||||
MESSAGE COPY,H_ANNOES
|
||||
FIELD ANNOES
|
||||
MESSAGE COPY,H_ANNOES
|
||||
END
|
||||
|
||||
DATE F_DATAREG
|
||||
BEGIN
|
||||
PROMPT 38 2 "Data di registrazione "
|
||||
FLAGS "A"
|
||||
FIELD DATAREG
|
||||
KEY 3
|
||||
USE LF_MOVMAG KEY 3
|
||||
INPUT NUMREG F_NUMREG
|
||||
INPUT DATAREG F_DATAREG
|
||||
DISPLAY "N.reg." NUMREG
|
||||
DISPLAY "Anno" ANNOES
|
||||
DISPLAY "Data reg." DATAREG
|
||||
DISPLAY "Data comp." DATACOMP
|
||||
OUTPUT F_NUMREG NUMREG
|
||||
OUTPUT F_DATAREG DATAREG
|
||||
OUTPUT H_DATAREG DATAREG
|
||||
OUTPUT F_DATACOMP DATACOMP
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "A"
|
||||
FIELD DATAREG
|
||||
KEY 3
|
||||
USE LF_MOVMAG KEY 3
|
||||
INPUT NUMREG F_NUMREG
|
||||
INPUT DATAREG F_DATAREG
|
||||
DISPLAY "N.reg." NUMREG
|
||||
DISPLAY "Anno" ANNOES
|
||||
DISPLAY "Data reg." DATAREG
|
||||
DISPLAY "Data comp." DATACOMP
|
||||
OUTPUT F_NUMREG NUMREG
|
||||
OUTPUT F_DATAREG DATAREG
|
||||
OUTPUT H_DATAREG DATAREG
|
||||
OUTPUT F_DATACOMP DATACOMP
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
DATE F_DATACOMP
|
||||
BEGIN
|
||||
PROMPT 38 3 "Data di competenza "
|
||||
FLAGS "A"
|
||||
FIELD DATACOMP
|
||||
KEY 4
|
||||
USE LF_MOVMAG KEY 4
|
||||
INPUT NUMREG F_NUMREG
|
||||
INPUT DATACOMP F_DATACOMP
|
||||
COPY DISPLAY F_DATAREG
|
||||
OUTPUT F_NUMREG NUMREG
|
||||
OUTPUT F_DATAREG DATAREG
|
||||
OUTPUT F_DATACOMP DATACOMP
|
||||
OUTPUT H_DATACOMP DATACOMP
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "A"
|
||||
FIELD DATACOMP
|
||||
KEY 4
|
||||
USE LF_MOVMAG KEY 4
|
||||
INPUT NUMREG F_NUMREG
|
||||
INPUT DATACOMP F_DATACOMP
|
||||
COPY DISPLAY F_DATAREG
|
||||
OUTPUT F_NUMREG NUMREG
|
||||
OUTPUT F_DATAREG DATAREG
|
||||
OUTPUT F_DATACOMP DATACOMP
|
||||
OUTPUT H_DATACOMP DATACOMP
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESCR 50 40
|
||||
BEGIN
|
||||
PROMPT 2 4 "Descrizione "
|
||||
FIELD DESCR
|
||||
MESSAGE COPY,H_DESCR
|
||||
FIELD DESCR
|
||||
MESSAGE COPY,H_DESCR
|
||||
END
|
||||
|
||||
LISTBOX F_RIFADOC 30
|
||||
BEGIN
|
||||
PROMPT 2 5 "Movimento "
|
||||
FLAG "HG"
|
||||
ITEM "N|non riferito a documento"
|
||||
MESSAGE ENABLE,G_DEFMOV@
|
||||
ITEM "S|riferito a documento"
|
||||
MESSAGE DISABLE,G_DEFMOV@
|
||||
FLAG "HG"
|
||||
ITEM "N|non riferito a documento"
|
||||
MESSAGE ENABLE,G_DEFMOV@
|
||||
ITEM "S|riferito a documento"
|
||||
MESSAGE DISABLE,G_DEFMOV@
|
||||
END
|
||||
|
||||
LISTBOX F_NUMPROVV 1 20
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "HG"
|
||||
ITEM "D|Definitiva"
|
||||
FLAGS "HG"
|
||||
ITEM "D|Definitiva"
|
||||
END
|
||||
|
||||
STRING F_NUMDOC 3
|
||||
BEGIN
|
||||
FLAGS "D"
|
||||
FLAGS "D"
|
||||
PROMPT 2 6 "Documento: numero "
|
||||
FIELD NUMDOC
|
||||
USE LF_DOC
|
||||
INPUT PROVV F_NUMPROVV SELECT
|
||||
INPUT NDOC F_NUMDOC
|
||||
INPUT ANNO F_ANNOES
|
||||
DISPLAY "NDoc" NDOC
|
||||
DISPLAY "Tipo" TIPODOC
|
||||
DISPLAY "Anno" ANNO
|
||||
OUPUT F_NUMDOC NDOC
|
||||
OUPUT F_ANNODOC ANNO
|
||||
OUPUT F_TIPOCF TIPOCF
|
||||
OUPUT F_CODCLI CODCF
|
||||
OUPUT F_CODFOR CODCF
|
||||
OUPUT F_CODCAUS CAUSMAG1
|
||||
CHECKTYPE NORMAL
|
||||
FIELD NUMDOC
|
||||
USE LF_DOC
|
||||
INPUT PROVV F_NUMPROVV SELECT
|
||||
INPUT NDOC F_NUMDOC
|
||||
INPUT ANNO F_ANNOES
|
||||
DISPLAY "NDoc" NDOC
|
||||
DISPLAY "Tipo" TIPODOC
|
||||
DISPLAY "Anno" ANNO
|
||||
OUPUT F_NUMDOC NDOC
|
||||
OUPUT F_ANNODOC ANNO
|
||||
OUPUT F_TIPOCF TIPOCF
|
||||
OUPUT F_CODCLI CODCF
|
||||
OUPUT F_CODFOR CODCF
|
||||
OUPUT F_CODCAUS CAUSMAG1
|
||||
CHECKTYPE NORMAL
|
||||
|
||||
MESSAGE "S",F_RIFADOC
|
||||
MESSAGE EMPTY "N",F_RIFADOC
|
||||
MESSAGE "S",F_RIFADOC
|
||||
MESSAGE EMPTY "N",F_RIFADOC
|
||||
END
|
||||
|
||||
NUMBER F_ANNODOC 4
|
||||
BEGIN
|
||||
FLAGS "D"
|
||||
FLAGS "D"
|
||||
PROMPT 30 6 "anno "
|
||||
FIELD ANNODOC
|
||||
USE LF_DOC SELECT NDOC==F_NUMDOC
|
||||
INPUT ANNODOC F_ANNODOC
|
||||
DISPLAY "Anno" ANNODOC
|
||||
DISPLAY "NDoc" NDOC
|
||||
DISPLAY "Tipo" TIPODOC
|
||||
COPY OUTPUT F_NUMDOC
|
||||
// CHECKTYPE NORMAL
|
||||
FIELD ANNODOC
|
||||
USE LF_DOC SELECT NDOC==F_NUMDOC
|
||||
INPUT ANNODOC F_ANNODOC
|
||||
DISPLAY "Anno" ANNODOC
|
||||
DISPLAY "NDoc" NDOC
|
||||
DISPLAY "Tipo" TIPODOC
|
||||
COPY OUTPUT F_NUMDOC
|
||||
// CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_CODCAUS 5
|
||||
BEGIN
|
||||
PROMPT 2 8 "Codice causale "
|
||||
FIELD CODCAUS
|
||||
PROMPT 2 8 "Codice causale "
|
||||
FIELD CODCAUS
|
||||
USE %CAU
|
||||
FLAGS "U"
|
||||
INPUT CODTAB F_CODCAUS
|
||||
@ -150,81 +150,81 @@ BEGIN
|
||||
OUTPUT F_CODCAUS CODTAB
|
||||
OUTPUT F_DESCAU S0
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
GROUP G_DEFMOV
|
||||
ADD RUN MG0 -0 %CAU
|
||||
GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
STRING F_DESCAU 50 30
|
||||
STRING F_DESCAU 50 30
|
||||
BEGIN
|
||||
PROMPT 30 8 ""
|
||||
USE %CAU KEY 2
|
||||
INPUT S0 F_DESCAU
|
||||
DISPLAY "Descrizione@50 " S0
|
||||
DISPLAY "Codice " CODTAB
|
||||
COPY OUTPUT1 F_CODCAUS
|
||||
COPY OUTPUT1 F_CODCAUS
|
||||
|
||||
GROUP G_DEFMOV
|
||||
GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
LISTBOX F_TIPOCF 10
|
||||
LISTBOX F_TIPOCF 10
|
||||
BEGIN
|
||||
PROMPT 2 9 "Relativo a "
|
||||
FIELD TIPOCF
|
||||
ITEM " |Nessuno"
|
||||
MESSAGE HIDE,F_CODCLI|HIDE,F_CODFOR|RESET,F_CODCF|HIDE,F_RAGSOC
|
||||
ITEM "C|Cliente"
|
||||
MESSAGE SHOW,F_CODCLI|HIDE,F_CODFOR|SHOW,F_RAGSOC
|
||||
ITEM "F|Fornitore"
|
||||
MESSAGE HIDE,F_CODCLI|SHOW,F_CODFOR|SHOW,F_RAGSOC
|
||||
PROMPT 2 9 "Relativo a "
|
||||
FIELD TIPOCF
|
||||
ITEM " |Nessuno"
|
||||
MESSAGE HIDE,F_CODCLI|HIDE,F_CODFOR|RESET,F_CODCF|HIDE,F_RAGSOC
|
||||
ITEM "C|Cliente"
|
||||
MESSAGE SHOW,F_CODCLI|HIDE,F_CODFOR|SHOW,F_RAGSOC
|
||||
ITEM "F|Fornitore"
|
||||
MESSAGE HIDE,F_CODCLI|SHOW,F_CODFOR|SHOW,F_RAGSOC
|
||||
|
||||
GROUP G_DEFMOV
|
||||
GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
// campi per READ/WRITE su archivio (e ricerca utente)
|
||||
NUMBER F_CODCLI 6
|
||||
NUMBER F_CODCLI 6
|
||||
BEGIN
|
||||
PROMPT 2 10 "Codice cliente "
|
||||
FIELD CODCF
|
||||
FIELD CODCF
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODCLI
|
||||
DISPLAY "Codice " CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODCF CODCF
|
||||
MESSAGE EMPTY RESET,F_CODCF
|
||||
CHECKTYPE NORMAL
|
||||
GROUP G_DEFMOV
|
||||
OUTPUT F_CODCF CODCF
|
||||
MESSAGE EMPTY RESET,F_CODCF
|
||||
CHECKTYPE NORMAL
|
||||
GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
// campi per READ/WRITE su archivio (e ricerca utente)
|
||||
NUMBER F_CODFOR 6
|
||||
NUMBER F_CODFOR 6
|
||||
BEGIN
|
||||
PROMPT 2 10 "Codice fornitore "
|
||||
FIELD CODCF
|
||||
FIELD CODCF
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODFOR
|
||||
DISPLAY "Codice " CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODCF CODCF
|
||||
MESSAGE EMPTY RESET,F_CODCF
|
||||
CHECKTYPE NORMAL
|
||||
GROUP G_DEFMOV
|
||||
OUTPUT F_CODCF CODCF
|
||||
MESSAGE EMPTY RESET,F_CODCF
|
||||
CHECKTYPE NORMAL
|
||||
GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
// 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...)
|
||||
NUMBER F_CODCF 6
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
FLAGS "HG"
|
||||
FLAGS "HG"
|
||||
PROMPT 0 1 ""
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODCF
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
OUTPUT F_CODCF CODCF
|
||||
CHECKTYPE NORMAL
|
||||
MESSAGE COPY,F_CODCLI|COPY,F_CODFOR
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
OUTPUT F_CODCF CODCF
|
||||
CHECKTYPE NORMAL
|
||||
MESSAGE COPY,F_CODCLI|COPY,F_CODFOR
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50 40
|
||||
@ -235,122 +235,122 @@ BEGIN
|
||||
INPUT RAGSOC F_RAGSOC
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice " CODCF
|
||||
OUTPUT F_CODCF CODCF
|
||||
GROUP G_DEFMOV
|
||||
OUTPUT F_CODCF CODCF
|
||||
GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
LISTBOX F_TIPOCONDV 1 12
|
||||
LISTBOX F_TIPOCONDV 1 12
|
||||
BEGIN
|
||||
PROMPT 2 12 "Condizione di vendita "
|
||||
ITEM " |Nessuna"
|
||||
MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN
|
||||
MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF
|
||||
MESSAGE ENABLE,F_TIPOCF|RESET,F_TIPOCF
|
||||
ITEM "L|Listino"
|
||||
MESSAGE SHOW,F_CATVEN
|
||||
MESSAGE ENABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF
|
||||
MESSAGE RESET,F_CODCONTR|RESET,F_CODOFF
|
||||
MESSAGE DISABLE,F_TIPOCF|RESET,F_TIPOCF
|
||||
ITEM "C|Contratto"
|
||||
MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN
|
||||
MESSAGE DISABLE,F_CODLIST|ENABLE,F_CODCONTR|DISABLE,F_CODOFF
|
||||
MESSAGE RESET,F_CODLIST|RESET,F_CODOFF
|
||||
MESSAGE ENABLE,F_TIPOCF
|
||||
ITEM "O|Offerta"
|
||||
MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN
|
||||
MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|ENABLE,F_CODOFF
|
||||
MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR
|
||||
MESSAGE DISABLE,F_TIPOCF|RESET,F_TIPOCF
|
||||
PROMPT 2 12 "Condizione di vendita "
|
||||
ITEM " |Nessuna"
|
||||
MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN
|
||||
MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF
|
||||
MESSAGE ENABLE,F_TIPOCF|RESET,F_TIPOCF
|
||||
ITEM "L|Listino"
|
||||
MESSAGE SHOW,F_CATVEN
|
||||
MESSAGE ENABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF
|
||||
MESSAGE RESET,F_CODCONTR|RESET,F_CODOFF
|
||||
MESSAGE DISABLE,F_TIPOCF|RESET,F_TIPOCF
|
||||
ITEM "C|Contratto"
|
||||
MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN
|
||||
MESSAGE DISABLE,F_CODLIST|ENABLE,F_CODCONTR|DISABLE,F_CODOFF
|
||||
MESSAGE RESET,F_CODLIST|RESET,F_CODOFF
|
||||
MESSAGE ENABLE,F_TIPOCF
|
||||
ITEM "O|Offerta"
|
||||
MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN
|
||||
MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|ENABLE,F_CODOFF
|
||||
MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR
|
||||
MESSAGE DISABLE,F_TIPOCF|RESET,F_TIPOCF
|
||||
|
||||
// GROUP G_DEFMOV
|
||||
// GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
|
||||
|
||||
STRING F_CODCONDV 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "Codice CONDV "
|
||||
FLAGS "HG"
|
||||
PROMPT 1 1 "Codice CONDV "
|
||||
FLAGS "HG"
|
||||
END
|
||||
|
||||
STRING F_CATVEN 2
|
||||
BEGIN
|
||||
FLAGS "D"
|
||||
PROMPT 2 13 "Cat.ven."
|
||||
FIELD CATVEN
|
||||
FLAGS "D"
|
||||
PROMPT 2 13 "Cat.ven."
|
||||
FIELD CATVEN
|
||||
USE CVE
|
||||
INPUT CODTAB F_CATVEN
|
||||
DISPLAY "Cat." CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CATVEN CODTAB
|
||||
MESSAGE CHECK,F_CODLIST
|
||||
MESSAGE CHECK,F_CODLIST
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_CODLIST 3
|
||||
BEGIN
|
||||
PROMPT 20 13 "Codice listino "
|
||||
FIELD CODLIST
|
||||
USE LF_CONDV
|
||||
INPUT TIPO "L"
|
||||
INPUT CATVEN F_CATVEN
|
||||
INPUT COD F_CODLIST
|
||||
DISPLAY "Cat.Ven." CATVEN
|
||||
DISPLAY "C/F" TIPOCF
|
||||
DISPLAY "Cod Cli/For" CODCF
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descr.@30" DESCR
|
||||
// OUTPUT F_TIPOCONDV TIPO
|
||||
OUTPUT F_CODLIST COD
|
||||
OUTPUT F_CATVEN CATVEN
|
||||
OUTPUT F_TIPOCF TIPOCF
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_CODCONDV COD
|
||||
CHECKTYPE NORMAL
|
||||
// GROUP G_DEFMOV
|
||||
PROMPT 20 13 "Codice listino "
|
||||
FIELD CODLIST
|
||||
USE LF_CONDV
|
||||
INPUT TIPO "L"
|
||||
INPUT CATVEN F_CATVEN
|
||||
INPUT COD F_CODLIST
|
||||
DISPLAY "Cat.Ven." CATVEN
|
||||
DISPLAY "C/F" TIPOCF
|
||||
DISPLAY "Cod Cli/For" CODCF
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descr.@30" DESCR
|
||||
// OUTPUT F_TIPOCONDV TIPO
|
||||
OUTPUT F_CODLIST COD
|
||||
OUTPUT F_CATVEN CATVEN
|
||||
OUTPUT F_TIPOCF TIPOCF
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_CODCONDV COD
|
||||
CHECKTYPE NORMAL
|
||||
// GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
STRING F_CODCONTR 3
|
||||
BEGIN
|
||||
PROMPT 20 14 "Codice contratto "
|
||||
FIELD CODCONT
|
||||
USE LF_CONDV
|
||||
INPUT TIPO "C"
|
||||
INPUT CATVEN F_CATVEN
|
||||
INPUT TIPOCF F_TIPOCF
|
||||
INPUT CODCF F_CODCF
|
||||
INPUT COD F_CODCONTR
|
||||
DISPLAY "Cat.Ven." CATVEN
|
||||
DISPLAY "C/F" TIPOCF
|
||||
DISPLAY "Cod Cli/For" CODCF
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descr.@30" DESCR
|
||||
// OUTPUT F_TIPOCONDV TIPO
|
||||
OUTPUT F_TIPOCF TIPOCF
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_CODCONTR COD
|
||||
OUTPUT F_CODCONDV COD
|
||||
PROMPT 20 14 "Codice contratto "
|
||||
FIELD CODCONT
|
||||
USE LF_CONDV
|
||||
INPUT TIPO "C"
|
||||
INPUT CATVEN F_CATVEN
|
||||
INPUT TIPOCF F_TIPOCF
|
||||
INPUT CODCF F_CODCF
|
||||
INPUT COD F_CODCONTR
|
||||
DISPLAY "Cat.Ven." CATVEN
|
||||
DISPLAY "C/F" TIPOCF
|
||||
DISPLAY "Cod Cli/For" CODCF
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descr.@30" DESCR
|
||||
// OUTPUT F_TIPOCONDV TIPO
|
||||
OUTPUT F_TIPOCF TIPOCF
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_CODCONTR COD
|
||||
OUTPUT F_CODCONDV COD
|
||||
|
||||
CHECKTYPE NORMAL
|
||||
// GROUP G_DEFMOV
|
||||
CHECKTYPE NORMAL
|
||||
// GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
STRING F_CODOFF 3
|
||||
BEGIN
|
||||
PROMPT 20 15 "Codice offerta "
|
||||
FIELD CODCAMP
|
||||
USE LF_CONDV
|
||||
INPUT TIPO "O"
|
||||
INPUT CATVEN F_CATVEN
|
||||
INPUT COD F_CODOFF
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descr.@30" DESCR
|
||||
OUTPUT F_TIPOCONDV TIPO
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_CODOFF COD
|
||||
OUTPUT F_CODCONDV COD
|
||||
CHECKTYPE NORMAL
|
||||
// GROUP G_DEFMOV
|
||||
PROMPT 20 15 "Codice offerta "
|
||||
FIELD CODCAMP
|
||||
USE LF_CONDV
|
||||
INPUT TIPO "O"
|
||||
INPUT CATVEN F_CATVEN
|
||||
INPUT COD F_CODOFF
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descr.@30" DESCR
|
||||
OUTPUT F_TIPOCONDV TIPO
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_CODOFF COD
|
||||
OUTPUT F_CODCONDV COD
|
||||
CHECKTYPE NORMAL
|
||||
// GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
@ -367,61 +367,61 @@ END
|
||||
|
||||
NUMBER H_NUMREG 7
|
||||
BEGIN
|
||||
FLAGS "D"
|
||||
FIELD NUMREG
|
||||
PROMPT 2 2 "Operazione numero "
|
||||
FLAGS "D"
|
||||
FIELD NUMREG
|
||||
PROMPT 2 2 "Operazione numero "
|
||||
END
|
||||
|
||||
NUMBER H_ANNOES 4
|
||||
BEGIN
|
||||
FLAGS "D"
|
||||
FLAGS "D"
|
||||
PROMPT 2 3 "Esercizio di competenza "
|
||||
END
|
||||
|
||||
DATE H_DATAREG
|
||||
BEGIN
|
||||
PROMPT 38 2 "Data di registrazione "
|
||||
FLAGS "D"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE H_DATACOMP
|
||||
BEGIN
|
||||
PROMPT 38 3 "Data di competenza "
|
||||
FLAGS "D"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING H_DESCR 50 40
|
||||
BEGIN
|
||||
PROMPT 2 4 "Descrizione "
|
||||
FLAGS "D"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 6 "Righe"
|
||||
GROUP G_DEFMOV
|
||||
PROMPT 2 6 "Righe"
|
||||
GROUP G_DEFMOV
|
||||
END
|
||||
|
||||
SPREADSHEET F_RIGHE 77 12
|
||||
BEGIN
|
||||
PROMPT 2 7 "RIGHE DI MOVIMENTO"
|
||||
FLAGS "AI"
|
||||
USE LF_RMOVMAG KEY NRIG
|
||||
INPUT NUMREG F_NUMREG
|
||||
ITEM " @1F"
|
||||
ITEM "CodArt"
|
||||
ITEM "CodMag"
|
||||
ITEM "CodDep"
|
||||
ITEM "Liv1"
|
||||
ITEM "Liv2"
|
||||
ITEM "Liv3"
|
||||
ITEM "Liv4"
|
||||
ITEM "UM"
|
||||
ITEM "Qta"
|
||||
ITEM "Prezzo"
|
||||
ITEM "Causale"
|
||||
PROMPT 2 7 "RIGHE DI MOVIMENTO"
|
||||
FLAGS "AI"
|
||||
USE LF_RMOVMAG KEY NRIG
|
||||
INPUT NUMREG F_NUMREG
|
||||
ITEM "@1F"
|
||||
ITEM "CodArt"
|
||||
ITEM "CodMag"
|
||||
ITEM "CodDep"
|
||||
ITEM "Liv1"
|
||||
ITEM "Liv2"
|
||||
ITEM "Liv3"
|
||||
ITEM "Liv4"
|
||||
ITEM "UM"
|
||||
ITEM "Qta"
|
||||
ITEM "Prezzo"
|
||||
ITEM "Causale"
|
||||
END
|
||||
|
||||
|
||||
|
||||
24
mg/mg1100a.h
24
mg/mg1100a.h
@ -1,25 +1,25 @@
|
||||
// colonne visibili dello Sheet
|
||||
#define F_AUTOMATICA 101
|
||||
#define F_CODART 102
|
||||
#define F_CODMAG 103
|
||||
#define F_CODDEP 104
|
||||
#define F_CODMAG 103
|
||||
#define F_CODDEP 104
|
||||
#define F_LIV1 105
|
||||
#define F_LIV2 106
|
||||
#define F_LIV3 107
|
||||
#define F_LIV4 108
|
||||
#define F_UM 109
|
||||
#define F_QUANT 110
|
||||
#define F_PREZZO 111
|
||||
#define F_UM 109
|
||||
#define F_QUANT 110
|
||||
#define F_PREZZO 111
|
||||
#define F_CAUSRIG 112
|
||||
|
||||
// colonne non visibili dello Sheet
|
||||
#define F_DESMAG 150
|
||||
#define F_DESDEP 151
|
||||
#define H_DESMAG 152
|
||||
#define H_GESTGIA 153
|
||||
#define F_UBICAZD 154
|
||||
#define F_DESART 155
|
||||
#define F_VALORE 156
|
||||
#define F_DESMAG 150
|
||||
#define F_DESDEP 151
|
||||
#define H_DESMAG 152
|
||||
#define H_GESTGIA 153
|
||||
#define F_UBICAZD 154
|
||||
#define F_DESART 155
|
||||
#define F_VALORE 156
|
||||
#define F_DESCAUSRIG 157
|
||||
|
||||
#define G_NOAUTO 1
|
||||
209
mg/mg1100a.uml
209
mg/mg1100a.uml
@ -23,45 +23,45 @@ PAGE "Righe movimenti" -1 -1 80 23
|
||||
STRING F_AUTOMATICA 1
|
||||
BEGIN
|
||||
PROMPT 2 1 "Tipo riga "
|
||||
FIELD AUTOMATICA
|
||||
FLAGS "DG"
|
||||
MESSAGE EMPTY ENABLE,G_NOAUTO@
|
||||
MESSAGE DISABLE,G_NOAUTO@
|
||||
FIELD AUTOMATICA
|
||||
FLAGS "DG"
|
||||
MESSAGE EMPTY ENABLE,G_NOAUTO@
|
||||
MESSAGE DISABLE,G_NOAUTO@
|
||||
END
|
||||
|
||||
STRING F_CODART 20
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice articolo "
|
||||
FIELD CODART
|
||||
FLAGS "U"
|
||||
USE LF_ANAMAG
|
||||
INPUT CODART F_CODART
|
||||
DISPLAY "Codice@20" CODART
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODART CODART
|
||||
OUTPUT F_DESART DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP G_NOAUTO
|
||||
FIELD CODART
|
||||
FLAGS "U"
|
||||
USE LF_ANAMAG
|
||||
INPUT CODART F_CODART
|
||||
DISPLAY "Codice@20" CODART
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODART CODART
|
||||
OUTPUT F_DESART DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP G_NOAUTO
|
||||
END
|
||||
|
||||
STRING F_DESART 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Descrizione "
|
||||
FLAGS "U"
|
||||
USE LF_ANAMAG KEY 2
|
||||
INPUT DESCR F_DESART
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Codice@20" CODART
|
||||
COPY OUTPUT F_CODART
|
||||
CHECKTYPE NORMAL
|
||||
GROUP G_NOAUTO
|
||||
FLAGS "U"
|
||||
USE LF_ANAMAG KEY 2
|
||||
INPUT DESCR F_DESART
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Codice@20" CODART
|
||||
COPY OUTPUT F_CODART
|
||||
CHECKTYPE NORMAL
|
||||
GROUP G_NOAUTO
|
||||
END
|
||||
|
||||
STRING F_CODMAG 3
|
||||
BEGIN
|
||||
PROMPT 2 5 "Magazzino "
|
||||
PROMPT 2 5 "Magazzino "
|
||||
FLAGS "U"
|
||||
FIELD CODMAG[1,3]
|
||||
FIELD CODMAG[1,3]
|
||||
USE MAG SELECT CODTAB[4,5]==""
|
||||
INPUT CODTAB F_CODMAG
|
||||
DISPLAY "Codice " CODTAB[1,3]
|
||||
@ -71,17 +71,17 @@ BEGIN
|
||||
OUTPUT H_DESMAG S0
|
||||
OUTPUT H_GESTGIA B0
|
||||
// OUTPUT F_CODDEP CODTAB[4,5]
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
END
|
||||
|
||||
STRING F_CODDEP 2
|
||||
BEGIN
|
||||
PROMPT 2 6 "Deposito "
|
||||
PROMPT 2 6 "Deposito "
|
||||
FLAGS "U"
|
||||
FIELD CODMAG[4,5]
|
||||
USE MAG
|
||||
INPUT CODTAB[1,3] F_CODMAG
|
||||
FIELD CODMAG[4,5]
|
||||
USE MAG
|
||||
INPUT CODTAB[1,3] F_CODMAG
|
||||
INPUT CODTAB[4,5] F_CODDEP
|
||||
DISPLAY "Cod. magazzino" CODTAB[1,3]
|
||||
DISPLAY "Cod. deposito" CODTAB[4,5]
|
||||
@ -89,42 +89,42 @@ BEGIN
|
||||
OUTPUT F_CODDEP CODTAB[4,5]
|
||||
OUTPUT F_DESDEP S0
|
||||
OUTPUT F_CODMAG CODTAB[1,3]
|
||||
CHECKTYPE NORMAL
|
||||
CHECKTYPE NORMAL
|
||||
STR_EXPR ((#H_GESTGIA=="X")&&(#F_CODDEP!=""))||(#H_GESTGIA!="X")
|
||||
// WARNING "Indicare il deposito"
|
||||
// WARNING "Indicare il deposito"
|
||||
END
|
||||
|
||||
STRING F_DESMAG 50
|
||||
BEGIN
|
||||
PROMPT 22 5 ""
|
||||
PROMPT 22 5 ""
|
||||
USE MAG KEY 2
|
||||
INPUT S0 F_DESMAG
|
||||
DISPLAY "Denominazione mag.@50" S0
|
||||
DISPLAY "Cod. magazzino" CODTAB[1,3]
|
||||
DISPLAY "Cod. deposito" CODTAB[4,5]
|
||||
OUTPUT F_CODMAG CODTAB[1,3]
|
||||
OUTPUT F_CODDEP CODTAB[4,5]
|
||||
OUTPUT F_CODMAG CODTAB[1,3]
|
||||
OUTPUT F_CODDEP CODTAB[4,5]
|
||||
// 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
|
||||
|
||||
|
||||
STRING F_DESDEP 50
|
||||
BEGIN
|
||||
PROMPT 22 6 ""
|
||||
FLAGS "H"
|
||||
COPY USE F_DESMAG
|
||||
PROMPT 22 6 ""
|
||||
FLAGS "H"
|
||||
COPY USE F_DESMAG
|
||||
INPUT S0 F_DESDEP
|
||||
COPY DISPLAY F_DESMAG
|
||||
COPY DISPLAY F_DESMAG
|
||||
COPY OUTPUT F_DESMAG
|
||||
// MESSAGE K_TAB,F_CODDEP
|
||||
// MESSAGE K_TAB,F_CODDEP
|
||||
END
|
||||
|
||||
|
||||
STRING H_DESMAG 50
|
||||
BEGIN
|
||||
PROMPT 22 5 ""
|
||||
FLAGS "D"
|
||||
PROMPT 22 5 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
//Abilitazione/disabil. dei campi relativi al deposito
|
||||
@ -132,7 +132,7 @@ BOOLEAN H_GESTGIA
|
||||
BEGIN
|
||||
PROMPT 1 1 ""
|
||||
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
|
||||
END
|
||||
|
||||
@ -140,105 +140,105 @@ END
|
||||
STRING F_LIV1 10
|
||||
BEGIN
|
||||
PROMPT 2 8 "Livello 1 "
|
||||
USE GCG //SELECT CODTAB[1,1]=="1"
|
||||
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||
INPUT CODTAB[1,1] "1"
|
||||
INPUT CODTAB[2,11] F_LIV1
|
||||
DISPLAY "Livello@20" 500@->S0
|
||||
DISPLAY "Gruppo@10" CODTAB[2,20]
|
||||
DISPLAY "Descr.@30" S0
|
||||
OUTPUT F_LIV1 CODTAB[2,12]
|
||||
CHECKTYPE NORMAL
|
||||
USE GCG //SELECT CODTAB[1,1]=="1"
|
||||
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||
INPUT CODTAB[1,1] "1"
|
||||
INPUT CODTAB[2,11] F_LIV1
|
||||
DISPLAY "Livello@20" 500@->S0
|
||||
DISPLAY "Gruppo@10" CODTAB[2,20]
|
||||
DISPLAY "Descr.@30" S0
|
||||
OUTPUT F_LIV1 CODTAB[2,12]
|
||||
CHECKTYPE NORMAL
|
||||
MESSAGE EMPTY RESET,F_LIV2|RESET,F_LIV3|RESET,F_LIV4
|
||||
GROUP G_NOAUTO
|
||||
GROUP G_NOAUTO
|
||||
END
|
||||
|
||||
STRING F_LIV2 6
|
||||
BEGIN
|
||||
PROMPT 40 8 "Livello 2 "
|
||||
// Non mettere FLAGS "D" perchè disabiliterebbe tutta la colonna
|
||||
USE GCG //SELECT CODTAB[1,1]=="2"
|
||||
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||
INPUT CODTAB[1,1] "2"
|
||||
INPUT CODTAB[2,12] F_LIV2
|
||||
COPY DISPLAY F_LIV1
|
||||
OUTPUT F_LIV2 CODTAB[2,12]
|
||||
CHECKTYPE NORMAL
|
||||
// Non mettere FLAGS "D" perchè disabiliterebbe tutta la colonna
|
||||
USE GCG //SELECT CODTAB[1,1]=="2"
|
||||
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||
INPUT CODTAB[1,1] "2"
|
||||
INPUT CODTAB[2,12] F_LIV2
|
||||
COPY DISPLAY F_LIV1
|
||||
OUTPUT F_LIV2 CODTAB[2,12]
|
||||
CHECKTYPE NORMAL
|
||||
MESSAGE EMPTY RESET,F_LIV3|RESET,F_LIV4
|
||||
GROUP G_NOAUTO
|
||||
GROUP G_NOAUTO
|
||||
END
|
||||
|
||||
STRING F_LIV3 6
|
||||
BEGIN
|
||||
PROMPT 2 9 "Livello 3 "
|
||||
USE GCG //SELECT CODTAB[1,1]=="3"
|
||||
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||
INPUT CODTAB[1,1] "3"
|
||||
INPUT CODTAB[2,12] F_LIV3
|
||||
COPY DISPLAY F_LIV1
|
||||
OUTPUT F_LIV3 CODTAB[2,12]
|
||||
CHECKTYPE NORMAL
|
||||
GROUP G_NOAUTO
|
||||
USE GCG //SELECT CODTAB[1,1]=="3"
|
||||
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||
INPUT CODTAB[1,1] "3"
|
||||
INPUT CODTAB[2,12] F_LIV3
|
||||
COPY DISPLAY F_LIV1
|
||||
OUTPUT F_LIV3 CODTAB[2,12]
|
||||
CHECKTYPE NORMAL
|
||||
GROUP G_NOAUTO
|
||||
MESSAGE EMPTY RESET,F_LIV4
|
||||
END
|
||||
|
||||
STRING F_LIV4 6
|
||||
BEGIN
|
||||
PROMPT 40 9 "Livello 4 "
|
||||
USE GCG //SELECT CODTAB[1,1]=="4"
|
||||
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||
INPUT CODTAB[1,1] "4"
|
||||
INPUT CODTAB[2,12] F_LIV4
|
||||
COPY DISPLAY F_LIV1
|
||||
OUTPUT F_LIV4 CODTAB[2,12]
|
||||
CHECKTYPE NORMAL
|
||||
GROUP G_NOAUTO
|
||||
USE GCG //SELECT CODTAB[1,1]=="4"
|
||||
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||
INPUT CODTAB[1,1] "4"
|
||||
INPUT CODTAB[2,12] F_LIV4
|
||||
COPY DISPLAY F_LIV1
|
||||
OUTPUT F_LIV4 CODTAB[2,12]
|
||||
CHECKTYPE NORMAL
|
||||
GROUP G_NOAUTO
|
||||
END
|
||||
|
||||
STRING F_UM 2
|
||||
BEGIN
|
||||
FLAGS "U"
|
||||
FLAGS "U"
|
||||
PROMPT 2 11 "Unità di misura "
|
||||
FIELD UM
|
||||
USE LF_UMART KEY 2
|
||||
INPUT CODART F_CODART SELECT
|
||||
INPUT UM F_UM
|
||||
DISPLAY "U.M.@10" UM
|
||||
DISPLAY "F.C.@10" FC
|
||||
OUTPUT F_CODART CODART
|
||||
OUTPUT F_UM UM
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP G_NOAUTO
|
||||
FIELD UM
|
||||
USE LF_UMART KEY 2
|
||||
INPUT CODART F_CODART SELECT
|
||||
INPUT UM F_UM
|
||||
DISPLAY "U.M.@10" UM
|
||||
DISPLAY "F.C.@10" FC
|
||||
OUTPUT F_CODART CODART
|
||||
OUTPUT F_UM UM
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP G_NOAUTO
|
||||
END
|
||||
|
||||
NUMBER F_QUANT 15 5
|
||||
BEGIN
|
||||
PROMPT 2 13 "Quantità "
|
||||
FIELD QUANT
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Indicare la quantità"
|
||||
GROUP G_NOAUTO
|
||||
FIELD QUANT
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Indicare la quantità"
|
||||
GROUP G_NOAUTO
|
||||
END
|
||||
|
||||
NUMBER F_PREZZO 18 3
|
||||
BEGIN
|
||||
PROMPT 2 14 "Prezzo "
|
||||
FIELD PREZZO
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Indicare il prezzo"
|
||||
FIELD PREZZO
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Indicare il prezzo"
|
||||
END
|
||||
|
||||
NUMBER F_VALORE 15 5
|
||||
BEGIN
|
||||
FLAGS "D"
|
||||
PROMPT 42 14 "Valore totale "
|
||||
NUM_CALC #F_PREZZO*#F_QUANT
|
||||
NUM_CALC #F_PREZZO*#F_QUANT
|
||||
END
|
||||
|
||||
STRINGA F_CAUSRIG 4
|
||||
STRING F_CAUSRIG 4
|
||||
BEGIN
|
||||
PROMPT 2 15 "Codice causale "
|
||||
FIELD CAUS
|
||||
PROMPT 2 16 "Codice causale "
|
||||
FIELD CAUS
|
||||
USE %CAU
|
||||
FLAGS "U"
|
||||
INPUT CODTAB F_CAUSRIG
|
||||
@ -246,14 +246,15 @@ BEGIN
|
||||
DISPLAY "Descrizione@50 " S0
|
||||
OUTPUT F_CAUSRIG CODTAB
|
||||
OUTPUT F_DESCAUSRIG S0
|
||||
MESSAGE EMPTY RESET,F_DESCAUSRIG
|
||||
GROUP G_NOAUTO
|
||||
MESSAGE EMPTY RESET,F_DESCAUSRIG
|
||||
ADD RUN MG0 -0 %CAU
|
||||
GROUP G_NOAUTO
|
||||
END
|
||||
|
||||
NUMBER F_DESCAUSRIG 50 30
|
||||
STRING F_DESCAUSRIG 50 30
|
||||
BEGIN
|
||||
FLAGS "D"
|
||||
PROMPT 42 15 ""
|
||||
PROMPT 42 16 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
452
mg/mg3100.cpp
452
mg/mg3100.cpp
@ -17,13 +17,13 @@
|
||||
|
||||
class TForm_giacprezzi : public TForm_stampemg
|
||||
{
|
||||
TConfig *conf_ditta;
|
||||
TCondizione_vendita * listino;
|
||||
TConfig *conf_ditta;
|
||||
TCondizione_vendita * listino;
|
||||
public:
|
||||
void set_codlistino(const char * codcm,const char * cod);
|
||||
bool validate(TForm_item &cf, TToken_string &s);
|
||||
TForm_giacprezzi(const char *name,const char *code) ;
|
||||
~TForm_giacprezzi();
|
||||
void set_codlistino(const char * codcm,const char * cod);
|
||||
bool validate(TForm_item &cf, TToken_string &s);
|
||||
TForm_giacprezzi(const char *name,const char *code) ;
|
||||
~TForm_giacprezzi();
|
||||
};
|
||||
|
||||
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;
|
||||
|
||||
if (code=="_USER") {
|
||||
subcode=s.get();
|
||||
if (subcode=="PREZZO") {
|
||||
TString codart(relation()->lfile(LF_ANAMAG).get("CODART"));
|
||||
if (listino->ricerca(codart,0.0))
|
||||
cf.set(listino->get_prezzo().string());
|
||||
return TRUE;
|
||||
}
|
||||
subcode=s.get();
|
||||
if (subcode=="PREZZO") {
|
||||
TString codart(relation()->lfile(LF_ANAMAG).get("CODART"));
|
||||
if (listino->ricerca(codart,0.0))
|
||||
cf.set(listino->get_prezzo().string());
|
||||
return TRUE;
|
||||
}
|
||||
}
|
||||
return TForm_stampemg::validate(cf, s);
|
||||
}
|
||||
|
||||
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_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_umart(relation()->lfile(LF_UMART));
|
||||
}
|
||||
|
||||
TForm_giacprezzi::~TForm_giacprezzi()
|
||||
{
|
||||
delete &(listino->config_ditta());
|
||||
delete listino;
|
||||
delete &(listino->config_ditta());
|
||||
delete listino;
|
||||
}
|
||||
|
||||
|
||||
|
||||
class TStampadatist_mask: public TMask
|
||||
{
|
||||
static bool handle_ragg(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_ragg(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
|
||||
public:
|
||||
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
|
||||
if (prassid.get_bool("GES", NULL, A_LISTINI))
|
||||
field(F_CATVENLISTINO).enable(prassid.get_bool("GESLISCV"));
|
||||
else {
|
||||
field(F_CATVENLISTINO).disable(); field(F_CODLISTINO).disable();
|
||||
}
|
||||
TMag_livelli giaclev("FCA"),artlev("FCG");
|
||||
field(F_CATVENLISTINO).enable(prassid.get_bool("GESLISCV"));
|
||||
else {
|
||||
field(F_CATVENLISTINO).disable(); field(F_CODLISTINO).disable();
|
||||
}
|
||||
TMag_livelli giaclev("FCA"),artlev("FCG");
|
||||
|
||||
set_handler(F_TOLIVELLOART, handle_liv);
|
||||
set_handler(F_TOLIVELLOGIAC, handle_liv);
|
||||
set_handler(F_ORDINE, handle_ragg);
|
||||
set_handler(F_DETTAGLIODEP, handle_ragg);
|
||||
set_handler(F_DETTAGLIOMAG, handle_ragg);
|
||||
set_handler(F_ORDINEART,handle_subord);
|
||||
if (!artlev.enabled()) {
|
||||
TMask_field &f1=field(F_RAGGCODICE);
|
||||
f1.reset(); f1.check();f1.hide();
|
||||
}
|
||||
if (!giaclev.enabled()) {
|
||||
TMask_field &f2=field(F_RAGGLIVGIAC);
|
||||
f2.reset(); f2.check();f2.hide();
|
||||
}
|
||||
set_handler(F_ORDINEART,handle_subord);
|
||||
if (!artlev.enabled()) {
|
||||
TMask_field &f1=field(F_RAGGCODICE);
|
||||
f1.reset(); f1.check();f1.hide();
|
||||
}
|
||||
if (!giaclev.enabled()) {
|
||||
TMask_field &f2=field(F_RAGGLIVGIAC);
|
||||
f2.reset(); f2.check();f2.hide();
|
||||
}
|
||||
}
|
||||
|
||||
bool TStampadatist_mask::handle_subord(TMask_field &fld, KEY k)
|
||||
{
|
||||
if (k == K_SPACE)
|
||||
{
|
||||
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
|
||||
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
|
||||
switch (fld.get()[1]) {
|
||||
case 'C':
|
||||
if (fld.mask().get(F_ORDINE)=="A")
|
||||
fraggcod.enable();
|
||||
else {
|
||||
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
|
||||
{
|
||||
fraggcod.reset(); fraggcod.disable();
|
||||
fragggiac.reset(); fragggiac.disable();
|
||||
fraggcod.do_message(0);fragggiac.do_message(0);
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 'M':
|
||||
case 'D':
|
||||
fraggcod.reset(); fraggcod.check();fraggcod.disable();
|
||||
break;
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
if (k == K_SPACE)
|
||||
{
|
||||
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
|
||||
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
|
||||
switch (fld.get()[1]) {
|
||||
case 'C':
|
||||
if (fld.mask().get(F_ORDINE)=="A")
|
||||
fraggcod.enable();
|
||||
else {
|
||||
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
|
||||
{
|
||||
fraggcod.reset(); fraggcod.disable();
|
||||
fragggiac.reset(); fragggiac.disable();
|
||||
fraggcod.do_message(0);fragggiac.do_message(0);
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 'M':
|
||||
case 'D':
|
||||
fraggcod.reset(); fraggcod.check();fraggcod.disable();
|
||||
break;
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TStampadatist_mask::handle_liv(TMask_field &fld, KEY k)
|
||||
{
|
||||
if (k == K_TAB)
|
||||
{
|
||||
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
|
||||
TOperable_field &fdettmag=(TOperable_field &)fld.mask().field(F_DETTAGLIOMAG);
|
||||
if (fld.mask().get(F_ORDINE)=="A")
|
||||
{
|
||||
if (fld.mask().get_int(F_TOLIVELLOART) || fld.mask().get_int(F_TOLIVELLOGIAC))
|
||||
{
|
||||
// raggruppamenti prima del dettaglio magazzini
|
||||
ftotmag.reset(); ftotmag.disable();ftotmag.do_message(0);
|
||||
} else {
|
||||
ftotmag.enable();
|
||||
}
|
||||
}
|
||||
}
|
||||
if (k == K_TAB)
|
||||
{
|
||||
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
|
||||
TOperable_field &fdettmag=(TOperable_field &)fld.mask().field(F_DETTAGLIOMAG);
|
||||
if (fld.mask().get(F_ORDINE)=="A")
|
||||
{
|
||||
if (fld.mask().get_int(F_TOLIVELLOART) || fld.mask().get_int(F_TOLIVELLOGIAC))
|
||||
{
|
||||
// raggruppamenti prima del dettaglio magazzini
|
||||
ftotmag.reset(); ftotmag.disable();ftotmag.do_message(0);
|
||||
} else {
|
||||
ftotmag.enable();
|
||||
}
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TStampadatist_mask::handle_ragg(TMask_field &fld, KEY k)
|
||||
{
|
||||
if (k == K_SPACE)
|
||||
{
|
||||
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
|
||||
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
|
||||
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
|
||||
if (fld.mask().get(F_ORDINE)=="M")
|
||||
{
|
||||
ftotmag.enable();
|
||||
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
|
||||
{
|
||||
fraggcod.reset(); fraggcod.disable();
|
||||
fragggiac.reset(); fragggiac.disable();
|
||||
fraggcod.do_message(0);fragggiac.do_message(0);
|
||||
return TRUE;
|
||||
}
|
||||
}
|
||||
fraggcod.enable();
|
||||
fragggiac.enable();
|
||||
}
|
||||
if (k == K_SPACE)
|
||||
{
|
||||
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
|
||||
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
|
||||
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
|
||||
if (fld.mask().get(F_ORDINE)=="M")
|
||||
{
|
||||
ftotmag.enable();
|
||||
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
|
||||
{
|
||||
fraggcod.reset(); fraggcod.disable();
|
||||
fragggiac.reset(); fragggiac.disable();
|
||||
fraggcod.do_message(0);fragggiac.do_message(0);
|
||||
return TRUE;
|
||||
}
|
||||
}
|
||||
fraggcod.enable();
|
||||
fragggiac.enable();
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
@ -177,10 +177,10 @@ bool TStampadatist_mask::handle_ragg(TMask_field &fld, KEY k)
|
||||
// STAMPA anagrafiche
|
||||
class TStampa_datistorici : public TPrint_application
|
||||
{
|
||||
TArray * _files;
|
||||
TMask * _mask;
|
||||
TCursor * _cur;
|
||||
TForm_giacprezzi * _form; // to be moved into TPrint_application
|
||||
TArray * _files;
|
||||
TMask * _mask;
|
||||
TCursor * _cur;
|
||||
TForm_giacprezzi * _form; // to be moved into TPrint_application
|
||||
|
||||
protected:
|
||||
virtual bool print_one(int file)
|
||||
@ -189,9 +189,9 @@ protected:
|
||||
virtual bool user_destroy();
|
||||
virtual bool set_print(int i=1);
|
||||
virtual void set_page(int file,int count)
|
||||
{ }
|
||||
void setprint_permagazzini();
|
||||
void setprint_perarticoli();
|
||||
{ }
|
||||
void setprint_permagazzini();
|
||||
void setprint_perarticoli();
|
||||
|
||||
public:
|
||||
TStampa_datistorici() {}
|
||||
@ -208,8 +208,8 @@ bool TStampa_datistorici::user_create()
|
||||
|
||||
bool TStampa_datistorici::user_destroy()
|
||||
{
|
||||
delete _mask;
|
||||
delete _files;
|
||||
delete _mask;
|
||||
delete _files;
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
@ -220,51 +220,51 @@ void TStampa_datistorici::setprint_permagazzini()
|
||||
TString cfilter,sortexp,joinexp;
|
||||
_form = new TForm_giacprezzi("mg3100b", "");
|
||||
_cur = _form->cursor();
|
||||
// setta il filtro sul cursore
|
||||
if (*_mask->get(F_DAART))
|
||||
cfilter << "(CODART>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ;
|
||||
if (*_mask->get(F_AART))
|
||||
cfilter << "(CODART<=" <<'"' << _mask->get(F_AART)<< "\")&&" ;
|
||||
switch (*_mask->get(F_FILTRO)) {
|
||||
case '0': // non nulli
|
||||
cfilter << "(STR(" << LF_MAG << "->GIAC!=\"0\"))&&";
|
||||
break;
|
||||
case 'P': // positivi
|
||||
cfilter << "(STR(" << LF_MAG << "->GIAC>\"0\"))&&";
|
||||
break;
|
||||
case 'N': // negativi
|
||||
cfilter << "(STR(" << LF_MAG << "->GIAC<\"0\"))&&";
|
||||
break;
|
||||
case 'S': // sottoscorta
|
||||
cfilter << "(STR(GIAC<SCORTAMIN))&&";
|
||||
break;
|
||||
// setta il filtro sul cursore
|
||||
if (*_mask->get(F_DAART))
|
||||
cfilter << "(CODART>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ;
|
||||
if (*_mask->get(F_AART))
|
||||
cfilter << "(CODART<=" <<'"' << _mask->get(F_AART)<< "\")&&" ;
|
||||
switch (*_mask->get(F_FILTRO)) {
|
||||
case '0': // non nulli
|
||||
cfilter << "(STR(" << LF_MAG << "->GIAC!=\"0\"))&&";
|
||||
break;
|
||||
case 'P': // positivi
|
||||
cfilter << "(STR(" << LF_MAG << "->GIAC>\"0\"))&&";
|
||||
break;
|
||||
case 'N': // negativi
|
||||
cfilter << "(STR(" << LF_MAG << "->GIAC<\"0\"))&&";
|
||||
break;
|
||||
case 'S': // sottoscorta
|
||||
cfilter << "(STR(GIAC<SCORTAMIN))&&";
|
||||
break;
|
||||
}
|
||||
if (cfilter.not_empty())
|
||||
cfilter.cut(cfilter.len()-2);
|
||||
if (cfilter.not_empty())
|
||||
cfilter.cut(cfilter.len()-2);
|
||||
|
||||
// abilita/disabilita le sezioni dei totali
|
||||
_form->setdett_permag(_mask->get_int(F_FROMLIVELLOART),
|
||||
_mask->get_int(F_TOLIVELLOART),
|
||||
_mask->get_int(F_FROMLIVELLOGIAC),
|
||||
_mask->get_int(F_TOLIVELLOGIAC),
|
||||
TRUE,
|
||||
_mask->get_bool(F_TOTALIDEPOSITI),
|
||||
_mask->get_bool(F_DETTAGLIODEP));
|
||||
// abilita/disabilita le sezioni dei totali
|
||||
_form->setdett_permag(_mask->get_int(F_FROMLIVELLOART),
|
||||
_mask->get_int(F_TOLIVELLOART),
|
||||
_mask->get_int(F_FROMLIVELLOGIAC),
|
||||
_mask->get_int(F_TOLIVELLOGIAC),
|
||||
TRUE,
|
||||
_mask->get_bool(F_TOTALIDEPOSITI),
|
||||
_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_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('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('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('B',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI));
|
||||
_form->set_codlistino(_mask->get(F_CATVENLISTINO),_mask->get(F_CODLISTINO));
|
||||
_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->set_codlistino(_mask->get(F_CATVENLISTINO),_mask->get(F_CODLISTINO));
|
||||
|
||||
darec.put("ANNOES",_mask->get(F_ANNOES));
|
||||
darec.put("CODMAG",_mask->get(F_DAMAG));
|
||||
arec.put("ANNOES",_mask->get(F_ANNOES));
|
||||
arec.put("CODMAG",_mask->get(F_AMAG));
|
||||
_cur->setfilter(cfilter);
|
||||
_cur->setregion(darec,arec);
|
||||
darec.put("ANNOES",_mask->get(F_ANNOES));
|
||||
darec.put("CODMAG",_mask->get(F_DAMAG));
|
||||
arec.put("ANNOES",_mask->get(F_ANNOES));
|
||||
arec.put("CODMAG",_mask->get(F_AMAG));
|
||||
_cur->setfilter(cfilter);
|
||||
_cur->setregion(darec,arec);
|
||||
}
|
||||
|
||||
// ORDINAMENTO
|
||||
@ -272,108 +272,108 @@ void TStampa_datistorici::setprint_perarticoli()
|
||||
{
|
||||
TRectype darec(LF_ANAMAG),arec(LF_ANAMAG);
|
||||
TString cfilter,filter,joinexp;
|
||||
TString sortexp("ANNOES|CODART|LIVELLO|CODMAG");
|
||||
TString sortexp("ANNOES|CODART|LIVELLO|CODMAG");
|
||||
|
||||
char subordine=*_mask->get(F_ORDINEART);
|
||||
_form = new TForm_giacprezzi("mg3100a", "");
|
||||
_form = new TForm_giacprezzi("mg3100a", "");
|
||||
_cur = _form->cursor();
|
||||
if (*_mask->get(F_DAMAG))
|
||||
filter << "(CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ;
|
||||
if (*_mask->get(F_AMAG))
|
||||
filter << "(CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ;
|
||||
switch (*_mask->get(F_FILTRO)) {
|
||||
case '0': // non nulli
|
||||
filter << "(STR(" << LF_MAG << "->GIAC!=\"0\"))&&";
|
||||
break;
|
||||
case 'P': // positivi
|
||||
filter << "(STR(" << LF_MAG << "->GIAC>\"0\"))&&";
|
||||
break;
|
||||
case 'N': // negativi
|
||||
filter << "(STR(" << LF_MAG << "->GIAC<\"0\"))&&";
|
||||
break;
|
||||
case 'S': // sottoscorta
|
||||
filter << "(STR(GIAC<SCORTAMIN))&&";
|
||||
break;
|
||||
if (*_mask->get(F_DAMAG))
|
||||
filter << "(CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ;
|
||||
if (*_mask->get(F_AMAG))
|
||||
filter << "(CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ;
|
||||
switch (*_mask->get(F_FILTRO)) {
|
||||
case '0': // non nulli
|
||||
filter << "(STR(" << LF_MAG << "->GIAC!=\"0\"))&&";
|
||||
break;
|
||||
case 'P': // positivi
|
||||
filter << "(STR(" << LF_MAG << "->GIAC>\"0\"))&&";
|
||||
break;
|
||||
case 'N': // negativi
|
||||
filter << "(STR(" << LF_MAG << "->GIAC<\"0\"))&&";
|
||||
break;
|
||||
case 'S': // sottoscorta
|
||||
filter << "(STR(GIAC<SCORTAMIN))&&";
|
||||
break;
|
||||
}
|
||||
if (filter.not_empty())
|
||||
filter.cut(filter.len()-2);
|
||||
if (filter.not_empty())
|
||||
filter.cut(filter.len()-2);
|
||||
switch (subordine)
|
||||
{
|
||||
case 'C':
|
||||
_cur->setkey(1);
|
||||
darec.put("CODART",_mask->get(F_DAART));
|
||||
arec.put("CODART",_mask->get(F_AART));
|
||||
_form->find_field('B',odd_page,"H_CATMER").hide();
|
||||
_form->find_field('B',odd_page,"TOT_CATMER").hide();
|
||||
_form->setcatmer(FALSE);
|
||||
break;
|
||||
case 'D':
|
||||
_cur->setkey(2);
|
||||
darec.put("DESCR",_mask->get(F_DADES));
|
||||
arec.put("DESCR",_mask->get(F_ADES));
|
||||
_form->find_field('B',odd_page,"H_CATMER").disable();
|
||||
_form->find_field('B',odd_page,"TOT_CATMER").hide();
|
||||
_form->setcatmer(FALSE);
|
||||
break;
|
||||
case 'M':
|
||||
_cur->setkey(3);
|
||||
darec.put("GRMERC",_mask->get(F_DACATMER));
|
||||
darec.put("CODART",_mask->get(F_DAART));
|
||||
arec.put("GRMERC",_mask->get(F_ACATMER));
|
||||
arec.put("CODART",_mask->get(F_AART));
|
||||
_form->find_field('B',odd_page,"H_CATMER").show();
|
||||
_form->find_field('B',odd_page,"TOT_CATMER").show();
|
||||
_form->setcatmer(TRUE);
|
||||
break;
|
||||
case 'C':
|
||||
_cur->setkey(1);
|
||||
darec.put("CODART",_mask->get(F_DAART));
|
||||
arec.put("CODART",_mask->get(F_AART));
|
||||
_form->find_field('B',odd_page,"H_CATMER").hide();
|
||||
_form->find_field('B',odd_page,"TOT_CATMER").hide();
|
||||
_form->setcatmer(FALSE);
|
||||
break;
|
||||
case 'D':
|
||||
_cur->setkey(2);
|
||||
darec.put("DESCR",_mask->get(F_DADES));
|
||||
arec.put("DESCR",_mask->get(F_ADES));
|
||||
_form->find_field('B',odd_page,"H_CATMER").disable();
|
||||
_form->find_field('B',odd_page,"TOT_CATMER").hide();
|
||||
_form->setcatmer(FALSE);
|
||||
break;
|
||||
case 'M':
|
||||
_cur->setkey(3);
|
||||
darec.put("GRMERC",_mask->get(F_DACATMER));
|
||||
darec.put("CODART",_mask->get(F_DAART));
|
||||
arec.put("GRMERC",_mask->get(F_ACATMER));
|
||||
arec.put("CODART",_mask->get(F_AART));
|
||||
_form->find_field('B',odd_page,"H_CATMER").show();
|
||||
_form->find_field('B',odd_page,"TOT_CATMER").show();
|
||||
_form->setcatmer(TRUE);
|
||||
break;
|
||||
}
|
||||
_form->setdett_perart(
|
||||
_mask->get_int(F_FROMLIVELLOART),
|
||||
_mask->get_int(F_TOLIVELLOART),
|
||||
_mask->get_int(F_FROMLIVELLOGIAC),
|
||||
_mask->get_int(F_TOLIVELLOGIAC),
|
||||
_mask->get_bool(F_TOTALIMAGAZZINI),
|
||||
_mask->get_bool(F_TOTALIDEPOSITI));
|
||||
_form->setdett_perart(
|
||||
_mask->get_int(F_FROMLIVELLOART),
|
||||
_mask->get_int(F_TOLIVELLOART),
|
||||
_mask->get_int(F_FROMLIVELLOGIAC),
|
||||
_mask->get_int(F_TOLIVELLOGIAC),
|
||||
_mask->get_bool(F_TOTALIMAGAZZINI),
|
||||
_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_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('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('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('B',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI));
|
||||
_form->set_codlistino(_mask->get(F_CATVENLISTINO),_mask->get(F_CODLISTINO));
|
||||
_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->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;
|
||||
mag= new TSortedfile(LF_MAG,NULL,sortexp,filter,1);
|
||||
_cur->relation()->replace(mag,1,joinexp);
|
||||
_cur->setfilter(cfilter);
|
||||
_cur->setregion(darec,arec);
|
||||
TSortedfile *mag;
|
||||
mag= new TSortedfile(LF_MAG,NULL,sortexp,filter,1);
|
||||
_cur->relation()->replace(mag,1,joinexp);
|
||||
_cur->setfilter(cfilter);
|
||||
_cur->setregion(darec,arec);
|
||||
}
|
||||
|
||||
|
||||
bool TStampa_datistorici::set_print(int i)
|
||||
{
|
||||
while (TRUE) {
|
||||
if (_mask->run() != K_ENTER)
|
||||
return FALSE;
|
||||
while (TRUE) {
|
||||
if (_mask->run() != K_ENTER)
|
||||
return FALSE;
|
||||
|
||||
if (*_mask->get(F_ORDINE)=='A')
|
||||
{
|
||||
setprint_perarticoli();
|
||||
} else {
|
||||
setprint_permagazzini();
|
||||
}
|
||||
_form->print();
|
||||
delete _form;
|
||||
} // while true
|
||||
if (*_mask->get(F_ORDINE)=='A')
|
||||
{
|
||||
setprint_perarticoli();
|
||||
} else {
|
||||
setprint_permagazzini();
|
||||
}
|
||||
_form->print();
|
||||
delete _form;
|
||||
} // while true
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
||||
int mg3100(int argc, char* argv[])
|
||||
{
|
||||
TStampa_datistorici a;// derivata da Application e con uso di form
|
||||
a.run(argc,argv,"Stampa dati storici di giacenza");
|
||||
return 0;
|
||||
TStampa_datistorici a;// derivata da Application e con uso di form
|
||||
a.run(argc,argv,"Stampa dati storici di giacenza");
|
||||
return 0;
|
||||
}
|
||||
|
||||
332
mg/mg3200.cpp
332
mg/mg3200.cpp
@ -15,103 +15,103 @@
|
||||
|
||||
class TStampadisp_mask: public TMask
|
||||
{
|
||||
static bool handle_ragg(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_ragg(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
|
||||
public:
|
||||
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_TOLIVELLOGIAC, handle_liv);
|
||||
set_handler(F_ORDINE, handle_ragg);
|
||||
set_handler(F_DETTAGLIODEP, handle_ragg);
|
||||
set_handler(F_DETTAGLIOMAG, handle_ragg);
|
||||
set_handler(F_ORDINEART,handle_subord);
|
||||
if (!artlev.enabled()) {
|
||||
TMask_field &f1=field(F_RAGGCODICE);
|
||||
f1.reset(); f1.check();f1.hide();
|
||||
}
|
||||
if (!giaclev.enabled()) {
|
||||
TMask_field &f2=field(F_RAGGLIVGIAC);
|
||||
f2.reset(); f2.check();f2.hide();
|
||||
}
|
||||
set_handler(F_ORDINEART,handle_subord);
|
||||
if (!artlev.enabled()) {
|
||||
TMask_field &f1=field(F_RAGGCODICE);
|
||||
f1.reset(); f1.check();f1.hide();
|
||||
}
|
||||
if (!giaclev.enabled()) {
|
||||
TMask_field &f2=field(F_RAGGLIVGIAC);
|
||||
f2.reset(); f2.check();f2.hide();
|
||||
}
|
||||
}
|
||||
|
||||
bool TStampadisp_mask::handle_subord(TMask_field &fld, KEY k)
|
||||
{
|
||||
if (k == K_SPACE)
|
||||
{
|
||||
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
|
||||
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
|
||||
switch (fld.get()[1]) {
|
||||
case 'C':
|
||||
if (fld.mask().get(F_ORDINE)=="A")
|
||||
fraggcod.enable();
|
||||
else {
|
||||
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
|
||||
{
|
||||
fraggcod.reset(); fraggcod.disable();
|
||||
fragggiac.reset(); fragggiac.disable();
|
||||
fraggcod.do_message(0);fragggiac.do_message(0);
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 'M':
|
||||
case 'D':
|
||||
fraggcod.reset(); fraggcod.check();fraggcod.disable();
|
||||
break;
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
if (k == K_SPACE)
|
||||
{
|
||||
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
|
||||
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
|
||||
switch (fld.get()[1]) {
|
||||
case 'C':
|
||||
if (fld.mask().get(F_ORDINE)=="A")
|
||||
fraggcod.enable();
|
||||
else {
|
||||
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
|
||||
{
|
||||
fraggcod.reset(); fraggcod.disable();
|
||||
fragggiac.reset(); fragggiac.disable();
|
||||
fraggcod.do_message(0);fragggiac.do_message(0);
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 'M':
|
||||
case 'D':
|
||||
fraggcod.reset(); fraggcod.check();fraggcod.disable();
|
||||
break;
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TStampadisp_mask::handle_liv(TMask_field &fld, KEY k)
|
||||
{
|
||||
if (k == K_TAB)
|
||||
{
|
||||
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
|
||||
TOperable_field &fdettmag=(TOperable_field &)fld.mask().field(F_DETTAGLIOMAG);
|
||||
if (fld.mask().get(F_ORDINE)=="A")
|
||||
{
|
||||
if (fld.mask().get_int(F_TOLIVELLOART) || fld.mask().get_int(F_TOLIVELLOGIAC))
|
||||
{
|
||||
// raggruppamenti prima del dettaglio magazzini
|
||||
ftotmag.reset(); ftotmag.disable();ftotmag.do_message(0);
|
||||
} else {
|
||||
ftotmag.enable();
|
||||
}
|
||||
}
|
||||
}
|
||||
if (k == K_TAB)
|
||||
{
|
||||
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
|
||||
TOperable_field &fdettmag=(TOperable_field &)fld.mask().field(F_DETTAGLIOMAG);
|
||||
if (fld.mask().get(F_ORDINE)=="A")
|
||||
{
|
||||
if (fld.mask().get_int(F_TOLIVELLOART) || fld.mask().get_int(F_TOLIVELLOGIAC))
|
||||
{
|
||||
// raggruppamenti prima del dettaglio magazzini
|
||||
ftotmag.reset(); ftotmag.disable();ftotmag.do_message(0);
|
||||
} else {
|
||||
ftotmag.enable();
|
||||
}
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TStampadisp_mask::handle_ragg(TMask_field &fld, KEY k)
|
||||
{
|
||||
if (k == K_SPACE)
|
||||
{
|
||||
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
|
||||
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
|
||||
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
|
||||
if (fld.mask().get(F_ORDINE)=="M")
|
||||
{
|
||||
ftotmag.enable();
|
||||
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
|
||||
{
|
||||
fraggcod.reset(); fraggcod.disable();
|
||||
fragggiac.reset(); fragggiac.disable();
|
||||
fraggcod.do_message(0);fragggiac.do_message(0);
|
||||
return TRUE;
|
||||
}
|
||||
}
|
||||
fraggcod.enable();
|
||||
fragggiac.enable();
|
||||
}
|
||||
if (k == K_SPACE)
|
||||
{
|
||||
TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI);
|
||||
TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE);
|
||||
TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC);
|
||||
if (fld.mask().get(F_ORDINE)=="M")
|
||||
{
|
||||
ftotmag.enable();
|
||||
if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP))
|
||||
{
|
||||
fraggcod.reset(); fraggcod.disable();
|
||||
fragggiac.reset(); fragggiac.disable();
|
||||
fraggcod.do_message(0);fragggiac.do_message(0);
|
||||
return TRUE;
|
||||
}
|
||||
}
|
||||
fraggcod.enable();
|
||||
fragggiac.enable();
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
@ -119,10 +119,10 @@ bool TStampadisp_mask::handle_ragg(TMask_field &fld, KEY k)
|
||||
// mg3200 Stampa
|
||||
class TStampa_disp : public TPrint_application
|
||||
{
|
||||
TArray * _files;
|
||||
TStampadisp_mask * _mask;
|
||||
TCursor * _cur;
|
||||
TForm_stampemg * _form; // to be moved into TPrint_application
|
||||
TArray * _files;
|
||||
TStampadisp_mask * _mask;
|
||||
TCursor * _cur;
|
||||
TForm_stampemg * _form; // to be moved into TPrint_application
|
||||
|
||||
protected:
|
||||
virtual bool print_one(int file)
|
||||
@ -131,9 +131,9 @@ protected:
|
||||
virtual bool user_destroy();
|
||||
virtual bool set_print(int i=1);
|
||||
virtual void set_page(int file,int count)
|
||||
{ }
|
||||
void setprint_permagazzini();
|
||||
void setprint_perarticoli();
|
||||
{ }
|
||||
void setprint_permagazzini();
|
||||
void setprint_perarticoli();
|
||||
|
||||
public:
|
||||
TStampa_disp() {}
|
||||
@ -150,8 +150,8 @@ bool TStampa_disp::user_create()
|
||||
|
||||
bool TStampa_disp::user_destroy()
|
||||
{
|
||||
delete _mask;
|
||||
delete _files;
|
||||
delete _mask;
|
||||
delete _files;
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
@ -163,29 +163,29 @@ void TStampa_disp::setprint_permagazzini()
|
||||
TString cfilter,sortexp,joinexp;
|
||||
_form = new TForm_stampemg("mg3200b", "");
|
||||
_cur = _form->cursor();
|
||||
// setta il filtro sul cursore
|
||||
if (*_mask->get(F_DAART))
|
||||
cfilter << "(CODART>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ;
|
||||
if (*_mask->get(F_AART))
|
||||
cfilter << "(CODART<=" <<'"' << _mask->get(F_AART)<< "\")&&" ;
|
||||
if (cfilter.not_empty())
|
||||
cfilter.cut(cfilter.len()-2);
|
||||
// setta il filtro sul cursore
|
||||
if (*_mask->get(F_DAART))
|
||||
cfilter << "(CODART>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ;
|
||||
if (*_mask->get(F_AART))
|
||||
cfilter << "(CODART<=" <<'"' << _mask->get(F_AART)<< "\")&&" ;
|
||||
if (cfilter.not_empty())
|
||||
cfilter.cut(cfilter.len()-2);
|
||||
|
||||
// abilita/disabilita le sezioni dei totali
|
||||
_form->setdett_permag(_mask->get_int(F_FROMLIVELLOART),
|
||||
_mask->get_int(F_TOLIVELLOART),
|
||||
_mask->get_int(F_FROMLIVELLOGIAC),
|
||||
_mask->get_int(F_TOLIVELLOGIAC),
|
||||
TRUE,
|
||||
_mask->get_bool(F_TOTALIDEPOSITI),
|
||||
_mask->get_bool(F_DETTAGLIODEP));
|
||||
// abilita/disabilita le sezioni dei totali
|
||||
_form->setdett_permag(_mask->get_int(F_FROMLIVELLOART),
|
||||
_mask->get_int(F_TOLIVELLOART),
|
||||
_mask->get_int(F_FROMLIVELLOGIAC),
|
||||
_mask->get_int(F_TOLIVELLOGIAC),
|
||||
TRUE,
|
||||
_mask->get_bool(F_TOTALIDEPOSITI),
|
||||
_mask->get_bool(F_DETTAGLIODEP));
|
||||
|
||||
darec.put("ANNOES",_mask->get(F_ANNOES));
|
||||
darec.put("CODMAG",_mask->get(F_DAMAG));
|
||||
arec.put("ANNOES",_mask->get(F_ANNOES));
|
||||
arec.put("CODMAG",_mask->get(F_AMAG));
|
||||
_cur->setfilter(cfilter);
|
||||
_cur->setregion(darec,arec);
|
||||
darec.put("ANNOES",_mask->get(F_ANNOES));
|
||||
darec.put("CODMAG",_mask->get(F_DAMAG));
|
||||
arec.put("ANNOES",_mask->get(F_ANNOES));
|
||||
arec.put("CODMAG",_mask->get(F_AMAG));
|
||||
_cur->setfilter(cfilter);
|
||||
_cur->setregion(darec,arec);
|
||||
}
|
||||
|
||||
// ORDINAMENTO
|
||||
@ -193,87 +193,87 @@ void TStampa_disp::setprint_perarticoli()
|
||||
{
|
||||
TRectype darec(LF_ANAMAG),arec(LF_ANAMAG);
|
||||
TString cfilter,filter,joinexp;
|
||||
TString sortexp("ANNOES|CODART|LIVELLO|CODMAG");
|
||||
TString sortexp("ANNOES|CODART|LIVELLO|CODMAG");
|
||||
|
||||
char subordine=*_mask->get(F_ORDINEART);
|
||||
_form = new TForm_stampemg("mg3200a", "");
|
||||
_form = new TForm_stampemg("mg3200a", "");
|
||||
_cur = _form->cursor();
|
||||
if (*_mask->get(F_DAMAG))
|
||||
filter << "(CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ;
|
||||
if (*_mask->get(F_AMAG))
|
||||
filter << "(CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ;
|
||||
if (filter.not_empty())
|
||||
filter.cut(filter.len()-2);
|
||||
if (*_mask->get(F_DAMAG))
|
||||
filter << "(CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ;
|
||||
if (*_mask->get(F_AMAG))
|
||||
filter << "(CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ;
|
||||
if (filter.not_empty())
|
||||
filter.cut(filter.len()-2);
|
||||
switch (subordine)
|
||||
{
|
||||
case 'C':
|
||||
_cur->setkey(1);
|
||||
darec.put("CODART",_mask->get(F_DAART));
|
||||
arec.put("CODART",_mask->get(F_AART));
|
||||
_form->find_field('B',odd_page,"H_CATMER").hide();
|
||||
_form->find_field('B',odd_page,"TOT_CATMER").hide();
|
||||
_form->setcatmer(FALSE);
|
||||
break;
|
||||
case 'D':
|
||||
_cur->setkey(2);
|
||||
darec.put("DESCR",_mask->get(F_DADES));
|
||||
arec.put("DESCR",_mask->get(F_ADES));
|
||||
_form->find_field('B',odd_page,"H_CATMER").disable();
|
||||
_form->find_field('B',odd_page,"TOT_CATMER").hide();
|
||||
_form->setcatmer(FALSE);
|
||||
break;
|
||||
case 'M':
|
||||
_cur->setkey(3);
|
||||
darec.put("GRMERC",_mask->get(F_DACATMER));
|
||||
darec.put("CODART",_mask->get(F_DAART));
|
||||
arec.put("GRMERC",_mask->get(F_ACATMER));
|
||||
arec.put("CODART",_mask->get(F_AART));
|
||||
_form->find_field('B',odd_page,"H_CATMER").show();
|
||||
_form->find_field('B',odd_page,"TOT_CATMER").show();
|
||||
_form->setcatmer(TRUE);
|
||||
break;
|
||||
case 'C':
|
||||
_cur->setkey(1);
|
||||
darec.put("CODART",_mask->get(F_DAART));
|
||||
arec.put("CODART",_mask->get(F_AART));
|
||||
_form->find_field('B',odd_page,"H_CATMER").hide();
|
||||
_form->find_field('B',odd_page,"TOT_CATMER").hide();
|
||||
_form->setcatmer(FALSE);
|
||||
break;
|
||||
case 'D':
|
||||
_cur->setkey(2);
|
||||
darec.put("DESCR",_mask->get(F_DADES));
|
||||
arec.put("DESCR",_mask->get(F_ADES));
|
||||
_form->find_field('B',odd_page,"H_CATMER").disable();
|
||||
_form->find_field('B',odd_page,"TOT_CATMER").hide();
|
||||
_form->setcatmer(FALSE);
|
||||
break;
|
||||
case 'M':
|
||||
_cur->setkey(3);
|
||||
darec.put("GRMERC",_mask->get(F_DACATMER));
|
||||
darec.put("CODART",_mask->get(F_DAART));
|
||||
arec.put("GRMERC",_mask->get(F_ACATMER));
|
||||
arec.put("CODART",_mask->get(F_AART));
|
||||
_form->find_field('B',odd_page,"H_CATMER").show();
|
||||
_form->find_field('B',odd_page,"TOT_CATMER").show();
|
||||
_form->setcatmer(TRUE);
|
||||
break;
|
||||
}
|
||||
_form->setdett_perart(
|
||||
_mask->get_int(F_FROMLIVELLOART),
|
||||
_mask->get_int(F_TOLIVELLOART),
|
||||
_mask->get_int(F_FROMLIVELLOGIAC),
|
||||
_mask->get_int(F_TOLIVELLOGIAC),
|
||||
_mask->get_bool(F_TOTALIMAGAZZINI),
|
||||
_mask->get_bool(F_TOTALIDEPOSITI));
|
||||
_form->setdett_perart(
|
||||
_mask->get_int(F_FROMLIVELLOART),
|
||||
_mask->get_int(F_TOLIVELLOART),
|
||||
_mask->get_int(F_FROMLIVELLOGIAC),
|
||||
_mask->get_int(F_TOLIVELLOGIAC),
|
||||
_mask->get_bool(F_TOTALIMAGAZZINI),
|
||||
_mask->get_bool(F_TOTALIDEPOSITI));
|
||||
|
||||
|
||||
joinexp << "ANNOES==" << _mask->get(F_ANNOES) << "|CODART==CODART";
|
||||
joinexp << "ANNOES==" << _mask->get(F_ANNOES) << "|CODART==CODART";
|
||||
|
||||
TSortedfile *mag;
|
||||
mag= new TSortedfile(LF_MAG,NULL,sortexp,filter,1);
|
||||
_cur->relation()->replace(mag,1,joinexp);
|
||||
_cur->setfilter(cfilter);
|
||||
_cur->setregion(darec,arec);
|
||||
TSortedfile *mag;
|
||||
mag= new TSortedfile(LF_MAG,NULL,sortexp,filter,1);
|
||||
_cur->relation()->replace(mag,1,joinexp);
|
||||
_cur->setfilter(cfilter);
|
||||
_cur->setregion(darec,arec);
|
||||
}
|
||||
|
||||
|
||||
bool TStampa_disp::set_print(int i)
|
||||
{
|
||||
while (TRUE) {
|
||||
if (_mask->run() != K_ENTER)
|
||||
return FALSE;
|
||||
while (TRUE) {
|
||||
if (_mask->run() != K_ENTER)
|
||||
return FALSE;
|
||||
|
||||
if (*_mask->get(F_ORDINE)=='A')
|
||||
{
|
||||
setprint_perarticoli();
|
||||
} else {
|
||||
setprint_permagazzini();
|
||||
}
|
||||
_form->print();
|
||||
delete _form;
|
||||
} // while true
|
||||
if (*_mask->get(F_ORDINE)=='A')
|
||||
{
|
||||
setprint_perarticoli();
|
||||
} else {
|
||||
setprint_permagazzini();
|
||||
}
|
||||
_form->print();
|
||||
delete _form;
|
||||
} // while true
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
||||
int mg3200(int argc, char* argv[])
|
||||
{
|
||||
TStampa_disp a;// derivata da Application e con uso di form
|
||||
a.run(argc,argv,"Stampa disponibilità");
|
||||
return 0;
|
||||
TStampa_disp a;// derivata da Application e con uso di form
|
||||
a.run(argc,argv,"Stampa disponibilità");
|
||||
return 0;
|
||||
}
|
||||
|
||||
968
mg/mg3300.cpp
968
mg/mg3300.cpp
File diff suppressed because it is too large
Load Diff
Loading…
x
Reference in New Issue
Block a user