#include "batbcam.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Cambi giornalieri" -1 -1 78 12

STRING FLD_TABCAM_CODVAL 3
BEGIN
  PROMPT 3 1 "Cod. valuta "
  FLAGS "UZ"
  KEY 1
  FIELD CAM->CODTAB[1,3]
  USE %VAL KEY 1
  INPUT CODTAB FLD_TABCAM_CODVAL
  OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3]
  OUTPUT FLD_TABCAM_S0 S0
  DISPLAY "Codice" CODTAB
  DISPLAY "Valuta@50" S0
  HELP "Codice della valuta"
  CHECKTYPE FORCED
  WARNING "Valuta assente"
END

DATE 200
BEGIN
  PROMPT 30 1 ""
  FLAGS "D"
  FIELD CAM->D0
END

DATE FLD_TABCAM_D0
BEGIN
  PROMPT 25 1 "Data "
  FLAGS "GR"
  KEY 1
  USE CAM
  FIELD  CODTAB[4,11]
  INPUT  CODTAB[1,3] FLD_TABCAM_CODVAL
  INPUT  CODTAB[4,11] FLD_TABCAM_D0
  DISPLAY "Valuta" CODTAB[1,3]
  DISPLAY "Data@10" D0
  DISPLAY "Descrizione@25" S0
  DISPLAY "Cambio@15" R10
  OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3]
  OUTPUT FLD_TABCAM_D0 D0
  OUTPUT 200 D0
  CHECKTYPE REQUIRED
  MESSAGE COPY,200
  WARNING "Data mancante"
  HELP "Data dell'ultimo cambio"
END


STRING FLD_TABCAM_S0 50
BEGIN
  PROMPT 3 3 "Descrizione "
  FLAGS "D"
  HELP "Descrizione valuta"
END

NUMBER FLD_TABCAM_R0 15 5
BEGIN
  PROMPT 3 5 "Cambio      "
  FIELD LF_TABCOM->R10
  PICTURE ".5"
  FLAGS "R"
END


ENDPAGE

ENDMASK