campo-sirio/ba/batbcam.uml

#include "batbcam.h"

TOOLBAR "" 0 19 0 3

#include <toolbar.h>

ENDPAGE

PAGE "Cambi giornalieri" -1 -1 78 12

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 1 "@bValuta"
END

STRING FLD_TABCAM_CODVAL 3
BEGIN
  PROMPT 2 3 "Codice "
  FLAGS "UZ"
  KEY 1
  FIELD CODTAB[1,3]
  USE %VAL
  INPUT CODTAB FLD_TABCAM_CODVAL
  DISPLAY "Codice" CODTAB
  DISPLAY "Contro EURO" B1
  DISPLAY "Valuta@50" S0
  OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3]
  OUTPUT FLD_TABCAM_S0 S0
  OUTPUT FLD_TABCAM_I2 I2
  OUTPUT FLD_TABCAM_B1 B1
  CHECKTYPE FORCED
//  MESSAGE COPY,FLD_CODVAL_COPY
  WARNING "Valuta assente"
END

DATE FLD_DATACAM_COPY
BEGIN
  PROMPT 9 5 ""
  FLAGS "D"
  FIELD D0
END

DATE FLD_TABCAM_D0
BEGIN
  PROMPT 2 5 "Data   "
  FIELD CODTAB[4,11]
  FLAGS "R"
  KEY 1
//  USE CAM SELECT CODTAB?(#FLD_TABCAM_CODVAL+"*")
//  JOIN %VAL TO CAM KEY 1 ALIAS 50 INTO CODTAB=CODTAB[1,3]
  USE CAM SELECT TRIM(CODTAB[1,3])==#FLD_TABCAM_CODVAL
  JOIN %VAL TO CAM KEY 1 ALIAS 50 INTO CODTAB==(TRIM(CODTAB[1,3]))
  INPUT CODTAB[1,3] FLD_TABCAM_CODVAL SELECT     // PER INPUT
  INPUT CODTAB[4,11] FLD_TABCAM_D0
  DISPLAY "Valuta" CODTAB[1,3]
  DISPLAY "Data@10" D0
  DISPLAY "Descrizione@50" 50@->S0
  OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3]
  OUTPUT FLD_TABCAM_D0 D0
  OUTPUT FLD_DATACAM_COPY D0
  CHECKTYPE REQUIRED
  MESSAGE COPY,FLD_DATACAM_COPY
  WARNING "Data assente"
END

STRING FLD_TABCAM_S0 50
BEGIN
  PROMPT 20 3 ""
  USE %VAL KEY 2
  INPUT S0 FLD_TABCAM_S0
  DISPLAY "Valuta@50" S0
  DISPLAY "Codice" CODTAB
  DISPLAY "Contro EURO" B1
  COPY OUTPUT FLD_TABCAM_CODVAL
  CHECKTYPE REQUIRED
  KEY 1
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 8 "@bCambio"
END

NUMBER FLD_TABCAM_I2 1
BEGIN
  PROMPT 2 10 "Decimali "
  FLAGS "D"
END

NUMBER FLD_TABCAM_S4 15 5
BEGIN
  PROMPT 20 10 "Cambio "
  FIELD S4
  PICTURE ".5"
  FLAGS "U"
END

NUMBER FLD_TABCAM_R10 15 5
BEGIN
  PROMPT 20 30 "Cambio "
  FIELD R10
  PICTURE ".5"
  FLAGS "DU"
END

BOOLEAN FLD_TABCAM_B1
BEGIN
  PROMPT 50 10 "Contro EURO"
  FIELD B1
  FLAGS "D"
END

ENDPAGE

ENDMASK