#include "ve2500a.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <filebar.h>

BUTTON DLG_CREA 2 2
BEGIN
  PROMPT 10 -1 "Cr~ea"
  PICTURE TOOL_IMPORT
END

BUTTON DLG_COMPATTA 2 2
BEGIN
  PROMPT 11 -1 "Co~mpatta"
  PICTURE TOOL_PACK
END

#include <cancelbar.h>

ENDPAGE

PAGE "Dati generali e Righe" 0 2 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 0 "@bDati Listino"
END

LIST FA_TIPO 1 7
BEGIN
  PROMPT 100 100 ""
  ITEM "L|Listino"
  FLAGS "D"
  FIELD TIPO
  KEY 1
END

STRING FA_L_CATVEN 2
BEGIN
  PROMPT 1 1 "Cat. ven. "
  FIELD CATVEN
  FLAGS "U"
  KEY 1
  USE CVE
  INPUT CODTAB FA_L_CATVEN
  DISPLAY "Cat." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FA_L_CATVEN CODTAB
  OUTPUT FA_L_DESVEN S0
  CHECKTYPE FORCED
END

STRING FA_L_DESVEN 50
BEGIN
  PROMPT 18 1 ""
  USE CVE KEY 2
  INPUT S0 FA_L_DESVEN
  DISPLAY "Descrizione@50" S0
  DISPLAY "Cat." CODTAB
  COPY OUTPUT FA_L_CATVEN
  CHECKTYPE NORMAL
END

STRING FA_COD 3
BEGIN
  PROMPT 1 2 "Listino   "
  FIELD COD
  FLAGS "U"
  KEY 1
  USE LF_CONDV 
  INPUT TIPO "L"
  INPUT CATVEN FA_L_CATVEN
  INPUT COD FA_COD
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Valuta" CODVAL
  DISPLAY "Fine validita'" VALFIN
  OUTPUT FA_L_CATVEN CATVEN
  OUTPUT FA_COD COD
  OUTPUT FA_DESCR DESCR
  CHECKTYPE REQUIRED
END

STRING FA_DESCR 50
BEGIN
  PROMPT 18 2 ""
  FIELD DESCR
END

DATA FA_VALINI
BEGIN
  PROMPT 1 3 "Inizio validita` "
  FIELD VALIN
END

DATA FA_VALFIN
BEGIN
  PROMPT 42 3 "Fine validita` "
  FIELD VALFIN
END

//campi di ricerca parziale sullo sheet
//-------------------------------------
LIST FA_TIPORIGA 1 13
BEGIN
  PROMPT 1 5 ""
  FLAGS "P"
  ITEM "A|Articolo"
  MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|SHOW,1@
  ITEM "G|Gr. merc."
  MESSAGE HIDE,1@|HIDE,3@|HIDE,4@|SHOW,2@
  ITEM "S|Sotgr.merc."
  MESSAGE HIDE,1@|HIDE,2@|HIDE,4@|SHOW,3@
  ITEM "R|Ragg. fisc."
  MESSAGE HIDE,1@|HIDE,2@|HIDE,3@|SHOW,4@
END

STRING FA_CODRIGA_A 20
BEGIN
  PROMPT 18 5 ""
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART FA_CODRIGA_A
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT FA_CODRIGA_A CODART
  OUTPUT FA_DESRIGA_A DESCR
  OUTPUT FA_GRMERC_A GRMERC
  CHECKTYPE SEARCH
  ADD RUN ve2 -3
  GROUP 1
END

STRING FA_DESRIGA_A 50 33
BEGIN
  PROMPT 42 5 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR FA_DESRIGA_A
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Articolo@20" CODART
  COPY OUTPUT FA_CODRIGA_A
  CHECKTYPE SEARCH
  ADD RUN ve2 -3
  GROUP 1
END

STRING FA_CODRIGA_G 20 3
BEGIN
  PROMPT 18 5 ""
  FLAGS "U"
  USE GMC SELECT CODTAB[4,5] == ""
  INPUT CODTAB[1,3] FA_CODRIGA_G
  DISPLAY "Gr. merc." CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT FA_CODRIGA_G CODTAB[1,3]
  OUTPUT FA_DESRIGA_G S0
  CHECKTYPE SEARCH
  GROUP 2
END

STRING FA_DESRIGA_G 50
BEGIN
  PROMPT 25 5 ""
  USE GMC KEY 2 SELECT CODTAB[4,5] == ""
  INPUT S0  F_DESRIGA_G
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gr. merc." CODTAB[1,3]
  COPY OUTPUT FA_CODRIGA_G
  CHECKTYPE SEARCH
  GROUP 2
END

STRING FA_CODRIGA_S 20 5
BEGIN
  PROMPT 18 5 ""
  FLAGS "U"
  USE GMC SELECT CODTAB[4,5] != ""
  INPUT CODTAB FA_CODRIGA_S
  DISPLAY "Gruppo merc." CODTAB[1,3]
  DISPLAY "Sottogr. merc." CODTAB[4,5]
  DISPLAY "Descrizione@50" S0
  OUTPUT FA_CODRIGA_S CODTAB
  OUTPUT FA_DESRIGA_S S0
  CHECKTYPE SEARCH
  GROUP 3
END

STRING FA_DESRIGA_S 50 48
BEGIN
  PROMPT 27 5 ""
  USE GMC KEY 2 SELECT CODTAB[4,5] != "" 
  INPUT S0 FA_DESRIGA_S
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gr. merc." CODTAB[1,3]
  DISPLAY "Sottogr. merc." CODTAB[4,5]
  COPY OUTPUT FA_CODRIGA_S
  CHECKTYPE SEARCH
  GROUP 3
END

STRING FA_CODRIGA_R 20 5
BEGIN
  PROMPT 18 5 ""
  FLAGS "U"
  USE RFA
  INPUT CODTAB FA_CODRIGA_R
  DISPLAY "Ragg. fisc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FA_CODRIGA_R CODTAB
  OUTPUT FA_DESRIGA_R S0
  CHECKTYPE SEARCH
  GROUP 4
END

STRING FA_DESRIGA_R 50 48
BEGIN
  PROMPT 27 5 ""
  USE RFA KEY 2
  INPUT S0 FA_DESRIGA_R
  DISPLAY "Descrizione@50" S0
  DISPLAY "Ragg. fisc." CODTAB
  COPY OUTPUT FA_CODRIGA_R
  CHECKTYPE SEARCH
  GROUP 4
END

STRING FA_GRMERC_A 5
BEGIN
  PROMPT 15 6 "Gr.merc. "
  USE GMC
  INPUT CODTAB FA_GRMERC_A
  OUTPUT FA_DESGRMERC_A S0
  FLAGS "DG"
  CHECKTYPE NORMAL
  GROUP 1 2 3
END

STRING FA_DESGRMERC_A 50 27
BEGIN
  PROMPT 30 6 ""
  FLAGS "D"
  GROUP 1 2 3
END

BUTTON DLG_GRMERC 18 1
BEGIN
  PROMPT 58 6 "Modifica Gr.Merc."
  GROUP 1
END

//------------------------------------------

TEXT -1
BEGIN
  PROMPT 0 6 "@bRighe listino"
END

SPREADSHEET FA_RIGHE
BEGIN
  PROMPT 1 7 "Righe"
  ITEM "Tipo@4"
  ITEM "Codice@20"
  ITEM "Descrizione@50"
  ITEM "Prezzo netto@18"
  ITEM "UM"
  ITEM "N.Scagl."
  ITEM "Qta lim. scagl."
  ITEM "Sconto@25"
  ITEM "Add.IVA"
  ITEM "Cod.IVA"
  ITEM "Qta sconto/omag"
  ITEM "Qta base sconto"
  ITEM "Cod. art. omaggio@20"
  ITEM "UM omaggio"
  ITEM "Prezzo omaggio"
  ITEM "Prezzo storico"
  ITEM "Data prz.storico"
  ITEM "Data ult.aumento"
  ITEM "% provvigione"
END

ENDPAGE

PAGE "Dati avanzati" 0 2 0 0

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 0 "@bGestione valuta"
END

STRING FA_CODVAL 5
BEGIN
  PROMPT 1 1 "Valuta "
  FIELD CODVAL
  FLAGS "U"
  USE %VAL
  INPUT CODTAB FA_CODVAL
  DISPLAY "Valuta" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Cambio" S4
  OUTPUT FA_CODVAL CODTAB
  OUTPUT FA_CONTROEURO B1
  OUTPUT FA_CAMBIO S4
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,FA_CAMBIO|CLEAR,FA_DATACAM|DISABLE,FA_DATACAM
  MESSAGE ENABLE,FA_CAMBIO|ENABLE,FA_DATACAM
END

NUMBER FA_CAMBIO 15 6
BEGIN
  PROMPT 17 1 "Cambio "
  FIELD CAMBIO
END

BOOLEAN FA_CONTROEURO
BEGIN
  PROMPT 42 1 "Contro Euro"
  FIELD CONTROEURO
END

DATA FA_DATACAM
BEGIN
  PROMPT 61 1 "Data "
  FIELD DATACAM
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 3 "@bScaglioni"
END

BOOLEAN FA_GESTSCAGL
BEGIN
  PROMPT 1 4 "Gestione scaglioni"
  FIELD GESTSCAGL
  MESSAGE FALSE CLEAR,FA_DECIMALI
  MESSAGE TRUE ENABLE,FA_DECIMALI
END

LISTBOX FA_DECIMALI 7
BEGIN
  PROMPT 25 4 "Decimali per quantita' limite "
  FIELD DECIMALI
  ITEM "0|Nessuno"
  ITEM "1|1"
  ITEM "2|2"
  ITEM "3|3"
  ITEM "4|4"
  ITEM "5|5"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 6 "@bSequenza ricerca"
END

LIST FA_SEQRIC_1 10
BEGIN
  PROMPT 1 7 ""
  FIELD SEQRIC[1,1]
  ITEM "A|Articoli"
  ITEM "G|Gruppo M."
  ITEM "S|Sottog. M."
  ITEM "R|Ragg.fisc."
END

LIST FA_SEQRIC_2 10
BEGIN
  PROMPT 18 7 ""
  FIELD SEQRIC[2,2]
  ITEM "-|Nessuno"    MESSAGE CLEAR,5@
  ITEM "A|Articoli"   MESSAGE ENABLE,FA_SEQRIC_3
  ITEM "G|Gruppo M."  MESSAGE ENABLE,FA_SEQRIC_3
  ITEM "S|Sottog. M." MESSAGE ENABLE,FA_SEQRIC_3
  ITEM "R|Ragg.fisc." MESSAGE ENABLE,FA_SEQRIC_3
  STR_EXPR (#THIS_FIELD=="-")||(#THIS_FIELD!=#FA_SEQRIC_1)
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END

LIST FA_SEQRIC_3 10
BEGIN
  PROMPT 33 7 ""
  FIELD SEQRIC[3,3]
  ITEM "-|Nessuno"     MESSAGE CLEAR,FA_SEQRIC_4
  ITEM "A|Articoli"    MESSAGE ENABLE,FA_SEQRIC_4
  ITEM "G|Gruppo M."   MESSAGE ENABLE,FA_SEQRIC_4
  ITEM "S|Sottog. M."  MESSAGE ENABLE,FA_SEQRIC_4
  ITEM "R|Ragg.fisc."  MESSAGE ENABLE,FA_SEQRIC_4
  GROUP 5
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#FA_SEQRIC_1)&&(#THIS_FIELD!=#FA_SEQRIC_2))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END

LIST FA_SEQRIC_4 10
BEGIN
  PROMPT 48 7 ""
  FIELD SEQRIC[4,4]
  ITEM "-|Nessuno"
  ITEM "A|Articoli"
  ITEM "G|Gruppo M."
  ITEM "S|Sottog. M."
  ITEM "R|Ragg.fisc."
  GROUP 5
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#FA_SEQRIC_1)&&(#THIS_FIELD!=#FA_SEQRIC_2)&&(#THIS_FIELD!=#FA_SEQRIC_3))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 9 "@bListino successivo"
END

STRING FA_L_CODSUCC 3
BEGIN
  PROMPT 1 10 ""
  FIELD CODLISSUCC
  FLAGS "U"
  USE LF_CONDV
  INPUT TIPO "L"
  INPUT CATVEN FA_L_CATVEN SELECT
  INPUT COD FA_L_CODSUCC
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT FA_L_CODSUCC COD
  OUTPUT FA_L_DESSUCC DESCR
  CHECKTYPE NORMAL
END

STRING FA_L_DESSUCC 50
BEGIN
  PROMPT 10 10 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 12 "@bListino padre"
END

STRING FA_L_FATHCATVEN 2
BEGIN
  PROMPT 1 13 "Cat. ven. "
  FIELD FATHCATVEN
  FLAGS "U"
  USE CVE
  INPUT CODTAB FA_L_FATHCATVEN
  DISPLAY "Cat." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FA_L_FATHCATVEN CODTAB
  OUTPUT FA_L_FATHDESVEN S0
  CHECKTYPE NORMAL
END

STRING FA_L_FATHDESVEN 50
BEGIN
  PROMPT 18 13 ""
  USE CVE KEY 2
  INPUT S0 FA_L_FATHDESVEN
  DISPLAY "Descrizione@50" S0
  DISPLAY "Cat." CODTAB
  COPY OUTPUT FA_L_FATHCATVEN
END

STRING FA_L_FATHCOD 3
BEGIN
  PROMPT 1 14 "Listino   "
  FIELD FATHCOD
  FLAGS "U"
  USE LF_CONDV SELECT (CATVEN!=#FA_L_CATVEN)||(COD!=#FA_COD)
  INPUT TIPO "L"
  INPUT CATVEN FA_L_FATHCATVEN SELECT
  INPUT COD FA_L_FATHCOD
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Valuta" CODVAL
  DISPLAY "Fine validita'" VALFIN
  OUTPUT FA_L_FATHCATVEN CATVEN
  OUTPUT FA_L_FATHCOD COD
  OUTPUT FA_L_FATHDESCR DESCR
  CHECKTYPE NORMAL
END

STRING FA_L_FATHDESCR 50
BEGIN
  PROMPT 18 14 ""
  FLAGS "D"
END

STRING FA_L_ARROTONDA 8
BEGIN
  PROMPT 1 15 "Arrotonda "
  FIELD ARROTONDA
END

TEXT -1
BEGIN
  PROMPT 21 15 "es. -0,05=per difetto ai 5 cent; +0,10=per eccesso ai 10 cent"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 17 "@bParametri gestione"
END

BOOLEAN FA_IMPLORDI
BEGIN
  PROMPT 1 18 "Importi lordi"
  FIELD IMPLORDI
END

BOOLEAN FA_GESTUM
BEGIN
  PROMPT 20 18 "Gestione unita` di misura"
  FIELD GESTUM
END

BOOLEAN FA_GESTSCO
BEGIN
  PROMPT 50 18 "Gestione sconti/omaggi"
  FIELD GESTSCO
END

ENDPAGE

ENDMASK

/////////////////////////////////////////
//maschera di riga
TOOLBAR "topbar" 0 0 0 2

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

PAGE "Riga listino" -1 -1 78 22

LIST S_TIPORIGA 1 16
BEGIN
  PROMPT 1 0 "Tipo riga "
  FIELD TIPORIGA
  ITEM "A|Articolo"
  MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|SHOW,1@
  ITEM "G|Gruppo merc."
  MESSAGE HIDE,1@|HIDE,3@|HIDE,4@|SHOW,2@
  ITEM "S|Sottogr. merc."
  MESSAGE HIDE,1@|HIDE,2@|HIDE,4@|SHOW,3@
  ITEM "R|Ragg. fiscale"
  MESSAGE HIDE,1@|HIDE,2@|HIDE,3@|SHOW,4@
END

STRING S_CODRIGA_A 20
BEGIN
  PROMPT 1 1 "Articolo  "
  FIELD CODRIGA
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART S_CODRIGA_A
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_CODRIGA_A CODART
  OUTPUT S_DESRIGA_A DESCR
  CHECKTYPE FORCED
  ADD RUN ve2 -3
  GROUP 1
END

STRING S_DESRIGA_A 50 39
BEGIN
  PROMPT 35 1 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR S_DESRIGA_A
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Articolo@20" CODART
  COPY OUTPUT S_CODRIGA_A
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  GROUP 1
END

STRING S_CODRIGA_G 20 3
BEGIN
  PROMPT 1 1 "Gr. merceologico "
  FIELD CODRIGA
  FLAGS "U"
  USE GMC SELECT CODTAB[4,5] == ""
  INPUT CODTAB[1,3] S_CODRIGA_G
  DISPLAY "Gr. merc." CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODRIGA_G CODTAB[1,3]
  OUTPUT S_DESRIGA_G S0
  CHECKTYPE FORCED
  GROUP 2
END

STRING S_DESRIGA_G 50
BEGIN
  PROMPT 24 1 ""
  USE GMC KEY 2 SELECT CODTAB[4,5] == ""
  INPUT S0  S_DESRIGA_G
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gr. merc." CODTAB[1,3]
  COPY OUTPUT S_CODRIGA_G
  CHECKTYPE NORMAL
  GROUP 2
END

STRING S_CODRIGA_S 20 5
BEGIN
  PROMPT 1 1 "Sottogr. merc. "
  FIELD CODRIGA
  FLAGS "U"
  USE GMC SELECT CODTAB[4,5] != ""
  INPUT CODTAB S_CODRIGA_S
  DISPLAY "Gruppo merc." CODTAB[1,3]
  DISPLAY "Sottogr. merc." CODTAB[4,5]
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODRIGA_S CODTAB
  OUTPUT S_DESRIGA_S S0
  CHECKTYPE FORCED
  GROUP 3
END

STRING S_DESRIGA_S 50
BEGIN
  PROMPT 24 1 ""
  USE GMC KEY 2 SELECT CODTAB[4,5] != "" 
  INPUT S0 S_DESRIGA_S
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gr. merc." CODTAB[1,3]
  DISPLAY "Sottogr. merc." CODTAB[4,5]
  COPY OUTPUT S_CODRIGA_S
  CHECKTYPE NORMAL
  GROUP 3
END

STRING S_CODRIGA_R 20 5
BEGIN
  PROMPT 1 1 "Raggr. fiscale "
  FIELD CODRIGA
  FLAGS "U"
  USE RFA
  INPUT CODTAB S_CODRIGA_R
  DISPLAY "Ragg. fisc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODRIGA_R CODTAB
  OUTPUT S_DESRIGA_R S0
  CHECKTYPE FORCED
  GROUP 4
END

STRING S_DESRIGA_R 50
BEGIN
  PROMPT 24 1 ""
  USE RFA KEY 2
  INPUT S0 S_DESRIGA_R
  DISPLAY "Descrizione@50" S0
  DISPLAY "Ragg. fisc." CODTAB
  COPY OUTPUT S_CODRIGA_R
  CHECKTYPE NORMAL
  GROUP 4
END

NUMBER S_PREZZO 18 5
BEGIN
  PROMPT 2 2 "Prezzo "
  FIELD PREZZO
  FLAGS "U"
  DRIVENBY -FA_CODVAL
END

STRING S_UM 2
BEGIN
  PROMPT 67 0 "U.M. "
  FIELD UM
  FLAGS "U"
  USE LF_UMART KEY 2
  JOIN %UMS INTO CODTAB=UM
  INPUT CODART S_CODRIGA_A SELECT
  INPUT UM S_UM
  DISPLAY "U.M." UM
  DISPLAY "Descrizione@50" %UMS->S0
  OUTPUT S_UM UM
  CHECKTYPE FORCED
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 3 "Scaglione"
END

NUMBER S_NSCAGL 1
BEGIN
  PROMPT 2 4 "Numero   "
  FIELD NSCAGL
  CHECKTYPE REQUIRED
END

NUMBER S_QLIM 15 5
BEGIN
  PROMPT 24 4 "Qta limite "
  FIELD QLIM
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 6 "IVA"
END

BOOLEAN S_ADDIVA
BEGIN
  PROMPT 2 7 "Addebito"
  FIELD ADDIVA
END

STRING S_CODIVA 4
BEGIN
  PROMPT 25 7 "Codice"
  FIELD CODIVA
  FLAGS "U"
  USE %IVA
  INPUT CODTAB S_CODIVA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODIVA CODTAB
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 76 8
BEGIN
  PROMPT 1 9 "Sconti e omaggi"
END

STRING S_SCONTO 25
BEGIN
  PROMPT 2 10 "Sconto/maggiorazione  "
  FIELD SCONTO
  FLAGS "U"
END

NUMBER S_QOM 15 5
BEGIN
  PROMPT 2 11 "Qta sconto/omaggio    "
  FIELD QOM
END

NUMBER S_QBASE 15 5
BEGIN
  PROMPT 2 12 "Qta base sconto       "
  FIELD QBASE
END

STRING S_CODARTOM 20
BEGIN
  PROMPT 2 13 "Cod. articolo omaggio "
  FIELD CODARTOM
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART S_CODARTOM
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_CODARTOM CODART
  CHECKTYPE NORMAL
END

STRING S_UMOM 2
BEGIN
  PROMPT 2 14 "U.M. qta omaggio      "
  FIELD UMOM
  FLAGS "U"
  USE LF_UMART KEY 2
  JOIN %UMS INTO CODTAB=UM
  INPUT CODART S_CODARTOM SELECT
  INPUT UM F_UMOM
  DISPLAY "U.M." UM
  DISPLAY "Descrizione@50" %UMS->S0
  OUTPUT S_UMOM UM
END

NUMBER S_PROMAGGIO 18 5
BEGIN
  PROMPT 2 15 "Prezzo omaggio        "
  FIELD PROMAGGIO
  FLAGS "U"
  DRIVENBY -FA_CODVAL
END

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 17 "Storico"
END

NUMBER S_PRZSTO 18 5
BEGIN
  PROMPT 2 18 "Prezzo storico        "
  FIELD PRZSTO
  FLAGS "U"
END

DATA S_DATAPRZSTO
BEGIN
  PROMPT 2 19 "Data prz storico      "
  FIELD DATAPRZSTO
END

DATA S_DATAULTAUM
BEGIN
  PROMPT 2 20 "Data ultimo aumento   "
  FIELD DATAULTAUM
END

NUMBER S_PERCPROVV 5 2
BEGIN
  PROMPT 2 22 "% provv. "
  FIELD PERCPROVV
  NUM_EXPR (#F_PERCPROVV>=0)&&(#F_PERCPROVV<=100)
  WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100"
END

ENDPAGE

ENDMASK