c434cad322
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 3.1 patch 650 git-svn-id: svn://10.65.10.50/trunk@14148 c028cbd2-c16b-5b4b-a496-9718f37d4682
471 lines
7.2 KiB
Plaintext
Executable File
471 lines
7.2 KiB
Plaintext
Executable File
#include "mr2100a.h"
|
|
#include "mr2url.h"
|
|
PAGE "Risalita su MRP" -1 -1 80 20
|
|
|
|
STRING F_ARTICOLO 20
|
|
BEGIN
|
|
PROMPT 1 0 "Articolo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DESCART 70 36
|
|
BEGIN
|
|
PROMPT 36 0 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_LIV1 10
|
|
BEGIN
|
|
PROMPT 1 1 "Giacenza "
|
|
USE GCG
|
|
INPUT CODTAB[1,1] "1"
|
|
INPUT CODTAB[2,20] F_LIV1
|
|
OUTPUT F_LIV1 CODTAB[2,20]
|
|
DISPLAY "Codice" CODTAB[2,20]
|
|
DISPLAY "Descrizione@50" S0
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR, F_LIV2
|
|
MESSAGE ENABLE, F_LIV2
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_LIV2 10
|
|
BEGIN
|
|
PROMPT 27 1 "Giacenza "
|
|
COPY USE F_LIV1
|
|
COPY DISPLAY F_LIV1
|
|
INPUT CODTAB[1,1] "2"
|
|
INPUT CODTAB[2,20] F_LIV2
|
|
OUTPUT F_LIV2 CODTAB[2,20]
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR, F_LIV3
|
|
MESSAGE ENABLE, F_LIV3
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_LIV3 10
|
|
BEGIN
|
|
PROMPT 1 2 "Giacenza "
|
|
COPY USE F_LIV1
|
|
COPY DISPLAY F_LIV1
|
|
INPUT CODTAB[1,1] "3"
|
|
INPUT CODTAB[2,20] F_LIV3
|
|
OUTPUT F_LIV3 CODTAB[2,20]
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR, F_LIV4
|
|
MESSAGE ENABLE, F_LIV4
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_LIV4 10
|
|
BEGIN
|
|
PROMPT 27 2 "Giacenza "
|
|
COPY USE F_LIV1
|
|
COPY DISPLAY F_LIV1
|
|
INPUT CODTAB[1,1] "4"
|
|
INPUT CODTAB[2,20] F_LIV4
|
|
OUTPUT F_LIV4 CODTAB[2,20]
|
|
CHECKTYPE NORMAL
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
DATE F_FABB_DADATA
|
|
BEGIN
|
|
PROMPT 1 3 "Dal "
|
|
PICTURE ".5"
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_FABB_ADATA
|
|
BEGIN
|
|
PROMPT 28 3 "al "
|
|
PICTURE ".5"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_UM 2
|
|
BEGIN
|
|
PROMPT 53 3 "Unita' di misura "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_TOPLAN 18 5
|
|
BEGIN
|
|
PROMPT 1 4 "Da pianificare "
|
|
PICTURE ".5"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_FABB_NETTO 18 5
|
|
BEGIN
|
|
PROMPT 1 5 "Fabbis. netto "
|
|
PICTURE ".5"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_FABB_LORDO 18 5
|
|
BEGIN
|
|
PROMPT 1 6 "Fabbis. lordo "
|
|
PICTURE ".5"
|
|
FLAGS "D"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
|
|
NUMBER F_FABB_PIAN 18 5
|
|
BEGIN
|
|
PROMPT 41 5 " pianificato "
|
|
PICTURE ".5"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_FABB_SCHED 18 5
|
|
BEGIN
|
|
PROMPT 41 6 " confermato "
|
|
PICTURE ".5"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_FABB_GIAC 18 5
|
|
BEGIN
|
|
PROMPT 35 4 " giacenza iniziale "
|
|
PICTURE ".5"
|
|
FLAGS "D"
|
|
END
|
|
|
|
SPREADSHEET F_ORDINI 79 11
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 0 7 ""
|
|
ITEM "Fabbisogno@F18"
|
|
ITEM "UM"
|
|
ITEM "Documento@10"
|
|
ITEM "Consegna@10"
|
|
ITEM "Cli/For"
|
|
ITEM "Codice Articolo@20"
|
|
ITEM "Liv.1@10"
|
|
ITEM "Liv.2@10"
|
|
ITEM "Liv.3@10"
|
|
ITEM "Liv.4@10"
|
|
ITEM "Mag@3"
|
|
ITEM "Dep@2"
|
|
ITEM "Imp.@5"
|
|
ITEM "Linea@5"
|
|
ITEM "Quantita'@18"
|
|
ITEM "UM."
|
|
ITEM "Prezzo@18"
|
|
ITEM "Descrizione@50"
|
|
ITEM "Anno"
|
|
ITEM "Cod.Num."
|
|
ITEM "Num.Doc."
|
|
ITEM "Num.Riga."
|
|
ITEM "Da Anno"
|
|
ITEM "Da Cod.Num."
|
|
ITEM "Da Num.Doc."
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -11 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Righe ordini" -1 -1 70 16
|
|
|
|
NUMBER F_FABBISOGNO 18 5
|
|
BEGIN
|
|
PROMPT 1 0 "Fabbisogno "
|
|
PICTURE ".5"
|
|
END
|
|
|
|
STRING F_UMFABB 2
|
|
BEGIN
|
|
FLAGS ""
|
|
PROMPT 1 30 ""
|
|
END
|
|
|
|
STRING F_DOCANNODOC 4
|
|
BEGIN
|
|
PROMPT 1 2 "Anno "
|
|
END
|
|
|
|
STRING F_DOCCODNUM 4
|
|
BEGIN
|
|
PROMPT 19 2 "Documento "
|
|
END
|
|
|
|
NUMBER F_DOCNUM 9
|
|
BEGIN
|
|
PROMPT 35 2 "N. "
|
|
END
|
|
|
|
NUMBER F_DOCNRIGA 4
|
|
BEGIN
|
|
PROMPT 50 2 "Riga "
|
|
END
|
|
|
|
DATE F_DATADOC
|
|
BEGIN
|
|
PROMPT 1 3 "Data doc. "
|
|
CHECKTYPE REQUIRED
|
|
FIELD DATADOC
|
|
END
|
|
|
|
DATE F_DATACONS
|
|
BEGIN
|
|
PROMPT 39 3 "Data consegna "
|
|
CHECKTYPE REQUIRED
|
|
VALIDATE DATE_CMP_FUNC >= F_DATADOC
|
|
FIELD DATACONS
|
|
WARNING "Data di consegna inferiore a quella del documento"
|
|
END
|
|
|
|
NUMBER F_FORNITORE 6
|
|
BEGIN
|
|
PROMPT 1 4 "Fornitore "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF F_FORNITORE
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Descrizione@50" RAGSOC
|
|
OUTPUT F_FORNITORE CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
FIELD CODCF
|
|
CHECKTYPE NORMAL
|
|
GROUP 2
|
|
END
|
|
|
|
STRING F_RAGSOC 50 37
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 24 4 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Descrizione@50" RAGSOC
|
|
DISPLAY "Codice@16" CODCF
|
|
COPY OUTPUT F_FORNITORE
|
|
CHECKTYPE NORMAL
|
|
GROUP 2
|
|
END
|
|
|
|
STRING F_ARTICOLO 20
|
|
BEGIN
|
|
PROMPT 1 5 "Articolo "
|
|
END
|
|
|
|
STRING F_DESCART 50
|
|
BEGIN
|
|
PROMPT 1 6 "Descrizione "
|
|
END
|
|
|
|
STRING F_LIV1 10
|
|
BEGIN
|
|
PROMPT 1 7 "Giacenza "
|
|
USE GCG
|
|
INPUT CODTAB[1,1] "1"
|
|
INPUT CODTAB[2,20] F_LIV1
|
|
OUTPUT F_LIV1 CODTAB[2,20]
|
|
DISPLAY "Codice" CODTAB[2,20]
|
|
DISPLAY "Descrizione@50" S0
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR, F_LIV2
|
|
MESSAGE ENABLE, F_LIV2
|
|
END
|
|
|
|
STRING F_LIV2 10
|
|
BEGIN
|
|
PROMPT 27 7 "Giacenza "
|
|
COPY USE F_LIV1
|
|
COPY DISPLAY F_LIV1
|
|
INPUT CODTAB[1,1] "2"
|
|
INPUT CODTAB[2,20] F_LIV2
|
|
OUTPUT F_LIV2 CODTAB[2,20]
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR, F_LIV3
|
|
MESSAGE ENABLE, F_LIV3
|
|
END
|
|
|
|
STRING F_LIV3 10
|
|
BEGIN
|
|
PROMPT 1 8 "Giacenza "
|
|
COPY USE F_LIV1
|
|
COPY DISPLAY F_LIV1
|
|
INPUT CODTAB[1,1] "3"
|
|
INPUT CODTAB[2,20] F_LIV3
|
|
OUTPUT F_LIV3 CODTAB[2,20]
|
|
CHECKTYPE NORMAL
|
|
MESSAGE EMPTY CLEAR, F_LIV4
|
|
MESSAGE ENABLE, F_LIV4
|
|
END
|
|
|
|
STRING F_LIV4 10
|
|
BEGIN
|
|
PROMPT 27 8 "Giacenza "
|
|
COPY USE F_LIV1
|
|
COPY DISPLAY F_LIV1
|
|
INPUT CODTAB[1,1] "4"
|
|
INPUT CODTAB[2,20] F_LIV4
|
|
OUTPUT F_LIV4 CODTAB[2,20]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_MAGAZZINO 3
|
|
BEGIN
|
|
PROMPT 1 9 "Magazzino "
|
|
FLAGS "U"
|
|
USE MAG
|
|
INPUT CODTAB[1,3] F_MAGAZZINO
|
|
INPUT CODTAB[4,5] F_DEPOSITO
|
|
DISPLAY "Magazzino" CODTAB[1,3]
|
|
DISPLAY "Deposito" CODTAB[4,5]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_MAGAZZINO CODTAB[1,3]
|
|
OUTPUT F_DEPOSITO CODTAB[4,5]
|
|
OUTPUT F_DESCMAG S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DEPOSITO 2
|
|
BEGIN
|
|
PROMPT 19 9 ""
|
|
FLAGS "U"
|
|
COPY ALL F_MAGAZZINO
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESCMAG 50 37
|
|
BEGIN
|
|
PROMPT 24 9 ""
|
|
FLAGS "D"
|
|
USE MAG KEY 2
|
|
INPUT S0 F_DESCMAG
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Magazzino" CODTAB[1,3]
|
|
DISPLAY "Deposito" CODTAB[4,5]
|
|
COPY OUTPUT F_MAGAZZINO
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING H_CODIMP 5
|
|
BEGIN
|
|
PROMPT 1 10 "Impianto "
|
|
FLAGS "UGH"
|
|
MESSAGE EMPTY COPY,H_CODIMP
|
|
MESSAGE COPY,F_CODIMP|CHECK,F_CODIMP
|
|
END
|
|
|
|
STRING F_CODIMP 5
|
|
BEGIN
|
|
PROMPT 1 10 "Impianto "
|
|
FLAGS "UZ"
|
|
USE IMP
|
|
INPUT CODTAB F_CODIMP
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODIMP CODTAB
|
|
OUTPUT F_DESCIMP S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESCIMP 50 37
|
|
BEGIN
|
|
PROMPT 24 10 ""
|
|
FLAGS "UD"
|
|
USE IMP KEY 2
|
|
INPUT S0 F_DESCIMP
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@16" CODTAB
|
|
COPY OUTPUT F_CODIMP
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODLIN 5
|
|
BEGIN
|
|
PROMPT 1 11 "Linea "
|
|
FLAGS "UZ"
|
|
USE LNP
|
|
INPUT CODTAB F_CODLIN
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODLIN CODTAB
|
|
OUTPUT F_DESCLIN S0
|
|
OUTPUT H_CODIMP S6
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESCLIN 50 37
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 24 11 ""
|
|
USE LNP KEY 2
|
|
INPUT S0 F_DESCLIN
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@16" CODTAB
|
|
COPY OUTPUT F_CODLIN
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_QUANTITA 18 5
|
|
BEGIN
|
|
PROMPT 1 12 "Quantita' "
|
|
PICTURE ".5"
|
|
FLAGS ""
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_UM 2
|
|
BEGIN
|
|
PROMPT 36 12 "Unita' di misura "
|
|
END
|
|
|
|
CURRENCY F_PREZZO 18
|
|
BEGIN
|
|
PROMPT 1 13 "Prezzo "
|
|
FLAGS "U"
|
|
END
|
|
|
|
BOOL F_OK
|
|
BEGIN
|
|
PROMPT 44 11 "OK"
|
|
FLAGS "H"
|
|
END
|
|
|
|
STRING F_DAANNO 4
|
|
BEGIN
|
|
PROMPT 1 14 "Da Anno "
|
|
END
|
|
|
|
STRING F_DACODNUM 4
|
|
BEGIN
|
|
PROMPT 19 14 "Documento "
|
|
END
|
|
|
|
NUMBER F_DANUMDOC 9
|
|
BEGIN
|
|
PROMPT 35 14 "N. "
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON F_RISALITA 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 "Risalita"
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|