root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/mr/mr2200a.uml
alex 39b4c1f647 Patch level : 10.0 patch 767 
Files correlati     :  mr0.exe mr2.exe
Ricompilazione Demo : [ ]
Commento            :

rimappati in caratteri - in _ nei codici letti da terminale

risistemata chiusura produzione

Evidenziazione delle righe di vincolo speciale

Dalla versione 3.2


git-svn-id: svn://10.65.10.50/trunk@20592 c028cbd2-c16b-5b4b-a496-9718f37d4682
2010-06-21 14:05:55 +00:00

2569 lines
39 KiB
Plaintext
Executable File
Raw Blame History

#include "mr2200a.h"
#include "mr2url.h"
TOOLBAR "Toolbar" 0 0 0 2
BUTTON DLG_ELABORA 10 2
BEGIN
PROMPT -16 -1 "E~labora"
PICTURE TOOL_ELABORA
END
BUTTON F_CHECK 10 2
BEGIN
PROMPT -26 -1 "Controlla"
PICTURE TOOL_CHECK
GROUP G_POSTPROCESS
FLAGS "D"
END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -46 -1 "~Registra"
PICTURE TOOL_SAVEREC
FLAGS "D"
GROUP G_POSTPROCESS
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -56 -1 "~Annulla"
END
#include <printbar.h>
ENDPAGE
TOOLBAR "" 0 -2 0 2
STRING DLG_PROFILE 70 50
BEGIN
PROMPT 9 1 "Profilo "
PSELECT
GROUP G_PREPROCESS
END
ENDPAGE
PAGE "Query" 0 0 0 0
GROUPBOX DLG_NULL 78 6
BEGIN
PROMPT 1 3 "@bParametri dell'elaborazione"
END
DATE F_DADATA
BEGIN
PROMPT 2 4 "Dalla data "
GROUP G_PREPROCESS
END
DATE F_ADATA
BEGIN
PROMPT 37 4 "Alla data "
CHECKTYPE REQUIRED
VALIDATE DATE_CMP_FUNC > F_DADATA
WARNING "La data finale deve essere maggiore di quella iniziale"
GROUP G_PREPROCESS
END
LIST F_BUCKETS 1 15
BEGIN
PROMPT 2 5 "Intervallo "
ITEM "1|1 Settimana"
MESSAGE SHOW,G_BUCKET_WEEK@|HIDE,G_BUCKET_DEF@|COPY,F_BUCKET|"7",F_DAYXBUCK
ITEM "2|2 Settimane"
MESSAGE SHOW,G_BUCKET_WEEK@|HIDE,G_BUCKET_DEF@|COPY,F_BUCKET|"7",F_DAYXBUCK
ITEM "4|1 Mese"
MESSAGE SHOW,G_BUCKET_WEEK@|HIDE,G_BUCKET_DEF@|COPY,F_BUCKET|"7",F_DAYXBUCK
ITEM "8|2 Mesi"
MESSAGE SHOW,G_BUCKET_WEEK@|HIDE,G_BUCKET_DEF@|COPY,F_BUCKET|"7",F_DAYXBUCK
ITEM "13|3 Mesi"
MESSAGE SHOW,G_BUCKET_WEEK@|HIDE,G_BUCKET_DEF@|COPY,F_BUCKET|"7",F_DAYXBUCK
ITEM "17|4 Mesi"
MESSAGE SHOW,G_BUCKET_WEEK@|HIDE,G_BUCKET_DEF@|COPY,F_BUCKET|"7",F_DAYXBUCK
ITEM "26|6 Mesi"
MESSAGE SHOW,G_BUCKET_WEEK@|HIDE,G_BUCKET_DEF@|COPY,F_BUCKET|"7",F_DAYXBUCK
ITEM "52|1 Anno"
MESSAGE SHOW,G_BUCKET_WEEK@|HIDE,G_BUCKET_DEF@|COPY,F_BUCKET|"7",F_DAYXBUCK
ITEM " |Personalizzato "
MESSAGE SHOW,G_BUCKET_WEEK@|SHOW,G_BUCKET_DEF@|"7",F_DAYXBUCK
ITEM "G|1 Giorno"
MESSAGE HIDE,G_BUCKET_WEEK@|HIDE,G_BUCKET_DEF@|"1",F_BUCKET|"1",F_DAYXBUCK
ITEM "M|Mese solare"
MESSAGE HIDE,G_BUCKET_WEEK@|HIDE,G_BUCKET_DEF@|"31",F_BUCKET|"1",F_DAYXBUCK
GROUP G_PREPROCESS
END
NUMBER H_BUCKET 2
BEGIN
PROMPT 41 5 "= "
FLAGS "D"
GROUP G_BUCKET_WEEK
END
NUMBER F_BUCKET 2
BEGIN
PROMPT 41 5 "= "
FLAGS "GU"
CHECKTYPE REQUIRED
MESSAGE COPY,H_BUCKET
GROUP G_PREPROCESS G_BUCKET_DEF
END
LIST F_DAYXBUCK 1 9
BEGIN
PROMPT 48 5 ""
ITEM "1|giorni"
ITEM "7|settimane"
FLAGS "D"
GROUP G_BUCKET_WEEK
END
NUMBER F_LIM 2
BEGIN
PROMPT 2 6 "Gg.limite residui"
END
BOOL F_RESCHEDULING
BEGIN
PROMPT 2 9 "Permetti rescheduling"
GROUP G_PREPROCESS
MESSAGE TRUE SHOW,F_RESCHED_ALERT
MESSAGE FALSE HIDE,F_RESCHED_ALERT
END
LIST F_RESCHED_ALERT 16
BEGIN
PROMPT 30 9 "Segnalazioni "
ITEMS "1|in interattivo"
ITEMS "0|solo in stampa"
GROUP G_PREPROCESS
END
TEXT DLG_NULL
BEGIN
PROMPT 32 10 "@bInput"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 11 "Non suddividere per cliente"
GROUP G_SCRITTE_CLI
END
TEXT DLG_NULL
BEGIN
FLAG "H"
PROMPT 2 11 "Non suddividere per fornitore"
GROUP G_SCRITTE_FOR
END
TEXT DLG_NULL
BEGIN
PROMPT 2 12 "Non suddividere per magazzino"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 13 "Non suddividere per impianto"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 14 "Non suddividere per linea"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 16 "Considera i documenti dell'anno precedente"
END
BOOLEAN F_NOCLI_IN
BEGIN
PROMPT 34 11 ""
GROUP G_PREPROCESS
MESSAGE TRUE ENABLE, F_NOCLI_OUT
MESSAGE FALSE CLEAR, F_NOCLI_OUT
END
BOOLEAN F_NOMAG_IN
BEGIN
PROMPT 34 12 ""
GROUP G_PREPROCESS
END
BOOLEAN F_NOIMP_IN
BEGIN
PROMPT 34 13 ""
GROUP G_PREPROCESS
END
BOOLEAN F_NOLIN_IN
BEGIN
PROMPT 34 14 ""
GROUP G_PREPROCESS
END
TEXT DLG_NULL
BEGIN
PROMPT 42 10 "@bOutput"
END
BOOLEAN F_NOCLI_OUT
BEGIN
PROMPT 44 11 ""
GROUP G_PREPROCESS
END
BOOLEAN F_SINGLE_DOC
BEGIN
PROMPT 2 15 "Suddividi per vincolo (ordine)"
END
BOOLEAN F_DOC_YEAR_PREC
BEGIN
PROMPT 50 16 ""
END
STRING F_FRART 20
BEGIN
PROMPT 2 17 "Da articolo "
FLAG "U"
USE LF_ANAMAG
INPUT CODART F_FRART
DISPLAY "Codice@20" CODART
DISPLAY "Descrizione@50" DESCR
OUTPUT F_FRART CODART
CHECKTYPE NORMAL
END
STRING F_TOART 20
BEGIN
PROMPT 40 17 "A articolo "
FLAGS "U"
COPY USE F_FRART
INPUT CODART F_TOART
COPY DISPLAY F_FRART
OUTPUT F_TOART CODART
CHECKTYPE NORMAL
END
STRING F_FRGRM 3
BEGIN
PROMPT 2 18 "Da Gr. merc. "
FLAG "U"
USE GMC KEY 1 SELECT CODTAB[4,5]==""
INPUT CODTAB F_FRGRM
DISPLAY "Codice" CODTAB[1,3]
DISPLAY "Descrizione@50" S0
OUTPUT F_FRGRM CODTAB[1,3]
CHECKTYPE NORMAL
END
STRING F_FRSGM 2
BEGIN
PROMPT 30 18 ""
FLAG "U"
USE GMC
INPUT CODTAB[1,3] F_FRGRM
INPUT CODTAB[4,5] F_FRSGM
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_FRGRM CODTAB[1.3]
OUTPUT F_FRSGM CODTAB[4,5]
CHECKTYPE NORMAL
END
STRING F_TOGRM 3
BEGIN
PROMPT 42 18 "Da Gr. merc. "
FLAG "U"
COPY USE F_FRGRM
INPUT CODTAB F_TOGRM
COPY DISPLAY F_FRGRM
OUTPUT F_TOGRM CODTAB[1,3]
CHECKTYPE NORMAL
END
STRING F_TOSGM 2
BEGIN
PROMPT 70 18 ""
FLAG "U"
COPY USE F_FRSGM
INPUT CODTAB[1,3] F_TOGRM
INPUT CODTAB[4,5] F_TOSGM
COPY DISPLAY F_FRGRM
OUTPUT F_TOGRM CODTAB[1,3]
OUTPUT F_TOSGM CODTAB[4,5]
CHECKTYPE NORMAL
END
STRING F_IMP 5
BEGIN
PROMPT 2 19 "Impianto "
FLAG "UZ"
USE IMP
INPUT CODTAB F_IMP
DISPLAY "Codice@5" CODTAB
DISPLAY "Descrizione@60" S0
OUTPUT F_IMP CODTAB
CHECKTYPE NORMAL
END
ENDPAGE
PAGE "Elabora" -1 -1 80 19
BOOL F_MSCHEDULEPLAN
BEGIN
PROMPT 0 0 "Crea il Master Schedule Plan"
MESSAGE TRUE SHOW,G_MASTERSCHEDULE@|HIDE,G_NOMASTERSCHEDULE@|"C",F_TIPOCF|DISABLE,F_TIPOCF
MESSAGE FALSE SHOW,G_NOMASTERSCHEDULE@|HIDE,G_MASTERSCHEDULE@|ENABLE,F_TIPOCF
FLAGS "HG"
DEFAULT NONE
END
LIST F_LEADTIME 12
BEGIN
PROMPT 1 1 "Leadtime "
ITEM "O|sull'output"
ITEM "I|sull'input"
ITEM " |nessuno"
END
BOOL F_2LEVEL_MSP
BEGIN
PROMPT 31 1 "Pianificazione a due livelli"
MESSAGE TRUE SHOW,F_2LEVEL_PRIORITY
MESSAGE FALSE HIDE,F_2LEVEL_PRIORITY
GROUP G_PREPROCESS G_MASTERSCHEDULE
END
NUMBER F_2LEVEL_PRIORITY 4
BEGIN
PROMPT 64 1 "con priorita "
GROUP G_PREPROCESS G_MASTERSCHEDULE
END
LIST F_LASTWRKDAY 1 9
BEGIN
PROMPT 2 2 "Ordini al "
ITEM "2|Venerdi"
ITEM "1|Sabato"
ITEM "0|Domenica"
GROUP G_PREPROCESS
END
TEXT DLG_NULL
BEGIN
PROMPT 2 3 "@bOrdini da clienti"
GROUP G_MASTERSCHEDULE
END
TEXT DLG_NULL
BEGIN
PROMPT 2 3 "@bVincoli da soddisfare"
GROUP G_NOMASTERSCHEDULE
END
SPREADSHEET F_NUM_ORC 18 5
BEGIN
PROMPT 1 4 ""
ITEM "Numerazione"
GROUP G_PREPROCESS
END
SPREADSHEET F_TIPI_ORC 56 5
BEGIN
PROMPT 20 4 ""
ITEM "Tipo@4"
ITEM "Descrizione@30"
ITEM "Da stato"
ITEM "A stato"
GROUP G_PREPROCESS
END
TEXT DLG_NULL
BEGIN
PROMPT 2 10 "@bOrdini di produzione"
GROUP G_MASTERSCHEDULE
END
TEXT DLG_NULL
BEGIN
PROMPT 2 10 "@bOrdini da pianificare"
GROUP G_NOMASTERSCHEDULE
END
LIST F_TIPOCF 9
BEGIN
PROMPT 28 10 "di tipo "
ITEM "C|cliente"
MESSAGE SHOW,G_SCRITTE_CLI@|HIDE,G_SCRITTE_FOR@
ITEM "F|fornitore"
MESSAGE HIDE,G_SCRITTE_CLI@|SHOW,G_SCRITTE_FOR@
END
SPREADSHEET F_NUM_PLA 18 5
BEGIN
PROMPT 1 11 ""
ITEM "Numerazione"
GROUP G_PREPROCESS
END
SPREADSHEET F_TIPI_PLA 56 5
BEGIN
PROMPT 20 11 ""
ITEM "Tipo@4"
ITEM "Descrizione@30"
ITEM "Da stato"
ITEM "A stato"
ITEM "Stato def."
GROUP G_PREPROCESS
END
LIST F_TIPOCV 10
BEGIN
GROUP G_PREPROCESS
PROMPT 2 17 "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 17 ""
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 17 "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
BOOLEAN F_IGNORE_PREC
BEGIN
PROMPT 2 18 "Ignora le pianificazioni precedenti alla data iniziale"
END
ENDPAGE
PAGE "Genera" -1 -1 78 20
GROUPBOX DLG_NULL 78 8
BEGIN
PROMPT 1 0 "@b Ricalcolo"
END
LIST F_RECALC_TYPE 35
BEGIN
PROMPT 2 1 "Logica propositiva "
#ifndef _IS_ACQ
ITEM "1|FirstFit "
MESSAGE ENABLE,G_FINITE@
MESSAGE COPY,F_RECALC_TYPE2
#endif
ITEM "1_INF|FirstFit (capacita' infinite) "
MESSAGE DISABLE,G_FINITE@
MESSAGE COPY,F_RECALC_TYPE2
#ifndef _IS_ACQ
ITEM "1_INFH|FirstFit (capacita' umane infinite)"
MESSAGE ENABLE,G_FINITE@
MESSAGE COPY,F_RECALC_TYPE2
ITEM "JIT|JustInTime "
MESSAGE ENABLE,G_FINITE@
MESSAGE COPY,F_RECALC_TYPE2
#endif
ITEM "JIT_INF|JustInTime (capacita' infinite)"
MESSAGE DISABLE,G_FINITE@
MESSAGE COPY,F_RECALC_TYPE2
#ifndef _IS_ACQ
ITEM "JIT_INFH|JustInTime (capacita umane infin.)"
MESSAGE ENABLE,G_FINITE@
MESSAGE COPY,F_RECALC_TYPE2
ITEM "UNIL|Uniforme (con carico)"
MESSAGE DISABLE,G_FINITE@
MESSAGE COPY,F_RECALC_TYPE2
#endif
ITEM "UNI|Uniforme (senza carico)"
MESSAGE DISABLE,G_FINITE@
MESSAGE COPY,F_RECALC_TYPE2
END
BOOL F_FFBUCKET_MSP
BEGIN
PROMPT 60 1 "First Fit sui bucket"
END
STRING F_PRIORITY 60
BEGIN
PROMPT 2 2 "Priorita' "
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
NUMBER F_EXTRACAPACITY 2
BEGIN
PROMPT 42 3 "Capacita' macchina extra (%)"
GROUP G_FINITE
END
NUMBER F_EXTRAHCAPACITY 2
BEGIN
PROMPT 42 4 "Capacita' umana extra (%) "
GROUP G_FINITE
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
NUMBER F_ANTICIPOMIN2 3
BEGIN
PROMPT 42 5 "(articoli non Master) "
FLAGS "U"
END
NUMBER F_ANTICIPOMAX2 3
BEGIN
PROMPT 42 6 "(articoli non Master) "
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
LIST F_SOGLIAATT 20
BEGIN
PROMPT 2 9 "Giacenza minima pari a "
ITEM "S|zero"
ITEM "S|scorta minima"
ITEM "R|livello di riordino"
END
BOOL F_USENONSTDLIN_MSP
BEGIN
PROMPT 2 10 "Abilita linee non standard"
END
BOOL F_USEEXTRAHRS_MSP
BEGIN
PROMPT 42 10 "Abilita turni straordinari"
END
BOOL F_NOANTICIPI_MSP
BEGIN
PROMPT 2 11 "Non anticipare gli articoli con distinta"
END
LIST F_RIFERIMENTO_MSP 1 20
BEGIN
PROMPT 32 11 "Riferimento sulle righe "
ITEM "0|Documento originale"
ITEM "1|Documento padre"
END
GROUPBOX DLG_NULL 78
BEGIN
PROMPT 1 12 "@b Registrazione"
END
BOOLEAN F_NUMBERBYWEEK
BEGIN
PROMPT 2 13 "Numera gli ordini per settimana"
GROUP G_PREPROCESS
MESSAGE TRUE "X",F_DIVIDEBYDATE
END
BOOLEAN F_NUMBERBYCLI
BEGIN
PROMPT 40 13 "Numera gli ordini per cliente"
GROUP G_PREPROCESS
END
BOOLEAN F_DIVIDEBYART
BEGIN
PROMPT 2 14 "Suddividi gli ordini per articolo"
GROUP G_PREPROCESS
END
BOOLEAN F_DIVIDEBYDATE
BEGIN
PROMPT 40 14 "Suddividi gli ordini per scadenza"
GROUP G_PREPROCESS
END
SPREADSHEET F_SAVE_OPT 70 -1
BEGIN
PROMPT 2 15 ""
ITEM " "
ITEM "Num.@6"
ITEM "Tipo@6"
ITEM "Riga@6"
ITEM "Da Impianto"
ITEM "A Impianto"
ITEM "Da Linea"
ITEM "A Linea"
ITEM "Da Magazzino"
ITEM "A Magazzino"
GROUP G_PREPROCESS
END
ENDPAGE
#ifdef _IS_MSP
PAGE "M.S.P." -1 -1 78 20
#else
PAGE "Ordini" -1 -1 78 20
#endif
//GROUPBOX DLG_NULL 39 6
//BEGIN
// PROMPT 1 0 ""
//END
//GROUPBOX DLG_NULL 39 6
//BEGIN
// PROMPT 40 0 ""
//END
//TEXT DLG_NULL
//BEGIN
// PROMPT 2 1 "Logica di proposta:"
//END
LIST F_RECALC_TYPE2 19
BEGIN
FLAGS "D"
PROMPT 1 1 "Proposte "
ITEM "1|FirstFit "
ITEM "1_INF|FirstFit cap.inf. "
ITEM "1_INFH|FirstFit c.u.inf. "
ITEM "JIT|JustInTime "
ITEM "JIT_INF|JustInTime cap.inf."
ITEM "JIT_INFH|JustInTime c.u.inf."
ITEM "UNIL|Unif. con carico"
ITEM "UNI|Unif. senza carico"
END
BUTTON F_CANCEL_MSP 9 2
BEGIN
PROMPT 52 1 "Annulla"
PICTURE BMP_CANCEL
END
BUTTON F_RECALC_MSP 9 2
BEGIN
PROMPT 68 1 "Ric~alcola"
PICTURE BMP_RECALC
END
LIST F_MSP_SORT 23
BEGIN
PROMPT 1 3 "Ordinamento "
ITEM " | "
#ifdef _IS_ACQ
ITEM "1|*Fornit.+Articolo+Linea"
ITEM "2|*Fornit.+Linea+Articolo"
ITEM "3|*Articolo+Linea+Fornit."
ITEM "4|*Articolo+Fornit.+Linea"
ITEM "5|*Linea+Articolo+Fornit."
ITEM "6|*Linea+Fornit.+Articolo"
ITEM "7|Linea*+Articolo+Fornit."
ITEM "8|*Fornitore+Articolo"
ITEM "9|*Articolo+Fornitore"
ITEM "17|Fornit.+Articolo+Linea"
ITEM "18|Fornit.+Linea+Articolo"
ITEM "19|Articolo+Linea+Fornit."
ITEM "20|Articolo+Fornit.+Linea"
ITEM "21|Linea+Articolo+Fornit."
ITEM "22|Linea+Fornit.+Articolo"
ITEM "24|Fornitore+Articolo"
ITEM "25|Articolo+Fornitore"
#else
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"
ITEM "7|Linea*+Articolo+Cliente"
ITEM "8|*Cliente+Articolo"
ITEM "9|*Articolo+Cliente"
ITEM "17|Cliente+Articolo+Linea"
ITEM "18|Cliente+Linea+Articolo"
ITEM "19|Articolo+Linea+Cliente"
ITEM "20|Articolo+Cliente+Linea"
ITEM "21|Linea+Articolo+Cliente"
ITEM "22|Linea+Cliente+Articolo"
ITEM "24|Cliente+Articolo"
ITEM "25|Articolo+Cliente"
#endif
END
BOOL F_MSP_SORT_ORDER
BEGIN
PROMPT 42 3 "inverso"
END
BOOL F_MSP_SORT_PRILIN
BEGIN
PROMPT 52 3 "Priorit<69> di linea"
END
BUTTON F_MSP_RESORT 9
BEGIN
PROMPT 68 3 "Riordina"
END
//BUTTON F_CHECK_MSP 9 2
//BEGIN
// PROMPT 64 3 "Controlla"
// PICTURE USER_BMP_CHECK
// GROUP G_POSTPROCESS
//END
//BUTTON F_PRINT_MSP 9 2
//BEGIN
// PROMPT 52 3 "Stampa"
// PICTURE BMP_PRINT
// GROUP G_POSTPROCESS
//END
STRING F_CODART 20
BEGIN
PROMPT 1 5 "Articolo "
USE LF_ANAMAG
INPUT CODART F_CODART
DISPLAY "Codice@20" CODART
DISPALY "Descrizione@50" DESCR
OUTPUT F_CODART CODART
OUTPUT F_DESART DESCR
CHECKTYPE SEARCH
END
STRING F_DESART 50 44
BEGIN
PROMPT 34 5 ""
USE LF_ANAMAG KEY 2
INPUT DESCR F_DESART
DISPALY "Descrizione@50" DESCR
DISPLAY "Codice@20" CODART
COPY OUTPUT F_CODART
CHECKTYPE SEARCH
END
BOOL F_SHOW_WEEK
BEGIN
PROMPT 42 6 "Mostra settimana"
GROUP G_BUCKET_WEEK
END
BOOL F_SHOWPRICES
BEGIN
PROMPT 64 6 "Mostra prezzi"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 6 "@bMaster Schedule Plan"
GROUP G_MASTERSCHEDULE
END
TEXT DLG_NULL
BEGIN
PROMPT 2 6 "@bPianificazione ordini"
GROUP G_NOMASTERSCHEDULE
END
SPREADSHEET F_ARTICOLI -4 -2
BEGIN
PROMPT 0 7 ""
ITEM " @F3"
ITEM "CliFor@F6"
ITEM "Articolo@F20"
ITEM "Liv.1@F10"
ITEM "Liv.2@F10"
ITEM "Liv.3@F10"
ITEM "Liv.4@F10"
ITEM "Priorita'"
ITEM "Descrizione@40"
ITEM "Impianto"
ITEM "Linea"
ITEM "Mag@3"
ITEM "Dep@2"
ITEM "Mag.c@3"
ITEM "Dep.c@2"
ITEM "UM."
ITEM "Bucket q0"
ITEM "Bucket v0"
ITEM "Bucket q1"
ITEM "Bucket v1"
ITEM "Bucket q2"
ITEM "Bucket v2"
ITEM "Bucket q3"
ITEM "Bucket v3"
ITEM "Bucket q4"
ITEM "Bucket v4"
ITEM "Bucket q5"
ITEM "Bucket v5"
ITEM "Bucket q6"
ITEM "Bucket v6"
ITEM "Bucket q7"
ITEM "Bucket v7"
ITEM "Bucket q8"
ITEM "Bucket v8"
ITEM "Bucket q9"
ITEM "Bucket v9"
ITEM "Bucket q10"
ITEM "Bucket v10"
ITEM "Bucket q11"
ITEM "Bucket v11"
ITEM "Bucket q12"
ITEM "Bucket v12"
ITEM "Bucket q13"
ITEM "Bucket v13"
ITEM "Bucket q14"
ITEM "Bucket v14"
ITEM "Bucket q15"
ITEM "Bucket v15"
ITEM "Bucket q16"
ITEM "Bucket v16"
ITEM "Bucket q17"
ITEM "Bucket v17"
ITEM "Bucket q18"
ITEM "Bucket v18"
ITEM "Bucket q19"
ITEM "Bucket v19"
ITEM "Bucket q20"
ITEM "Bucket v20"
ITEM "Bucket q21"
ITEM "Bucket v21"
ITEM "Bucket q22"
ITEM "Bucket v22"
ITEM "Bucket q23"
ITEM "Bucket v23"
ITEM "Bucket q24"
ITEM "Bucket v24"
ITEM "Bucket q25"
ITEM "Bucket v25"
ITEM "Bucket q26"
ITEM "Bucket v26"
ITEM "Bucket q27"
ITEM "Bucket v27"
ITEM "Bucket q28"
ITEM "Bucket v28"
ITEM "Bucket q29"
ITEM "Bucket v29"
ITEM "Bucket q30"
ITEM "Bucket v30"
ITEM "Master"
DEFAULT NONE
END
BUTTON F_PRIORITY_HI 2 2
BEGIN
PROMPT -1 11 "Su'"
PICTURE USER_BMP_ARROWUP
END
BUTTON F_PRIORITY_ST 2 2
BEGIN
PROMPT -1 13 "Su'"
PICTURE BMP_STOPREC
END
BUTTON F_PRIORITY_LO 2 2
BEGIN
PROMPT -1 15 "Giu'"
PICTURE USER_BMP_ARROWDOWN
END
BUTTON F_SHRINK_ALL 17 1
BEGIN
PROMPT 1 -1 "Comprimi Tutto"
END
BUTTON F_ZOOM_ALL 17 1
BEGIN
PROMPT 20 -1 "Espandi Tutto"
END
BUTTON F_SHRINK_ROW 17 1
BEGIN
PROMPT 41 -1 "Comprimi Riga"
END
BUTTON F_ZOOM_ROW 17 1
BEGIN
PROMPT 60 -1 "Espandi Riga"
END
ENDPAGE
PAGE "C.R.P." -1 -1 78 20
//GROUPBOX DLG_NULL 39 6
//BEGIN
// PROMPT 1 0 ""
//END
/*GROUPBOX DLG_NULL 39 6
BEGIN
PROMPT 40 0 ""
END*/
BOOL F_USENONSTDLIN_CRP
BEGIN
PROMPT 2 1 "Linee non standard"
END
BOOL F_USEEXTRAHRS_CRP
BEGIN
PROMPT 30 1 "Turni straordinari"
END
LIST F_CRP_SORT 23
BEGIN
FLAGS "HD"
PROMPT 2 3 "Ordina per "
ITEM "ILA|Impianto+Linea+Articolo"
ITEM "AIL|Articolo+Impianto+Linea"
ITEM "IAL|Impianto+Articolo+Linea"
END
BOOL F_CRP_SORT_ORDER
BEGIN
FLAGS "HD"
PROMPT 42 3 "inverso"
END
BUTTON F_CRP_RESORT 9 1
BEGIN
FLAGS "HD"
PROMPT 64 3 "Riordina"
END
LIST F_LOADTYPE 20
BEGIN
PROMPT 2 3 ""
ITEM "M|Carico macchina"
ITEM "H|Carico uomo"
ITEM "P|Numero pezzi"
ITEM "$|Costo standard"
END
BOOL F_SHOWDETAILS
BEGIN
PROMPT 36 3 "Mostra dettaglio"
END
BOOL F_SHOWPERC
BEGIN
PROMPT 56 3 "Mostra percentuali"
END
SPREADSHEET F_LINEE
BEGIN
FLAG "D"
PROMPT 0 4 ""
ITEM "Impianto@F6"
ITEM "Linea@F6"
ITEM "Articolo@F20"
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 1 "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 1 2 "Descrizione "
USE %TIP KEY 2
INPUT S0 F_DESCTIPO
DISPLAY "Descrizione@70" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPO
CHECKTYPE REQUIRED
ADD NONE
END
STRING 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
STRING F_ASTATO 1
BEGIN
PROMPT 1 4 "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 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 planning" -1 -1 70 10
STRING F_TIPO 4
BEGIN
PROMPT 1 1 "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 1 2 "Descrizione "
USE %TIP KEY 2
INPUT S0 F_DESCTIPO
DISPLAY "Descrizione@70" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPO
CHECKTYPE REQUIRED
ADD NONE
END
STRING 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
STRING F_ASTATO 1
BEGIN
PROMPT 1 4 "A stato "
COPY USE F_DASTATO
INPUT CODTAB F_ASTATO
COPY DISPLAY F_DASTATO
OUTPUT F_ASTATO CODTAB
CHECKTYPE REQUIRED
ADD NONE
END
STRING F_STATODEF 1
BEGIN
PROMPT 1 5 "Stato definitivo "
COPY USE F_DASTATO
INPUT CODTAB F_ASTATO
COPY DISPLAY F_DASTATO
OUTPUT F_ASTATO CODTAB
CHECKTYPE NORMAL
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 "Save opt" -1 -1 70 15
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
BOOL F_SEL4SAVE
BEGIN
PROMPT 2 2 "Selezionato per la registrazione"
END
STRING F_NUM_PLAN 4
BEGIN
PROMPT 2 4 "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 G_PREPROCESS
ADD NONE
END
STRING F_TIPO_PLAN 4
BEGIN
PROMPT 22 4 "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 G_PREPROCESS
ADD NONE
END
STRING F_RIGA_PLAN 4
BEGIN
PROMPT 36 4 "Tipo 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 G_PREPROCESS
ADD NONE
END
STRING F_DA_IMPIANTO 5
BEGIN
FLAGS "U"
PROMPT 2 6 "Da 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 25 6 " a "
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_LINEA 5
BEGIN
FLAGS "UD"
PROMPT 2 8 "Da linea "
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_LINEA 5
BEGIN
FLAGS "UD"
PROMPT 25 8 " a "
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 10 "Da 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 25 10 " a "
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
ENDMASK
PAGE "Articoli" -1 -1 80 22
LIST F_TIPOCF_SHEET 1
BEGIN
PROMPT 1 0 ""
FLAGS "DG"
ITEM "C|C"
MESSAGE "Cliente",F_CLIFOR_DES
ITEM "F|F"
MESSAGE "Fornitore",F_CLIFOR_DES
END
STRING F_CLIFOR_DES 9
BEGIN
PROMPT 5 0 ""
FLAGS "D"
END
NUMBER F_CLIENTE 6
BEGIN
PROMPT 16 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 41
BEGIN
PROMPT 25 0 ""
FLAGS "D"
END
STRING F_ARTICOLO 20
BEGIN
PROMPT 1 1 "Articolo "
FLAGS "D"
END
NUMBER F_PRIORITA 4
BEGIN
PROMPT 52 1 "Priorita' "
FLAGS "U"
END
ZOOM F_DESCART 150
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 28 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 28 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"
END
STRING F_CODIMP 5
BEGIN
PROMPT 1 5 "Impianto "
FLAGS "UG"
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
MESSAGE CHECK,F_CODLIN
END
STRING F_DESCIMP 50 37
BEGIN
PROMPT 25 5 ""
FLAGS "D"
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 "UG"
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
MESSAGE EMPTY CLEAR,H_CODIMP
END
STRING F_DESCLIN 50 37
BEGIN
PROMPT 25 6 ""
FLAGS "D"
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 ""
FLAGS "D"
CHECKTYPE NORMAL
END
STRING F_MAG_COLL 3
BEGIN
PROMPT 1 8 "Mag.colleg. "
FLAGS "U"
USE MAG
INPUT CODTAB[1,3] F_MAG_COLL
INPUT CODTAB[4,5] F_DEP_COLL
DISPLAY "Magazzino" CODTAB[1,3]
DISPLAY "Deposito" CODTAB[4,5]
DISPLAY "Descrizione@50" S0
OUTPUT F_MAG_COLL CODTAB[1,3]
OUTPUT F_DEP_COLL CODTAB[4,5]
OUTPUT F_DESCMAGCOLL S0
CHECKTYPE NORMAL
END
STRING F_DEP_COLL 2
BEGIN
PROMPT 19 8 ""
FLAGS "U"
COPY ALL F_MAG_COLL
CHECKTYPE NORMAL
END
STRING F_DESCMAGCOLL 50 37
BEGIN
PROMPT 25 8 ""
FLAGS "D"
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 9 "Unita' di misura "
FLAGS "D"
END
NUMBER F_BUCKET0 17 2
BEGIN
PROMPT 1 10 "0 "
FLAGS "DU"
END
NUMBER F_BUCKET0_V 15 3
BEGIN
PROMPT 1 110 ""
FLAGS "DU"
END
NUMBER F_BUCKET1 17 2
BEGIN
PROMPT 1 11 "1 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET1_V 15 3
BEGIN
PROMPT 1 111 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET2 17 2
BEGIN
PROMPT 1 12 "2 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET2_V 15 3
BEGIN
PROMPT 1 112 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET3 17 2
BEGIN
PROMPT 1 13 "3 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET3_V 15 3
BEGIN
PROMPT 1 113 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET4 17 2
BEGIN
PROMPT 1 14 "4 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET4_V 15 3
BEGIN
PROMPT 1 114 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET5 17 2
BEGIN
PROMPT 1 15 "5 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET5_V 15 3
BEGIN
PROMPT 1 115 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET6 17 2
BEGIN
PROMPT 1 16 "6 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET6_V 15 3
BEGIN
PROMPT 1 116 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET7 17 2
BEGIN
PROMPT 1 17 "7 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET7_V 15 3
BEGIN
PROMPT 1 117 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET8 17 2
BEGIN
PROMPT 1 18 "8 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET8_V 15 3
BEGIN
PROMPT 1 118 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET9 17 2
BEGIN
PROMPT 1 19 "9 "
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET9_V 15 3
BEGIN
PROMPT 1 119 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET10 17 2
BEGIN
PROMPT 22 10 "10"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET10_V 15 3
BEGIN
PROMPT 22 110 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET11 17 2
BEGIN
PROMPT 22 11 "11"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET11_V 15 3
BEGIN
PROMPT 22 111 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET12 17 2
BEGIN
PROMPT 22 12 "12"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET12_V 15 3
BEGIN
PROMPT 22 112 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET13 17 2
BEGIN
PROMPT 22 13 "13"
FLAGS "U"
END
NUMBER F_BUCKET13_V 15 3
BEGIN
PROMPT 22 113 ""
FLAGS "U"
END
NUMBER F_BUCKET14 17 2
BEGIN
PROMPT 22 14 "14"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET14_V 15 3
BEGIN
PROMPT 22 114 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET15 17 2
BEGIN
PROMPT 22 15 "15"
FLAGS "DU"
END
NUMBER F_BUCKET15_V 15 3
BEGIN
PROMPT 22 115 ""
FLAGS "DU"
END
NUMBER F_BUCKET16 17 2
BEGIN
PROMPT 22 16 "16"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET16_V 15 3
BEGIN
PROMPT 22 116 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET17 17 2
BEGIN
PROMPT 22 17 "17"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET17_V 15 3
BEGIN
PROMPT 22 117 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET18 17 2
BEGIN
PROMPT 22 18 "18"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET18_V 15 3
BEGIN
PROMPT 22 118 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET19 17 2
BEGIN
PROMPT 22 19 "19"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET19_V 15 3
BEGIN
PROMPT 22 119 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET20 17 2
BEGIN
PROMPT 43 10 "20"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET20_V 15 3
BEGIN
PROMPT 43 110 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET21 17 2
BEGIN
PROMPT 43 11 "21"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET21_V 15 3
BEGIN
PROMPT 43 111 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET22 17 2
BEGIN
PROMPT 43 12 "22"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET22_V 15 3
BEGIN
PROMPT 43 112 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET23 17 2
BEGIN
PROMPT 43 13 "23"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET23_V 15 3
BEGIN
PROMPT 43 113 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET24 17 2
BEGIN
PROMPT 43 14 "24"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET24_V 15 3
BEGIN
PROMPT 43 114 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET25 17 2
BEGIN
PROMPT 43 15 "25"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET25_V 15 3
BEGIN
PROMPT 43 115 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET26 17 2
BEGIN
PROMPT 43 16 "26"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET26_V 15 3
BEGIN
PROMPT 43 116 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET27 17 2
BEGIN
PROMPT 43 17 "27"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET27_V 15 3
BEGIN
PROMPT 43 117 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET28 17 2
BEGIN
PROMPT 43 18 "28"
FLAGS "U"
END
NUMBER F_BUCKET28_V 15 3
BEGIN
PROMPT 43 118 ""
FLAGS "U"
END
NUMBER F_BUCKET29 17 2
BEGIN
PROMPT 43 19 "29"
FLAGS "U"
GROUP G_QTA
END
NUMBER F_BUCKET29_V 15 3
BEGIN
PROMPT 43 119 ""
FLAGS "U"
GROUP G_VALORI
END
NUMBER F_BUCKET30 17 2
BEGIN
PROMPT 43 20 "30"
FLAGS "DU"
END
NUMBER F_BUCKET30_V 15 3
BEGIN
PROMPT 43 120 ""
FLAGS "DU"
END
STRING F_MASTERCODE 1
BEGIN
PROMPT 42 99 "MasterCode"
FLAGS "D"
END
/*STRING F_NEWCODLIN 5
BEGIN
PROMPT 22 15 ""
FLAGS "H"
END
STRING F_NEWCODIMP 5
BEGIN
PROMPT 22 15 ""
FLAGS "H"
END*/
BUTTON F_RECALCLINE 8 2
BEGIN
PROMPT 68 0 ""
PICTURE BMP_RECALC
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT 3 -1 ""
END
BUTTON F_DOCUMENTI_IN 3 2
BEGIN
PROMPT 18 -1 "Dett. IN"
PICTURE USER_BMP_ORDINI_INPUT
END
BUTTON F_VINCOLI_IN 6 2
BEGIN
PROMPT 22 -1 "Dett. IN"
PICTURE USER_BMP_VINCOLI_INPUT
END
BUTTON F_CHECKLINE 10 2
BEGIN
PROMPT 33 -1 ""
PICTURE USER_BMP_CHECK
END
BUTTON F_DOCUMENTI_OUT 3 2
BEGIN
PROMPT 48 -1 "Dett. OUT"
PICTURE USER_BMP_ORDINI_OUTPUT
END
BUTTON F_VINCOLI_OUT 6 2
BEGIN
PROMPT 52 -1 "Dett. OUT"
PICTURE USER_BMP_VINCOLI_OUTPUT
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT 64 -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"
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"
END
STRING F_CODARTCRP 20
BEGIN
PROMPT 1 4 "Articolo "
FLAGS ""
USE LF_ANAMAG
INPUT CODART F_CODARTCRP
DISPLAY "Codice" CODART
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODARTCRP CODART
OUTPUT F_DESCARTCRP DESCR
END
STRING F_DESCARTCRP 50
BEGIN
PROMPT 18 5 ""
FLAGS "D"
END
STRING F_LUM 3
BEGIN
PROMPT 1 6 "Unita' di misura "
FLAGS "D"
END
NUMBER F_LBUCKET0 17 2
BEGIN
PROMPT 43 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