#include "ve2500a.h"

TOOLBAR "Toolbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Dati generali e Righe" 0 2 0 0

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

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

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

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

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

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

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

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

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

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 1 6 "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 F_L_CODVAL 5
BEGIN
  PROMPT 1 1 "Valuta "
  FIELD CODVAL
  FLAGS "U"
  USE %VAL
  INPUT CODTAB F_L_CODVAL
  DISPLAY "Valuta" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Cambio" S4
  OUTPUT F_L_CODVAL CODTAB
  OUTPUT F_L_CONTROEURO B1
  OUTPUT F_L_CAMBIO S4
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,F_L_CAMBIO|CLEAR,F_L_DATACAM|DISABLE,F_L_DATACAM
  MESSAGE ENABLE,F_L_CAMBIO|ENABLE,F_L_DATACAM
END

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

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

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

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

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

LISTBOX F_L_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 F_L_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 F_L_SEQRIC_2 10
BEGIN
  PROMPT 18 7 ""
  FIELD SEQRIC[2,2]
  ITEM "-|Nessuno"    MESSAGE CLEAR,5@
  ITEM "A|Articoli"   MESSAGE ENABLE,F_L_SEQRIC_3
  ITEM "G|Gruppo M."  MESSAGE ENABLE,F_L_SEQRIC_3
  ITEM "S|Sottog. M." MESSAGE ENABLE,F_L_SEQRIC_3
  ITEM "R|Ragg.fisc." MESSAGE ENABLE,F_L_SEQRIC_3
  STR_EXPR (#THIS_FIELD=="-")||(#THIS_FIELD!=#F_L_SEQRIC_1)
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END

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

LIST F_L_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!=#F_L_SEQRIC_1)&&(#THIS_FIELD!=#F_L_SEQRIC_2)&&(#THIS_FIELD!=#F_L_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 F_L_CODSUCC 3
BEGIN
  PROMPT 1 10 ""
  FIELD CODLISSUCC
  FLAGS "U"
  USE LF_CONDV
  INPUT TIPO "L"
  INPUT CATVEN F_L_CATVEN SELECT
  INPUT COD F_L_CODSUCC
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_L_CODSUCC COD
  OUTPUT F_L_DESSUCC DESCR
  CHECKTYPE NORMAL
END

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

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

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

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

STRING F_L_FATHCOD 3
BEGIN
  PROMPT 1 14 "Listino   "
  FIELD FATHCOD
  FLAGS "U"
  USE LF_CONDV SELECT COD!=#F_L_COD
  INPUT TIPO "L"
  INPUT CATVEN F_L_FATHCATVEN SELECT
  INPUT COD F_L_FATHCOD
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Valuta" CODVAL
  DISPLAY "Fine validita'" VALFIN
  OUTPUT F_L_FATHCATVEN CATVEN
  OUTPUT F_L_FATHCOD COD
  OUTPUT F_L_FATHDESCR DESCR
  CHECKTYPE NORMAL
END

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

STRING F_L_ARROTONDA 8
BEGIN
  PROMPT 1 15 "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 F_L_IMPLORDI
BEGIN
  PROMPT 1 18 "Importi lordi"
  FIELD IMPLORDI
END

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

BOOLEAN F_L_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 F_TIPORIGA 1 16
BEGIN
  PROMPT 1 0 "Tipo riga "
  FIELD TIPORIGA
  FLAGS "P"
  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 F_CODRIGA_A 20
BEGIN
  PROMPT 1 1 "Articolo  "
  FIELD CODRIGA
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART F_CODRIGA_A
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODRIGA_A CODART
  OUTPUT F_DESRIGA_A DESCR
  CHECKTYPE FORCED
  ADD RUN ve2 -3
  GROUP 1
END

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

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

STRING F_DESRIGA_G 50
BEGIN
  PROMPT 24 1 ""
  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 F_CODRIGA_G
  GROUP 2
END

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

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

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

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

NUMBER F_PREZZO 18 5
BEGIN
  PROMPT 2 2 "Prezzo "
  FIELD PREZZO
  FLAGS "U"
  DRIVENBY -F_L_CODVAL
END

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

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

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

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

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

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

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

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

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

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

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

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

STRING F_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 F_CODARTOM SELECT
  INPUT UM F_UMOM
  DISPLAY "U.M." UM
  DISPLAY "Descrizione@50" %UMS->S0
  OUTPUT F_UMOM UM
END

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

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

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

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

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

NUMBER F_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