campo-sirio/vd/vdtbtdt.uml

#include "vdtbtdt.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE 

PAGE "Campi di accumulo" -1 -1 78 8

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

STRING F_CODICE 2
BEGIN
  PROMPT 2 2 "Codice              "
  HELP "Codice campo" 
  FIELD CODTAB
  FLAGS "UZ"
  KEY 1
  USE %TDT
  INPUT CODTAB F_CODICE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @70" S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR S0
 CHECKTYPE REQUIRED
END

STRING F_DESCR 70 50
BEGIN
  PROMPT 2 4 "Descrizione         "
  HELP "Descrizione del campo"
  FIELD S0
  KEY 2
  USE %TDT KEY 2
  INPUT CODTAB F_CODICE
  INPUT S0 F_DESCR
  DISPLAY "Descrizione @70" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODICE
  CHECKTYPE REQUIRED
END

STRING F_FORCOND 10
BEGIN
  PROMPT 2 6 "Formula condizione  "
  FIELD S4
  USE %FRR
  CHECKTYPE REQUIRED
  INPUT CODTAB F_FORCOND
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_FORCOND CODTAB
  FLAG "UZ"
  CHECKTYPE REQUIRED
END

STRING F_FORVAL 10
BEGIN
  PROMPT 2 8 "Formula valore      "
  FIELD S5
  USE %FRR
  CHECKTYPE REQUIRED
  INPUT CODTAB F_FORVAL
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_FORVAL CODTAB
  FLAG "UZ"
  CHECKTYPE REQUIRED
END
ENDPAGE
ENDMASK