#include "batbval.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Valute" -1 -1 78 12

GROUPBOX DLG_NULL 78 4
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 5 "Decimali per importi "
  FIELD I0
  NUM_EXPR (#THIS_FIELD>=0)&&(#THIS_FIELD<=3)
  WARNING "Si possono specificare al massimo 3 cifre decimali"
END

NUMBER F_DECIMALSPR 1
BEGIN
  PROMPT 2 6 "Decimali per prezzi  "
  FIELD I1
  NUM_EXPR (#THIS_FIELD>=0)&&(#THIS_FIELD<=3)
  WARNING "Si possono specificare al massimo 3 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 40 8 "ogni "
  FIELD I10
  FLAGS "U"
  NUM_CALC IF((#THIS_FIELD==0),1,#THIS_FIELD)
END

STRING F_CUR_CODE 3
BEGIN
  PROMPT 55 8 ""
  FLAGS "D"
END
*/

DATE F_LASTDATE
BEGIN
  PROMPT 62 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 40 12 "ogni "
  FIELD I11
  FLAGS "U"
  NUM_CALC IF((#THIS_FIELD==0),1,#THIS_FIELD)
END

STRING F_STD_CODE 3
BEGIN
  PROMPT 55 12 ""
  FLAGS "D"
END
*/

ENDPAGE

ENDMASK