406 lines
7.2 KiB
Plaintext
Executable File
406 lines
7.2 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
|
|
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
|
|
DISPLAY "N.reg." NUMREG
|
|
DISPLAY "Anno" ANNOES
|
|
DISPLAY "Data reg." DATAREG
|
|
DISPLAY "Data comp." DATACOMP
|
|
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_DATAREG
|
|
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
|
|
|
|
LISTBOX F_NUMPROVV 1 20
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "HG"
|
|
ITEM "D|Definitiva"
|
|
END
|
|
|
|
STRING F_CODNUM 4
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 6 "Documento: numero "
|
|
FIELD CODNUM
|
|
END
|
|
|
|
STRING F_NUMDOC 7
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 28 6 "/ "
|
|
FIELD NUMDOC
|
|
USE LF_DOC
|
|
INPUT PROVV F_NUMPROVV SELECT
|
|
INPUT ANNO F_ANNOES
|
|
INPUT CODNUM F_CODNUM
|
|
INPUT NDOC F_NUMDOC
|
|
DISPLAY "Num" CODNUM
|
|
DISPLAY "Doc" NDOC
|
|
DISPLAY "Tipo" TIPODOC
|
|
DISPLAY "Anno" ANNO
|
|
OUPUT F_CODNUM CODNUM
|
|
OUPUT F_NUMDOC NDOC
|
|
OUPUT F_ANNODOC ANNO
|
|
// OUPUT F_TIPOCF TIPOCF
|
|
// OUPUT F_CODCF CODCF
|
|
OUPUT F_CODCAUS CAUSMAG1
|
|
CHECKTYPE NORMAL
|
|
|
|
MESSAGE "S",F_RIFADOC
|
|
MESSAGE EMPTY "N",F_RIFADOC
|
|
END
|
|
|
|
NUMBER F_ANNODOC 4
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 40 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
|
|
END
|
|
|
|
|
|
STRING F_CODCAUS 6
|
|
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
|
|
|
|
|
|
LISTBOX F_TIPOCONDV 1 12
|
|
BEGIN
|
|
FIELD TIPOCV
|
|
PROMPT 2 10 "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|CLEAR,F_TIPOCF
|
|
ITEM "L|Listino"
|
|
MESSAGE ENABLE,F_CATVEN
|
|
MESSAGE SHOW,F_CODLIST|HIDE,F_CODCONTR|HIDE,F_CODOFF
|
|
MESSAGE RESET,F_CODCONTR|RESET,F_CODOFF|CLEAR,F_TIPOCF
|
|
ITEM "C|Contratto"
|
|
MESSAGE CLEAR,F_CATVEN
|
|
MESSAGE HIDE,F_CODLIST|SHOW,F_CODCONTR|HIDE,F_CODOFF
|
|
MESSAGE RESET,F_CODLIST|RESET,F_CODOFF|ENABLE,F_TIPOCF
|
|
ITEM "O|Offerta"
|
|
MESSAGE CLEAR,F_CATVEN
|
|
MESSAGE HIDE,F_CODLIST|HIDE,F_CODCONTR|SHOW,F_CODOFF
|
|
MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR|CLEAR,F_TIPOCF
|
|
|
|
// GROUP G_DEFMOV
|
|
END
|
|
|
|
LISTBOX F_TIPOCF 20
|
|
BEGIN
|
|
PROMPT 42 10 "relativo a "
|
|
FLAGS "G"
|
|
FIELD TIPOCF
|
|
ITEM " |"
|
|
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
|
|
|
|
|
|
// agisce anche quando l'utente non entra in gioco (settaggio da contratto...)
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
// FLAGS "UHG"
|
|
FIELD CODCF
|
|
PROMPT 19 12 ""
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_TIPOCF
|
|
INPUT CODCF F_CODCF
|
|
DISPLAY "Codice " CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_CODCF CODCF
|
|
// OUTPUT F_CODCLI CODCF
|
|
// OUTPUT F_CODFOR CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
TEXT F_CODCLI
|
|
BEGIN
|
|
PROMPT 2 12 "Codice cliente "
|
|
END
|
|
|
|
TEXT F_CODFOR
|
|
BEGIN
|
|
PROMPT 2 12 "Codice fornitore "
|
|
END
|
|
|
|
// esegue i controlli e ricopia i valori del codice sia in CLI che in FOR
|
|
STRING F_RAGSOC 50 40
|
|
BEGIN
|
|
PROMPT 30 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
|
|
|
|
STRING F_CATVEN 2
|
|
BEGIN
|
|
FLAGS "DU"
|
|
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
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_CODLIST 3
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 20 13 "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 20 13 "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 20 13 "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 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 "Descrizione"
|
|
ITEM "CodMag"
|
|
ITEM "CodDep"
|
|
ITEM "Liv1"
|
|
ITEM "Liv2"
|
|
ITEM "Liv3"
|
|
ITEM "Liv4"
|
|
ITEM "UM@4"
|
|
ITEM "Qta"
|
|
ITEM "Prezzo"
|
|
ITEM "Causale"
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
#include "mg1100a.uml"
|