dba14686b9
Files correlati : mg1100.msk mg3.exe mg4.exe Ricompilazione Demo : [ ] Commento : Corretta stampa ed aggiornamento registro di magazzino git-svn-id: svn://10.65.10.50/branches/R_10_00@21376 c028cbd2-c16b-5b4b-a496-9718f37d4682
400 lines
7.2 KiB
Plaintext
Executable File
400 lines
7.2 KiB
Plaintext
Executable File
#include "mg1100.h"
|
|
|
|
TOOLBAR "Toolbar" 0 0 0 2
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Testata" 0 0 0 0
|
|
|
|
GROUPBOX DLG_NULL 75 6
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_NUMREG 7
|
|
BEGIN
|
|
FLAGS "G"
|
|
FIELD NUMREG
|
|
PROMPT 2 3 "Operazione numero "
|
|
KEY 1 3 4
|
|
USE LF_MOVMAG
|
|
INPUT NUMREG F_NUMREG
|
|
DISPLAY "N.reg.@7" NUMREG
|
|
DISPLAY "Anno" ANNOES
|
|
DISPLAY "Data reg. @10" DATAREG
|
|
DISPLAY "Data comp.@10" DATACOMP
|
|
DISPLAY "Descrizione@30" DESCR
|
|
DISPLAY "Causale" CODCAUS
|
|
OUTPUT F_NUMREG NUMREG
|
|
OUTPUT F_DATAREG DATAREG
|
|
OUTPUT F_DATACOMP DATACOMP
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,H_NUMREG
|
|
END
|
|
|
|
NUMBER F_ANNOES 4
|
|
BEGIN
|
|
FLAGS "DZ"
|
|
PROMPT 2 4 "Esercizio di competenza "
|
|
FIELD ANNOES
|
|
END
|
|
|
|
DATE F_DATAREG
|
|
BEGIN
|
|
PROMPT 38 3 "Data di registrazione "
|
|
FLAGS "A"
|
|
FIELD DATAREG
|
|
KEY 3
|
|
USE LF_MOVMAG KEY 3
|
|
INPUT NUMREG F_NUMREG
|
|
INPUT DATAREG F_DATAREG
|
|
COPY DISPLAY F_NUMREG
|
|
OUTPUT F_NUMREG NUMREG
|
|
OUTPUT F_DATAREG DATAREG
|
|
OUTPUT F_DATACOMP DATACOMP
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,H_DATAREG
|
|
END
|
|
|
|
DATE F_DATACOMP
|
|
BEGIN
|
|
PROMPT 38 4 "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_NUMREG
|
|
OUTPUT F_NUMREG NUMREG
|
|
OUTPUT F_DATAREG DATAREG
|
|
OUTPUT F_DATACOMP DATACOMP
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,H_DATACOMP
|
|
END
|
|
|
|
STRING F_DESCR 50 40
|
|
BEGIN
|
|
PROMPT 2 5 "Descrizione "
|
|
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@
|
|
END
|
|
|
|
STRING F_EXNUMDOC 7
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 7 "Documento numero "
|
|
FIELD EX_NUMDOC
|
|
END
|
|
|
|
DATE F_EXANNODOC
|
|
BEGIN
|
|
PROMPT 30 7 "del "
|
|
FIELD EX_DATADOC
|
|
END
|
|
|
|
NUMBER F_NUMREGST 7
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 50 7 "N. su registro "
|
|
FIELD NUMREGST
|
|
END
|
|
|
|
STRING F_CODCAUS 5
|
|
BEGIN
|
|
PROMPT 2 9 "Codice causale "
|
|
FIELD CODCAUS
|
|
USE %CAU
|
|
FLAGS "U"
|
|
INPUT CODTAB F_CODCAUS
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50 " S0
|
|
OUTPUT F_CODCAUS CODTAB
|
|
OUTPUT F_DESCAU S0
|
|
CHECKTYPE REQUIRED
|
|
ADD RUN MG0 -0 %CAU
|
|
GROUP G_DEFMOV
|
|
END
|
|
|
|
STRING F_DESCAU 50 30
|
|
BEGIN
|
|
PROMPT 30 9 ""
|
|
USE %CAU KEY 2
|
|
INPUT S0 F_DESCAU
|
|
DISPLAY "Descrizione@50 " S0
|
|
DISPLAY "Codice " CODTAB
|
|
COPY OUTPUT1 F_CODCAUS
|
|
|
|
GROUP G_DEFMOV
|
|
END
|
|
|
|
LISTBOX F_TIPOCF 9
|
|
BEGIN
|
|
PROMPT 2 11 ""
|
|
FLAGS "G"
|
|
FIELD TIPOCF
|
|
ITEM " |Nessuno"
|
|
MESSAGE CLEAR,F_CODCF|CLEAR,F_RAGSOC|CLEAR,F_INDSPED|CLEAR,F_INDIR
|
|
ITEM "C|Cliente"
|
|
MESSAGE ENABLE,F_CODCF|ENABLE,F_RAGSOC|ENABLE,F_INDSPED|ENABLE,F_INDIR
|
|
ITEM "F|Fornitore"
|
|
MESSAGE ENABLE,F_CODCF|ENABLE,F_RAGSOC|ENABLE,F_INDSPED|ENABLE,F_INDIR
|
|
GROUP G_DEFMOV
|
|
END
|
|
|
|
|
|
// agisce anche quando l'utente non entra in gioco (settaggio da contratto...)
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 15 11 "Codice "
|
|
FLAGS "R"
|
|
FIELD CODCF
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT CODCF F_CODCF
|
|
DISPLAY "Codice " CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_CODCF CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE NORMAL
|
|
ADD RUN CG0 -1
|
|
END
|
|
|
|
// esegue i controlli e ricopia i valori del codice sia in CLI che in FOR
|
|
STRING F_RAGSOC 50 40
|
|
BEGIN
|
|
PROMPT 32 11 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice " CODCF
|
|
COPY OUTPUT F_CODCF
|
|
CHECKTYPE NORMAL
|
|
GROUP G_DEFMOV
|
|
ADD RUN CG0 -1
|
|
END
|
|
|
|
NUMBER F_INDSPED 3
|
|
BEGIN
|
|
PROMPT 2 12 "Indirizzo di spediz."
|
|
FIELD CODINDSP
|
|
USE LF_INDSP
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT CODCF F_CODCF SELECT
|
|
INPUT CODIND F_INDSPED
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Cod.Ind.Sped." CODIND
|
|
DISPLAY "Indirizzo@30" INDIR
|
|
DISPLAY "C.A.P." CAP
|
|
OUTPUT F_INDSPED CODIND
|
|
OUTPUT F_INDIR INDIR
|
|
CHECKTYPE NORMAL
|
|
GROUP G_DEFMOV
|
|
END
|
|
|
|
STRING F_INDIR 50 40
|
|
BEGIN
|
|
PROMPT 32 12 ""
|
|
FLAGS "D"
|
|
GROUP G_DEFMOV
|
|
END
|
|
|
|
LISTBOX F_TIPOCONDV 1 12
|
|
BEGIN
|
|
FIELD TIPOCV
|
|
PROMPT 2 13 "Condizione di vendita "
|
|
ITEM " |Nessuna"
|
|
MESSAGE CLEAR,F_CATVEN
|
|
MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR|RESET,F_CODOFF
|
|
MESSAGE HIDE,F_CODLIST|HIDE,F_CODCONTR|HIDE,F_CODOFF
|
|
ITEM "L|Listino"
|
|
MESSAGE ENABLE,F_CATVEN
|
|
MESSAGE SHOW,F_CODLIST|HIDE,F_CODCONTR|HIDE,F_CODOFF
|
|
MESSAGE RESET,F_CODCONTR|RESET,F_CODOFF
|
|
ITEM "C|Contratto"
|
|
MESSAGE CLEAR,F_CATVEN
|
|
MESSAGE SHOW,F_CODCONTR|HIDE,F_CODLIST|HIDE,F_CODOFF
|
|
MESSAGE RESET,F_CODLIST|RESET,F_CODOFF
|
|
ITEM "O|Offerta"
|
|
MESSAGE CLEAR,F_CATVEN
|
|
MESSAGE SHOW,F_CODOFF|HIDE,F_CODLIST|HIDE,F_CODCONTR
|
|
MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR
|
|
|
|
// GROUP G_DEFMOV
|
|
END
|
|
|
|
STRING F_CATVEN 2
|
|
BEGIN
|
|
FLAGS "DU"
|
|
PROMPT 2 15 "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
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_CODLIST 3
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 17 "Codice listino "
|
|
FIELD CODCONDV
|
|
USE LF_CONDV
|
|
INPUT TIPO "L"
|
|
INPUT CATVEN F_CATVEN SELECT
|
|
INPUT COD F_CODLIST
|
|
DISPLAY "Cat.Ven." CATVEN
|
|
DISPLAY "Codice" COD
|
|
DISPLAY "Descr.@30" DESCR
|
|
|
|
OUTPUT F_CATVEN CATVEN
|
|
OUTPUT F_CODLIST COD
|
|
CHECKTYPE REQUIRED
|
|
|
|
// GROUP G_DEFMOV
|
|
END
|
|
|
|
STRING F_CODCONTR 3
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 17 "Codice contratto "
|
|
FIELD CODCONDV
|
|
USE LF_CONDV
|
|
INPUT TIPO "C"
|
|
INPUT CATVEN F_CATVEN
|
|
INPUT TIPOCF F_TIPOCF
|
|
INPUT CODCF F_CODCF
|
|
INPUT COD F_CODCONTR
|
|
DISPLAY "C/F" TIPOCF
|
|
DISPLAY "Cod Cli/For" CODCF
|
|
DISPLAY "Codice" COD
|
|
DISPLAY "Descr.@30" DESCR
|
|
OUTPUT F_CODCF CODCF
|
|
OUTPUT F_TIPOCF TIPOCF
|
|
OUTPUT F_CODCONTR COD
|
|
|
|
CHECKTYPE REQUIRED
|
|
// GROUP G_DEFMOV
|
|
END
|
|
|
|
STRING F_CODOFF 3
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 17 "Codice offerta "
|
|
FIELD CODCONDV
|
|
USE LF_CONDV
|
|
INPUT TIPO "O"
|
|
INPUT CATVEN F_CATVEN
|
|
INPUT COD F_CODOFF
|
|
DISPLAY "Codice" COD
|
|
DISPLAY "Descr.@30" DESCR
|
|
OUTPUT F_CODOFF COD
|
|
CHECKTYPE REQUIRED
|
|
// GROUP G_DEFMOV
|
|
END
|
|
|
|
BOOL F_INVENTORYMODE
|
|
BEGIN
|
|
PROMPT 2 2 "Modalita' di inserimento come movimento di differenza inventariale"
|
|
MESSAGE TRUE SHOW ,F_INVENTORYMODE2
|
|
MESSAGE FALSE HIDE ,F_INVENTORYMODE2
|
|
FLAGS "U"
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Righe" 11 60 14
|
|
|
|
GROUPBOX DLG_NULL 75 5
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER H_NUMREG 7
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 1 "Operazione numero "
|
|
END
|
|
|
|
NUMBER H_ANNOES 4
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 2 "Esercizio di competenza "
|
|
END
|
|
|
|
DATE H_DATAREG
|
|
BEGIN
|
|
PROMPT 38 1 "Data di registrazione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE H_DATACOMP
|
|
BEGIN
|
|
PROMPT 38 2 "Data di competenza "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING H_DESCR 50 40
|
|
BEGIN
|
|
PROMPT 2 3 "Descrizione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
TEXT F_INVENTORYMODE2
|
|
BEGIN
|
|
PROMPT 2 4 "@BModalita' di inserimento come movimento di differenza inventariale"
|
|
FLAGS "UD"
|
|
END
|
|
|
|
CURRENCY F_VALORE_TOT
|
|
BEGIN
|
|
PROMPT 2 5 "Valore totale "
|
|
FLAGS "UD"
|
|
END
|
|
|
|
SPREADSHEET F_RIGHE
|
|
BEGIN
|
|
PROMPT 0 6 "RIGHE DI MOVIMENTO"
|
|
FLAGS "AI"
|
|
ITEM "@1"
|
|
ITEM "Codice articolo"
|
|
ITEM "Liv1@10"
|
|
ITEM "Liv2@10"
|
|
ITEM "Liv3@10"
|
|
ITEM "Liv4@10"
|
|
ITEM "Descrizione"
|
|
ITEM "CodMag"
|
|
ITEM "CodDep"
|
|
ITEM "UM@4"
|
|
ITEM "Qta"
|
|
ITEM "Prezzo"
|
|
ITEM "Causale"
|
|
ITEM "Giacenza"
|
|
ITEM "Impianto"
|
|
ITEM "Linea"
|
|
ITEM "Valore@15"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
#include "mg1100a.uml"
|