campo-sirio/mr/mr2200a.uml

#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 "Inverti l'ordine"
  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 35
BEGIN
  FLAGS "D"
  PROMPT 42 2 ""
  ITEM        "1|FirstFit                           "
  ITEM    "1_INF|FirstFit (capacita' infinite)      "
  ITEM   "1_INFH|FirstFit (capacita' umane infinite)"
  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 22 15 ""
  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 -12 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -22 -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