//maschera comune a 'L'istini 'C'ontratti 'O'fferte

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

DATA FA_VALFIN
BEGIN
  PROMPT 35 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

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

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 "@bParametri gestione"
END

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

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

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