76d5da7cff
Files correlati : Ricompilazione Demo : [ ] Commento : aggiunta prima stesura del nuovo programma listini (per adesso li legge ma non li scrive! è un carabiniere..) git-svn-id: svn://10.65.10.50/trunk@19327 c028cbd2-c16b-5b4b-a496-9718f37d4682
669 lines
11 KiB
Plaintext
Executable File
669 lines
11 KiB
Plaintext
Executable File
#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 |