campo-sirio/ve/ve2700b.uml

#include "ve2700.h"

TOOLBAR "Toolbar" 0 0 0 2

BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 1 1 "~Salva"
  PICTURE TOOL_SAVEREC
END

BUTTON DLG_NULL 2 2
BEGIN
  PROMPT 2 1 ""
  PICTURE 0
END

BUTTON DLG_CHECKALL 2 2
BEGIN
  PROMPT 3 1 "~Tutti"
  PICTURE TOOL_MULTISEL
END

BUTTON DLG_APPLICA 2 2
BEGIN
  PROMPT 4 1 "~Applica"
  PICTURE TOOL_CONVERT
END

BUTTON DLG_ADDART 2 2
BEGIN
  PROMPT 5 1 "A~ggiunge"
  PICTURE TOOL_IMPORT
END

#include <cancelbar.h>

ENDPAGE

PAGE "Aggiornamento listini" 0 2 0 0

LIST DLG_NULL 1 7
BEGIN
  PROMPT 100 100 ""
  ITEM "L|Listino"
  FLAGS "D"
  FIELD TIPO
  KEY 1
END

STRING F_FATHCATVEN 2
BEGIN
  PROMPT 0 0 "@bDati listino padre "
  FLAGS "D"
END

STRING F_FATHDESVEN 10
BEGIN
  PROMPT 1 0 ""
  FLAGS "H"
END

STRING F_FATHCODLIS 3
BEGIN
  PROMPT 23 0 ""
  FLAGS "D"
END

STRING F_FATHDESLIS 50 48
BEGIN
  PROMPT 27 0 ""
  FLAGS "D"
END

STRING F_GRMERC 3
BEGIN
  PROMPT 0 1 "Gr. merc. "
  FLAGS "U"
  USE GMC SELECT CODTAB[4,5] == ""
  INPUT CODTAB[1,3] F_GRMERC
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_GRMERC CODTAB[1,3]
  OUTPUT F_DESGRMERC S0
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_SOTGRMERC 5
BEGIN
  PROMPT 19 1 ""
  FLAGS "U"
  USE GMC 
  COPY INPUT F_GRMERC
  INPUT CODTAB[4,5] F_SOTGRMERC
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Sottogruppo" CODTAB[4,5]
  DISPLAY "Descrizione@50" S0
  COPY OUTPUT F_GRMERC
  OUTPUT F_SOTGRMERC CODTAB[4,5]
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_DESGRMERC 50 48
BEGIN
  PROMPT 27 1 ""
  USE GMC KEY 2
  INPUT S0 F_DESGRMERC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Sottogruppo" CODTAB[4,5]
  COPY OUTPUT F_SOTGRMERC
  CHECKTYPE NORMAL
  GROUP 2
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 2 "@bListini figli"
END

SPREADSHEET F_LISTINI_FIGLI 78 4
BEGIN
  PROMPT 0 3 "Listini figli"
  ITEM "Cat.Ven."
  ITEM "Codice"
  ITEM "Ricarico@8"
  ITEM "Descrizione@50"
END

SPREADSHEET F_MULTILISTINI -1 -1
BEGIN
  PROMPT 0 8 "Aggiornamento figli"
  ITEM "Descrizione\nArticolo@30"
  ITEM "U. M. \nPrezzo base@8"
  ITEM "Figlio 1@8"
  ITEM "Figlio 2@8"
  ITEM "Figlio 3@8"
  ITEM "Figlio 4@8"
  ITEM "Figlio 5@8"
  ITEM "Figlio 6@8"
  ITEM "Figlio 7@8"
  ITEM "Figlio 8@8"
  ITEM "Figlio 9@8"
  ITEM "Figlio 10@8"
END

ENDPAGE

ENDMASK

////////////////////////////////////////////
//maschera di riga sheet dei listini figli
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 figlio" -1 -1 78 22

STRING F_CATVEN 2
BEGIN
  PROMPT 1 1 "Cat. ven. "
  FLAGS "U"
  KEY 1
  USE CVE
  INPUT CODTAB F_CATVEN
  DISPLAY "Cat." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CATVEN CODTAB
END

STRING F_CODLIS 3
BEGIN
  PROMPT 1 2 "Listino   "
  FLAGS "U"
END

STRING F_RICARICO 5
BEGIN
  PROMPT 1 3 "Ricarico  "
END

STRING F_DESLIS 50
BEGIN
  PROMPT 18 2 ""
  FLAGS ""
END

ENDPAGE

ENDMASK


///////////////////////////////////////////////
//maschera di riga sheet aggiornamento listini
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 aggiornamento listini" -1 -1 78 22

STRING F_CODRIGA 50 20
BEGIN
  PROMPT 1 1 "Codice "
END

STRING F_PREZZO 8
BEGIN
  PROMPT 1 2 "Prezzo "
END

CURRENCY F_LIST1 8
BEGIN
  PROMPT 1 4 "List1 "
  FLAGS "U"
END

CURRENCY F_LIST2 8
BEGIN
  PROMPT 1 5 "List2 "
  FLAGS "U"
END

CURRENCY F_LIST3 8
BEGIN
  PROMPT 1 6 "List3 "
  FLAGS "U"
END

CURRENCY F_LIST4 8
BEGIN
  PROMPT 1 7 "List4 "
  FLAGS "U"
END

CURRENCY F_LIST5 8
BEGIN
  PROMPT 1 8 "List5 "
  FLAGS "U"
END

CURRENCY F_LIST6 8
BEGIN
  PROMPT 1 9 "List6 "
  FLAGS "U"
END

CURRENCY F_LIST7 8
BEGIN
  PROMPT 1 10 "List7 "
  FLAGS "U"
END

CURRENCY F_LIST8 8
BEGIN
  PROMPT 1 11 "List8 "
  FLAGS "U"
END

CURRENCY F_LIST9 8
BEGIN
  PROMPT 1 12 "List9 "
  FLAGS "U"
END

CURRENCY F_LIST10 8
BEGIN
  PROMPT 1 13 "List10 "
  FLAGS "U"
END

ENDPAGE

ENDMASK