root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/mr/mr2200a.uml
alex 2afc3025a0 Patch level : xx.282 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Riportata la versione 01.05 patch 282


git-svn-id: svn://10.65.10.50/trunk@8080 c028cbd2-c16b-5b4b-a496-9718f37d4682
1999-04-22 15:31:16 +00:00

1789 lines
26 KiB
Plaintext
Executable File
Raw Blame History

#include "mr2200a.h"
#include "mr2url.h"
#define G_MASTERSCHEDULE 6
#define G_FIRSTFIT 10
#define G_INFINITE 20
#define G_FINITE 30
#define G_QTA 40
#define G_VALORI 41
TOOLBAR "" 0 19 -1 -1
STRING DLG_PROFILE 50
BEGIN
PROMPT 1 0 "Profilo "
PSELECT
END
BUTTON DLG_ELABORA 10 2
BEGIN
PROMPT -15 -1 "~Elabora"
PICTURE BMP_ELABORA
END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -25 -1 "~Registra"
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
FLAGS "D"
END
BUTTON DLG_EDIT 10 2
BEGIN
PROMPT -35 -1 "~Modifica"
MESSAGE RUN,ve0,-1
PICTURE BMP_EDIT
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -45 -1 "~Annulla"
PICTURE BMP_CANCEL
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -55 -1 "~Fine"
PICTURE BMP_QUIT
PICTURE BMP_QUITDN
END
ENDPAGE
PAGE "Query" -1 -1 80 20
GROUPBOX DLG_NULL 78 6
BEGIN
PROMPT 1 3 "@bParametri dell'elaborazione"
END
DATE F_DADATA
BEGIN
PROMPT 2 5 "Dalla data "
CHECKTYPE REQUIRED
GROUP 1
END
DATE F_ADATA
BEGIN
PROMPT 45 5 "Alla data "
CHECKTYPE REQUIRED
VALIDATE DATE_CMP_FUNC > F_DADATA
WARNING "La data finale deve essere maggiore di quella iniziale"
GROUP 1
END
LIST F_BUCKETS 1 15
BEGIN
PROMPT 2 7 "Bucket temporale "
ITEM "1|1 Settimana"
MESSAGE DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
ITEM "2|2 Settimane"
MESSAGE DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
ITEM "4|1 Mese"
MESSAGE DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
ITEM "8|2 Mese"
MESSAGE DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
ITEM "13|3 Mesi"
MESSAGE DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
ITEM "17|4 Mesi"
MESSAGE DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
ITEM "26|6 Mesi"
MESSAGE DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
ITEM "52|1 Anno"
MESSAGE DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
ITEM " |Settimane"
MESSAGE ENABLE,F_BUCKET|"7",F_DAYXBUCK
ITEM "0|1 Giorno"
MESSAGE DISABLE,F_BUCKET|"1",F_BUCKET|"1",F_DAYXBUCK
GROUP 1
END
LIST F_DAYXBUCK 1 9
BEGIN
PROMPT 45 7 ""
FLAGS "D"
ITEM "7|Settimane"
ITEM "1|Giorni "
END
NUMBER F_BUCKET 2
BEGIN
PROMPT 58 7 ""
FLAGS "U"
CHECKTYPE REQUIRED
GROUP 1
END
TEXT DLG_NULL
BEGIN
PROMPT 12 10 "@bInput"
END
BOOLEAN F_NOCLI_IN
BEGIN
PROMPT 2 11 "Non suddividere per cliente"
GROUP 1
MESSAGE TRUE ENABLE, F_NOCLI_OUT
MESSAGE FALSE CLEAR, F_NOCLI_OUT
END
BOOLEAN F_NOMAG_IN
BEGIN
PROMPT 2 12 "Non suddividere per magazzini"
GROUP 1
END
BOOLEAN F_NOIMP_IN
BEGIN
PROMPT 2 13 "Non suddividere per impianti"
GROUP 1
END
BOOLEAN F_NOLIN_IN
BEGIN
PROMPT 2 14 "Non suddividere per linee"
GROUP 1
END
TEXT DLG_NULL
BEGIN
PROMPT 52 10 "@bOutput"
END
BOOLEAN F_NOCLI_OUT
BEGIN
PROMPT 38 11 "Non suddividere per cliente"
GROUP 1
END
ENDPAGE
PAGE "Elaborazione" -1 -1 80 19
BOOL F_MSCHEDULEPLAN
BEGIN
PROMPT 1 1 "Crea il Master Schedule Plan"
MESSAGE TRUE "M",G_MASTERSCHEDULE@
MESSAGE FALSE "O",G_MASTERSCHEDULE@
GROUP 1
END
BOOL F_2LEVEL_MSP
BEGIN
PROMPT 40 1 "2 level Master Scheduling"
GROUP 1
END
LIST DLG_NULL 20
BEGIN
PROMPT 2 2 "@b"
ITEM "M|Ordini da clienti"
MESSAGE "C",F_TIPOCF|HIDE,F_TIPOCF
ITEM "O|Ordini in input"
MESSAGE SHOW,F_TIPOCF
GROUP G_MASTERSCHEDULE
FLAGS "DG"
END
LIST F_TIPOCF 9
BEGIN
PROMPT 28 2 "di tipo "
ITEM "C|cliente"
ITEM "F|fornitore"
END
SPREADSHEET F_NUM_ORC 18 5
BEGIN
PROMPT 1 3 ""
ITEM "Numerazione"
GROUP 1
END
SPREADSHEET F_TIPI_ORC 56 5
BEGIN
PROMPT 20 3 ""
ITEM "Tipo@4"
ITEM "Descrizione@30"
ITEM "Da stato"
ITEM "A stato"
GROUP 1
END
LIST DLG_NULL 20
BEGIN
PROMPT 2 9 "@b"
ITEM "M|Ordini di produzione"
ITEM "O|Ordini di output"
GROUP G_MASTERSCHEDULE
FLAGS "D"
END
SPREADSHEET F_NUM_PLA 18 5
BEGIN
PROMPT 1 10 ""
ITEM "Numerazione"
GROUP 1
END
SPREADSHEET F_TIPI_PLA 56 5
BEGIN
PROMPT 20 10 ""
ITEM "Tipo@4"
ITEM "Descrizione@30"
ITEM "Da stato"
ITEM "A stato"
GROUP 1
END
LIST DLG_NULL 20
BEGIN
PROMPT 2 16 "@b"
ITEM "M|Schedule Plan"
ITEM "O|Ordini generati"
GROUP G_MASTERSCHEDULE
FLAGS "D"
END
STRING F_NUM_PLAN 4
BEGIN
PROMPT 27 16 "Numerazione "
FLAGS "U"
USE %NUM
INPUT CODTAB F_NUM_PLAN
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_NUM_PLAN CODTAB
CHECKTYPE REQUIRED
GROUP 1
ADD NONE
END
STRING F_TIPO_PLAN 4
BEGIN
PROMPT 50 16 "Tipo "
FLAGS "U"
USE %TIP
INPUT CODTAB F_TIPO_PLAN
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TIPO_PLAN CODTAB
CHECKTYPE REQUIRED
GROUP 1
ADD NONE
END
STRING F_RIGA_PLAN 4
BEGIN
PROMPT 66 16 "Riga "
FLAGS "U"
USE %TRI SELECT S7=="M"
INPUT CODTAB F_RIGA_PLAN
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_RIGA_PLAN CODTAB
CHECKTYPE REQUIRED
GROUP 1
ADD NONE
END
LIST F_TIPOCV 10
BEGIN
GROUP 1
PROMPT 2 18 "Preleva i prezzi da "
ITEM "|Anagrafica"
MESSAGE HIDE,F_CODCONDV|HIDE,F_CATVEN_CV|CHECK,F_CODCONDV
ITEM "L|Listino"
MESSAGE SHOW,F_CODCONDV|SHOW,F_CATVEN_CV|CHECK,F_CODCONDV
ITEM "C|Contratto"
MESSAGE SHOW,F_CODCONDV|HIDE,F_CATVEN_CV|CHECK,F_CODCONDV
ITEM "O|Offerta"
MESSAGE SHOW,F_CODCONDV|HIDE,F_CATVEN_CV|CHECK,F_CODCONDV
END
STRING F_CODCONDV 3
BEGIN
PROMPT 36 18 ""
USE LF_CONDV
INPUT TIPO F_TIPOCV
INPUT CATVEN F_CATVEN_CV
INPUT COD F_CODCONDV
INPUT TIPOCF F_TIPOCF
DISPLAY "" TIPO
DISPLAY "Cat.ven." CATVEN
DISPLAY "" TIPOCF
DISPLAY "Cli/for@10" CODCF
DISPLAY "Codice" COD
DISPLAY "Descrizione@30" DESCR
OUTPUT F_TIPOCV TIPO
OUTPUT F_CATVEN_CV CATVEN
OUTPUT F_CODCONDV COD
END
STRING F_CATVEN_CV 2
BEGIN
PROMPT 43 18 "Categoria di vendita "
USE CVE
INPUT CODTAB F_CATVEN_CV
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_CATVEN_CV CODTAB
CHECKTYPE REQUIRED
END
ENDPAGE
PAGE "M.S.P." -1 -1 78 20
GROUPBOX DLG_NULL 39 6
BEGIN
PROMPT 1 0 ""
END
BOOL F_SHOWPRICES
BEGIN
PROMPT 2 1 "Mostra prezzi"
END
LIST F_MSP_SORT 23
BEGIN
PROMPT 2 2 "Ordina per "
ITEM " | "
ITEM "1|Cliente+Articolo+Linea"
ITEM "2|Cliente+Linea+Articolo"
ITEM "3|Articolo+Linea+Cliente"
ITEM "4|Articolo+Cliente+Linea"
ITEM "5|Linea+Articolo+Cliente"
ITEM "6|Linea+Cliente+Articolo"
END
BOOL F_MSP_SORT_ORDER
BEGIN
PROMPT 2 3 "Ordine inverso"
MESSAGE TRUE PUSH, F_MSP_SORT
MESSAGE FALSE PUSH, F_MSP_SORT
END
BUTTON F_MSP_RESORT 10
BEGIN
PROMPT 25 3 "Riordina"
END
LIST DLG_NULL 20
BEGIN
FLAGS "D"
PROMPT 2 4 "@b"
ITEM "M|Master Schedule Plan"
ITEM "O|Ordini in Input"
GROUP G_MASTERSCHEDULE
FLAGS "D"
END
GROUPBOX DLG_NULL 39 6
BEGIN
PROMPT 40 0 ""
END
TEXT DLG_NULL
BEGIN
PROMPT 42 1 "Logica di proposta:"
END
LIST F_RECALC_TYPE2 34
BEGIN
FLAGS "D"
PROMPT 42 2 ""
ITEM "1|FirstFit "
ITEM "1_INF|FirstFit (capacita' infinite) "
ITEM "1_INFH|FirstFit (capacita' umane infin.) "
ITEM "JIT|JustInTime "
ITEM "JIT_INF|JustInTime (capacita' infinite)"
ITEM "JIT_INFH|JustInTime (capacita umane infin.)"
END
BUTTON F_CANCEL_MSP 9 2
BEGIN
PROMPT 42 3 "ANNULLA"
PICTURE BMP_CANCEL
END
BUTTON F_RECALC_MSP 9 2
BEGIN
PROMPT 54 3 "~Ricalcola"
PICTURE BMP_RECALC
END
BUTTON F_CHECK_MSP 9 2
BEGIN
PROMPT 66 3 "Controlla"
PICTURE USER_BMP_CHECK
PICTURE BMP_LENTE
END
SPREADSHEET F_ARTICOLI
BEGIN
PROMPT 0 5 ""
ITEM " @F3"
ITEM "Cliente@F6"
ITEM "Articolo@F20"
ITEM "Priorita'"
ITEM "Liv.1@10"
ITEM "Liv.2@10"
ITEM "Liv.3@10"
ITEM "Liv.4@10"
ITEM "Descrizione@50"
ITEM "Impianto"
ITEM "Linea"
ITEM "Mag@3"
ITEM "Dep@2"
ITEM "UM."
ITEM "Bucket0"
ITEM "Bucket0"
ITEM "Bucket1"
ITEM "Bucket1"
ITEM "Bucket2"
ITEM "Bucket2"
ITEM "Bucket3"
ITEM "Bucket3"
ITEM "Bucket4"
ITEM "Bucket4"
ITEM "Bucket5"
ITEM "Bucket5"
ITEM "Bucket6"
ITEM "Bucket6"
ITEM "Bucket7"
ITEM "Bucket7"
ITEM "Bucket8"
ITEM "Bucket8"
ITEM "Bucket9"
ITEM "Bucket9"
ITEM "Bucket10"
ITEM "Bucket10"
ITEM "Bucket11"
ITEM "Bucket11"
ITEM "Bucket12"
ITEM "Bucket12"
ITEM "Bucket13"
ITEM "Bucket13"
DEFAULT NONE
END
ENDPAGE
PAGE "Generazione" -1 -1 78 20
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 1 1 "@b Ricalcolo"
END
LIST F_RECALC_TYPE 35
BEGIN
PROMPT 2 2 "Logica propositiva "
ITEM "1|FirstFit "
MESSAGE ENABLE,G_FINITE@
MESSAGE COPY,F_RECALC_TYPE2
ITEM "1_INF|FirstFit (capacita' infinite) "
MESSAGE DISABLE,G_FINITE@
MESSAGE COPY,F_RECALC_TYPE2
ITEM "1_INFH|FirstFit (capacita' umane infinite)"
MESSAGE DISABLE,G_FINITE@
MESSAGE COPY,F_RECALC_TYPE2
ITEM "JIT|JustInTime "
MESSAGE ENABLE,G_FINITE@
MESSAGE COPY,F_RECALC_TYPE2
ITEM "JIT_INF|JustInTime (capacita' infinite)"
MESSAGE DISABLE,G_FINITE@
MESSAGE COPY,F_RECALC_TYPE2
ITEM "JIT_INFH|JustInTime (capacita umane infin.)"
MESSAGE DISABLE,G_FINITE@
MESSAGE COPY,F_RECALC_TYPE2
END
BOOL F_LOTSIZING
BEGIN
PROMPT 2 3 "Ridimensiona in base ai lotti"
END
BOOL F_OUTOFCAPACITY
BEGIN
FLAGS "D"
PROMPT 2 4 "Elimina gli out-of-capacity"
END
//BOOL F_HUMANCHECK_MSP
//BEGIN
// PROMPT 46 2 "Risorse umane limitate"
// GROUP G_FINITE
//END
NUMBER F_ANTICIPOMIN 3
BEGIN
PROMPT 2 5 "Anticipo minimo "
FLAGS "U"
END
NUMBER F_ANTICIPOMAX 3
BEGIN
PROMPT 2 6 "Anticipo massimo "
END
TEXT DLG_NULL
BEGIN
PROMPT 25 5 "giorni"
END
TEXT DLG_NULL
BEGIN
PROMPT 25 6 "giorni"
END
NUMBER F_MAXGIORNIGIAC 3
BEGIN
PROMPT 2 8 "Massima permanenza in giacenza "
END
TEXT DLG_NULL
BEGIN
PROMPT 39 8 "giorni"
END
BOOL F_USENONSTDLIN_MSP
BEGIN
PROMPT 2 9 "Abilita linee non standard"
END
BOOL F_USEEXTRAHRS_MSP
BEGIN
PROMPT 2 10 "Abilita turni straordinari"
END
GROUPBOX DLG_NULL 78 6
BEGIN
PROMPT 1 11 "@b Registrazione"
END
BOOLEAN F_NUMBERBYCLI
BEGIN
PROMPT 2 12 "Numera gli ordini per cliente"
GROUP 1
END
STRING F_DA_IMPIANTO 5
BEGIN
FLAGS "U"
PROMPT 2 13 "Dall'impianto "
USE IMP
INPUT CODTAB F_DA_IMPIANTO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_DA_IMPIANTO CODTAB
CHECKTYPE NORMAL
END
STRING F_A_IMPIANTO 5
BEGIN
FLAGS "U"
PROMPT 26 13 "all'impianto "
COPY USE F_DA_IMPIANTO
INPUT CODTAB F_A_IMPIANTO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_A_IMPIANTO CODTAB
CHECKTYPE NORMAL
END
STRING F_DA_MAGAZZ 3
BEGIN
FLAGS "U"
PROMPT 2 14 "Dal magazzino "
USE MAG SELECT CODTAB[4,5]=""
INPUT CODTAB F_DA_MAGAZZ
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_DA_MAGAZZ CODTAB
CHECKTYPE NORMAL
END
STRING F_A_MAGAZZ 3
BEGIN
FLAGS "U"
PROMPT 26 14 "al magazzino "
COPY USE F_DA_MAGAZZ
INPUT CODTAB F_A_MAGAZZ
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_A_MAGAZZ CODTAB
CHECKTYPE NORMAL
END
ENDPAGE
PAGE "C.R.P." -1 -1 78 20
GROUPBOX DLG_NULL 39 6
BEGIN
PROMPT 1 0 ""
END
BOOL F_SHOWPERC
BEGIN
PROMPT 2 1 "Mostra percentuali"
END
LIST F_CRP_SORT 23
BEGIN
FLAGS "D"
PROMPT 2 2 "Ordina per "
ITEM "ILA|Impianto+Linea+Articolo"
ITEM "AIL|Articolo+Impianto+Linea"
ITEM "IAL|Impianto+Articolo+Linea"
END
LIST F_LOADTYPE 20
BEGIN
PROMPT 2 4 ""
ITEM "M|Carico macchina"
ITEM "H|Carico uomo"
END
GROUPBOX DLG_NULL 39 6
BEGIN
PROMPT 40 0 ""
END
BOOL F_USENONSTDLIN_CRP
BEGIN
PROMPT 55 1 "Linee non standard"
END
BOOL F_USEEXTRAHRS_CRP
BEGIN
PROMPT 55 2 "Turni straordinari"
END
BUTTON F_RECALC_CRP 9 2
BEGIN
PROMPT 54 3 "~Ricalcola"
PICTURE BMP_RECALC
END
BUTTON F_CHECK_CRP 9 2
BEGIN
PROMPT 66 3 "Controlla"
PICTURE USER_BMP_CHECK
PICTURE BMP_LENTE
END
SPREADSHEET F_LINEE
BEGIN
FLAG "D"
PROMPT 0 5 ""
ITEM "Impianto@F6"
ITEM "Linea@F6"
ITEM "Articolo@20"
ITEM "UM"
ITEM "Bucket0"
ITEM "Bucket1"
ITEM "Bucket2"
ITEM "Bucket3"
ITEM "Bucket4"
ITEM "Bucket5"
ITEM "Bucket6"
ITEM "Bucket7"
ITEM "Bucket8"
ITEM "Bucket9"
ITEM "Bucket10"
ITEM "Bucket11"
ITEM "Bucket12"
ITEM "Bucket13"
DEFAULT NONE
END
ENDPAGE
PAGE "Calendario" -1 -1 78 20
NUMBER F_YEAR 4
BEGIN
PROMPT 1 1 "Anno "
FLAGS "A"
END
STRING F_LINEA 5
BEGIN
PROMPT 25 1 "Linea "
FLAGS "UZ"
USE LNP
INPUT CODTAB F_LINEA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_LINEA CODTAB
CHECKTYPE NORMAL
END
STRING F_IMPIANTO 5
BEGIN
PROMPT 50 1 "Impianto "
FLAGS "UZ"
USE IMP
INPUT CODTAB F_IMPIANTO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_IMPIANTO CODTAB
CHECKTYPE NORMAL
END
CALENDAR F_CALENDAR -3 -1
BEGIN
PROMPT 0 2 ""
END
ENDPAGE
ENDMASK
// SPREADSHEETS
PAGE "Numeraz. clienti" -1 -1 70 10
STRING F_NUMERAZ 4
BEGIN
PROMPT 1 1 "Numerazione "
FLAGS "U"
USE %NUM
INPUT CODTAB F_NUMERAZ
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_NUMERAZ CODTAB
OUTPUT F_DESCNUMERAZ S0
CHECKTYPE REQUIRED
ADD NONE
END
STRING F_DESCNUMERAZ 50
BEGIN
PROMPT 1 2 "Descrizione "
USE %NUM KEY 2
INPUT S0 F_DESCNUMERAZ
DISPLAY "Descrizione@70" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_NUMERAZ
CHECKTYPE REQUIRED
ADD NONE
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -33 -1 ""
END
ENDPAGE
ENDMASK
PAGE "Ordini clienti" -1 -1 70 10
STRING F_TIPO 4
BEGIN
PROMPT 1 2 "Tipo "
FLAGS "U"
USE %TIP
INPUT CODTAB F_TIPO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPO CODTAB
OUTPUT F_DESCTIPO S0
CHECKTYPE REQUIRED
ADD NONE
END
STRING F_DESCTIPO 50
BEGIN
PROMPT 26 2 ""
USE %TIP KEY 2
INPUT S0 F_DESCTIPO
DISPLAY "Descrizione@70" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPO
CHECKTYPE REQUIRED
ADD NONE
END
NUMBER F_DASTATO 1
BEGIN
PROMPT 1 3 "Da stato "
USE %STD
INPUT CODTAB F_DASTATO
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_DASTATO CODTAB
CHECKTYPE REQUIRED
ADD NONE
END
NUMBER F_ASTATO 1
BEGIN
PROMPT 16 3 "A stato "
COPY USE F_DASTATO
INPUT CODTAB F_ASTATO
COPY DISPLAY F_DASTATO
OUTPUT F_ASTATO CODTAB
CHECKTYPE REQUIRED
ADD NONE
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -33 -1 ""
END
ENDPAGE
ENDMASK
PAGE "Ordini planning" -1 -1 70 10
STRING F_NUMERAZ 4
BEGIN
PROMPT 1 1 "Numerazione "
FLAGS "U"
USE %NUM
INPUT CODTAB F_NUMERAZ
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_NUMERAZ CODTAB
OUTPUT F_DESCNUMERAZ S0
CHECKTYPE REQUIRED
ADD NONE
END
STRING F_DESCNUMERAZ 50
BEGIN
PROMPT 26 1 ""
USE %NUM KEY 2
INPUT S0 F_DESCNUMERAZ
DISPLAY "Descrizione@70" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_NUMERAZ
CHECKTYPE REQUIRED
ADD NONE
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -33 -1 ""
END
ENDPAGE
ENDMASK
PAGE "Ordini planning" -1 -1 70 10
STRING F_TIPO 4
BEGIN
PROMPT 1 2 "Tipo "
FLAGS "U"
USE %TIP
INPUT CODTAB F_TIPO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPO CODTAB
OUTPUT F_DESCTIPO S0
CHECKTYPE REQUIRED
ADD NONE
END
STRING F_DESCTIPO 50
BEGIN
PROMPT 26 2 ""
USE %TIP KEY 2
INPUT S0 F_DESCTIPO
DISPLAY "Descrizione@70" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPO
CHECKTYPE REQUIRED
ADD NONE
END
NUMBER F_DASTATO 1
BEGIN
PROMPT 1 3 "Da stato "
USE %STD
INPUT CODTAB F_DASTATO
DISPLAY "Stato" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_DASTATO CODTAB
CHECKTYPE REQUIRED
ADD NONE
END
NUMBER F_ASTATO 1
BEGIN
PROMPT 16 3 "A stato "
COPY USE F_DASTATO
INPUT CODTAB F_ASTATO
COPY DISPLAY F_DASTATO
OUTPUT F_ASTATO CODTAB
CHECKTYPE REQUIRED
ADD NONE
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -33 -1 ""
END
ENDPAGE
ENDMASK
PAGE "Articoli" -1 -1 80 18
LIST F_TIPOCF_SHEET 9
BEGIN
PROMPT 1 0 ""
FLAGS "DG"
ITEM "C|Cliente "
ITEM "F|Fornitore"
END
NUMBER F_CLIENTE 6
BEGIN
PROMPT 14 0 ""
USE LF_CLIFO
INPUT TIPOCF F_TIPOCF_SHEET SELECT
INPUT CODCF F_CLIENTE
DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@35" RAGSOC
OUTPUT F_CLIENTE CODCF
OUTPUT F_DESCCLI RAGSOC
CHECKTYPE NORMAL
FLAGS "U"
END
STRING F_DESCCLI 50 42
BEGIN
PROMPT 26 0 ""
FLAGS "D"
END
STRING F_ARTICOLO 20
BEGIN
PROMPT 1 1 "Articolo "
FLAGS "D"
END
NUMBER F_PRIORITA 4
BEGIN
PROMPT 55 1 "Priorita' "
FLAGS "U"
END
STRING F_DESCART 50
BEGIN
PROMPT 1 2 "Descrizione "
FLAGS "DG"
END
STRING F_LIV1 10
BEGIN
PROMPT 1 3 "Giacenza "
FLAGS "UD"
USE GCG
INPUT CODTAB[1,1] "1"
INPUT CODTAB[2,11] F_LIV1
DISPLAY "Gruppo@20" CODTAB[2,20]
DISPLAY "Descr.@30" S0
OUTPUT F_LIV1 CODTAB[2,12]
CHECKTYPE NORMAL
MESSAGE EMPTY CLEAR,F_LIV2|CHECK,F_LIV2
MESSAGE ENABLE,F_LIV2
END
STRING F_LIV2 10
BEGIN
PROMPT 27 3 "Giacenza "
FLAGS "UD"
USE GCG
INPUT CODTAB[1,1] "2"
INPUT CODTAB[2,11] F_LIV2
DISPLAY "Gruppo@20" CODTAB[2,20]
DISPLAY "Descr.@30" S0
OUTPUT F_LIV2 CODTAB[2,12]
CHECKTYPE NORMAL
MESSAGE EMPTY CLEAR,F_LIV3|CHECK,F_LIV3
MESSAGE ENABLE,F_LIV3
END
STRING F_LIV3 10
BEGIN
PROMPT 1 4 "Giacenza "
FLAGS "UD"
USE GCG
INPUT CODTAB[1,1] "3"
INPUT CODTAB[2,11] F_LIV3
DISPLAY "Gruppo@20" CODTAB[2,20]
DISPLAY "Descr.@30" S0
OUTPUT F_LIV3 CODTAB[2,12]
CHECKTYPE NORMAL
MESSAGE EMPTY CLEAR,F_LIV4|CHECK,F_LIV4
MESSAGE ENABLE,F_LIV4
END
STRING F_LIV4 10
BEGIN
PROMPT 27 4 "Giacenza "
FLAGS "UD"
USE GCG
INPUT CODTAB[1,1] "4"
INPUT CODTAB[2,11] F_LIV4
DISPLAY "Gruppo@20" CODTAB[2,20]
DISPLAY "Descr.@30" S0
OUTPUT F_LIV4 CODTAB[2,12]
CHECKTYPE NORMAL
END
STRING H_CODIMP 5
BEGIN
PROMPT 1 5 "Impianto "
FLAGS "UHG"
MESSAGE EMPTY COPY,H_CODIMP
MESSAGE COPY,F_CODIMP|CHECK,F_CODIMP
END
STRING F_CODIMP 5
BEGIN
PROMPT 1 5 "Impianto "
FLAGS "U"
USE IMP
INPUT CODTAB F_CODIMP
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODIMP CODTAB
OUTPUT F_DESCIMP S0
CHECKTYPE NORMAL
ADD NONE
END
STRING F_DESCIMP 50 37
BEGIN
PROMPT 25 5 ""
USE IMP KEY 2
INPUT S0 F_DESCIMP
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@16" CODTAB
COPY OUTPUT F_CODIMP
CHECKTYPE NORMAL
ADD NONE
END
STRING F_CODLIN 5
BEGIN
PROMPT 1 6 "Linea "
FLAGS "U"
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
ADD NONE
END
STRING F_DESCLIN 50 37
BEGIN
PROMPT 25 6 ""
USE LNP KEY 2
INPUT S0 F_DESCLIN
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@16" CODTAB
COPY OUTPUT F_CODLIN
CHECKTYPE NORMAL
ADD NONE
END
STRING F_MAGAZZINO 3
BEGIN
PROMPT 1 7 "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 7 ""
FLAGS "U"
COPY ALL F_MAGAZZINO
CHECKTYPE NORMAL
END
STRING F_DESCMAG 50 37
BEGIN
PROMPT 25 7 ""
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
/*
LIST DLG_NULL 10
BEGIN
PROMPT 2 8 ""
ITEM "Q|Quantita"
MESSAGE ENABLE,G_QTA@|DISABLE,G_VALORI@
ITEM "P|Prezzi"
MESSAGE DISABLE,G_QTA@|ENABLE,G_VALORI@
END
*/
STRING F_UM 2
BEGIN
PROMT 1 8 "Unita' di misura "
FLAGS "D"
END
NUMBER F_BUCKET0 17 2
BEGIN
PROMPT 40 8 "0 "
FLAGS "DU"
END
NUMBER F_BUCKET0_V 15 3
BEGIN
PROMPT 62 8 ""
FLAGS "DU"
END
NUMBER F_BUCKET1 17 2
BEGIN
PROMPT 1 9 "1 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET1_V 15 3
BEGIN
PROMPT 22 9 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET2 17 2
BEGIN
PROMPT 40 9 "2 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET2_V 15 3
BEGIN
PROMPT 62 9 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET3 17 2
BEGIN
PROMPT 1 10 "3 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET3_V 15 3
BEGIN
PROMPT 22 10 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET4 17 2
BEGIN
PROMPT 40 10 "4 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET4_V 15 3
BEGIN
PROMPT 62 10 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET5 17 2
BEGIN
PROMPT 1 11 "5 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET5_V 15 3
BEGIN
PROMPT 22 11 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET6 17 2
BEGIN
PROMPT 40 11 "6 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET6_V 15 3
BEGIN
PROMPT 62 11 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET7 17 2
BEGIN
PROMPT 1 12 "7 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET7_V 15 3
BEGIN
PROMPT 22 12 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET8 17 2
BEGIN
PROMPT 40 12 "8 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET8_V 15 3
BEGIN
PROMPT 62 12 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET9 17 2
BEGIN
PROMPT 1 13 "9 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET9_V 15 3
BEGIN
PROMPT 22 13 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET10 17 2
BEGIN
PROMPT 40 13 "10"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET10_V 15 3
BEGIN
PROMPT 62 13 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET11 17 2
BEGIN
PROMPT 1 14 "11"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET11_V 15 3
BEGIN
PROMPT 22 14 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET12 17 2
BEGIN
PROMPT 40 14 "12"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET12_V 15 3
BEGIN
PROMPT 62 14 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET13 17 2
BEGIN
PROMPT 1 15 "13"
FLAGS "DU"
END
NUMBER F_BUCKET13_V 15 3
BEGIN
PROMPT 22 15 ""
FLAGS "DU"
END
STRING F_MASTERCODE 1
BEGIN
PROMPT 42 15 "MasterCode"
FLAGS "H"
END
/*STRING F_NEWCODLIN 5
BEGIN
PROMPT 22 15 ""
FLAGS "H"
END
STRING F_NEWCODIMP 5
BEGIN
PROMPT 22 15 ""
FLAGS "H"
END*/
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON F_CHECKLINE 10 2
BEGIN
PROMPT -23 -1 ""
PICTURE USER_BMP_CHECK
PICTURE BMP_LENTE
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -33 -1 ""
END
ENDPAGE
ENDMASK
PAGE "Linee" -1 -1 64 14
NUMBER H_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "FRGD"
USE LF_NDITTE KEY 1
INPUT CODDITTA H_CODDITTA
OUTPUT H_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50 37
BEGIN
PROMPT 18 1 ""
FLAGS "D"
END
STRING F_CODIMPCRP 5
BEGIN
PROMPT 1 2 "Impianto "
FLAGS "U"
USE IMP
INPUT CODTAB F_CODIMPCRP
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODIMPCRP CODTAB
OUTPUT F_DESCIMPCRP S0
CHECKTYPE NORMAL
ADD NONE
END
STRING F_DESCIMPCRP 50 37
BEGIN
PROMPT 18 2 ""
FLAGS "D"
// USE IMP KEY 2
// INPUT S0 F_DESCIMPCRP
// DISPLAY "Descrizione@50" S0
// DISPLAY "Codice@16" CODTAB
// COPY OUTPUT F_CODIMPCRP
// CHECKTYPE NORMAL
// ADD NONE
END
STRING F_CODLINCRP 5
BEGIN
PROMPT 1 3 "Linea "
FLAGS "UZ"
USE LNP
INPUT CODTAB F_CODLINCRP
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODLINCRP CODTAB
OUTPUT F_DESCLINCRP S0
CHECKTYPE NORMAL
ADD NONE
END
STRING F_DESCLINCRP 50 37
BEGIN
PROMPT 18 3 ""
FLAGS "D"
// USE LNP KEY 2
// INPUT S0 F_DESCLINCRP
// DISPLAY "Codice" CODTAB
// DISPLAY "Descrizione@50" S0
// COPY OUTPUT F_CODLINCRP
// CHECKTYPE NORMAL
// ADD NONE
END
STRING F_CODARTCRP 20
BEGIN
PROMPT 1 4 ""
FLAGS ""
END
STRING F_DESCARTCRP 50
BEGIN
PROMPT 18 4 ""
FLAGS "D"
END
STRING F_LUM 3
BEGIN
PROMPT 1 5 "Unita' di misura "
FLAGS "DU"
END
NUMBER F_LBUCKET0 17 2
BEGIN
PROMPT 1 6 "0 "
FLAGS "DU"
END
NUMBER F_LBUCKET1 17 2
BEGIN
PROMPT 1 7 "1 "
FLAGS "U"
END
NUMBER F_LBUCKET2 17 2
BEGIN
PROMPT 22 7 "2 "
FLAGS "U"
END
NUMBER F_LBUCKET3 17 2
BEGIN
PROMPT 43 7 "3 "
FLAGS "U"
END
NUMBER F_LBUCKET4 17 2
BEGIN
PROMPT 1 8 "4 "
FLAGS "U"
END
NUMBER F_LBUCKET5 17 2
BEGIN
PROMPT 22 8 "5 "
FLAGS "U"
END
NUMBER F_LBUCKET6 17 2
BEGIN
PROMPT 43 8 "6 "
FLAGS "U"
END
NUMBER F_LBUCKET7 17 2
BEGIN
PROMPT 1 9 "7 "
FLAGS "U"
END
NUMBER F_LBUCKET8 17 2
BEGIN
PROMPT 22 9 "8 "
FLAGS "U"
END
NUMBER F_LBUCKET9 17 2
BEGIN
PROMPT 43 9 "9 "
FLAGS "U"
END
NUMBER F_LBUCKET10 17 2
BEGIN
PROMPT 1 10 "10"
FLAGS "U"
END
NUMBER F_LBUCKET11 17 2
BEGIN
PROMPT 22 10 "11"
FLAGS "U"
END
NUMBER F_LBUCKET12 17 2
BEGIN
PROMPT 43 10 "12"
FLAGS "U"
END
NUMBER F_LBUCKET13 17 2
BEGIN
PROMPT 1 11 "13"
FLAGS "DU"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK
PAGE "Teste" -1 -1 64 13
STRING F_CODIMPCRP 5
BEGIN
PROMPT 1 1 "Impianto "
FLAGS "U"
USE IMP
INPUT CODTAB F_CODIMPCRP
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODIMPCRP CODTAB
OUTPUT F_DESCIMPCRP S0
CHECKTYPE NORMAL
END
STRING F_DESCIMPCRP 50 37
BEGIN
PROMPT 24 1 ""
USE IMP KEY 2
INPUT S0 F_DESCIMPCRP
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@16" CODTAB
COPY OUTPUT F_CODIMPCRP
CHECKTYPE NORMAL
END
STRING F_CODLINCRP 5
BEGIN
PROMPT 1 2 "Linea "
FLAGS "UZ"
USE LNP
INPUT CODTAB F_CODLINCRP
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODLINCRP CODTAB
OUTPUT F_DESCLINCRP S0
CHECKTYPE NORMAL
END
STRING F_DESCLINCRP 50
BEGIN
PROMPT 25 2 ""
FLAGS "UZ"
USE LNP KEY 2
INPUT S0 F_DESCLINCRP
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
COPY OUTPUT F_CODLINCRP
CHECKTYPE NORMAL
END
STRING F_CODARTCRP 20
BEGIN
PROMPT 1 3 "Articolo "
FLAGS "U"
END
STRING F_DESCARTCRP 50
BEGIN
PROMPT 15 4 ""
END
STRING F_LUM 3
BEGIN
PROMPT 1 5 "Unita' di misura "
FLAGS "DU"
END
NUMBER F_LBUCKET0 17 2
BEGIN
PROMPT 1 6 "0 "
FLAGS "DU"
END
NUMBER F_LBUCKET1 17 2
BEGIN
PROMPT 1 7 "1 "
FLAGS "U"
END
NUMBER F_LBUCKET2 17 2
BEGIN
PROMPT 22 7 "2 "
FLAGS "U"
END
NUMBER F_LBUCKET3 17 2
BEGIN
PROMPT 43 7 "3 "
FLAGS "U"
END
NUMBER F_LBUCKET4 17 2
BEGIN
PROMPT 1 8 "4 "
FLAGS "U"
END
NUMBER F_LBUCKET5 17 2
BEGIN
PROMPT 22 8 "5 "
FLAGS "U"
END
NUMBER F_LBUCKET6 17 2
BEGIN
PROMPT 43 8 "6 "
FLAGS "U"
END
NUMBER F_LBUCKET7 17 2
BEGIN
PROMPT 1 9 "7 "
FLAGS "U"
END
NUMBER F_LBUCKET8 17 2
BEGIN
PROMPT 22 9 "8 "
FLAGS "U"
END
NUMBER F_LBUCKET9 17 2
BEGIN
PROMPT 43 9 "9 "
FLAGS "U"
END
NUMBER F_LBUCKET10 17 2
BEGIN
PROMPT 1 10 "10"
FLAGS "DU"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK
Reference in New Issue View Git Blame Copy Permalink