campo-sirio/ve/ve2800a.uml

#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_NULL 4 2
BEGIN
  PROMPT 2 1 ""
  PICTURE 0
END

BUTTON DLG_NEWREC 2 2
BEGIN
  PROMPT 5 1 "+Articoli"
  PICTURE TOOL_IMPORT
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
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
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
  OUTPUT F_FROMCOD CODART
  OUTPUT F_FROMDES DESCR
  CHECKTYPE SEARCH
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
  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
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


SPREADSHEET F_LISTINO
BEGIN
  PROMPT 0 6 "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"
END

ENDPAGE

ENDMASK

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

STRING F_CODART 20
BEGIN
  PROMPT 1 1 "Articolo    "
  FLAGS "DG"
  FIELD CODRIGA
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 "
  FLAGS "D"
  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
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 3
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

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_USER 2 2
BEGIN
  PROMPT 2 1 "A~zzera"
  PICTURE TOOL_CELLULAR 
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

ENDMASK