campo-sirio/ba/ba4100a.uml

#include "ba4100.h"

TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE

PAGE "Pag. 1" -1 -1 77 18

GROUPBOX DLG_NULL 75 4
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER FLD_CM1_STATO 3
BEGIN
  PROMPT 3 1 "Stato     "
  FIELD LF_COMUNI->STATO
  FLAGS "RZG"
  USE %STA
  INPUT CODTAB FLD_CM1_STATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Nome@50" S0
  OUTPUT FLD_CM1_STATO CODTAB
  OUTPUT FLD_CM1_DENSTA S0
  HELP "Codice dello stato in cui risiede il comune"
  CHECKTYPE SEARCH
  MESSAGE COPY,20@
  WARNING "Stato non presente"
  KEY 1
END

STRING FLD_CM1_DENSTA 50
BEGIN
  PROMPT 20 1 ""
  USE %STA KEY 2
  INPUT S0 FLD_CM1_DENSTA
  DISPLAY "Nome@50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT FLD_CM1_STATO CODTAB
  OUTPUT FLD_CM1_DENSTA S0
  HELP "Nome dello stato in cui risiede il comune"
  MESSAGE COPY,21@
END

STRING FLD_CM1_COM 4
BEGIN
  PROMPT 3 2 "Comune    "
  FIELD LF_COMUNI->COM
  FLAGS "UG"
  KEY 1
  USE LF_COMUNI
  INPUT STATO FLD_CM1_STATO
  INPUT COM FLD_CM1_COM
#include <comdcod.h>
  OUTPUT FLD_CM1_STATO STATO
  OUTPUT FLD_CM1_COM COM
  OUTPUT FLD_CM1_DENCOM DENCOM
  HELP "Codice del comune"
  MESSAGE COPY,22@
  CHECKTYPE REQUIRED
  VALIDATE FIXLEN_FUNC 4
END

STRING FLD_CM1_DENCOM 50
BEGIN
  PROMPT 20 2 ""
  FIELD LF_COMUNI->DENCOM
  USE LF_COMUNI KEY 2
  CHECKTYPE REQUIRED
  INPUT DENCOM FLD_CM1_DENCOM
#include <comdden.h>
  OUTPUT FLD_CM1_STATO STATO
  OUTPUT FLD_CM1_COM COM
  OUTPUT FLD_CM1_DENCOM DENCOM
  HELP "Denominazione del comune"
  MESSAGE COPY,23@
  FLAGS "G"
  KEY 2
END

STRING FLD_CM1_PROVCOM 5
BEGIN
  PROMPT 3 4 "Provincia "
  FIELD LF_COMUNI->PROVCOM
  FLAGS "U"
  HELP "Provincia in cui risiede il comune"
END

STRING FLD_CM1_CAPCOM 5
BEGIN
  PROMPT 29 4 "CAP "
  FIELD LF_COMUNI->CAPCOM
  FLAGS "RZ"
  HELP "Codice di Avviamento Postale del comune"
END

NUMBER FLD_CM1_CODISTAT 6
BEGIN
  PROMPT 51 4 "Codice ISTAT "
  FIELD LF_COMUNI->CODISTAT
  HELP "Codice ISTAT del comune"
END

GROUPBOX DLG_NULL 75 5
BEGIN
  PROMPT 1 5 "Uffici II.DD."
END

NUMBER FLD_CM1_UFIIDD1 3
BEGIN
  PROMPT 3 6 "Ufficio 1 "
  FIELD LF_COMUNI->UFFIIDD1
  FLAGS "RZ"
  USE %UID
  INPUT CODTAB FLD_CM1_UFIIDD1
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT FLD_CM1_UFIIDD1 CODTAB
  OUTPUT FLD_CM1_DUFIIDD1 S0
  HELP "Codice ufficio imposte dirette competente"
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
END

STRING FLD_CM1_DUFIIDD1 50
BEGIN
  PROMPT 20 6 ""
  USE %UID KEY 2
  INPUT S0 FLD_CM1_DUFIIDD1
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FLD_CM1_UFIIDD1
END

NUMBER FLD_CM1_UFIIDD2 3
BEGIN
  PROMPT 3 7 "Ufficio 2 "
  FIELD LF_COMUNI->UFFIIDD2
  FLAGS "RZ"
  HELP "Codice ufficio imposte dirette competente"
  COPY USE FLD_CM1_UFIIDD1
  CHECKTYPE NORMAL
  INPUT CODTAB FLD_CM1_UFIIDD2
  COPY DISPLAY FLD_CM1_UFIIDD1
  OUTPUT FLD_CM1_UFIIDD2 CODTAB
  OUTPUT FLD_CM1_DUFIIDD2 S0
  WARNING "Ufficio assente"
END

STRING FLD_CM1_DUFIIDD2 50
BEGIN
  PROMPT 20 7 ""
  COPY USE FLD_CM1_DUFIIDD1
  INPUT S0 FLD_CM1_DUFIIDD2
  COPY DISPLAY FLD_CM1_DUFIIDD1
  COPY OUTPUT FLD_CM1_UFIIDD2
END

NUMBER FLD_CM1_UFIIDD3 3
BEGIN
  PROMPT 3 8 "Ufficio 3 "
  FIELD LF_COMUNI->UFFIIDD3
  FLAGS "RZ"
  HELP "Codice ufficio imposte dirette competente"
  COPY USE FLD_CM1_UFIIDD1
  CHECKTYPE NORMAL
  INPUT CODTAB FLD_CM1_UFIIDD3
  COPY DISPLAY FLD_CM1_UFIIDD1
  OUTPUT FLD_CM1_UFIIDD3 CODTAB
  OUTPUT FLD_CM1_DUFIIDD3 S0
  WARNING "Ufficio assente"
END

STRING FLD_CM1_DUFIIDD3 50
BEGIN
  PROMPT 20 8 ""
  COPY USE FLD_CM1_DUFIIDD1
  INPUT S0 FLD_CM1_DUFIIDD3
  COPY DISPLAY FLD_CM1_DUFIIDD1
  COPY OUTPUT FLD_CM1_UFIIDD3
END

GROUPBOX DLG_NULL 75 5
BEGIN
  PROMPT 1 10 "Uffici IVA"
END

NUMBER FLD_CM1_UFFIVA1 3
BEGIN
  PROMPT 3 11 "Ufficio 1 "
  FIELD LF_COMUNI->UFFIVA1
  FLAGS "RZ"
  USE %UIV
  INPUT CODTAB FLD_CM1_UFFIVA1
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT FLD_CM1_UFFIVA1 CODTAB
  OUTPUT FLD_CM1_DUFFIVA1 S0
  HELP "Codice ufficio IVA competente"
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
END

STRING FLD_CM1_DUFFIVA1 50
BEGIN
  PROMPT 20 11 ""
  USE %UIV KEY 2
  INPUT S0 FLD_CM1_DUFFIVA1
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FLD_CM1_UFFIVA1
END

NUMBER FLD_CM1_UFFIVA2 3
BEGIN
  PROMPT 3 12 "Ufficio 2 "
  FIELD LF_COMUNI->UFFIVA2
  FLAGS "RZ"
  HELP "Codice ufficio IVA competente"
  COPY USE FLD_CM1_UFFIVA1
  INPUT CODTAB FLD_CM1_UFFIVA2
  COPY DISPLAY FLD_CM1_UFFIVA1
  OUTPUT FLD_CM1_UFFIVA2 CODTAB
  OUTPUT FLD_CM1_DUFFIVA2 S0
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
END

STRING FLD_CM1_DUFFIVA2 50
BEGIN
  PROMPT 20 12 ""
  COPY USE FLD_CM1_DUFFIVA1
  INPUT S0 FLD_CM1_DUFFIVA2
  COPY DISPLAY FLD_CM1_DUFFIVA1
  COPY OUTPUT FLD_CM1_UFFIVA2
END

NUMBER FLD_CM1_UFFIVA3 3
BEGIN
  PROMPT 3 13 "Ufficio 3 "
  FIELD LF_COMUNI->UFFIVA3
  FLAGS "RZ"
  HELP "Codice ufficio IVA competente"
  COPY USE FLD_CM1_UFFIVA1
  INPUT CODTAB FLD_CM1_UFFIVA3
  COPY DISPLAY FLD_CM1_UFFIVA1
  OUTPUT FLD_CM1_UFFIVA3 CODTAB
  OUTPUT FLD_CM1_DUFFIVA3 S0
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
END

STRING FLD_CM1_DUFFIVA3 50
BEGIN
  PROMPT 20 13 ""
  COPY USE FLD_CM1_DUFFIVA1
  INPUT S0 FLD_CM1_DUFFIVA3
  COPY DISPLAY FLD_CM1_DUFFIVA1
  COPY OUTPUT FLD_CM1_UFFIVA3
END

ENDPAGE

PAGE "Pag. 2" -1 -1 77 18

GROUPBOX DLG_NULL 75 4
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER FLD_CM2_STATO 3
BEGIN
  PROMPT 3 1 "Stato     "
  FLAGS "RZD"
  GROUP 20
END

STRING FLD_CM2_DENSTA 50
BEGIN
  PROMPT 20 1 ""
  FLAGS "D"
  GROUP 21
END

STRING FLD_CM2_COM 4
BEGIN
  PROMPT 3 2 "Comune    "
  FLAGS "UD"
  GROUP 22
END

STRING FLD_CM2_DENCOM 50
BEGIN
  PROMPT 20 2 ""
  FLAGS "D"
  GROUP 23
END

GROUPBOX DLG_NULL 75 5
BEGIN
  PROMPT 1 4 "Uffici Vari"
END

STRING FLD_CM2_UFFREG 3
BEGIN
  PROMPT 2 5 "Registro       "
  FIELD LF_COMUNI->UFFREG
  FLAGS "U"
  USE %URE
  INPUT CODTAB FLD_CM2_UFFREG
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT FLD_CM2_UFFREG CODTAB
  OUTPUT FLD_CM2_DUFFREG S0
  HELP "Codice ufficio del registro competente"
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
END

STRING FLD_CM2_DUFFREG 50
BEGIN
  PROMPT 23 5 ""
  USE %URE KEY 2
  INPUT S0 FLD_CM2_DUFFREG
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FLD_CM2_UFFREG
END

NUMBER FLD_CM2_UFFCONC 3
BEGIN
  PROMPT 2 6 "Concessioni    "
  FIELD LF_COMUNI->UFFCONC
  FLAGS "Z"
  USE %UCC
  INPUT CODTAB FLD_CM2_UFFCONC
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT FLD_CM2_UFFCONC CODTAB
  OUTPUT FLD_CM2_DUFFCONC S0
  HELP "Codice ufficio concessioni competente"
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
END

STRING FLD_CM2_DUFFCONC 50
BEGIN
  PROMPT 23 6 ""
  USE %UCC KEY 2
  INPUT S0 FLD_CM2_DUFFCONC
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FLD_CM2_UFFCONC
END

NUMBER FLD_CM2_UFFCSERV 3
BEGIN
  PROMPT 2 7 "Centro Servizi "
  FIELD LF_COMUNI->UFFCSERV
  FLAGS "RZ"
  USE %UCS
  INPUT CODTAB FLD_CM2_UFFCSERV
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT FLD_CM2_UFFCSERV CODTAB
  OUTPUT FLD_CM2_DUFFCSERV S0
  HELP "Codice del centro servizi competente"
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
END

STRING FLD_CM2_DUFFCSERV 50
BEGIN
  PROMPT 23 7 ""
  USE %UCS KEY 2
  INPUT S0 FLD_CM2_DUFFCSERV
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FLD_CM2_UFFCSERV
END

GROUPBOX DLG_NULL 23 4
BEGIN
  PROMPT 1 9 "Esattorie"
END

NUMBER FLD_CM2_UFFESPROV 3
BEGIN
  PROMPT 2 10 "Provinciale    "
  FIELD LF_COMUNI->UFFESPROV
  FLAGS "RZ"
  HELP "Codice esattoria provinciale competente"
END

NUMBER FLD_CM2_UFFESCOM 3
BEGIN
  PROMPT 2 11 "Comunale       "
  FIELD LF_COMUNI->UFFESCOM
  FLAGS "RZ"
  HELP "Codice esattoria comunale competente"
END


LIST FLD_CM2_TERRMON 18
BEGIN
  PROMPT 34 11 "Territorio montano    "
  HELP "Codice identificativo di comune residente in territorio montano"
  FIELD LF_COMUNI->TERRMON
  ITEMS " |Non montano"
  ITEMS "1|Montano"
  ITEMS "2|In parte montano"
END

STRING FLD_CM2_COMAGG 4
BEGIN
  PROMPT 2 13 "Comune aggr.  "
  HELP "Codice comune a cui e' stato accorpato il presente comune"
  FIELD LF_COMUNI->COMAGG
  FLAGS "U"
  USE LF_COMUNI
  INPUT STATO ""
  INPUT COM FLD_CM2_COMAGG
  COPY DISPLAY FLD_CM1_COM
  OUTPUT FLD_CM2_COMAGG COM
  OUTPUT FLD_CM2_DENCOMAGG DENCOM
  CHECKTYPE NORMAL
  VALIDATE FIXLEN_FUNC 4
END

STRING FLD_CM2_DENCOMAGG 50
BEGIN
  PROMPT 23 13 ""
  HELP "Denominazione comune a cui e' stato accorpato il presente comune"
  USE LF_COMUNI KEY 2 SELECT STATO=""
  INPUT DENCOM FLD_CM2_DENCOMAGG
  COPY DISPLAY FLD_CM1_DENCOM
  OUTPUT FLD_CM2_COMAGG COM
  OUTPUT FLD_CM2_DENCOMAGG DENCOM
END

NUMBER F_CODREG 2
BEGIN
  PROMPT 2 15 "Cod.regione   "
  FIELD LF_COMUNI->CODREG
  FLAGS "RZ"
  USE %RGI
  INPUT CODTAB F_CODREG
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODREG CODTAB
  OUTPUT F_DESREG S0
  CHECKTYPE NORMAL
  WARNING "Regione assente"
END

STRING F_DESREG 50
BEGIN
  PROMPT 23 15 ""
  USE %RGI KEY 2
  INPUT S0 F_DESREG
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODREG
  CHECKTYPE NORMAL
  WARNING "Regione assente"
END

ENDPAGE

PAGE "Pag. 3" -1 -1 77 18

GROUPBOX DLG_NULL 75 4
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER FLD_CM3_STATO 3
BEGIN
  PROMPT 3 1 "Stato     "
  FLAGS "RZD"
  GROUP 20
END

STRING FLD_CM3_DENSTA 50
BEGIN
  PROMPT 20 1 ""
  FLAGS "D"
  GROUP 21
END

STRING FLD_CM3_COM 4
BEGIN
  PROMPT 3 2 "Comune    "
  FLAGS "UD"
  GROUP 22
END

STRING FLD_CM3_DENCOM 50
BEGIN
  PROMPT 20 2 ""
  FLAGS "D"
  GROUP 23
END

GROUPBOX DLG_NULL 75 12
BEGIN
  PROMPT 1 4 "Uffici Entrate"
END    

NUMBER F_CODUUE1 3
BEGIN
  PROMPT 2 5 "Ufficio 1 "
  FIELD CODUUE1
  FLAGS "Z"
  USE %UUE
  INPUT CODTAB F_CODUUE1
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODUUE1 CODTAB
  OUTPUT F_DESUUE1 S0
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
  MESSAGE EMPTY CLEAR,2@
  MESSAGE ENABLE,F_CODUUE2|ENABLE,F_DESUUE2
END

STRING F_DESUUE1 50
BEGIN
  PROMPT 20 5 ""
  USE %UUE KEY 2
  INPUT S0 F_DESUUE1
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODUUE1
  CHECKTYPE NORMAL
END

NUMBER F_CODUUE2 3
BEGIN
  PROMPT 2 6 "Ufficio 2 "
  FIELD CODUUE2
  FLAGS "Z"
  COPY USE F_CODUUE1
  INPUT CODTAB F_CODUUE2
  COPY DISPLAY F_CODUUE1
  OUTPUT F_CODUUE2 CODTAB
  OUTPUT F_DESUUE2 S0
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
  MESSAGE EMPTY CLEAR,3@
  MESSAGE ENABLE,F_CODUUE3|ENABLE,F_DESUUE3
  GROUP 2
END

STRING F_DESUUE2 50
BEGIN
  PROMPT 20 6 ""
  COPY USE F_DESUUE1
  INPUT S0 F_DESUUE2
  COPY DISPLAY F_DESUUE1
  COPY OUTPUT F_CODUUE2
  CHECKTYPE NORMAL
  GROUP 2
END

NUMBER F_CODUUE3 3
BEGIN
  PROMPT 2 7 "Ufficio 3 "
  FIELD CODUUE3
  FLAGS "Z"
  COPY USE F_CODUUE1
  INPUT CODTAB F_CODUUE3
  COPY DISPLAY F_CODUUE1
  OUTPUT F_CODUUE3 CODTAB
  OUTPUT F_DESUUE3 S0
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
  MESSAGE EMPTY CLEAR,4@
  MESSAGE ENABLE,F_CODUUE4|ENABLE,F_DESUUE4
  GROUP 2 3
END

STRING F_DESUUE3 50
BEGIN
  PROMPT 20 7 ""
  COPY USE F_DESUUE1
  INPUT S0 F_DESUUE3
  COPY DISPLAY F_DESUUE1
  COPY OUTPUT F_CODUUE3
  CHECKTYPE NORMAL
  GROUP 2 3
END

NUMBER F_CODUUE4 3
BEGIN
  PROMPT 2 8 "Ufficio 4 "
  FIELD CODUUE4
  FLAGS "Z"
  COPY USE F_CODUUE1
  INPUT CODTAB F_CODUUE4
  COPY DISPLAY F_CODUUE1
  OUTPUT F_CODUUE4 CODTAB
  OUTPUT F_DESUUE4 S0
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
  MESSAGE EMPTY CLEAR,5@
  MESSAGE ENABLE,F_CODUUE5|ENABLE,F_DESUUE5
  GROUP 2 3 4
END

STRING F_DESUUE4 50
BEGIN
  PROMPT 20 8 ""
  COPY USE F_DESUUE1
  INPUT S0 F_DESUUE4
  COPY DISPLAY F_DESUUE1
  COPY OUTPUT F_CODUUE4
  CHECKTYPE NORMAL
  GROUP 2 3 4
END

NUMBER F_CODUUE5 3
BEGIN
  PROMPT 2 9 "Ufficio 5 "
  FIELD CODUUE5
  FLAGS "Z"
  COPY USE F_CODUUE1
  INPUT CODTAB F_CODUUE5
  COPY DISPLAY F_CODUUE1
  OUTPUT F_CODUUE5 CODTAB
  OUTPUT F_DESUUE5 S0
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
  MESSAGE EMPTY CLEAR,6@
  MESSAGE ENABLE,F_CODUUE6|ENABLE,F_DESUUE6
  GROUP 2 3 4 5
END

STRING F_DESUUE5 50
BEGIN
  PROMPT 20 9 ""
  COPY USE F_DESUUE1
  INPUT S0 F_DESUUE5
  COPY DISPLAY F_DESUUE1
  COPY OUTPUT F_CODUUE5
  CHECKTYPE NORMAL
  GROUP 2 3 4 5
END

NUMBER F_CODUUE6 3
BEGIN
  PROMPT 2 10 "Ufficio 6 "
  FIELD CODUUE6
  FLAGS "Z"
  COPY USE F_CODUUE1
  INPUT CODTAB F_CODUUE6
  COPY DISPLAY F_CODUUE1
  OUTPUT F_CODUUE6 CODTAB
  OUTPUT F_DESUUE6 S0
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
  MESSAGE EMPTY CLEAR,7@
  MESSAGE ENABLE,F_CODUUE7|ENABLE,F_DESUUE7
  GROUP 2 3 4 5 6
END

STRING F_DESUUE6 50
BEGIN
  PROMPT 20 10 ""
  COPY USE F_DESUUE1
  INPUT S0 F_DESUUE6
  COPY DISPLAY F_DESUUE1
  COPY OUTPUT F_CODUUE6
  CHECKTYPE NORMAL
  GROUP 2 3 4 5 6
END

NUMBER F_CODUUE7 3
BEGIN
  PROMPT 2 11 "Ufficio 7 "
  FIELD CODUUE7
  FLAGS "Z"
  COPY USE F_CODUUE1
  INPUT CODTAB F_CODUUE7
  COPY DISPLAY F_CODUUE1
  OUTPUT F_CODUUE7 CODTAB
  OUTPUT F_DESUUE7 S0
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
  MESSAGE EMPTY CLEAR,8@
  MESSAGE ENABLE,F_CODUUE8|ENABLE,F_DESUUE8
  GROUP 2 3 4 5 6 7
END

STRING F_DESUUE7 50
BEGIN
  PROMPT 20 11 ""
  COPY USE F_DESUUE1
  INPUT S0 F_DESUUE7
  COPY DISPLAY F_DESUUE1
  COPY OUTPUT F_CODUUE7
  CHECKTYPE NORMAL
  GROUP 2 3 4 5 6 7
END

NUMBER F_CODUUE8 3
BEGIN
  PROMPT 2 12 "Ufficio 8 "
  FIELD CODUUE8
  FLAGS "Z"
  COPY USE F_CODUUE1
  INPUT CODTAB F_CODUUE8
  COPY DISPLAY F_CODUUE1
  OUTPUT F_CODUUE8 CODTAB
  OUTPUT F_DESUUE8 S0
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
  MESSAGE EMPTY CLEAR,9@
  MESSAGE ENABLE,F_CODUUE9|ENABLE,F_DESUUE9
  GROUP 2 3 4 5 6 7 8
END

STRING F_DESUUE8 50
BEGIN
  PROMPT 20 12 ""
  COPY USE F_DESUUE1
  INPUT S0 F_DESUUE8
  COPY DISPLAY F_DESUUE1
  COPY OUTPUT F_CODUUE8
  CHECKTYPE NORMAL
  GROUP 2 3 4 5 6 7 8
END

NUMBER F_CODUUE9 3
BEGIN
  PROMPT 2 13 "Ufficio 9 "
  FIELD CODUUE9
  FLAGS "Z"
  COPY USE F_CODUUE1
  INPUT CODTAB F_CODUUE9
  COPY DISPLAY F_CODUUE1
  OUTPUT F_CODUUE9 CODTAB
  OUTPUT F_DESUUE9 S0
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
  MESSAGE EMPTY CLEAR,10@
  MESSAGE ENABLE,F_CODUUE10|ENABLE,F_DESUUE10
  GROUP 2 3 4 5 6 7 8 9
END

STRING F_DESUUE9 50
BEGIN
  PROMPT 20 13 ""
  COPY USE F_DESUUE1
  INPUT S0 F_DESUUE9
  COPY DISPLAY F_DESUUE1
  COPY OUTPUT F_CODUUE9
  CHECKTYPE NORMAL
  GROUP 2 3 4 5 6 7 8 9
END

NUMBER F_CODUUE10 3
BEGIN
  PROMPT 2 14 "Ufficio 10"
  FIELD CODUUE10
  FLAGS "Z"
  COPY USE F_CODUUE1
  INPUT CODTAB F_CODUUE10
  COPY DISPLAY F_CODUUE1
  OUTPUT F_CODUUE10 CODTAB
  OUTPUT F_DESUUE10 S0
  CHECKTYPE NORMAL
  WARNING "Ufficio assente"
  GROUP 2 3 4 5 6 7 8 9 10
END

STRING F_DESUUE10 50
BEGIN
  PROMPT 20 14 ""
  COPY USE F_DESUUE1
  INPUT S0 F_DESUUE10
  COPY DISPLAY F_DESUUE1
  COPY OUTPUT F_CODUUE10
  CHECKTYPE NORMAL
  GROUP 2 3 4 5 6 7 8 9 10
END

ENDPAGE

ENDMASK