campo-sirio/mr/mr2200a.uml

#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