441 lines
5.7 KiB
Plaintext
Executable File
441 lines
5.7 KiB
Plaintext
Executable File
USE %RIT
|
|
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
|
|
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
|
|
JOIN 7 TO 6 INTO CODANAGR=CODANAGR
|
|
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
|
|
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
|
|
JOIN %UCC ALIAS 14 INTO CODTAB=S9
|
|
JOIN 13 TO 7 ALIAS 413 INTO COM=COMCOST
|
|
|
|
END
|
|
DESCRIPTION
|
|
BEGIN
|
|
%RIT->* "RIT"
|
|
6->* "Anagrafica persone fisiche e giuridiche"
|
|
8->* "Anagrafica persone fisiche"
|
|
113@->* "Comuni"
|
|
213@->* "Comuni"
|
|
14@->* "UCC"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Roman 17cpi"
|
|
SIZE 12
|
|
CARATTERE "H"
|
|
INIZIALE 4 3
|
|
END
|
|
|
|
SECTION BODY ODD 71
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "CONCESSIONE DI"
|
|
PROMPT 70 7 ""
|
|
FIELD 14@->S0
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "COD. CONCESS."
|
|
PROMPT 16 14 ""
|
|
FIELD S9
|
|
END
|
|
|
|
STRINGA 3
|
|
BEGIN
|
|
KEY "CODICE FISCALE"
|
|
PROMPT 26 14 ""
|
|
FIELD 6->COFI
|
|
END
|
|
|
|
STRINGA 4
|
|
BEGIN
|
|
KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
|
|
PROMPT 4 18 ""
|
|
FIELD 6->RAGSOC[1,30]
|
|
END
|
|
|
|
STRINGA 5
|
|
BEGIN
|
|
KEY "NOME"
|
|
PROMPT 95 18 ""
|
|
FIELD 6->RAGSOC[31,-1]
|
|
END
|
|
|
|
LISTA 6
|
|
BEGIN
|
|
KEY "Tipo anagrafica"
|
|
FIELD 6->TIPOA
|
|
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
|
|
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
|
|
END
|
|
|
|
GRUPPO 7
|
|
BEGIN
|
|
KEY "Persone fisiche"
|
|
PROMPT 0 0 ""
|
|
GROUP 1
|
|
END
|
|
|
|
DATA 8
|
|
BEGIN
|
|
KEY "DATA DI NASCITA"
|
|
PROMPT 4 20 ""
|
|
GROUP 1
|
|
PICTURE "# #^ # #^ ^ # # #"
|
|
FIELD 8->DATANASC
|
|
FORMAT "1444-"
|
|
END
|
|
|
|
DATA 9
|
|
BEGIN
|
|
KEY "DATA DI COSTITUZIONE"
|
|
PROMPT 4 20 ""
|
|
GROUP 2
|
|
PICTURE "# #^ # #^ ^ # # #"
|
|
FIELD 7->DATANASC
|
|
FORMAT "1444-"
|
|
END
|
|
|
|
STRINGA 10
|
|
BEGIN
|
|
KEY "SESSO (M o F)"
|
|
PROMPT 34 20 ""
|
|
GROUP 1
|
|
FIELD 8->SESSO
|
|
END
|
|
|
|
STRINGA 11
|
|
BEGIN
|
|
KEY "COMUNE (o Stato estero) DI NASCITA"
|
|
PROMPT 42 20 ""
|
|
GROUP 1
|
|
FIELD 113@->DENCOM
|
|
END
|
|
|
|
STRINGA 12
|
|
BEGIN
|
|
KEY "COMUNE (o Stato estero) DI COSTITUZIONE"
|
|
PROMPT 42 20 ""
|
|
GROUP 2
|
|
FIELD 413@->DENCOM
|
|
END
|
|
|
|
STRINGA 13
|
|
BEGIN
|
|
KEY "PROV. DI NASCITA (sigla)"
|
|
PROMPT 120 20 ""
|
|
GROUP 1
|
|
FIELD 113@->PROVCOM
|
|
END
|
|
|
|
STRINGA 14
|
|
BEGIN
|
|
KEY "PROV. DI COSTITUZIONE (sigla)"
|
|
PROMPT 120 20 ""
|
|
GROUP 2
|
|
FIELD 413@->PROVCOM
|
|
END
|
|
|
|
STRINGA 15
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: COMUNE"
|
|
PROMPT 14 22 ""
|
|
FIELD 213@->DENCOM
|
|
END
|
|
|
|
STRINGA 16
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: PROV. (sigla)"
|
|
PROMPT 64 22 ""
|
|
FIELD 213@->PROVCOM
|
|
END
|
|
|
|
STRINGA 17
|
|
BEGIN
|
|
KEY "CAMPO PER MESSAGGIO RESIDENZA"
|
|
PROMPT -1 -1 ""
|
|
FLAGS "H"
|
|
FIELD 6->INDRF
|
|
MESSAGE EMPTY SHOW,18@|HIDE,17@
|
|
MESSAGE SHOW,17@|HIDE,18@
|
|
END
|
|
|
|
STRINGA 18
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: VIA (RF)"
|
|
PROMPT 72 22 ""
|
|
FIELD 6->INDRF
|
|
GROUP 17
|
|
END
|
|
|
|
STRINGA 19
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: NUMERO CIVICO (RF)"
|
|
PROMPT 124 22 ""
|
|
FIELD 6->CIVRF
|
|
GROUP 17
|
|
END
|
|
|
|
STRINGA 20
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: VIA (RES)"
|
|
PROMPT 72 22 ""
|
|
FIELD 6->INDRES
|
|
FLAGS "H"
|
|
GROUP 18
|
|
END
|
|
|
|
STRINGA 21
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: NUMERO CIVICO (RES)"
|
|
PROMPT 124 22 ""
|
|
FIELD 6->CIVRES
|
|
FLAGS "H"
|
|
GROUP 18
|
|
END
|
|
|
|
NUMERO 22
|
|
BEGIN
|
|
KEY "AL PERIODO DI RIFERIMENTO (mese o anno)"
|
|
PROMPT 53 29 ""
|
|
FIELD I0
|
|
END
|
|
|
|
NUMERO 23
|
|
BEGIN
|
|
KEY "AL PERIODO DI RIFERIMENTO (anno)"
|
|
PROMPT 60 29 ""
|
|
FIELD I1
|
|
END
|
|
|
|
DATA 24
|
|
BEGIN
|
|
KEY "OVVERO ALTRA DATA"
|
|
PROMPT 114 29 ""
|
|
PICTURE "# # ^ # #^^^# #"
|
|
FIELD D1
|
|
FORMAT "1444-"
|
|
END
|
|
|
|
NUMERO 25
|
|
BEGIN
|
|
KEY "TRIBUTO 1001: IMPORTO"
|
|
PROMPT 44 34 ""
|
|
MESSAGE COPY,10@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R0
|
|
END
|
|
|
|
NUMERO 26
|
|
BEGIN
|
|
KEY "TRIBUTO 1001: INTERESSI"
|
|
PROMPT 75 34 ""
|
|
MESSAGE ADD,10@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R7
|
|
END
|
|
|
|
NUMERO 27
|
|
BEGIN
|
|
KEY "TRIBUTO 1001: TOTALE"
|
|
PROMPT 113 34 ""
|
|
GROUP 10
|
|
MESSAGE COPY,9@
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 28
|
|
BEGIN
|
|
KEY "TRIBUTO 1040: IMPORTO"
|
|
PROMPT 44 36 ""
|
|
MESSAGE COPY,11@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R1
|
|
END
|
|
|
|
NUMERO 29
|
|
BEGIN
|
|
KEY "TRIBUTO 1040: INTERESSI"
|
|
PROMPT 75 36 ""
|
|
MESSAGE ADD,11@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R7
|
|
END
|
|
|
|
NUMERO 30
|
|
BEGIN
|
|
KEY "TRIBUTO 1040: TOTALE"
|
|
PROMPT 113 36 ""
|
|
GROUP 11
|
|
MESSAGE ADD,9@
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 31
|
|
BEGIN
|
|
KEY "TRIBUTO 3: CODICE"
|
|
PROMPT 11 38 ""
|
|
FIELD S2
|
|
END
|
|
|
|
NUMERO 32
|
|
BEGIN
|
|
KEY "TRIBUTO 3: IMPORTO"
|
|
PROMPT 44 38 ""
|
|
MESSAGE COPY,12@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R2
|
|
END
|
|
|
|
NUMERO 33
|
|
BEGIN
|
|
KEY "TRIBUTO 3: INTERESSI"
|
|
PROMPT 75 38 ""
|
|
MESSAGE ADD,12@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R8
|
|
END
|
|
|
|
NUMERO 34
|
|
BEGIN
|
|
KEY "TRIBUTO 3: TOTALE"
|
|
PROMPT 113 38 ""
|
|
GROUP 12
|
|
MESSAGE ADD,9@
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 35
|
|
BEGIN
|
|
KEY "TRIBUTO 4: CODICE"
|
|
PROMPT 11 40 ""
|
|
FIELD S3
|
|
END
|
|
|
|
NUMERO 36
|
|
BEGIN
|
|
KEY "TRIBUTO 4: IMPORTO"
|
|
PROMPT 44 40 ""
|
|
MESSAGE COPY,13@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R3
|
|
END
|
|
|
|
NUMERO 37
|
|
BEGIN
|
|
KEY "TRIBUTO 4: INTERESSI"
|
|
PROMPT 75 40 ""
|
|
MESSAGE ADD,13@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R9
|
|
END
|
|
|
|
NUMERO 38
|
|
BEGIN
|
|
KEY "TRIBUTO 4: TOTALE"
|
|
PROMPT 113 40 ""
|
|
GROUP 13
|
|
MESSAGE ADD,9@
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 39
|
|
BEGIN
|
|
KEY "TRIBUTO 5: CODICE"
|
|
PROMPT 11 42 ""
|
|
FIELD S4
|
|
END
|
|
|
|
NUMERO 40
|
|
BEGIN
|
|
KEY "TRIBUTO 5: IMPORTO"
|
|
PROMPT 44 42 ""
|
|
MESSAGE COPY,14@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R4
|
|
END
|
|
|
|
NUMERO 41
|
|
BEGIN
|
|
KEY "TRIBUTO 5: INTERESSI"
|
|
PROMPT 75 42 ""
|
|
MESSAGE ADD,14@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R10
|
|
END
|
|
|
|
NUMERO 42
|
|
BEGIN
|
|
KEY "TRIBUTO 5: TOTALE"
|
|
PROMPT 113 42 ""
|
|
GROUP 14
|
|
MESSAGE ADD,9@
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 43
|
|
BEGIN
|
|
KEY "TRIBUTO 6: CODICE"
|
|
PROMPT 11 44 ""
|
|
FIELD S5
|
|
END
|
|
|
|
NUMERO 44
|
|
BEGIN
|
|
KEY "TRIBUTO 6: IMPORTO"
|
|
PROMPT 44 44 ""
|
|
MESSAGE COPY,15@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R5
|
|
END
|
|
|
|
NUMERO 45
|
|
BEGIN
|
|
KEY "TRIBUTO 6: INTERESSI"
|
|
PROMPT 75 44 ""
|
|
MESSAGE ADD,15@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R11
|
|
END
|
|
|
|
NUMERO 46
|
|
BEGIN
|
|
KEY "TRIBUTO 6: TOTALE"
|
|
PROMPT 113 44 ""
|
|
GROUP 15
|
|
MESSAGE ADD,9@
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 47
|
|
BEGIN
|
|
KEY "TOTALE (in lettere)"
|
|
PROMPT 9 58 ""
|
|
GROUP 9
|
|
PICTURE "LETTERE"
|
|
END
|
|
|
|
NUMERO 48
|
|
BEGIN
|
|
KEY "TOTALE (in cifre)"
|
|
PROMPT 113 58 ""
|
|
GROUP 9
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
DATA 49
|
|
BEGIN
|
|
KEY "DATA: giorno - mese - anno"
|
|
PROMPT 22 63 ""
|
|
PICTURE "@@ ^ @@^^^@@"
|
|
FIELD D0
|
|
FORMAT "1444-"
|
|
END
|
|
|
|
END
|
|
|
|
END
|