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 4 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_ELABORA
END

BUTTON DLG_NEWREC 2 2
BEGIN
  PROMPT 5 1 "+Articoli"
  PICTURE TOOL_IMPORT
END

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

BUTTON DLG_INFO 2 2
BEGIN
  PROMPT 7 1 "Info"
  MESSAGE EXIT,K_F2
  PICTURE TOOL_INFO
END

BUTTON DLG_HELP 2 2
BEGIN
  PROMPT 8 1 "Help"
  MESSAGE EXIT,K_F1
  PICTURE TOOL_HELP
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 9 1 "Annulla"
  MESSAGE EXIT,K_ESC
  PICTURE TOOL_CANCEL
END

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 "
  USE CVE
  INPUT CODTAB F_FATHCATVEN
  OUTPUT F_FATHDESVEN S0
  CHECKTYPE NORMAL
  FLAGS "D"
END

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

STRING F_FATHCODLIS 3
BEGIN
  PROMPT 23 0 ""
  USE LF_CONDV 
  INPUT TIPO "L"
  INPUT CATVEN F_FATHCATVEN
  INPUT COD F_FATHCODLIS
  OUTPUT F_FATHDESLIS DESCR
  OUTPUT F_ARROTONDA ARROTONDA
  CHECKTYPE REQUIRED
  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 2
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

STRING F_ARROTONDA 8
BEGIN
  PROMPT 27 2 "Arrotondamento "
  FLAGS "D"
END

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

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

SPREADSHEET F_MULTILISTINI
BEGIN
  PROMPT 0 9 "Aggiornamento figli"
  ITEM "@1"
  ITEM "Descrizione\nArticolo@30"
  ITEM "U. M. \nPrezzo base@8R"
  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
PAGE "Riga listino figlio" -1 -1 72 5

STRING S1_CATVEN 2
BEGIN
  PROMPT 1 1 "Cat. ven. "
  FLAGS "UD"
END

STRING S1_CODLIS 3
BEGIN
  PROMPT 1 2 "Listino   "
  FLAGS "UD"
END

NUMBER S1_RICARICO 4
BEGIN
  PROMPT 1 3 "Ricarico  "
END

STRING S1_ARROTONDA 8
BEGIN
  PROMPT 1 4 "Arrotonda "
END

STRING S1_DESLIS 50
BEGIN
  PROMPT 18 2 ""
  FLAGS "D"
END

ENDPAGE

TOOLBAR "" 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

ENDMASK


///////////////////////////////////////////////
//maschera di riga sheet aggiornamento listini
PAGE "Riga aggiornamento listini" -1 -1 40 10

BOOLEAN S2_CHECK
BEGIN
  PROMPT 1 0 "Applica ricarico "
  GROUP 1
END

STRING S2_CODRIGA 50 20
BEGIN
  PROMPT 1 1 "Codice "
  FLAGS "D"
END

STRING S2_PREZZO 8
BEGIN
  PROMPT 1 2 "Prezzo "
  FLAGS "R"
  GROUP 1
END

CURRENCY S2_LIST1 8
BEGIN
  PROMPT 1 4 "List1  "
  FLAGS "U"
  GROUP 1
END

CURRENCY S2_LIST2 8
BEGIN
  PROMPT 1 5 "List2  "
  FLAGS "U"
  GROUP 1
END

CURRENCY S2_LIST3 8
BEGIN
  PROMPT 1 6 "List3  "
  FLAGS "U"
  GROUP 1
END

CURRENCY S2_LIST4 8
BEGIN
  PROMPT 1 7 "List4  "
  FLAGS "U"
  GROUP 1
END

CURRENCY S2_LIST5 8
BEGIN
  PROMPT 1 8 "List5  "
  FLAGS "U"
  GROUP 1
END

CURRENCY S2_LIST6 8
BEGIN
  PROMPT 21 4 "List6  "
  FLAGS "U"
  GROUP 1
END

CURRENCY S2_LIST7 8
BEGIN
  PROMPT 21 5 "List7  "
  FLAGS "U"
  GROUP 1
END

CURRENCY S2_LIST8 8
BEGIN
  PROMPT 21 6 "List8  "
  FLAGS "U"
  GROUP 1
END

CURRENCY S2_LIST9 8
BEGIN
  PROMPT 21 7 "List9  "
  FLAGS "U"
  GROUP 1
END

CURRENCY S2_LIST10 8
BEGIN
  PROMPT 21 8 "List10 "
  FLAGS "U"
  GROUP 1
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