campo-sirio/ve/vetbprv.uml

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Province" 0 0 0 0

  STRING 101 5
  BEGIN
    PROMPT 1 2 "Codice provincia "
    FI CODTAB
    FL "U"
    KE 1
    US %PRV
    IN CODTAB 101
    DI "Codice" CODTAB
    DI "Descrizione @50" S0
    OUTPUT 101 CODTAB
    OUTPUT 102 S0
    CHECK REQUIRED
  END

  STRING 102 50
  BEGIN
    PROMPT 1 4 "Denominazione    "
    FIELD S0
    KEY 2
    USE %PRV KE 2
    INPUT S0 102
    DI "Descrizione @50" S0
    DISPLAY "Codice" CODTAB
    COPY OUTPUT 101
    CHECK REQUIRED
    WARNING  "La Denominazione e' obbligatoria"
  END

  NUMBER 103 2
  BEGIN
    PROMPT 1 6 "Codice regione   "
    FIELD S6
    FLAGS "RZ"
    USE %RGI
    INPUT CODTAB 103
    DISPLAY "Codice" CODTAB
    DISPLAY "Descrizione @50" S0
    OUTPUT 103 CODTAB
    OUTPUT 104 S0
    CH NORMAL
    WARNING "Regione errata"
  END

  STRING 104 50
  BEGIN
    PROMPT 1 8 "Denominaz. reg.  "
    USE %RGI KE 2
    INPUT S0 104
    DISPLAY "Descrizione @50" S0
    DISPLAY "Codice" CODTAB
    COPY OUTPUT 103
    CHECK NORMAL 
    WARNING "Regione errata"
  END

ENDPAGE

ENDDMASK