campo-sirio/ve/vetbcld.uml

#include "vetbcld.h"


TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Classe doganale " 0 0 0 0

GROUPBOX DLG_NULL 75 7
BEGIN
  PROMPT 1 0 ""
  FLAG "R"
END

STRING F_CLASSDOG 10
BEGIN
  PROMPT 2 2 "Codice classe doganale "
  FIELD %CLD->CODTAB
  KEY 1
  FLAG "UZ"
  USE %CLD
  INPUT CODTAB F_CLASSDOG
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CLASSDOG CODTAB
  OUTPUT F_CLASSDOG1 S0
  CHECKTYPE REQUIRED
END


STRING F_CLASSDOG1 20
BEGIN
  PROMPT 2 4 "Descrizione            "
  FIELD %CLD->S0
  KEY 2
  USE %CLD
  INPUT CODTAB F_CLASSDOG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CLASSDOG CODTAB
  OUTPUT F_CLASSDOG1 S0
  CHECKTYPE REQUIRED
END


ENDPAGE


ENDMASK