337 lines
4.7 KiB
Plaintext
337 lines
4.7 KiB
Plaintext
#include "ve2800.h"
|
|
|
|
TOOLBAR "Toolbar" 0 0 0 2
|
|
|
|
BUTTON DLG_SAVEREC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Salva"
|
|
PICTURE TOOL_SAVEREC
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON DLG_RECALC 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "Aggiorna Prezzi"
|
|
PICTURE TOOL_RECALC
|
|
END
|
|
|
|
BUTTON DLG_NEWREC 2 2
|
|
BEGIN
|
|
PROMPT 3 1 "+Articoli"
|
|
PICTURE TOOL_IMPORT
|
|
END
|
|
|
|
BUTTON DLG_NULL 2 2
|
|
BEGIN
|
|
PROMPT 4 1 ""
|
|
END
|
|
|
|
BUTTON DLG_EXPORT 2 2
|
|
BEGIN
|
|
PROMPT 5 1 "Excel"
|
|
PICTURE TOOL_EXCEL
|
|
END
|
|
|
|
BUTTON DLG_PREVIEW 2 2
|
|
BEGIN
|
|
PROMPT 5 1 "Anteprima"
|
|
PICTURE TOOL_PREVIEW
|
|
END
|
|
|
|
BUTTON DLG_PRINT 2 2
|
|
BEGIN
|
|
PROMPT 6 1 "Stampa"
|
|
PICTURE TOOL_PRINT
|
|
END
|
|
|
|
#include <helpbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Ricarico Listini" 0 2 0 0
|
|
|
|
STRING F_CODLIS 3
|
|
BEGIN
|
|
PROMPT 1 0 "Listino "
|
|
USE LF_CONDV
|
|
INPUT TIPO "L"
|
|
INPUT COD F_CODLIS
|
|
DISPLAY "Codice" COD
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Valuta" CODVAL
|
|
OUTPUT F_CODLIS COD
|
|
OUTPUT F_DESLIS COD
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "U"
|
|
ADD RUN ve2 -1
|
|
END
|
|
|
|
STRING F_DESLIS 50
|
|
BEGIN
|
|
PROMPT 18 0 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_FILTRIC 4
|
|
BEGIN
|
|
PROMPT 1 1 "Ricarico "
|
|
USE &RIC
|
|
INPUT CODTAB F_FILTRIC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Desrizione@50" S0
|
|
DISPLAY "Ricarico@V" R0
|
|
OUTPUT F_FILTRIC CODTAB
|
|
OUTPUT F_DESRIC S0
|
|
CHEKTYPE NORMAL
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_DESRIC 50
|
|
BEGIN
|
|
PROMPT 18 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_FROMCOD 20
|
|
BEGIN
|
|
PROMPT 1 2 "Dall'articolo "
|
|
USE ANAMAG
|
|
INPUT CODART F_FROMCOD
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Descrizione@20" DESCR
|
|
DISPLAY "Costo" ULTCOS1
|
|
DISPLAY "Ricarico" USER3
|
|
DISPLAY "Replaced by@20" CODARTALT
|
|
OUTPUT F_FROMCOD CODART
|
|
OUTPUT F_FROMDES DESCR
|
|
CHECKTYPE SEARCH
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_FROMDES 50
|
|
BEGIN
|
|
PROMPT 18 3 ""
|
|
USE ANAMAG KEY 2
|
|
INPUT DESCR F_FROMDES
|
|
DISPLAY "Descrizione@20" DESCR
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Costo" ULTCOS1
|
|
DISPLAY "Ricarico" USER3
|
|
DISPLAY "Replaced by@20" CODARTALT
|
|
COPY OUTPUT F_FROMCOD
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_TOCOD 20
|
|
BEGIN
|
|
PROMPT 1 4 "All'articolo "
|
|
COPY USE F_FROMCOD
|
|
INPUT CODART F_TOCOD
|
|
COPY DISPLAY F_FROMCOD
|
|
OUTPUT F_TOCOD CODART
|
|
OUTPUT F_TODES DESCR
|
|
CHECKTYPE SEARCH
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_TODES 50
|
|
BEGIN
|
|
PROMPT 18 5 ""
|
|
COPY USE F_FROMDES
|
|
INPUT DESCR F_TODES
|
|
COPY DISPLAY F_FROMDES
|
|
COPY OUTPUT F_TOCOD
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
LIST F_SORT 1 10
|
|
BEGIN
|
|
PROMPT 1 6 "Ordinamento "
|
|
ITEM "A|Articolo"
|
|
ITEM "D|Delta"
|
|
ITEM "P|Prezzo"
|
|
END
|
|
|
|
NUMBER F_RECORDS 6
|
|
BEGIN
|
|
PROMPT 47 6 "Righe di listino "
|
|
FLAGS "D"
|
|
END
|
|
|
|
SPREADSHEET F_LISTINO
|
|
BEGIN
|
|
PROMPT 0 7 "Listino"
|
|
ITEM "Articolo@20"
|
|
ITEM "Descrizione@30"
|
|
ITEM "Sconto"
|
|
ITEM "Costo@12"
|
|
ITEM "Ricarico"
|
|
ITEM "Prezzo\nAttuale@12"
|
|
ITEM "Prezzo\nNuovo@12"
|
|
ITEM "Prezzo\nDelta@7"
|
|
ITEM "Margine\nAttuale@7"
|
|
ITEM "Margine\nNuovo@7"
|
|
ITEM "Margine\nDelta@7"
|
|
ITEM "Descrizione\nFrancese@30"
|
|
ITEM "Descrizione\nInglese@30"
|
|
ITEM "Descrizione\nTedesco@30"
|
|
ITEM "Descrizione\nItaliano@30"
|
|
ITEM "Replaced by@20"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
// maschera di riga sheet
|
|
PAGE "Riga aggiornamento listini" -1 -1 66 13
|
|
|
|
STRING F_CODART 20
|
|
BEGIN
|
|
PROMPT 1 1 "Articolo "
|
|
FLAGS "DG"
|
|
FIELD CODRIGA
|
|
END
|
|
|
|
STRING F_CODARTALT 20
|
|
BEGIN
|
|
PROMPT 35 1 "Rep. by "
|
|
FLAGS "D"
|
|
FIELD LF_ANAMAG->CODARTALT
|
|
END
|
|
|
|
STRING F_DESCART 50
|
|
BEGIN
|
|
PROMPT 1 2 "Descrizione "
|
|
FLAGS "D"
|
|
FIELD LF_ANAMAG->DESCR
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 64 6
|
|
BEGIN
|
|
PROMPT 1 3 "Calcolo Prezzo"
|
|
END
|
|
|
|
CURRENCY F_COSTO 12
|
|
BEGIN
|
|
PROMPT 2 4 "@bCosto "
|
|
FLAGS "U"
|
|
FIELD LF_ANAMAG->ULTCOS1
|
|
END
|
|
|
|
NUMBER F_SCONTO 3
|
|
BEGIN
|
|
PROMPT 35 4 "Sconto "
|
|
FIELD SCONTO
|
|
END
|
|
|
|
STRING F_RICARICO 4
|
|
BEGIN
|
|
PROMPT 48 4 "Ricarico "
|
|
USE &RIC
|
|
INPUT CODTAB F_RICARICO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Desrizione@50" S0
|
|
DISPLAY "Ricarico@V" R0
|
|
OUTPUT F_RICARICO CODTAB
|
|
CHEKTYPE NORMAL
|
|
FIELD LF_ANAMAG->USER3
|
|
FLAGS "U"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 11 5 "Attuale"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 32 5 "Nuovo"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 50 5 "Delta"
|
|
END
|
|
|
|
CURRENCY F_OLDPRICE 12
|
|
BEGIN
|
|
PROMPT 2 6 "@bPrezzo "
|
|
FIELD PREZZO
|
|
FLAGS "U"
|
|
END
|
|
|
|
CURRENCY F_NEWPRICE 12
|
|
BEGIN
|
|
PROMPT 32 6 ""
|
|
FLAGS "DUG"
|
|
END
|
|
|
|
NUMBER F_DELTAPRICE 4
|
|
BEGIN
|
|
PROMPT 50 6 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_OLDMARGIN 4
|
|
BEGIN
|
|
PROMPT 2 7 "@bMargine "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_NEWMARGIN 4
|
|
BEGIN
|
|
PROMPT 32 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_DELTAMARGIN 4
|
|
BEGIN
|
|
PROMPT 50 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DESCFRA 50
|
|
BEGIN
|
|
PROMPT 1 9 "Descr. FRA "
|
|
END
|
|
|
|
STRING F_DESCENG 50
|
|
BEGIN
|
|
PROMPT 1 10 "Descr. ENG "
|
|
END
|
|
|
|
STRING F_DESCDEU 50
|
|
BEGIN
|
|
PROMPT 1 11 "Descr. DEU "
|
|
END
|
|
|
|
STRING F_DESCITA 50
|
|
BEGIN
|
|
PROMPT 1 12 "Descr. ITA "
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_EDIT 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "Azzera"
|
|
PICTURE TOOL_RESET
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 3 1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|