campo-sirio/ba/batbrgi.uml

#include "ba3100.h"
#include "batbrgi.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Regioni" -1 -1 78 18

NUMBER F_CODREG 2
BEGIN
  PROMPT 1 2 "Codice        "
  FIELD CODTAB
  FLAGS "RZ"
  KEY 1
  USE %RGI
  INPUT CODTAB F_CODREG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT F_CODREG CODTAB
  OUTPUT F_DESCR S0
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50
BEGIN
  PROMPT 1 4 "Denominazione "
  FIELD S0
  KEY 2
  USE %RGI KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione @50" S0
  DISPLAY "Codice@10" CODTAB
  COPY OUTPUT F_CODREG
  CHECKTYPE REQUIRED
  WARNING "La denominazione e' obbligatoria"
END

ENDPAGE

ENDMASK