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

TOOLBAR "" 0 20 0 2

#include <toolbar.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 "Denonimazione "
  FIELD S0
  KEY 2
  USE %RGI KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione @50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODREG
  CHECKTYPE REQUIRED
  WARNING "La denomonazione e' obbligatoria"
END

ENDPAGE

ENDMASK

