campo-sirio/mr/mr2100a.uml

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

TOOLBAR "Toolbar" 0 -3 -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 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -55 -1 "~Fine"
  PICTURE BMP_QUIT
  PICTURE BMP_QUITDN
END

ENDPAGE

PAGE "Query"  -1 -1 80 19 

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

DATE F_DADATA
BEGIN
  PROMPT 2 2 "Dalla data       "
  CHECKTYPE REQUIRED
  GROUP 1
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 1
END

LIST F_BUCKETS 1 15
BEGIN
  GROUP 1
  PROMPT 2 3 "Bucket temporale "
  ITEM "1|1 Settimana" 
    MESSAGE DISABLE,F_BUCKET|COPY,F_BUCKET
  ITEM "2|2 Settimane" 
    MESSAGE DISABLE,F_BUCKET|COPY,F_BUCKET
  ITEM "4|1 Mese" 
    MESSAGE DISABLE,F_BUCKET|COPY,F_BUCKET
  ITEM "8|2 Mese" 
    MESSAGE DISABLE,F_BUCKET|COPY,F_BUCKET
  ITEM "13|3 Mesi" 
    MESSAGE DISABLE,F_BUCKET|COPY,F_BUCKET
  ITEM "17|4 Mesi" 
    MESSAGE DISABLE,F_BUCKET|COPY,F_BUCKET
  ITEM "26|6 Mesi" 
    MESSAGE DISABLE,F_BUCKET|COPY,F_BUCKET
  ITEM "52|1 Anno" 
    MESSAGE DISABLE,F_BUCKET|COPY,F_BUCKET
  ITEM " |Personalizzato"
    MESSAGE ENABLE,F_BUCKET
END

NUMBER F_BUCKET 2
BEGIN
  GROUP 1
  PROMPT 45 3 "Settimane "
  FLAGS "U"
  CHECKTYPE REQUIRED
END

BOOLEAN F_NOMAG
BEGIN
  PROMPT 2 10 "Non suddividere per magazzini"
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



ENDPAGE

PAGE "Elabora"  -1 -1 80 19 

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

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

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

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

SPREADSHEET F_NUM_ORF 8 6
BEGIN
  GROUP 1
  PROMPT 1 14 ""
  ITEM "Codice"
END

SPREADSHEET F_TIPI_ORF 62 6
BEGIN
  GROUP 1
  PROMPT 16 14 ""
  ITEM "Tipo@4"
  ITEM "Descrizione@50"
  ITEM "Da stato"
  ITEM "A stato"
  ITEM "Stato def."
END

ENDPAGE

PAGE "Genera"  -1 -1 78 20

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

STRING F_NUM_PROD 4
BEGIN
  GROUP 1
  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 1
  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 1
  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 a fornitori"
END

STRING F_NUM_FORN 4
BEGIN
  GROUP 1
  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 1
  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 1
  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 1
  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_KEEP_IMP
BEGIN
  GROUP 1
  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 1
  PROMPT 2 15 "Lotti minimi sugli ordini di acquisto"
END

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

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

NUMBER F_XTRA_LDTIME 2
BEGIN
  GROUP 1
  PROMPT 42 17 "anticipa di "
  FLAGS "U"
END

TEXT DLG_NULL
BEGIN
  GROUP 1
  PROMPT 58 17 "giorni sui materiali"
  FLAGS "U"
END

ENDPAGE

PAGE "Fabbisogni" -1 -1 78 20

BUTTON F_SELECT_ORDP 20 2
BEGIN
  PROMPT 12 1 "Ordini di produzione"
  PICTURE USER_BMP_SELECT_ORDP
END

BUTTON F_SELECT_ORDF 20 2
BEGIN
  PROMPT 46 1 "Ordini a fornitore"
  PICTURE USER_BMP_SELECT_ORDF
END

LIST F_SORT 25
BEGIN
  PROMPT 1 3 "Ordinamento "
  ITEM "1|Data/fornitore/articolo"
  ITEM "2|Data/articolo/fornitore"
  ITEM "3|Fornitore/articolo/data"
  ITEM "4|Fornitore/data/articolo"
  ITEM "5|Articolo/fornitore/data"
  ITEM "6|Articolo/data/fornitore"
END

BOOLEAN F_SORT_ORDER 
BEGIN
  PROMPT 42 3 "Inverso"
END

BUTTON F_RESORT_ORDINI 10 1
BEGIN
  PROMPT 62 3 "Riordina"
END

SPREADSHEET F_ORDINI
BEGIN
  PROMPT 0 4 ""
  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"
  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 15

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

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

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

DATE F_DATACONS
BEGIN
  PROMPT 39 2 "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 3 "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 REQUIRED
  GROUP 2
END

STRING F_RAGSOC 50 37
BEGIN
  PROMPT 24 3 ""
  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 REQUIRED
  GROUP 2
END

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

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

STRING F_LIV1 10
BEGIN
  PROMPT 1 6 "Giacenza    "
END

STRING F_LIV2 10
BEGIN
  PROMPT 27 6 "Giacenza    "
END

STRING F_LIV3 10
BEGIN
  PROMPT 1 7 "Giacenza    "
END

STRING F_LIV4 10
BEGIN
  PROMPT 27 7 "Giacenza    "
END

STRING F_MAGAZZINO 3
BEGIN
  PROMPT 1 8 "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 8 ""
  FLAGS "U"
  COPY ALL F_MAGAZZINO
  CHECKTYPE NORMAL
END

STRING F_DESCMAG 50 37
BEGIN
  PROMPT 24 8 ""
  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 9 "Impianto    "
  FLAGS "UGH"
  MESSAGE EMPTY COPY,H_CODIMP
  MESSAGE  COPY,F_CODIMP|CHECK,F_CODIMP
END

STRING F_CODIMP 5
BEGIN
  PROMPT 1 9 "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 9 ""
  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 10 "Linea       "
  FLAGS "UZ"
  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 10 ""
  USE LNP KEY 2
  INPUT S0 F_DESCLIN
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@16" CODTAB
  COPY OUTPUT F_CODLIN
  CHECKTYPE NORMAL
END

NUMBER F_QUANTITA 18 5
BEGIN
  PROMPT 1 11 "Quantita'   "
  PICTURE ".5"
  FLAGS "U"
  CHECKTYPE REQUIRED
END

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

NUMBER F_PREZZO 18 3
BEGIN
  PROMPT 1 12 "Prezzo      "
END

BOOL F_OK
BEGIN
  PROMPT 44 11 "OK"
  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