campo-sirio/ps/pd6411100a.uml

#include "pd6411100a.h"

TOOLBAR "" 0 0 0 2

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

BUTTON DLG_CANCEL
BEGIN
  PROMPT 1 1 "Annulla"
  PICTURE TOOL_CANCEL
END

#include <helpbar.h>

ENDPAGE

PAGE "Gestione Listini" -1 -1 80 0  

GROUPBOX DLG_NULL 78 3
BEGIN
	PROMPT 1 1 "@bParametri filtro"
END

STRING F_GRUPPO 5
BEGIN
  PROMPT 2 2 "Gruppo "
  USE GMC
  INPUT CODTAB F_GRUPPO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_GRUPPO CODTAB
  CHECKTYPE REQUIRED
END

LIST F_MESE 15
BEGIN
  PROMPT 25 2 "Mese "
  FLAGS "AM"
END

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 4 "@bParametri per il cambio"
END

STRING F_CODVAL 3
BEGIN
  PROMPT 2 5 "Valuta "
  FIELD CODTAB
  FLAGS "UZ"
  KEY 1
  USE %VAL
  INPUT CODTAB F_CODVAL 
  DISPLAY "Codice" CODTAB
  DISPLAY "Valuta@50" S0
  OUTPUT F_CODVAL CODTAB
  OUTPUT F_DESVAL S0
  OUTPUT F_CAMBIO S4
  HELP "Codice della valuta"
  CHECKTYPE REQUIRED
END

STRING F_DESVAL 50
BEGIN
  PROMPT 15 5 ""
  FIELD S0
  KEY 2
  USE %VAL KEY 2
  INPUT S0 F_DESVAL
  DISPLAY "Valuta@60" S0
  DISPLAY "Codice@10" CODTAB
  COPY OUTPUT F_CODVAL
  HELP "Descrizione della valuta"
  CHECKTYPE REQUIRED
  WARNING "Manca la descrizione"
END


NUMBER F_CAMBIO 15 5
BEGIN
  PROMPT 2 6 "Cambio "
  FIELD S4
  FLAGS "U"
  CHECKTYPE REQUIRED
  WARINING "E' necessario specificare un cambio di riferimento"
END

SPREADSHEET F_SHEET
BEGIN
  PROMPT 2 8 ""
  ITEM "Gruppo"
  ITEM "Mese"
  ITEM "Spessore"
  ITEM "Importo\nEuro"
  ITEM "Importo\nFranco"  
END

ENDPAGE
ENDMASK

PAGE "Riga listino" -1 -1 78 13

STRING S_GRUPPO 5
BEGIN
  PROMPT 2 2 "Gruppo "
  FLAGS "D"
END

LIST S_MESE 15
BEGIN
  PROMPT 25 2 "Mese "
  FLAGS "MD"
END

NUMBER S_SPESSORE 6
BEGIN
  PROMPT 55 2 "Spessore "
  CHECKTYPE REQUIRED
END

CURRENCY S_IMPEURO
BEGIN
  PROMPT 2 3 "Imp. in Euro "
END

CURRENCY S_IMPFRANCO
BEGIN
  PROMPT 36 3 "Imp. in Franchi "
  DRIVENBY -F_CODVAL
END

ENDPAGE

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 "Elimina"
  PICTURE BMP_DELREC  
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE
ENDMASK