#include "batbval.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Valute" -1 -1 78 12

GROUPBOX DLG_NULL 78 5
BEGIN
 PROMPT 1 1 ""
 FLAGS "R"
END

STRING F_CODE 3
BEGIN
  PROMPT 2 2 "Codice      "
  FIELD CODTAB
  FLAGS "UZ"
  KEY 1
  USE %VAL
  INPUT CODTAB F_CODE 
  DISPLAY "Codice" CODTAB
  DISPLAY "Valuta@50" S0
  OUTPUT F_CODE CODTAB
  OUTPUT F_DESC S0
  MESSAGE COPY,F_CUR_CODE|COPY,F_STD_CODE
  HELP "Codice della valuta"
  CHECKTYPE REQUIRED
END

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

NUMBER F_DECIMALS 1
BEGIN
  PROMPT 2 4 "Decimali    "
  FIELD I0
  NUM_EXPR (#THIS_FIELD>=0)&&(#THIS_FIELD<=5)
  WARNING "Si possono specificare al massimo 5 cifre decimali"
END

GROUPBOX DLG_NULL 78 3
BEGIN
 PROMPT 1 7 "Cambio attuale"
 FLAGS "R"
END

NUMBER F_CUR_CHANGE 15 5
BEGIN
  PROMPT 2 8 "Cambio      "
  FIELD R10
  PICTURE ".5"
  FLAGS "U"
END

NUMBER F_CUR_MULT 7
BEGIN
  PROMPT 32 8 "ogni "
  FIELD I10
  FLAGS "U"
  NUM_CALC IF((#THIS_FIELD==0),1,#THIS_FIELD)
END

STRING F_CUR_CODE 3
BEGIN
  PROMPT 47 8 ""
  FLAGS "D"
END

DATE F_LASTDATE
BEGIN
  PROMPT 58 8 "Data "
  FIELD D0
  HELP "Data di ultimo aggiornamento"
END

GROUPBOX DLG_NULL 78 3
BEGIN
 PROMPT 1 11 "Cambio standard"
 FLAGS "R"
END

NUMBER F_STD_CHANGE 15 5
BEGIN
  PROMPT 2 12 "Cambio      "
  FIELD R11
  PICTURE ".5"
  FLAGS "U"
END

NUMBER F_STD_MULT 7
BEGIN
  PROMPT 32 12 "ogni "
  FIELD I11
  FLAGS "U"
  NUM_CALC IF((#THIS_FIELD==0),1,#THIS_FIELD)
END

STRING F_STD_CODE 3
BEGIN
  PROMPT 47 12 ""
  FLAGS "D"
END

ENDPAGE

ENDMASK