16258dc547
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 10.05 patch 502 git-svn-id: svn://10.65.10.50/trunk@8388 c028cbd2-c16b-5b4b-a496-9718f37d4682
365 lines
6.4 KiB
Plaintext
Executable File
365 lines
6.4 KiB
Plaintext
Executable File
#include "mg1100.h"
|
|
|
|
TOOLBAR "" 0 20 60 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Testata" 11 60 14
|
|
|
|
GROUPBOX DLG_NULL 75 5
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_NUMREG 7
|
|
BEGIN
|
|
// FLAGS "D"
|
|
FLAGS "G"
|
|
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. @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 "D"
|
|
PROMPT 2 3 "Esercizio di competenza "
|
|
FIELD 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
|
|
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 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_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 4 "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 6 "Documento numero "
|
|
FIELD EX_NUMDOC
|
|
END
|
|
|
|
|
|
DATE F_EXANNODOC
|
|
BEGIN
|
|
PROMPT 30 6 " del "
|
|
FIELD EX_DATADOC
|
|
END
|
|
|
|
|
|
STRING F_CODCAUS 5
|
|
BEGIN
|
|
PROMPT 2 8 "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 8 ""
|
|
USE %CAU KEY 2
|
|
INPUT S0 F_DESCAU
|
|
DISPLAY "Descrizione@50 " S0
|
|
DISPLAY "Codice " CODTAB
|
|
COPY OUTPUT1 F_CODCAUS
|
|
|
|
GROUP G_DEFMOV
|
|
END
|
|
|
|
RADIOBUTTON F_TIPOCF 15
|
|
BEGIN
|
|
PROMPT 2 8 ""
|
|
FLAGS "G"
|
|
FIELD TIPOCF
|
|
ITEM " |Nessuno"
|
|
MESSAGE HIDE,F_CODCLI|HIDE,F_CODFOR|HIDE,F_RAGSOC|RESET,F_CODCF|HIDE,F_CODCF
|
|
ITEM "C|Cliente"
|
|
MESSAGE SHOW,F_CODCF|SHOW,F_CODCLI|HIDE,F_CODFOR|SHOW,F_RAGSOC //|CHECK,F_CODCONTR
|
|
ITEM "F|Fornitore"
|
|
MESSAGE SHOW,F_CODCF|HIDE,F_CODCLI|SHOW,F_CODFOR|SHOW,F_RAGSOC //|CHECK,F_CODCONTR
|
|
GROUP G_DEFMOV
|
|
END
|
|
|
|
|
|
TEXT F_CODCLI
|
|
BEGIN
|
|
PROMPT 20 10 "Codice cliente "
|
|
END
|
|
|
|
TEXT F_CODFOR
|
|
BEGIN
|
|
PROMPT 20 10 "Codice fornitore "
|
|
END
|
|
|
|
// agisce anche quando l'utente non entra in gioco (settaggio da contratto...)
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
// FLAGS "UHG"
|
|
FIELD CODCF
|
|
PROMPT 37 10 ""
|
|
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
|
|
END
|
|
|
|
// esegue i controlli e ricopia i valori del codice sia in CLI che in FOR
|
|
STRING F_RAGSOC 50 30
|
|
BEGIN
|
|
PROMPT 48 12 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice " CODCF
|
|
OUTPUT F_CODCF CODCF
|
|
GROUP G_DEFMOV
|
|
END
|
|
|
|
LISTBOX F_TIPOCONDV 1 12
|
|
BEGIN
|
|
FIELD TIPOCV
|
|
PROMPT 2 12 "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 14 "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 16 "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 16 "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 16 "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
|
|
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Righe" 11 60 14
|
|
|
|
GROUPBOX DLG_NULL 75 5
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER H_NUMREG 7
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 2 "Operazione numero "
|
|
END
|
|
|
|
NUMBER H_ANNOES 4
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 3 "Esercizio di competenza "
|
|
END
|
|
|
|
DATE H_DATAREG
|
|
BEGIN
|
|
PROMPT 38 2 "Data di registrazione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE H_DATACOMP
|
|
BEGIN
|
|
PROMPT 38 3 "Data di competenza "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING H_DESCR 50 40
|
|
BEGIN
|
|
PROMPT 2 4 "Descrizione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 6 "Righe"
|
|
GROUP G_DEFMOV
|
|
END
|
|
|
|
SPREADSHEET F_RIGHE
|
|
BEGIN
|
|
PROMPT 0 7 "RIGHE DI MOVIMENTO"
|
|
FLAGS "AI"
|
|
//USE LF_RMOVMAG KEY NRIG
|
|
//INPUT NUMREG F_NUMREG
|
|
ITEM "@1F"
|
|
ITEM "CodArt"
|
|
ITEM "Descrizione"
|
|
ITEM "CodMag"
|
|
ITEM "CodDep"
|
|
ITEM "Liv1"
|
|
ITEM "Liv2"
|
|
ITEM "Liv3"
|
|
ITEM "Liv4"
|
|
ITEM "UM@4"
|
|
ITEM "Qta"
|
|
ITEM "Prezzo"
|
|
ITEM "Causale"
|
|
ITEM "Giacenza"
|
|
ITEM "Impianto"
|
|
ITEM "Linea"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
#include "mg1100a.uml"
|