#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 "Replaced by@20"
END

ENDPAGE

ENDMASK

// maschera di riga sheet
PAGE "Riga aggiornamento listini" -1 -1 66 12

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 "
  FLAGS "D"
END

STRING F_DESCENG 50
BEGIN
  PROMPT 1 10 "Descr. ENG "
  FLAGS "D"
END

STRING F_DESCDEU 50
BEGIN
  PROMPT 1 11 "Descr. DEU "
  FLAGS "D"
EN

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