campo-sirio/ba/batbval.uml

#include "batbval.h"

TOOLBAR "" 0 -3 0 0

#include <toolbar.h>

ENDPAGE

PAGE "Valute" -1 -1 78 12

GROUPBOX DLG_NULL 78 4
BEGIN
 PROMPT 1 1 "@bCodice"
 FLAGS "R"
END

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

BOOLEAN VAL_EURO
BEGIN
  PROMPT 40 2 "Codice valuta dell'EURO"
  FIELD B0
  MESSAGE FALSE ENABLE,VAL_INEURO|ENABLE,VAL_DECIMALS
  MESSAGE TRUE CLEAR,VAL_INEURO|CLEAR,VAL_DECIMALS|"2",VAL_DECIMALS
END

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

GROUPBOX DLG_NULL 78 3
BEGIN
 PROMPT 1 6 "@bDecimali"
 FLAGS "R"
END

LIST VAL_DECIMALS 1 10
BEGIN
  PROMPT 2 7 "Decimali per importi "
  ITEM "0|Nessuno"
  ITEM "1|1 decimale"
  ITEM "2|2 decimali"
  ITEM "3|3 decimali"
  FIELD I0
END

LIST VAL_DECIMALS_PRICES 1 10
BEGIN
  PROMPT 40 7 "Decimali per prezzi "
  ITEM "0|Nessuno"
  ITEM "1|1 decimale"
  ITEM "2|2 decimali"
  ITEM "3|3 decimali"
  FIELD I1
  NUM_EXPR #THIS_FIELD>=#VAL_DECIMALS
  WARNING "Si devono specificare almeno tanti decimali quanti quelli degli importi"
END

GROUPBOX DLG_NULL 78 4
BEGIN
 PROMPT 1 10 "@bCambio standard"
 FLAGS "R"
END

LIST VAL_DECIMALS_CHANGE 1 10
BEGIN
  PROMPT 2 11 "Decimali per cambio  "
  ITEM "2|2 decimali"
  ITEM "3|3 decimali"
  ITEM "4|4 decimali"
  ITEM "5|5 decimali"
  ITEM "6|6 decimali"
  FIELD I2
END

BOOLEAN VAL_INEURO
BEGIN
  PROMPT 40 11 "Espresso Contro EURO"
  FIELD B1
END

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

NUMBER VAL_CHANGE_OLD 15 5
BEGIN
  PROMPT 2 80 "Cambio "
  FIELD R10
  FLAGS "D"
END

DATE VAL_LASTDATE
BEGIN
  PROMPT 40 12 "Data   "
  FIELD D0
  HELP "Data di ultimo aggiornamento"
END

ENDPAGE

ENDMASK