campo-sirio/ba/batbuue.uml

#include "batbuue.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Uffici unici entrate" -1 -1 78 19

NUMBER F_CODICE 3
BEGIN
  PROMPT 3 1 "Codice         "
  FIELD CODTAB
  FLAGS "Z"
  KEY 1
  USE %UUE
  INPUT CODTAB F_CODICE
  DISPLAY "Codice" CODTAB
  DISPLAY "Dizione@50" S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DIZIONE S0
  CHECKTYPE REQUIRED
END

STRING F_DIZIONE 30
BEGIN
  PROMPT 3 3 "Dizione        "
  FIELD S0
  KEY 2
  USE %UUE KEY 2
  INPUT S0 F_DIZIONE
  DISPLAY "Dizione@50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DIZIONE S0
  CHECKTYPE REQUIRED
END

STRING F_INDIRIZZO 35
BEGIN
  PROMPT 3 5 "Indirizzo      "
  FIELD S1
END

STRING F_CIV 5
BEGIN
  PROMPT 56 5 "N."
  FIELD S3
END

STRING F_CODCOM 4
BEGIN
  PROMPT 3 7 "Codice comune  "
  FIELD S6
  FLAGS "U"
  USE LF_COMUNI KEY 1
  INPUT STATO ""
  INPUT COM F_CODCOM
#include <comdcod.h>
  OUTPUT F_CODCOM COM
  OUTPUT F_DENCOM DENCOM
  OUTPUT F_PROVCOM PROVCOM
  OUTPUT F_CAP CAPCOM
  CHECKTYPE REQUIRED
  WARNING "Comune non presente"
END

STRING F_DENCOM 50
BEGIN
  PROMPT 3 9 "Denominazione  "
  FLAGS "D"
END

STRING F_PROVCOM 2
BEGIN
  PROMPT 3 11 "Provincia      "
  FLAGS "D"
END

STRING F_CAP 5
BEGIN
  PROMPT 56 11 "CAP    "
  FIELD S7
END

ENDPAGE
ENDMASK