campo-sirio/mr/mr2100a.uml

#include "mr2100a.h" 
#include "mr2url.h" 

TOOLBAR "Toolbar" 0 0 0 2

BUTTON DLG_ELABORA 10 2
BEGIN
  PROMPT 1 1 "E~labora"
  PICTURE TOOL_ELABORA
END

BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT 2 1 "~Registra"
  PICTURE TOOL_SAVEREC
  FLAGS "D"
  GROUP G_POSTPROCESS
END

BUTTON DLG_EDIT 10 2
BEGIN
  PROMPT 3 1 "~Modifica"
  MESSAGE RUN,ve0,-1
  PICTURE TOOL_EDIT
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT 4 1 "~Annulla"
END

#include <printbar.h>

ENDPAGE

TOOLBAR "Toolbar" 0 -1 0 1

STRING DLG_PROFILE 50
BEGIN
  PROMPT 9 -1 "Profilo "
  PSELECT
END

ENDPAGE

PAGE "Query"  0 0 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 "@bParametri dell'elaborazione" 
END

DATE F_DADATA
BEGIN
  PROMPT 2 2 "Dalla data       "
  CHECKTYPE REQUIRED
  GROUP G_PREPROCESS
END

DATE F_ADATA
BEGIN
  PROMPT 45 2 "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
  GROUP G_PREPROCESS
  PROMPT 2 4 "Intervallo       "
  ITEM "1|1 Settimana" 
    MESSAGE SHOW,F_BUCKET|DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
  ITEM "2|2 Settimane" 
    MESSAGE SHOW,F_BUCKET|DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
  ITEM "4|1 Mese" 
    MESSAGE SHOW,F_BUCKET|DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
  ITEM "8|2 Mesi" 
    MESSAGE SHOW,F_BUCKET|DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
  ITEM "13|3 Mesi" 
    MESSAGE SHOW,F_BUCKET|DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
  ITEM "17|4 Mesi" 
    MESSAGE SHOW,F_BUCKET|DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
  ITEM "26|6 Mesi" 
    MESSAGE SHOW,F_BUCKET|DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
  ITEM "52|1 Anno" 
    MESSAGE SHOW,F_BUCKET|DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
  ITEM " |Personalizzato"
    MESSAGE SHOW,F_BUCKET|ENABLE,F_BUCKET|"7",F_DAYXBUCK
  ITEM "G|1 Giorno" 
    MESSAGE HIDE,F_BUCKET|"1",F_BUCKET|"1",F_DAYXBUCK
  ITEM "M|Mese solare" 
    MESSAGE HIDE,F_BUCKET|"31",F_BUCKET|"1",F_DAYXBUCK
END

NUMBER F_BUCKET 2
BEGIN
  GROUP G_PREPROCESS
  PROMPT 45 4 "Settimane "
  FLAGS "UG"
  CHECKTYPE REQUIRED
END

LIST F_DAYXBUCK 1 9
BEGIN
  PROMPT 42 42  ""
  ITEM "7|settimane"
  ITEM "1|giorni"
  FLAGS "D"
END

BOOLEAN F_RESCHEDULING
BEGIN
  PROMPT 2 7 "Permetti il rescheduling"
  flags "D"
END

BOOLEAN F_NOMAG
BEGIN
  PROMPT 2 10 "Non suddividere per magazzini"
  MESSAGE TRUE DISABLE,F_NODEP|"X",F_NODEP
  MESSAGE FALSE ENABLE,F_NODEP
END

BOOLEAN F_NODEP
BEGIN
  PROMPT 40 10 "Non suddividere per depositi"
END

BOOLEAN F_NOIMP
BEGIN
  PROMPT 2 11 "Non suddividere per impianti"
END

BOOLEAN F_NOLIN
BEGIN
  PROMPT 2 12 "Non suddividere per linee"
END

BOOLEAN F_DOC_YEAR_PREC
BEGIN
  PROMPT 2 14 "Considera i documenti dell'anno precedente"
END

BOOLEAN F_SINGLE_DOC
BEGIN
  PROMPT 2 13 "Suddividi per vincolo (ordine)"
END

ENDPAGE

PAGE "Elabora"  -1 -1 80 19 

LIST F_ORC_MASTER 1 20
BEGIN
  GROUP G_PREPROCESS
  PROMPT 1 2 ""
  ITEM "O|Ordini da clienti"
  ITEM "M|Master Schedule Plan"
END

SPREADSHEET F_NUM_ORC 8 6
BEGIN
  GROUP G_PREPROCESS
  PROMPT 1 3 ""
  ITEM "Codice"
END

SPREADSHEET F_TIPI_ORC 62 6
BEGIN
  GROUP G_PREPROCESS
  PROMPT 16 3 ""
  ITEM "Tipo@4"
  ITEM "Descrizione@50"
  ITEM "Da stato"
  ITEM "A stato"
END

TEXT DLG_NULL 
BEGIN
  PROMPT 1 10 "@bOrdini produzione/fornitori"
END

SPREADSHEET F_NUM_ORF 8 9
BEGIN
  GROUP G_PREPROCESS
  PROMPT 1 11 ""
  ITEM "Codice"
END

SPREADSHEET F_TIPI_ORF 62 9
BEGIN
  GROUP G_PREPROCESS
  PROMPT 16 11 ""
  ITEM "Tipo@4"
  ITEM "Descrizione@50"
  ITEM "Da stato"
  ITEM "A stato"
  ITEM "Stato def."
END

BOOLEAN F_LOAD_EVASI
BEGIN
  PROMPT 2 20 "Non considerare l'evasione ordini"
END

BOOLEAN F_DONT_USE_MAG
BEGIN
  PROMPT 40 20 "Non considerare la giacenza di magazzino"
END

ENDPAGE

PAGE "Genera"  -1 -1 78 20

BOOL F_ALL_ORDERSCHANGES
BEGIN
  PROMPT 2 2 "Mostra tutte le righe d'ordine"
  GROUP G_PREPROCESS
  MESSAGE TRUE  ENABLE,F_ALL_MRPLINES
  MESSAGE FALSE  CLEAR,F_ALL_MRPLINES
END
BOOL F_ALL_MRPLINES
BEGIN
  PROMPT 2 3 "Mostra tutte le righe elaborate"
  GROUP G_PREPROCESS
END
BOOL  F_DISABLESAVE
BEGIN
  PROMPT 2 4 "Solo monitoraggio (registrazione disabilitata)"
  GROUP G_PREPROCESS
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 6 "@bOrdini di produzione"
END

STRING F_NUM_PROD 4
BEGIN
  GROUP G_PREPROCESS
  PROMPT 27 6 "Numerazione "
  FLAGS "U"
  USE %NUM
  INPUT CODTAB F_NUM_PROD
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NUM_PROD CODTAB
  CHECKTYPE REQUIRED
  ADD NONE
END

STRING F_TIPO_PROD 4
BEGIN
  GROUP G_PREPROCESS
  PROMPT 50 6 "Tipo "
  FLAGS "U"
  USE %TIP
  INPUT CODTAB F_TIPO_PROD
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPO_PROD CODTAB
  CHECKTYPE REQUIRED
  ADD NONE
END

STRING F_RIGA_PROD 4
BEGIN
  GROUP G_PREPROCESS
  PROMPT 66 6 "Riga "
  FLAGS "U"
  USE %TRI SELECT S7=="M"
  INPUT CODTAB F_RIGA_PROD
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_RIGA_PROD CODTAB
  CHECKTYPE REQUIRED
  ADD NONE
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 7 "@bOrdini di acquisto"
END

STRING F_NUM_FORN 4
BEGIN
  GROUP G_PREPROCESS
  PROMPT 27 7 "Numerazione "
  FLAGS "U"
  COPY USE F_NUM_PROD
  INPUT CODTAB F_NUM_FORN
  COPY DISPLAY F_NUM_PROD
  OUTPUT F_NUM_FORN CODTAB
  CHECKTYPE REQUIRED
  ADD NONE
END

STRING F_TIPO_FORN 4
BEGIN
  GROUP G_PREPROCESS
  PROMPT 50 7 "Tipo "
  FLAGS "U"
  COPY USE F_TIPO_PROD
  INPUT CODTAB F_TIPO_FORN
  COPY DISPLAY F_TIPO_PROD
  OUTPUT F_TIPO_FORN CODTAB
  CHECKTYPE REQUIRED
  ADD NONE
END

STRING F_RIGA_FORN 4
BEGIN
  GROUP G_PREPROCESS
  PROMPT 66 7 "Riga "
  FLAGS "U"
  COPY USE F_RIGA_PROD
  INPUT CODTAB F_RIGA_FORN
  COPY DISPLAY F_RIGA_PROD  
  OUTPUT F_RIGA_FORN CODTAB
  CHECKTYPE REQUIRED
  ADD NONE
END

LIST F_TIPOCV  10
BEGIN
  GROUP G_PREPROCESS
  PROMPT 2 8 "Preleva i prezzi da "
  ITEM "|Anagrafica"
  MESSAGE HIDE,F_CODCONDV|HIDE,F_TIPOCF_CONDV|HIDE,F_CATVEN_CV|CHECK,F_CODCONDV
  ITEM "L|Listino"
  MESSAGE SHOW,F_CODCONDV|HIDE,F_TIPOCF_CONDV|SHOW,F_CATVEN_CV|CHECK,F_CODCONDV
  ITEM "C|Contratto"
  MESSAGE SHOW,F_CODCONDV|SHOW,F_TIPOCF_CONDV|HIDE,F_CATVEN_CV|CHECK,F_CODCONDV
  ITEM "O|Offerta"
  MESSAGE SHOW,F_CODCONDV|HIDE,F_TIPOCF_CONDV|HIDE,F_CATVEN_CV|CHECK,F_CODCONDV
END

STRING F_CODCONDV 3
BEGIN
  PROMPT 36 8 ""
  USE LF_CONDV
  INPUT TIPO F_TIPOCV
  INPUT CATVEN F_CATVEN_CV
  INPUT COD F_CODCONDV 
  INPUT TIPOCF F_TIPOCF_CONDV

  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_TIPOCF_CONDV TIPOCF 
  OUTPUT F_CODCONDV COD
END

STRING F_CATVEN_CV 2
BEGIN
  PROMPT 43 8 "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


LIST  F_TIPOCF_CONDV 9
BEGIN
  PROMPT 43 8 ""
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
END

BOOLEAN F_DIVIDEBYART
BEGIN
  PROMPT 2 10  "Suddividi gli ordini per articolo"
  GROUP G_PREPROCESS
END

BOOLEAN F_DIVIDEBYDATE
BEGIN
  PROMPT 40 10  "Suddividi gli ordini per scadenza"
  GROUP G_PREPROCESS
END

LIST F_RIFERIMENTO_MRP 1 20
BEGIN
  PROMPT 2 11 "Riferimento sulle righe "
  ITEM "0|Documento originale"
  ITEM "1|Documento padre"
END

BOOLEAN F_KEEP_IMP
BEGIN
  GROUP G_PREPROCESS
  PROMPT 2 13 "Mantieni la produzione all'interno dello stesso impianto"
  HELP "Mantiene la ricerca della lavorazioni all'interno dello stesso impianto"
END

BOOLEAN F_LOTSIZING_F
BEGIN
  GROUP G_PREPROCESS
  PROMPT 2 15 "Lotti minimi sugli ordini di acquisto"
END

BOOLEAN F_LOTSIZING_P
BEGIN
  GROUP G_PREPROCESS
  PROMPT 2 16 "Lotti minimi sugli ordini di produzione"
END

BOOL F_IGN_LDTIME
BEGIN
  GROUP G_PREPROCESS
  PROMPT 2 17 "Ignora lead time di anagrafica "
  FLAGS "U"
END

LIST F_LDTIME_MODE 1 50
BEGIN
  PROMPT 2 18 "Calcolo lead time "
  ITEM "0|Normale"
  ITEM "1|Sommare al lead time il tempo di produzione"
  ITEM "2|Massimo tra lead time e tempo di produzione"
END

NUMBER F_MAXLEVEL 3
BEGIN
  PROMPT 2 19 "Max.livello di esplosione "
  FLAGS "U"
END

NUMBER F_XTRA_LDTIME 2
BEGIN
  GROUP G_PREPROCESS
  PROMPT 2 20 "Anticipa le consegne di   "
  FLAGS "U"
END

TEXT DLG_NULL
BEGIN
  GROUP G_PREPROCESS
  PROMPT 32 20 "gg.lavorativi"
END

NUMBER F_XTRA_PLTIME 2
BEGIN
  GROUP G_PREPROCESS
  PROMPT 42 20 "Anticipa le emissioni di  "
  FLAGS "U"
END

TEXT DLG_NULL
BEGIN
  GROUP G_PREPROCESS
  PROMPT 72 20 "gg.lavorativi"
  FLAGS "U"
END

ENDPAGE

PAGE "Fabbisogni" -1 -1 78 20
GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 "" 
END

LIST F_SEL_ORD_TYPE 12
BEGIN
  PROMPT 1 1 "Ordini di tipo  "
  ITEM "P|produzione"
  MESSAGE SHOW, G_SEL_ORDP@|HIDE, G_SEL_ORDF@
  ITEM "F|fornitore"
  MESSAGE HIDE, G_SEL_ORDP@|SHOW, G_SEL_ORDF@
END

STRING F_OP_DAGRMERC  3
BEGIN
  FLAGS "U"
  PROMPT 1 2 "Da gruppo merc. "
  USE GMC SELECT CODTAB[4,5] = ""
  INPUT CODTAB F_OP_DAGRMERC
  OUTPUT F_OP_DAGRMERC CODTAB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  GROUP G_SEL_ORDP
END

STRING  F_OP_AGRMERC   3
BEGIN
  FLAGS "U"
  PROMPT 22 2 " a "
  COPY USE  F_OP_DAGRMERC 
  COPY DISPLAY  F_OP_DAGRMERC
  INPUT CODTAB F_OP_AGRMERC
  OUTPUT F_OP_AGRMERC CODTAB
  GROUP G_SEL_ORDP
END

STRING  F_OF_DAGRMERC  3
BEGIN
  FLAGS "U"
  PROMPT 1 2 "Da gruppo merc. "
  COPY USE  F_OP_DAGRMERC
  COPY DISPLAY  F_OP_DAGRMERC
  INPUT CODTAB F_OF_DAGRMERC
  OUTPUT F_OF_DAGRMERC CODTAB
  GROUP G_SEL_ORDF
END

STRING  F_OF_AGRMERC   3
BEGIN
  FLAGS "U"
  PROMPT 22 2 " a "
  COPY USE  F_OP_DAGRMERC
  COPY DISPLAY  F_OP_DAGRMERC
  INPUT CODTAB F_OF_AGRMERC
  OUTPUT F_OF_AGRMERC CODTAB
  GROUP G_SEL_ORDF
END

BUTTON F_SELECT_ORD 10 2
BEGIN
  PROMPT 64 1 "Ordini a fornitore"
  PICTURE BMP_SELECT
END

LIST F_SORT 26
BEGIN
  PROMPT 1 4 "Ordinamento "
  ITEM "1|Tipo/data/fornit./articolo"
  ITEM "2|Tipo/data/articolo/fornit."
  ITEM "3|Tipo/fornit./articolo/data"
  ITEM "4|Tipo/fornit./data/articolo"
  ITEM "5|Tipo/articolo/fornit./data"
  ITEM "6|Tipo/articolo/data/fornit."
  ITEM "7|Data/tipo/fornit./articolo"
  ITEM "8|Data/articolo/tipo/fornit."
  ITEM "9|Articolo/tipo/fornit./data"
  ITEM "10|Articolo/data/tipo/fornit."
END

BOOLEAN F_SORT_ORDER 
BEGIN
  PROMPT 13 5 "Inverso"
END

BOOLEAN F_DATE_SORT_ORDER
BEGIN
  PROMPT 30 5 "Data di consegna"
END

BUTTON F_RESORT_ORDINI 10
BEGIN
  PROMPT 64 4 "Riordina"
END

SPREADSHEET F_ORDINI
BEGIN
  PROMPT 0 7 ""
  ITEM "@1"
  ITEM "@1"
  ITEM "Documento@10"
  ITEM "Consegna@10"
  ITEM "Fornit."
  ITEM "Codice Articolo@20"
  ITEM "Liv.1@10"
  ITEM "Liv.2@10"
  ITEM "Liv.3@10"
  ITEM "Liv.4@10"
  ITEM "Mag@3"
  ITEM "Dep@2"
  ITEM "Imp.@5"
  ITEM "Linea@5"
  ITEM "Quantita'@18"
  ITEM "UM."
  ITEM "Prezzo@18"
  ITEM "Descrizione@50"
  ITEM "Anno"
  ITEM "Cod.Num."
  ITEM "Num.Doc."
  ITEM "Num.Riga."
  ITEM "Da Anno"
  ITEM "Da Cod.Num."
  ITEM "Da Num.Doc."
  ITEM "Da Num.Riga."
  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 
  OUTPUT F_IMPIANTO  S6
  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


PAGE "Numerazioni clienti" -1 -1 60 6

STRING F_CODNUM 4
BEGIN
  PROMPT 1 1  "Numerazione "
  FLAGS "U"
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESCNUM  S0
  CHECKTYPE REQUIRED
  ADD NONE
END

STRING F_DESCNUM 50 40
BEGIN
  PROMPT 1 2  "Descrizione "
  FLAGS "U"
  USE %NUM KEY 2
  INPUT S0 F_DESCNUM 
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT F_DESCNUM S0
  OUTPUT F_CODNUM 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 clienti" -1 -1 60 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 40
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 "Numerazioni fornitori" -1 -1 60 6

STRING F_CODNUM 4
BEGIN
  PROMPT 1 1  "Numerazione "
  FLAGS "U"
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESCNUM  S0
  CHECKTYPE REQUIRED
  ADD NONE
END

STRING F_DESCNUM 50 40
BEGIN
  PROMPT 1 2  "Descrizione "
  FLAGS "U"
  USE %NUM KEY 2
  INPUT S0 F_DESCNUM 
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT F_DESCNUM  S0
  OUTPUT F_CODNUM 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 fornitori" -1 -1 60 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 40
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_STATODEF
  COPY DISPLAY F_DASTATO 
  OUTPUT F_STATODEF 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 "Righe ordini" -1 -1 70 16

BOOLEAN F_SELECTED
BEGIN
  PROMPT 1 0 "Riga selezionata per la generazione"
END

LIST F_ORD_TYPE 1 14
BEGIN
  FLAGS ""
  PROMPT 1 1 "Ordine      "
  ITEM "F|Fornitore"
    MESSAGE ENABLE,F_FORNITORE|ENABLE,F_RAGSOC
  ITEM "P|Produzione"
    MESSAGE DISABLE,F_FORNITORE|DISABLE,F_RAGSOC
END

STRING F_DOCANNODOC  4
BEGIN
  FLAGS "D"
  PROMPT 1 2 "Anno        "
END
STRING F_DOCCODNUM   4
BEGIN
  FLAGS "D"
  PROMPT 19 2 "Documento "
END
NUMBER F_DOCNUM      9
BEGIN
  FLAGS "D"
  PROMPT 35 2 ""
END
NUMBER F_DOCNRIGA    4
BEGIN
  FLAGS "D"
  PROMPT 60 2 "Riga "
END

DATE F_DATADOC
BEGIN
  PROMPT 1 3 "Data doc.   "
  CHECKTYPE REQUIRED
  FIELD DATADOC
END

DATE F_DATACONS
BEGIN
  PROMPT 39 3 "Data consegna "
  CHECKTYPE REQUIRED
  VALIDATE DATE_CMP_FUNC >= F_DATADOC
  FIELD DATACONS
  WARNING "Data di consegna inferiore a quella del documento"
END

NUMBER F_FORNITORE 6
BEGIN
  PROMPT 1 4 "Fornitore   "
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF F_FORNITORE
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_FORNITORE CODCF
  OUTPUT F_RAGSOC RAGSOC
  FIELD CODCF
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_RAGSOC 50 37
BEGIN
  PROMPT 24 4 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Codice@16" CODCF
  COPY OUTPUT F_FORNITORE
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_ARTICOLO 20
BEGIN
  PROMPT 1 5 "Articolo    "
  FLAGS "D"
END

STRING F_DESCART 50
BEGIN
  PROMPT 1 6 "Descrizione "
  FLAGS "D"
END

STRING F_LIV1 10
BEGIN
  PROMPT 1 7 "Giacenza    "
  USE GCG
  INPUT CODTAB[1,1] "1"
  INPUT CODTAB[2,20] F_LIV1
  OUTPUT F_LIV1 CODTAB[2,20] 
  DISPLAY "Codice" CODTAB[2,20]
  DISPLAY "Descrizione@50" S0
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR, F_LIV2
  MESSAGE ENABLE, F_LIV2
  FLAGS "D"
END

STRING F_LIV2 10
BEGIN
  PROMPT 27 7 "Giacenza    "
  COPY USE  F_LIV1
  COPY DISPLAY F_LIV1
  INPUT CODTAB[1,1] "2"
  INPUT CODTAB[2,20] F_LIV2
  OUTPUT F_LIV2 CODTAB[2,20] 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR, F_LIV3
  MESSAGE ENABLE, F_LIV3
  FLAGS "D"
END

STRING F_LIV3 10
BEGIN
  PROMPT 1 8 "Giacenza    "
  COPY USE  F_LIV1
  COPY DISPLAY F_LIV1
  INPUT CODTAB[1,1] "3"
  INPUT CODTAB[2,20] F_LIV3
  OUTPUT F_LIV3 CODTAB[2,20] 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR, F_LIV4
  MESSAGE ENABLE, F_LIV4
  FLAGS "D"
END

STRING F_LIV4 10
BEGIN
  PROMPT 27 8 "Giacenza    "
  COPY USE  F_LIV1
  COPY DISPLAY F_LIV1
  INPUT CODTAB[1,1] "4"
  INPUT CODTAB[2,20] F_LIV4
  OUTPUT F_LIV4 CODTAB[2,20] 
  CHECKTYPE NORMAL
  FLAGS "D"
END

STRING F_MAGAZZINO 3
BEGIN
  PROMPT 1 9 "Magazzino   "
  FLAGS "U"
  USE MAG
  INPUT CODTAB[1,3] F_MAGAZZINO
  INPUT CODTAB[4,5] F_DEPOSITO
  DISPLAY "Magazzino" CODTAB[1,3]
  DISPLAY "Deposito" CODTAB[4,5]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_MAGAZZINO CODTAB[1,3]
  OUTPUT F_DEPOSITO CODTAB[4,5]
  OUTPUT F_DESCMAG S0
  CHECKTYPE NORMAL
END

STRING F_DEPOSITO 2
BEGIN
  PROMPT 19 9 ""
  FLAGS "U"
  COPY ALL F_MAGAZZINO
  CHECKTYPE NORMAL
END

STRING F_DESCMAG 50 37
BEGIN
  PROMPT 24 9 ""
  USE MAG KEY 2
  INPUT S0 F_DESCMAG
  DISPLAY "Descrizione@50" S0
  DISPLAY "Magazzino" CODTAB[1,3]
  DISPLAY "Deposito" CODTAB[4,5]
  COPY OUTPUT F_MAGAZZINO
  CHECKTYPE NORMAL
END

STRING H_CODIMP 5
BEGIN
  PROMPT 1 10 "Impianto    "
  FLAGS "UGH"
  MESSAGE EMPTY COPY,H_CODIMP
  MESSAGE  COPY,F_CODIMP|CHECK,F_CODIMP
END

STRING F_CODIMP 5
BEGIN
  PROMPT 1 10 "Impianto    "
  FLAGS "UZ"
  USE IMP
  INPUT CODTAB F_CODIMP
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODIMP CODTAB
  OUTPUT F_DESCIMP S0
  CHECKTYPE NORMAL
END

STRING F_DESCIMP 50 37
BEGIN
  PROMPT 24 10 ""
  FLAGS "U"
  USE IMP KEY 2
  INPUT S0 F_DESCIMP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@16" CODTAB
  COPY OUTPUT F_CODIMP
  CHECKTYPE NORMAL
END

STRING F_CODLIN 5
BEGIN
  PROMPT 1 11 "Linea       "
  FLAGS "UZG"
  USE LNP
  INPUT CODTAB F_CODLIN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODLIN CODTAB
  OUTPUT F_DESCLIN S0
  OUTPUT H_CODIMP S6
  CHECKTYPE NORMAL
END

STRING F_DESCLIN 50 37
BEGIN
  PROMPT 24 11 ""
  USE LNP KEY 2
  INPUT S0 F_DESCLIN
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@16" CODTAB
  COPY OUTPUT F_CODLIN
  CHECKTYPE NONE
END

NUMBER F_QUANTITA 18 5
BEGIN
  PROMPT 1 12 "Quantita'   "
  PICTURE ".5"
  FLAGS ""
END

STRING F_UM 2
BEGIN
  PROMPT 44 12 "Unita' di misura "
  FLAGS "D"
END

CURRENCY F_PREZZO 18
BEGIN
  PROMPT 1 13 "Prezzo      "
  FLAGS "U"
END

STRING F_DAANNO 4
BEGIN
  FLAGS "D"
  PROMPT 1 14 "Da Anno     "
END
STRING F_DACODNUM  4
BEGIN
  FLAGS "D"
  PROMPT 19 14 "Documento "
END
NUMBER F_DANUMDOC 9
BEGIN
  FLAGS "D"
  PROMPT 35 14 ""
END
NUMBER F_DANRIGA 4
BEGIN
  FLAGS "D"
  PROMPT 60 14 "Riga "
END

BOOL F_OK
BEGIN
  PROMPT 44 11 "OK"
  FLAGS "H"
END


BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON F_RISALITA 10 2
BEGIN
  PROMPT -23 -1 "Risalita"
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK