763 lines
13 KiB
Plaintext
Executable File
763 lines
13 KiB
Plaintext
Executable File
#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 ""
|
|
FLAGS "D"
|
|
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 ""
|
|
FLAGS "D"
|
|
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 ""
|
|
FLAGS "D"
|
|
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 ""
|
|
FLAGS "D"
|
|
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 ""
|
|
FLAGS "D"
|
|
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 ""
|
|
FLAGS "D"
|
|
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 ""
|
|
FLAGS "D"
|
|
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 ""
|
|
FLAGS "D"
|
|
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 ""
|
|
FLAGS "D"
|
|
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
|
|
|