331 lines
6.3 KiB
Plaintext
Executable File
331 lines
6.3 KiB
Plaintext
Executable File
//maschera comune a 'L'istini 'C'ontratti 'O'fferte
|
|
|
|
DATA FA_VALINI
|
|
BEGIN
|
|
PROMPT 1 3 "Inizio validità "
|
|
FIELD VALIN
|
|
END
|
|
|
|
DATA FA_VALFIN
|
|
BEGIN
|
|
PROMPT 35 3 "Fine validità "
|
|
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_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
|
|
|
|
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
|