root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Rif. mod 95/24. Forms ora impostati in 17". Aggiunti boliircf, delgen

Browse Source 
e delilo.


git-svn-id: svn://10.65.10.50/trunk@1766 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1995-08-31 15:27:33 +00:00
parent c192ad12cb
commit 8f2445456c
12 changed files with 2723 additions and 1356 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

535
ba/boliircf.frm Executable file
View File

@ -0,0 +1,535 @@
USE %IIR
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 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 TO 213@ ALIAS 14 INTO CODTAB==UFFCONC
END
DESCRIPTION
BEGIN
%IIR->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
14@->* "UCC"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 7
END
SECTION BODY ODD 24
GRUPPO 1
BEGIN
KEY "Prima sezione"
END
NUMERO 2
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 4 13 ""
MESSAGE COPY,10@
PICTURE "###.###.###^^^"
FIELD R0
END
NUMERO 3
BEGIN
KEY "INTERESSI"
PROMPT 16 13 ""
MESSAGE ADD,10@
PICTURE "###.###.###^^^"
FIELD R7
END
NUMERO 4
BEGIN
KEY "TOTALE (in basso)"
PROMPT 35 13 ""
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO 5
BEGIN
KEY "TOTALE (in alto)"
PROMPT 36 2 ""
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO 6
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 7 3 ""
GROUP 10
PICTURE "LETTERE"
END
STRINGA 7
BEGIN
KEY "sul C/C n."
PROMPT 11 4 ""
FIELD 14@->S5
END
STRINGA 8
BEGIN
KEY "Concessione di"
PROMPT 16 5 ""
FIELD 14@->S0
END
STRINGA 9
BEGIN
KEY "Eseguito da"
PROMPT 12 6 ""
GROUP 2
FIELD 6->RAGSOC[1,22]
END
STRINGA 10
BEGIN
KEY "Eseguito da (Cognome)"
GROUP 1
FLAGS "H"
MESSAGE COPY,527
FIELD 6->RAGSOC[1,22]
END
STRINGA 11
BEGIN
KEY "Eseguito da (Nome)"
GROUP 1
FLAGS "H"
MESSAGE APPEND,527
FIELD 6->RAGSOC[31,50]
END
STRINGA 527
BEGIN
KEY "Eseguita da (Intero)"
PROMPT 12 6 ""
GROUP 1
END
NUMERO 10
BEGIN
KEY "Codice Concessione"
PROMPT 14 9 ""
FIELD 14@->CODTAB
END
STRINGA 11
BEGIN
KEY "Codice fiscale"
PROMPT 21 9 ""
FIELD 6->COFI
END
STRINGA 12
BEGIN
KEY "CODICE TRIBUTO"
PROMPT 16 11 ""
FIELD S1
END
STRINGA 13
BEGIN
KEY "PERIODO DI RIFERIMENTO"
PROMPT 35 11 ""
FIELD S2
END
DATA 17
BEGIN
KEY "Data del versamento"
PROMPT 12 19 ""
FIELD D0
FORMAT "1444-"
END
STRINGA 18
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 9 20 ""
FIELD 213@->DENCOM
END
STRINGA 19
BEGIN
KEY "DOMICILIO FISCALE: Provincia"
PROMPT 46 20 ""
FIELD 213@->PROVCOM
END
STRINGA 20
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 9 22 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA 21
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 47 22 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
GRUPPO 14
BEGIN
KEY "Seconda sezione"
END
NUMERO 15
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 60 13 ""
PICTURE "###.###.###^^^"
FIELD R0
END
NUMERO 16
BEGIN
KEY "INTERESSI"
PROMPT 73 13 ""
PICTURE "###.###.###^^^"
FIELD R7
END
NUMERO 17
BEGIN
KEY "TOTALE (in basso)"
PROMPT 92 13 ""
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO 18
BEGIN
KEY "TOTALE (in alto)"
PROMPT 93 2 ""
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO 19
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 65 3 ""
GROUP 10
PICTURE "LETTERE"
END
STRINGA 20
BEGIN
KEY "sul C/C n."
PROMPT 67 4 ""
FIELD 14@->S5
END
STRINGA 21
BEGIN
KEY "Concessione di"
PROMPT 70 5 ""
FIELD 14@->S0
END
STRINGA 22
BEGIN
KEY "Eseguito da"
PROMPT 67 6 ""
GROUP 2
FIELD 6->RAGSOC[1,22]
END
STRINGA 31
BEGIN
KEY "Eseguito da (Cognome)"
GROUP 1
FLAGS "H"
MESSAGE COPY,528
FIELD 6->RAGSOC[1,22]
END
STRINGA 32
BEGIN
KEY "Eseguito da (Nome)"
GROUP 1
FLAGS "H"
MESSAGE APPEND,528
FIELD 6->RAGSOC[31,50]
END
STRINGA 528
BEGIN
KEY "Eseguita da (Intero)"
PROMPT 67 6 ""
GROUP 1
END
NUMERO 23
BEGIN
KEY "Codice Concessione"
PROMPT 70 9 ""
FIELD 14@->CODTAB
END
STRINGA 24
BEGIN
KEY "Codice fiscale"
PROMPT 75 9 ""
FIELD 6->COFI
END
STRINGA 25
BEGIN
KEY "CODICE TRIBUTO"
PROMPT 71 11 ""
FIELD S1
END
STRINGA 26
BEGIN
KEY "PERIODO DI RIFERIMENTO"
PROMPT 92 11 ""
FIELD S2
END
DATA 38
BEGIN
KEY "Data del versamento"
PROMPT 66 19 ""
FIELD D0
FORMAT "1444-"
END
STRINGA 39
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 63 20 ""
FIELD 213@->DENCOM
END
STRINGA 40
BEGIN
KEY "DOMICILIO FISCALE: Provincia"
PROMPT 100 20 ""
FIELD 213@->PROVCOM
END
STRINGA 41
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 63 22 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA 42
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 102 22 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
GRUPPO 27
BEGIN
KEY "Terza sezione"
END
NUMERO 28
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 120 3 ""
GROUP 10
PICTURE "LETTERE"
END
NUMERO 29
BEGIN
KEY "TOTALE (in alto)"
PROMPT 186 3 ""
GROUP 10
PICTURE "# # # # # # # #^^^"
END
STRINGA 30
BEGIN
KEY "sul C/C n."
PROMPT 120 4 ""
FIELD 14@->S5
END
STRINGA 31
BEGIN
KEY "Concessione di"
PROMPT 127 5 ""
FIELD 14@->S0
END
STRINGA 32
BEGIN
KEY "Eseguito da (1)"
PROMPT 125 6 ""
FIELD 6->RAGSOC[1,30]
END
STRINGA 33
BEGIN
KEY "Eseguito da (2)"
PROMPT 180 6 ""
FIELD 6->RAGSOC[31,50]
END
LISTA 34
BEGIN
KEY "Tipo anagrafica"
FIELD 6->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
DATA 35
BEGIN
KEY "DATA DI NASCITA"
PROMPT 114 8 ""
GROUP 1
FLAGS "D"
PICTURE "# #^ # #^ ^ # # #"
FIELD 8->DATANASC
FORMAT "1444-"
END
STRINGA 36
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 148 8 ""
GROUP 1
FLAGS "D"
FIELD 113@->DENCOM
END
STRINGA 37
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 206 8 ""
GROUP 1
FLAGS "D"
PICTURE "# #"
FIELD 113@->PROVCOM
END
STRINGA 38
BEGIN
KEY "SESSO (M o F)"
PROMPT 214 8 ""
GROUP 1
FLAGS "D"
FIELD 8->SESSO
END
STRINGA 55
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 114 10 ""
FIELD 213@->DENCOM
END
STRINGA 56
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 154 10 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA 57
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 204 10 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
STRINGA 42
BEGIN
KEY "CODICE TRIBUTO"
PROMPT 116 13 ""
PICTURE "# # # #"
FIELD S1
END
STRINGA 43
BEGIN
KEY "PERIODO DI RIFERIMENTO"
PROMPT 133 13 ""
PICTURE "^ ^ ^ ^ # #"
FIELD S2
END
NUMERO 44
BEGIN
KEY "Codice Concessione"
PROMPT 158 13 ""
PICTURE "# # #"
FIELD 14@->CODTAB
END
STRINGA 45
BEGIN
KEY "Codice fiscale (Persone fisiche)"
PROMPT 169 13 ""
GROUP 1
FLAGS "D"
PICTURE "# # # # # # # # # # # # # # # #"
FIELD 6->COFI
END
STRINGA 62
BEGIN
KEY "Codice fiscale (Persone GIURIDICHE)"
PROMPT 169 13 ""
GROUP 2
FLAGS "D"
PICTURE "# # # # # # # # # # #"
FIELD 6->COFI
END
STRINGA 46
BEGIN
KEY "Partita IVA"
PROMPT 185 15 ""
PICTURE "# # # # # # # # # # #"
FIELD 6->PAIV
END
NUMERO 47
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 187 17 ""
PICTURE "# # # # # # # #^^^"
FIELD R0
END
NUMERO 48
BEGIN
KEY "INTERESSI"
PROMPT 187 19 ""
PICTURE "# # # # # # # #^^^"
FIELD R7
END
END
END

908
ba/bolivacf.frm
View File

@ -1,376 +1,532 @@
USE %DEL
JOIN 9 INTO CODDITTA=CODTAB[1,5]
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 9 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC
END
SECTION BODY ODD 24 0 0
GROUP
BEGIN
KEY "Prima sezione"
END
NUMERO
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 2 13 ""
MESSAGE COPY,10@
PICTURE "###.###.###^^^"
FIELD R0
END
NUMERO
BEGIN
KEY "INTERESSI"
PROMPT 12 13 ""
MESSAGE ADD,10@
PICTURE "###.###.###^^^"
FIELD R1
END
NUMERO
BEGIN
KEY "TOTALE (in basso)"
PROMPT 19 13 ""
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO
BEGIN
KEY "TOTALE (in alto)"
PROMPT 19 2 ""
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 2 3 ""
GROUP 10
PICTURE "LETTERE"
END
STRINGA
BEGIN
KEY "sul C/C n."
PROMPT 6 4 ""
FIELD 14@->S5
END
STRINGA
BEGIN
KEY "Concessione di"
PROMPT 10 5 ""
FIELD 14@->S0
END
STRINGA
BEGIN
KEY "Eseguito da"
PROMPT 7 6 ""
FIELD 6->RAGSOC[1,22]
END
NUMERO
BEGIN
KEY "Codice Concessione"
PROMPT 8 9 ""
FIELD 14@->CODTAB
END
STRINGA
BEGIN
KEY "Codice fiscale"
PROMPT 12 9 ""
FIELD 6->COFI
END
STRING
BEGIN
KEY "CODICE TRIBUTO"
PROMPT 9 11 ""
FIELD S6
END
STRING
BEGIN
KEY "PERIODO DI RIFERIMENTO"
PROMPT 20 11 ""
FIELD CODTAB[6,9]
END
GROUP
BEGIN
KEY "Seconda sezione"
END
NUMERO
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 2 47 ""
PICTURE "###.###.###^^^"
FIELD R0
END
NUMERO
BEGIN
KEY "INTERESSI"
PROMPT 12 47 ""
PICTURE "###.###.###^^^"
FIELD R1
END
NUMERO
BEGIN
KEY "TOTALE (in basso)"
PROMPT 19 47 ""
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO
BEGIN
KEY "TOTALE (in alto)"
PROMPT 19 45 ""
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 2 45 ""
GROUP 10
PICTURE "LETTERE"
END
STRINGA
BEGIN
KEY "sul C/C n."
PROMPT 6 38 ""
FIELD 14@->S5
END
STRINGA
BEGIN
KEY "Concessione di"
PROMPT 10 39 ""
FIELD 14@->S0
END
STRINGA
BEGIN
KEY "Eseguito da"
PROMPT 7 40 ""
FIELD 6->RAGSOC[1,22]
END
NUMERO
BEGIN
KEY "Codice Concessione"
PROMPT 8 43 ""
FIELD 14@->CODTAB
END
STRINGA
BEGIN
KEY "Codice fiscale"
PROMPT 12 43 ""
FIELD 6->COFI
END
STRING
BEGIN
KEY "CODICE TRIBUTO"
PROMPT 9 45 ""
FIELD S6
END
STRING
BEGIN
KEY "PERIODO DI RIFERIMENTO"
PROMPT 20 56 ""
FIELD CODTAB[6,9]
END
GROUP
BEGIN
KEY "Terza sezione"
END
NUMERO
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 70 3 ""
GROUP 10
PICTURE "LETTERE"
END
NUMERO
BEGIN
KEY "TOTALE (in alto)"
PROMPT 110 3 ""
GROUP 10
PICTURE "###.###.###^^^"
END
STRINGA
BEGIN
KEY "sul C/C n."
PROMPT 70 4 ""
FIELD 14@->S5
END
STRINGA
BEGIN
KEY "Concessione di"
PROMPT 74 5 ""
FIELD 14@->S0
END
STRINGA
BEGIN
KEY "Eseguito da (1)"
PROMPT 72 6 ""
FIELD 6->RAGSOC[1,30]
END
STRINGA
BEGIN
KEY "Eseguito da (2)"
PROMPT 102 6 ""
FIELD 6->RAGSOC[31,50]
END
LISTA
BEGIN
KEY "Tipo anagrafica"
FIELD 6->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
DATA
BEGIN
KEY "DATA DI NASCITA"
PROMPT 68 7 ""
GROUP 1
FLAGS "D"
PICTURE "# # ^ # # ^ ^ # # #"
FIELD 8->DATANASC
END
STRINGA
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 84 7 ""
GROUP 1
FLAGS "D"
FIELD 113@->DENCOM
END
STRINGA
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 123 7 ""
GROUP 1
FLAGS "D"
FIELD 113@->PROVCOM
END
STRINGA
BEGIN
KEY "SESSO (M o F)"
PROMPT 127 7 ""
GROUP 1
FLAGS "D"
FIELD 8->SESSO
END
STRINGA
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 65 8 ""
FIELD 213@->DENCOM
END
STRINGA
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 85 8 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 124 8 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
STRING
BEGIN
KEY "CODICE TRIBUTO"
PROMPT 68 13 ""
PICTURE "# # # #"
FIELD S6
END
STRING
BEGIN
KEY "PERIODO DI RIFERIMENTO"
PROMPT 80 13 ""
FIELD CODTAB[6,9]
END
NUMERO
BEGIN
KEY "Codice Concessione"
PROMPT 92 13 ""
PICTURE "# # #"
FIELD 14@->CODTAB
END
STRINGA
BEGIN
KEY "Codice fiscale"
PROMPT 100 13 ""
PICTURE "# # # # # # # # # # # # # # # #"
FIELD 6->COFI
END
STRINGA
BEGIN
KEY "Partita IVA"
PROMPT 109 15 ""
PICTURE "# # # # # # # # # # #"
FIELD 6->PAIV
END
NUMERO
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 109 17 ""
PICTURE "# # # # # # # #^^^"
FIELD R0
END
NUMERO
BEGIN
KEY "INTERESSI"
PROMPT 109 19 ""
PICTURE "# # # # # # # #^^^"
FIELD R1
END
END
USE %DEL
JOIN 9 INTO CODDITTA=CODTAB[1,5]
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 9 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB==UFFCONC
END
DESCRIPTION
BEGIN
%DEL->* "DEL"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
14@->* "UCC"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 7
END
SECTION BODY ODD 24
GRUPPO 1
BEGIN
KEY "Prima sezione"
END
NUMERO 2
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 2 13 ""
MESSAGE COPY,10@
PICTURE "###.###.###^^^"
FIELD R0
END
NUMERO 3
BEGIN
KEY "INTERESSI"
PROMPT 14 13 ""
MESSAGE ADD,10@
PICTURE "###.###.###^^^"
FIELD R1
END
NUMERO 4
BEGIN
KEY "TOTALE (in basso)"
PROMPT 33 13 ""
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO 5
BEGIN
KEY "TOTALE (in alto)"
PROMPT 34 2 ""
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO 6
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 5 3 ""
GROUP 10
PICTURE "LETTERE"
END
STRINGA 7
BEGIN
KEY "sul C/C n."
PROMPT 8 4 ""
FIELD 14@->S5
END
STRINGA 8
BEGIN
KEY "Concessione di"
PROMPT 11 5 ""
FIELD 14@->S0
END
STRINGA 9
BEGIN
KEY "Eseguito da"
PROMPT 9 6 ""
GROUP 2
FIELD 6->RAGSOC[1,22]
END
STRINGA 10
BEGIN
KEY "Eseguito da (PRIMA PARTE)"
GROUP 1
MESSAGE COPY,527
FIELD 6->RAGSOC[1,22]
END
STRINGA 11
BEGIN
KEY "Eseguito da (SECONDA PARTE)"
GROUP 1
MESSAGE APPEND,527
FIELD 6->RAGSOC[31,50]
END
STRINGA 527
BEGIN
KEY "Eseguito da (COMPLETO)"
PROMPT 9 6 ""
GROUP 1
END
NUMERO 10
BEGIN
KEY "Codice Concessione"
PROMPT 14 9 ""
FIELD 14@->CODTAB
END
STRINGA 11
BEGIN
KEY "Codice fiscale"
PROMPT 19 9 ""
FIELD 6->COFI
END
STRINGA 12
BEGIN
KEY "CODICE TRIBUTO"
PROMPT 16 11 ""
FIELD S6
END
STRINGA 13
BEGIN
KEY "PERIODO DI RIFERIMENTO"
PROMPT 35 11 ""
FIELD CODTAB[6,9]
END
DATA 17
BEGIN
KEY "Data del versamento"
PROMPT 8 19 ""
FIELD D0
FORMAT "1444-"
END
STRINGA 18
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 5 20 ""
FIELD 213@->DENCOM
END
STRINGA 19
BEGIN
KEY "DOMICILIO FISCALE: Provincia"
PROMPT 43 20 ""
FIELD 213@->PROVCOM
END
STRINGA 20
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 4 22 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA 21
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 44 22 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
GRUPPO 14
BEGIN
KEY "Seconda sezione"
END
NUMERO 15
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 58 13 ""
PICTURE "###.###.###^^^"
FIELD R0
END
NUMERO 16
BEGIN
KEY "INTERESSI"
PROMPT 70 13 ""
PICTURE "###.###.###^^^"
FIELD R1
END
NUMERO 17
BEGIN
KEY "TOTALE (in basso)"
PROMPT 90 13 ""
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO 18
BEGIN
KEY "TOTALE (in alto)"
PROMPT 90 2 ""
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO 19
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 62 3 ""
GROUP 10
PICTURE "LETTERE"
END
STRINGA 20
BEGIN
KEY "sul C/C n."
PROMPT 65 4 ""
FIELD 14@->S5
END
STRINGA 21
BEGIN
KEY "Concessione di"
PROMPT 69 5 ""
FIELD 14@->S0
END
STRINGA 22
BEGIN
KEY "Eseguito da"
PROMPT 66 6 ""
GROUP 2
FIELD 6->RAGSOC[1,22]
END
STRINGA 31
BEGIN
KEY "Eseguito da (PRIMA PARTE)"
GROUP 1
MESSAGE COPY,528
FIELD 6->RAGSOC[1,22]
END
STRINGA 32
BEGIN
KEY "Eseguito da (SECONDA PARTE)"
GROUP 1
MESSAGE APPEND,528
FIELD 6->RAGSOC[31,50]
END
STRINGA 528
BEGIN
KEY "Eseguito da (COMPLETO)"
PROMPT 66 6 ""
GROUP 1
END
NUMERO 23
BEGIN
KEY "Codice Concessione"
PROMPT 68 9 ""
FIELD 14@->CODTAB
END
STRINGA 24
BEGIN
KEY "Codice fiscale"
PROMPT 76 9 ""
FIELD 6->COFI
END
STRINGA 25
BEGIN
KEY "CODICE TRIBUTO"
PROMPT 71 11 ""
FIELD S6
END
STRINGA 26
BEGIN
KEY "PERIODO DI RIFERIMENTO"
PROMPT 92 11 ""
FIELD CODTAB[6,9]
END
DATA 38
BEGIN
KEY "Data del versamento"
PROMPT 64 19 ""
FIELD D0
FORMAT "1444-"
END
STRINGA 39
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 61 20 ""
FIELD 213@->DENCOM
END
STRINGA 40
BEGIN
KEY "DOMICILIO FISCALE: Provincia"
PROMPT 100 20 ""
FIELD 213@->PROVCOM
END
STRINGA 41
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 61 22 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA 42
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 101 22 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
GRUPPO 27
BEGIN
KEY "Terza sezione"
END
NUMERO 28
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 120 3 ""
GROUP 10
PICTURE "LETTERE"
END
NUMERO 29
BEGIN
KEY "TOTALE (in alto)"
PROMPT 184 3 ""
GROUP 10
PICTURE "# # # # # # # #^^^"
END
STRINGA 30
BEGIN
KEY "sul C/C n."
PROMPT 120 4 ""
FIELD 14@->S5
END
STRINGA 31
BEGIN
KEY "Concessione di"
PROMPT 127 5 ""
FIELD 14@->S0
END
STRINGA 32
BEGIN
KEY "Eseguito da (1)"
PROMPT 127 6 ""
FIELD 6->RAGSOC[1,30]
END
STRINGA 33
BEGIN
KEY "Eseguito da (2)"
PROMPT 180 6 ""
FIELD 6->RAGSOC[31,50]
END
LISTA 34
BEGIN
KEY "Tipo anagrafica"
FIELD 6->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
DATA 35
BEGIN
KEY "DATA DI NASCITA"
PROMPT 112 8 ""
GROUP 1
FLAGS "D"
PICTURE "# #^ # #^ ^ # # #"
FIELD 8->DATANASC
FORMAT "1444-"
END
STRINGA 36
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 148 8 ""
GROUP 1
FLAGS "D"
FIELD 113@->DENCOM
END
STRINGA 37
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 208 8 ""
GROUP 1
FLAGS "D"
PICTURE "# #"
FIELD 113@->PROVCOM
END
STRINGA 38
BEGIN
KEY "SESSO (M o F)"
PROMPT 217 8 ""
GROUP 1
FLAGS "D"
FIELD 8->SESSO
END
STRINGA 39
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 118 10 ""
FIELD 213@->DENCOM
END
STRINGA 40
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 150 10 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA 41
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 219 10 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
STRINGA 42
BEGIN
KEY "CODICE TRIBUTO"
PROMPT 114 13 ""
PICTURE "# # # #"
FIELD S6
END
STRINGA 43
BEGIN
KEY "PERIODO DI RIFERIMENTO"
PROMPT 137 13 ""
PICTURE "^ ^ ^ ^ ^ #"
FIELD CODTAB[6,9]
END
NUMERO 44
BEGIN
KEY "Codice Concessione"
PROMPT 156 13 ""
PICTURE "# # #"
FIELD 14@->CODTAB
END
STRINGA 45
BEGIN
KEY "Codice fiscale"
PROMPT 166 13 ""
GROUP 1
PICTURE "# # # # # # # # # # # # # # # #"
FIELD 6->COFI
END
STRINGA 62
BEGIN
KEY "Codice fiscale (Persone GIURIDICHE)"
PROMPT 166 13 ""
GROUP 2
FLAGS "D"
PICTURE "# # # # # # # # # # #"
FIELD 6->COFI
END
STRINGA 46
BEGIN
KEY "Partita IVA"
PROMPT 184 15 ""
PICTURE "# # # # # # # # # # #"
FIELD 6->PAIV
END
NUMERO 47
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 184 17 ""
PICTURE "# # # # # # # #^^^"
FIELD R0
END
NUMERO 48
BEGIN
KEY "INTERESSI"
PROMPT 184 19 ""
PICTURE "# # # # # # # #^^^"
FIELD R1
END
END
END

321
ba/delgen.frm Executable file
View File

@ -0,0 +1,321 @@
USE %GEN
JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 TO 16@ ALIAS 18 INTO CODANAGR=CODANAGR
JOIN 13 TO 18@ ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 16@ ALIAS 213 INTO COM=COMRES
JOIN 6 ALIAS 26 INTO TIPOA=S1[1,1] CODANAGR=S1[2,6]
JOIN 8 TO 16@ ALIAS 28 INTO CODANAGR=CODANAGR
JOIN 13 TO 18@ ALIAS 313 INTO COM=COMNASC
JOIN %BAN ALIAS 14 INTO CODTAB=S7
JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
JOIN %UCS TO 213@ ALIAS 34 INTO CODTAB==UFFCSERV
JOIN %UID TO 213@ ALIAS 44 INTO CODTAB==UFFIIDD1
JOIN 13 TO 34@ ALIAS 413 INTO COM=S6
JOIN 13 TO 24@ ALIAS 513 INTO COM=S5
END
DESCRIPTION
BEGIN
%GEN->* "GEN"
16@->* "Anagrafica persone fisiche e giuridiche"
18@->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
26@->* "Anagrafica persone fisiche e giuridiche"
28@->* "Anagrafica persone fisiche"
313@->* "Comuni"
14@->* "BAN"
24@->* "BAN"
34@->* "UCS"
44@->* "UID"
413@->* "Comuni"
513@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 7
END
SECTION BODY ODD 66
STRINGA 1
BEGIN
KEY "Azienda di credito"
PROMPT 74 8 ""
FIELD 14@->S0
END
STRINGA 2
BEGIN
KEY "Dipendenza"
PROMPT 74 10 ""
FIELD 24@->S0
END
STRINGA 3
BEGIN
KEY "Dipendenza provincia"
PROMPT 132 10 ""
FIELD 513@->PROVCOM
END
GRUPPO 3
BEGIN
KEY "DATI DICHIARANTE (ALIAS 16 e 18)"
END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 11 14 ""
FIELD 16@->RAGSOC[1,30]
END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 65 14 ""
FIELD 16@->RAGSOC[31,0]
END
DATA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 99 14 ""
PICTURE "##^ ##^ ^###"
FIELD 18@->DATANASC
FORMAT "1444-"
END
STRINGA 7
BEGIN
KEY "SESSO (M o F)"
PROMPT 124 14 ""
FIELD 18@->SESSO
END
STRINGA 8
BEGIN
KEY "STATO CIVILE"
PROMPT 132 14 ""
FIELD 18@->STATCIV
END
STRINGA 9
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 11 16 ""
FIELD 113@->DENCOM
END
STRINGA 10
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 74 16 ""
FIELD 113@->PROVCOM
END
STRINGA 11
BEGIN
KEY "CODICE FISCALE"
PROMPT 83 16 ""
PICTURE "# # # # # # # # # # # # # # #"
FIELD 16@->COFI
END
STRINGA 12
BEGIN
KEY "RESIDENTE IN: COMUNE"
PROMPT 28 18 ""
FIELD 213@->DENCOM
END
STRINGA 13
BEGIN
KEY "RESIDENTE IN: PROV. (sigla)"
PROMPT 74 18 ""
FIELD 213@->PROVCOM
END
STRINGA 14
BEGIN
KEY "RESIDENTE IN: VIA"
PROMPT 83 18 ""
FIELD 16@->INDRES
END
STRINGA 15
BEGIN
KEY "RESIDENTE IN: NUMERO CIVICO"
PROMPT 134 18 ""
FIELD 16@->CIVRES
END
GRUPPO 16
BEGIN
KEY "DATI CONIUGE (ALIAS 26 e 28)"
END
STRINGA 17
BEGIN
KEY "COGNOME"
PROMPT 11 21 ""
FIELD 26@->RAGSOC[1,30]
END
STRINGA 18
BEGIN
KEY "NOME"
PROMPT 65 21 ""
FIELD 26@->RAGSOC[31,0]
END
DATA 19
BEGIN
KEY "DATA DI NASCITA"
PROMPT 108 21 ""
PICTURE "##^ ##^ ^###"
FIELD 28@->DATANASC
FORMAT "1444-"
END
STRINGA 20
BEGIN
KEY "SESSO (M o F)"
PROMPT 132 21 ""
FIELD 28@->SESSO
END
STRINGA 21
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 11 23 ""
FIELD 313@->DENCOM
END
STRINGA 22
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 74 23 ""
FIELD 313@->PROVCOM
END
STRINGA 23
BEGIN
KEY "CODICE FISCALE"
PROMPT 83 23 ""
PICTURE "# # # # # # # # # # # # # # #"
FIELD 26@->COFI
END
NUMERO 24
BEGIN
KEY "ANNO DI IMPOSTA"
PROMPT 44 27 ""
PICTURE "^^# #"
FIELD I0
END
STRINGA 25
BEGIN
KEY "CODICE TRIBUTO"
PROMPT 9 33 ""
PICTURE "# #"
FIELD S2
END
LISTA 26
BEGIN
KEY "CODICE TRIBUTO: descrizione"
PROMPT 23 33 ""
FIELD S2
ITEM "11|Irpef dovuta in base a dichiarazione integrativa"
ITEM "12|Ilor dovuta in base a dichiarazione integrativa da persone fisiche e societa' di persone"
ITEM "13|Imposta sostitutiva dell'Irpef e dell'Ilor sulla rivalutazione dei beni dell'impresa (per. fis. e soc. di per.)"
ITEM "15|Imposta sostitutiva dell'Irpef e dell'Ilor sulle plusvalenze indicate analiticamente in dichiarazione (per. fis.)"
ITEM "16|Imposta sostituitiva sulle plusvalenze dovuta da soc. semplici e assoc. indicate analiticamente in dichiarazione"
ITEM "17|Imposta sostitutiva dell'Irpef, dell'Ilor e dell'IVA, relativa agli immobili esclusi dal patrimonio dell'impresa"
ITEM "32|Imposta sul patrimonio netto delle imprese individuali-persone fisiche"
ITEM "33|Imposta sul patrimonio netto delle imprese-societa' di persone"
ITEM "34|Contributo per le prestazioni del S.S.N.-acconto"
ITEM "35|Contributo per le prestazioni del S.S.N.-saldo"
ITEM "36|Contributo per le prestazioni del S.S.N. e relativa sopratassa in base a dichiarazione integrativa"
END
NUMERO 27
BEGIN
KEY "IMPORTO: in lettere"
PROMPT 19 42 ""
PICTURE "LETTERE"
FIELD R0
END
NUMERO 28
BEGIN
KEY "IMPORTO: in cifre"
PROMPT 120 42 ""
PICTURE "###.###.###^^^"
FIELD R0
END
NUMERO 29
BEGIN
KEY "Soprattassa: in lettere"
PROMPT 19 48 ""
PICTURE "LETTERE"
FIELD R2
END
NUMERO 30
BEGIN
KEY "Soprattassa: in cifre"
PROMPT 120 48 ""
PICTURE "###.###.###^^^"
FIELD R2
END
STRINGA 31
BEGIN
KEY "CENTRO SERVIZI: Provincia"
PROMPT 11 61 ""
FIELD 413@->PROVCOM
FIELD 613@->PROVCOM
END
STRINGA 32
BEGIN
KEY "CENTRO SERVIZI"
PROMPT 23 61 ""
FIELD 34@->S0
FIELD 44@->S0
END
DATA 33
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 76 61 ""
PICTURE "@ @^ @ @^ @ @"
FIELD D0
FORMAT "1442-"
END
STRINGA 34
BEGIN
KEY "CODICE AZIENDA"
PROMPT 97 61 ""
FIELD S7
END
STRINGA 35
BEGIN
KEY "CODICE DIPENDENZA"
PROMPT 120 61 ""
FIELD S8
END
END
END

196
ba/deliircf.frm
View File

@ -1,4 +1,4 @@
USE %SDI
USE %IIR
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
@ -8,55 +8,73 @@ JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
JOIN 13 TO 24@ ALIAS 313 INTO COM=S5
END
DESCRIPTION
BEGIN
%IIR->* " "
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
14@->* "BAN"
24@->* "BAN"
313@->* "Comuni"
END
SECTION BODY ODD 63 0 0
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 7
END
SECTION BODY ODD 66
STRINGA 1
BEGIN
KEY "Azienda di credito"
PROMPT 45 7 ""
PROMPT 79 10 ""
FIELD 14@->S0
END
STRINGA 2
BEGIN
KEY "Dipendenza"
PROMPT 45 9 ""
PROMPT 79 12 ""
FIELD 24@->S0
END
STRINGA 3
BEGIN
KEY "PROVINCIA Dipendenza"
PROMPT 77 9 ""
PROMPT 136 12 ""
FIELD 313@->PROVCOM
END
STRINGA 4
BEGIN
KEY "COD. CONCESS."
PROMPT 13 12 ""
PROMPT 23 15 ""
FIELD S9
END
STRINGA 5
BEGIN
KEY "CODICE FISCALE"
PROMPT 19 12 ""
PROMPT 34 15 ""
FIELD 6->COFI
END
STRINGA 6
BEGIN
KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
PROMPT 5 16 ""
PROMPT 9 19 ""
FIELD 6->RAGSOC[1,30]
END
STRINGA 7
BEGIN
KEY "NOME"
PROMPT 57 16 ""
PROMPT 101 19 ""
FIELD 6->RAGSOC[31,-1]
END
@ -78,9 +96,9 @@ END
DATA 10
BEGIN
KEY "DATA DI NASCITA"
PROMPT 5 18 ""
PROMPT 9 21 ""
GROUP 1
PICTURE "# #^# #^^# # #"
PICTURE "# #^ # #^ ^# # #"
FIELD 8->DATANASC
FORMAT "1444-"
END
@ -88,7 +106,7 @@ END
STRINGA 11
BEGIN
KEY "SESSO (M o F)"
PROMPT 23 18 ""
PROMPT 41 21 ""
GROUP 1
FIELD 8->SESSO
END
@ -96,7 +114,7 @@ END
STRINGA 12
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 28 18 ""
PROMPT 49 21 ""
GROUP 1
FIELD 113@->DENCOM
END
@ -104,7 +122,7 @@ END
STRINGA 13
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 74 18 ""
PROMPT 131 21 ""
GROUP 1
FIELD 113@->PROVCOM
END
@ -112,21 +130,21 @@ END
STRINGA 14
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 12 20 ""
PROMPT 21 23 ""
FIELD 213@->DENCOM
END
STRINGA 15
BEGIN
KEY "DOMICILIO FISCALE: PROV. (sigla)"
PROMPT 40 20 ""
PROMPT 71 23 ""
FIELD 213@->PROVCOM
END
STRINGA 16
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 45 20 ""
PROMPT 79 23 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
@ -134,7 +152,7 @@ END
STRINGA 17
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 74 20 ""
PROMPT 131 23 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
@ -158,7 +176,7 @@ END
NUMERO 20
BEGIN
KEY "IRPEF 4007: PERIODO AA (1)"
PROMPT 24 26 ""
PROMPT 42 29 ""
GROUP 6
FIELD I0
END
@ -166,7 +184,7 @@ END
NUMERO 21
BEGIN
KEY "IRPEF 4007: PERIODO AA (2)"
PROMPT 27 26 ""
PROMPT 48 29 ""
GROUP 6
FIELD I1
END
@ -174,7 +192,7 @@ END
NUMERO 22
BEGIN
KEY "IRPEF 4007: IMPOSTA"
PROMPT 32 26 ""
PROMPT 66 29 ""
GROUP 6
MESSAGE COPY,10@
PICTURE "###.###.###^^^"
@ -184,7 +202,7 @@ END
NUMERO 23
BEGIN
KEY "IRPEF 4007: INTERESSI"
PROMPT 46 26 ""
PROMPT 89 29 ""
GROUP 6
MESSAGE ADD,10@
PICTURE "###.###.###^^^"
@ -194,7 +212,7 @@ END
NUMERO 24
BEGIN
KEY "IRPEF 4007: TOTALE"
PROMPT 64 26 ""
PROMPT 123 29 ""
GROUP 6 10
MESSAGE ADD,9@
PICTURE "###.###.###^^^"
@ -203,7 +221,7 @@ END
NUMERO 25
BEGIN
KEY "IRPEF 4001: PERIODO AA (1)"
PROMPT 24 28 ""
PROMPT 42 31 ""
GROUP 6
FIELD I2
END
@ -211,7 +229,7 @@ END
NUMERO 26
BEGIN
KEY "IRPEF 4001: PERIODO AA (2)"
PROMPT 27 28 ""
PROMPT 48 31 ""
GROUP 6
FIELD I3
END
@ -219,7 +237,7 @@ END
NUMERO 27
BEGIN
KEY "IRPEF 4001: IMPOSTA"
PROMPT 32 28 ""
PROMPT 66 31 ""
GROUP 6
MESSAGE COPY,11@
PICTURE "###.###.###^^^"
@ -229,7 +247,7 @@ END
NUMERO 28
BEGIN
KEY "IRPEF 4001: INTERESSI"
PROMPT 46 28 ""
PROMPT 89 31 ""
GROUP 6
MESSAGE ADD,11@
PICTURE "###.###.###^^^"
@ -239,7 +257,7 @@ END
NUMERO 29
BEGIN
KEY "IRPEF 4001: TOTALE"
PROMPT 64 28 ""
PROMPT 123 31 ""
GROUP 6 11
MESSAGE ADD,9@
PICTURE "###.###.###^^^"
@ -248,7 +266,7 @@ END
NUMERO 30
BEGIN
KEY "ILOR 3353: PERIODO AA (1)"
PROMPT 24 30 ""
PROMPT 42 33 ""
GROUP 6
FIELD I2
END
@ -256,7 +274,7 @@ END
NUMERO 31
BEGIN
KEY "ILOR 3353: PERIODO AA (2)"
PROMPT 27 30 ""
PROMPT 48 33 ""
GROUP 6
FIELD I3
END
@ -264,7 +282,7 @@ END
NUMERO 32
BEGIN
KEY "ILOR 3353: IMPOSTA"
PROMPT 32 30 ""
PROMPT 66 33 ""
GROUP 6
MESSAGE COPY,12@
PICTURE "###.###.###^^^"
@ -274,7 +292,7 @@ END
NUMERO 33
BEGIN
KEY "ILOR 3353: INTERESSI"
PROMPT 46 30 ""
PROMPT 89 33 ""
GROUP 6
MESSAGE ADD,12@
PICTURE "###.###.###^^^"
@ -284,7 +302,7 @@ END
NUMERO 34
BEGIN
KEY "IRPEF 3353: TOTALE"
PROMPT 64 30 ""
PROMPT 123 33 ""
GROUP 6 12
MESSAGE ADD,9@
PICTURE "###.###.###^^^"
@ -293,7 +311,7 @@ END
NUMERO 35
BEGIN
KEY "ILOR 3350: PERIODO AA (1)"
PROMPT 24 32 ""
PROMPT 42 35 ""
GROUP 6
FIELD I6
END
@ -301,7 +319,7 @@ END
NUMERO 36
BEGIN
KEY "ILOR 3350: PERIODO AA (2)"
PROMPT 27 32 ""
PROMPT 48 35 ""
GROUP 6
FIELD I7
END
@ -309,7 +327,7 @@ END
NUMERO 37
BEGIN
KEY "ILOR 3350: IMPOSTA"
PROMPT 32 32 ""
PROMPT 66 35 ""
GROUP 6
MESSAGE COPY,13@
PICTURE "###.###.###^^^"
@ -319,7 +337,7 @@ END
NUMERO 38
BEGIN
KEY "ILOR 3350: INTERESSI"
PROMPT 46 32 ""
PROMPT 89 35 ""
GROUP 6
MESSAGE ADD,13@
PICTURE "###.###.###^^^"
@ -329,7 +347,7 @@ END
NUMERO 39
BEGIN
KEY "ILOR 3350: TOTALE"
PROMPT 64 32 ""
PROMPT 123 35 ""
GROUP 6 13
MESSAGE ADD,9@
PICTURE "###.###.###^^^"
@ -346,7 +364,7 @@ END
NUMERO 41
BEGIN
KEY "IRPEG 2110: PERIODO AA (1)"
PROMPT 24 34 ""
PROMPT 42 37 ""
GROUP 7
FLAGS "DH"
FIELD I0
@ -355,7 +373,7 @@ END
NUMERO 42
BEGIN
KEY "IRPEG 2110: PERIODO AA (2)"
PROMPT 27 34 ""
PROMPT 48 37 ""
GROUP 7
FLAGS "DH"
FIELD I1
@ -364,7 +382,7 @@ END
NUMERO 43
BEGIN
KEY "IRPEG 2110: IMPOSTA"
PROMPT 32 34 ""
PROMPT 66 37 ""
GROUP 7
FLAGS "DH"
MESSAGE COPY,10@
@ -375,7 +393,7 @@ END
NUMERO 44
BEGIN
KEY "IRPEG 2110: INTERESSI"
PROMPT 46 34 ""
PROMPT 89 37 ""
GROUP 7
FLAGS "DH"
MESSAGE ADD,10@
@ -386,7 +404,7 @@ END
NUMERO 45
BEGIN
KEY "IRPEG 2110: TOTALE"
PROMPT 64 34 ""
PROMPT 123 37 ""
GROUP 7 10
FLAGS "DH"
MESSAGE ADD,9@
@ -396,7 +414,7 @@ END
NUMERO 46
BEGIN
KEY "IRPEG 2100: PERIODO AA (1)"
PROMPT 24 36 ""
PROMPT 42 39 ""
GROUP 7
FLAGS "DH"
FIELD I2
@ -405,7 +423,7 @@ END
NUMERO 47
BEGIN
KEY "IRPEG 2100: PERIODO AA (2)"
PROMPT 27 36 ""
PROMPT 48 39 ""
GROUP 7
FLAGS "DH"
FIELD I3
@ -414,7 +432,7 @@ END
NUMERO 48
BEGIN
KEY "IRPEG 2100: IMPOSTA"
PROMPT 32 36 ""
PROMPT 66 39 ""
GROUP 7
FLAGS "DH"
MESSAGE COPY,11@
@ -425,7 +443,7 @@ END
NUMERO 49
BEGIN
KEY "IRPEG 2100: INTERESSI"
PROMPT 46 36 ""
PROMPT 89 39 ""
GROUP 7
FLAGS "DH"
MESSAGE ADD,11@
@ -436,7 +454,7 @@ END
NUMERO 50
BEGIN
KEY "IRPEG 2100: TOTALE"
PROMPT 64 36 ""
PROMPT 123 39 ""
GROUP 7 11
FLAGS "DH"
MESSAGE ADD,9@
@ -446,7 +464,7 @@ END
NUMERO 51
BEGIN
KEY "ILOR 3110: PERIODO AA (1)"
PROMPT 24 38 ""
PROMPT 42 41 ""
GROUP 7
FLAGS "DH"
FIELD I2
@ -455,7 +473,7 @@ END
NUMERO 52
BEGIN
KEY "ILOR 3110: PERIODO AA (2)"
PROMPT 27 38 ""
PROMPT 48 41 ""
GROUP 7
FLAGS "DH"
FIELD I3
@ -464,7 +482,7 @@ END
NUMERO 53
BEGIN
KEY "ILOR 3110: IMPOSTA"
PROMPT 32 38 ""
PROMPT 66 41 ""
GROUP 7
FLAGS "DH"
MESSAGE COPY,12@
@ -475,7 +493,7 @@ END
NUMERO 54
BEGIN
KEY "ILOR 3110: INTERESSI"
PROMPT 46 38 ""
PROMPT 89 41 ""
GROUP 7
FLAGS "DH"
MESSAGE ADD,12@
@ -486,7 +504,7 @@ END
NUMERO 55
BEGIN
KEY "IRPEF 3110: TOTALE"
PROMPT 64 38 ""
PROMPT 123 41 ""
GROUP 7 12
FLAGS "DH"
MESSAGE ADD,9@
@ -496,7 +514,7 @@ END
NUMERO 56
BEGIN
KEY "ILOR 3000: PERIODO AA (1)"
PROMPT 24 40 ""
PROMPT 42 43 ""
GROUP 7
FLAGS "DH"
FIELD I6
@ -505,7 +523,7 @@ END
NUMERO 57
BEGIN
KEY "ILOR 3000: PERIODO AA (2)"
PROMPT 27 40 ""
PROMPT 48 43 ""
GROUP 7
FLAGS "DH"
FIELD I7
@ -514,7 +532,7 @@ END
NUMERO 58
BEGIN
KEY "ILOR 3000: IMPOSTA"
PROMPT 32 40 ""
PROMPT 66 43 ""
GROUP 7
FLAGS "DH"
MESSAGE COPY,13@
@ -525,7 +543,7 @@ END
NUMERO 59
BEGIN
KEY "ILOR 3000: INTERESSI"
PROMPT 46 40 ""
PROMPT 89 43 ""
GROUP 7
FLAGS "DH"
MESSAGE ADD,13@
@ -536,7 +554,7 @@ END
NUMERO 60
BEGIN
KEY "ILOR 3000: TOTALE"
PROMPT 64 40 ""
PROMPT 123 43 ""
GROUP 7 13
FLAGS "DH"
MESSAGE ADD,9@
@ -554,7 +572,7 @@ END
NUMERO 62
BEGIN
KEY "ILOR 3303: PERIODO AA (1)"
PROMPT 24 42 ""
PROMPT 42 45 ""
GROUP 8
FLAGS "DH"
FIELD I4
@ -563,7 +581,7 @@ END
NUMERO 63
BEGIN
KEY "ILOR 3303: PERIODO AA (2)"
PROMPT 27 42 ""
PROMPT 48 45 ""
GROUP 8
FLAGS "DH"
FIELD I5
@ -572,7 +590,7 @@ END
NUMERO 64
BEGIN
KEY "ILOR 3303: IMPOSTA"
PROMPT 32 42 ""
PROMPT 66 45 ""
GROUP 8
FLAGS "DH"
MESSAGE COPY,12@
@ -583,7 +601,7 @@ END
NUMERO 65
BEGIN
KEY "ILOR 3303: INTERESSI"
PROMPT 46 42 ""
PROMPT 89 45 ""
GROUP 8
FLAGS "DH"
MESSAGE ADD,12@
@ -594,7 +612,7 @@ END
NUMERO 66
BEGIN
KEY "ILOR 3303: TOTALE"
PROMPT 64 42 ""
PROMPT 123 45 ""
GROUP 8 12
FLAGS "DH"
MESSAGE ADD,9@
@ -604,7 +622,7 @@ END
NUMERO 67
BEGIN
KEY "ILOR 3300: PERIODO AA (1)"
PROMPT 24 44 ""
PROMPT 42 47 ""
GROUP 8
FLAGS "DH"
FIELD I6
@ -613,7 +631,7 @@ END
NUMERO 68
BEGIN
KEY "ILOR 3300: PERIODO AA (2)"
PROMPT 27 44 ""
PROMPT 48 47 ""
GROUP 8
FLAGS "DH"
FIELD I7
@ -622,7 +640,7 @@ END
NUMERO 69
BEGIN
KEY "ILOR 3300: IMPOSTA"
PROMPT 32 44 ""
PROMPT 66 47 ""
GROUP 8
FLAGS "DH"
MESSAGE COPY,13@
@ -633,7 +651,7 @@ END
NUMERO 70
BEGIN
KEY "ILOR 3300: INTERESSI"
PROMPT 46 44 ""
PROMPT 89 47 ""
GROUP 8
FLAGS "DH"
MESSAGE ADD,13@
@ -644,7 +662,7 @@ END
NUMERO 71
BEGIN
KEY "ILOR 3300: TOTALE"
PROMPT 64 44 ""
PROMPT 123 47 ""
GROUP 8 13
FLAGS "DH"
MESSAGE ADD,9@
@ -660,21 +678,21 @@ END
NUMERO 73
BEGIN
KEY "TRIBUTO 1: PERIODO AA (1)"
PROMPT 24 50 ""
PROMPT 42 53 ""
FIELD I8
END
NUMERO 74
BEGIN
KEY "TRIBUTO 1: PERIODO AA (2)"
PROMPT 27 50 ""
PROMPT 48 53 ""
FIELD I9
END
NUMERO 75
BEGIN
KEY "TRIBUTO 1: IMPORTO"
PROMPT 32 50 ""
PROMPT 66 53 ""
MESSAGE COPY,14@
PICTURE "###.###.###^^^"
FIELD R4
@ -683,7 +701,7 @@ END
NUMERO 76
BEGIN
KEY "TRIBUTO 1: INTERESSI"
PROMPT 46 50 ""
PROMPT 89 53 ""
MESSAGE ADD,14@
PICTURE "###.###.###^^^"
FIELD R11
@ -692,7 +710,7 @@ END
NUMERO 77
BEGIN
KEY "TRIBUTO 1: TOTALE"
PROMPT 64 50 ""
PROMPT 123 53 ""
GROUP 14
MESSAGE ADD,9@
PICTURE "###.###.###^^^"
@ -701,21 +719,21 @@ END
NUMERO 78
BEGIN
KEY "TRIBUTO 2: PERIODO AA (1)"
PROMPT 24 52 ""
PROMPT 42 55 ""
FIELD I10
END
NUMERO 79
BEGIN
KEY "TRIBUTO 2: PERIODO AA (2)"
PROMPT 27 52 ""
PROMPT 48 55 ""
FIELD I11
END
NUMERO 80
BEGIN
KEY "TRIBUTO 2: IMPORTO"
PROMPT 32 52 ""
PROMPT 66 55 ""
MESSAGE COPY,15@
PICTURE "###.###.###^^^"
FIELD R5
@ -724,7 +742,7 @@ END
NUMERO 81
BEGIN
KEY "TRIBUTO 2: INTERESSI"
PROMPT 46 52 ""
PROMPT 89 55 ""
MESSAGE ADD,15@
PICTURE "###.###.###^^^"
FIELD R12
@ -733,7 +751,7 @@ END
NUMERO 82
BEGIN
KEY "TRIBUTO 2: TOTALE"
PROMPT 64 52 ""
PROMPT 123 55 ""
GROUP 15
MESSAGE ADD,9@
PICTURE "###.###.###^^^"
@ -742,21 +760,21 @@ END
NUMERO 83
BEGIN
KEY "TRIBUTO 3: PERIODO AA (1)"
PROMPT 24 54 ""
PROMPT 42 57 ""
FIELD I12
END
NUMERO 84
BEGIN
KEY "TRIBUTO 3: PERIODO AA (2)"
PROMPT 27 54 ""
PROMPT 48 57 ""
FIELD I13
END
NUMERO 85
BEGIN
KEY "TRIBUTO 3: IMPORTO"
PROMPT 32 54 ""
PROMPT 66 57 ""
MESSAGE COPY,16@
PICTURE "###.###.###^^^"
FIELD R6
@ -765,7 +783,7 @@ END
NUMERO 86
BEGIN
KEY "TRIBUTO 3: INTERESSI"
PROMPT 46 54 ""
PROMPT 89 57 ""
MESSAGE ADD,16@
PICTURE "###.###.###^^^"
FIELD R13
@ -774,7 +792,7 @@ END
NUMERO 87
BEGIN
KEY "TRIBUTO 3: TOTALE"
PROMPT 64 54 ""
PROMPT 123 57 ""
GROUP 16
MESSAGE ADD,9@
PICTURE "###.###.###^^^"
@ -783,7 +801,7 @@ END
NUMERO 88
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 7 57 ""
PROMPT 12 60 ""
GROUP 9
PICTURE "LETTERE"
END
@ -791,7 +809,7 @@ END
NUMERO 89
BEGIN
KEY "TOTALE (in cifre)"
PROMPT 64 57 ""
PROMPT 123 60 ""
GROUP 9
PICTURE "###.###.###^^^"
END
@ -799,8 +817,8 @@ END
DATA 90
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 49 62 ""
PICTURE "@ @^@ @^@ @"
PROMPT 85 65 ""
PICTURE "@ @^ @ @^ @ @"
FIELD D0
FORMAT "1442-"
END
@ -808,14 +826,14 @@ END
STRINGA 91
BEGIN
KEY "CODICE AZIENDA"
PROMPT 64 62 ""
PROMPT 113 65 ""
FIELD S7
END
STRINGA 92
BEGIN
KEY "CODICE DIPENDENZA"
PROMPT 74 62 ""
PROMPT 131 65 ""
FIELD S8
END

198
ba/delilo.frm Executable file
View File

@ -0,0 +1,198 @@
USE %ILO
JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 7 TO 16@ ALIAS 17 INTO CODANAGR=CODANAGR
JOIN 13 TO 16@ ALIAS 113 INTO COM=COMRF(COMRES)
JOIN %BAN ALIAS 14 INTO CODTAB=S7
JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
JOIN %UCS TO 113@ ALIAS 34 INTO CODTAB==UFFCSERV
JOIN %UID TO 113@ ALIAS 44 INTO CODTAB==UFFIIDD1
JOIN 13 TO 34@ ALIAS 213 INTO COM=S6
JOIN 13 TO 24@ ALIAS 313 INTO COM=S5
JOIN 13 TO 44@ ALIAS 414 INTO COM=S6
END
DESCRIPTION
BEGIN
%ILO->* "ILO"
16@->* "Anagrafica persone fisiche e giuridiche"
17@->* "Anagrafica persone giuridiche"
113@->* "Comuni"
14@->* "BAN"
24@->* "BAN"
34@->* "UCS"
44@->* "UID"
213@->* "Comuni"
313@->* "Comuni"
414@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 7
END
SECTION BODY ODD 66
STRINGA 1
BEGIN
KEY "Azienda di credito"
PROMPT 71 8 ""
FIELD 14@->S0
END
STRINGA 2
BEGIN
KEY "Dipendenza"
PROMPT 71 10 ""
FIELD 24@->S0
END
STRINGA 3
BEGIN
KEY "PROVINCIA dipendenza"
PROMPT 127 10 ""
FIELD 313@->PROVCOM
END
GRUPPO 4
BEGIN
KEY "SOCIETA'"
END
STRINGA 5
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 12 18 ""
FIELD 16@->RAGSOC
END
STRINGA 6
BEGIN
KEY "CODICE FISCALE"
PROMPT 97 18 ""
PICTURE "# # # # # # # # # # #"
FIELD 16@->COFI
END
STRINGA 7
BEGIN
KEY "COMUNE "
PROMPT 30 20 ""
FIELD 113@->DENCOM
END
STRINGA 8
BEGIN
KEY "PROVINCIA (sigla)"
PROMPT 67 20 ""
FIELD 113@->PROVCOM
END
STRINGA 9
BEGIN
KEY "VIA"
PROMPT 81 20 ""
FIELD 16@->INDRF
FIELD 16@->INDRES
END
STRINGA 10
BEGIN
KEY "NUMERO CIVICO"
PROMPT 131 20 ""
FIELD 16@->CIVRF
FIELD 16@->CIVRES
END
NUMERO 13
BEGIN
KEY "ANNO DI IMPOSTA SALDO"
PROMPT 51 28 ""
PICTURE "^^# #"
FIELD I0
END
NUMERO 14
BEGIN
KEY "IMPORTO SALDO: in lettere"
PROMPT 18 30 ""
PICTURE "LETTERE"
FIELD R0
END
NUMERO 15
BEGIN
KEY "IMPORTO SALDO: in cifre"
PROMPT 114 30 ""
PICTURE "###.###.###^^^"
FIELD R0
END
NUMERO 17
BEGIN
KEY "ANNO DI IMPOSTA ACCONTO"
PROMPT 51 34 ""
PICTURE "^^# #"
FIELD I1
END
NUMERO 18
BEGIN
KEY "IMPORTO ACCONTO: in lettere"
PROMPT 18 36 ""
PICTURE "LETTERE"
FIELD R1
END
NUMERO 19
BEGIN
KEY "IMPORTO ACCONTO: in cifre"
PROMPT 114 36 ""
PICTURE "###.###.###^^^"
FIELD R1
END
STRINGA 20
BEGIN
KEY "CENTRO SERVIZI: Provincia"
PROMPT 9 49 ""
FIELD 213@->PROVCOM
FIELD 414@->PROVCOM
END
STRINGA 21
BEGIN
KEY "CENTRO SERVIZI "
PROMPT 19 49 ""
FIELD 34@->S0
FIELD 44@->S0
END
DATA 22
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 74 49 ""
PICTURE "@ @^ @ @^ @ @"
FIELD D0
FORMAT "1442-"
END
STRINGA 23
BEGIN
KEY "CODICE AZIENDA"
PROMPT 97 49 ""
FIELD S7
END
STRINGA 24
BEGIN
KEY "CODICE DIPENDENZA"
PROMPT 120 49 ""
FIELD S8
END
END
END

323
ba/delirf.frm
View File

@ -1,351 +1,386 @@
// Delega di pagamento: IRPEF E/O ILOR (PERSONE FISICHE)
USE %IPF
USE %IRF
JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 TO 6 ALIAS 18 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRES
JOIN 8 TO 16@ ALIAS 18 INTO CODANAGR=CODANAGR
JOIN 13 TO 18@ ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 16@ ALIAS 213 INTO COM=COMRES
JOIN 6 ALIAS 26 INTO TIPOA=S1[1,1] CODANAGR=S1[2,6]
JOIN 8 TO 6 ALIAS 28 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 313 INTO COM=COMNASC
JOIN 8 TO 26@ ALIAS 28 INTO CODANAGR=CODANAGR
JOIN 13 TO 28@ ALIAS 313 INTO COM=COMNASC
JOIN %BAN ALIAS 14 INTO CODTAB=S7
JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
JOIN 13 TO 24@ ALIAS 413 INTO COM=S5
JOIN %UCS TO 213@ ALIAS 34 INTO CODTAB=CENSER
JOIN %UCS TO 213@ ALIAS 34 INTO CODTAB==UFFCSERV
JOIN %UID TO 213@ ALIAS 44 INTO CODTAB==UFFIIDD1
JOIN 13 TO 34@ ALIAS 513 INTO COM=S6
JOIN 13 TO 44@ ALIAS 613 INTO COM=S6
END
DESCRIPTION
BEGIN
%IRF->* " "
16@->* "Anagrafica persone fisiche e giuridiche"
18@->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
26@->* "Anagrafica persone fisiche e giuridiche"
28@->* "Anagrafica persone fisiche"
313@->* "Comuni"
14@->* "BAN"
24@->* "BAN"
413@->* "Comuni"
34@->* "UCS"
44@->* "UID"
513@->* "Comuni"
613@->* "Comuni"
END
SECTION BODY 0 66 0 0
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 7
END
STRINGA
SECTION BODY ODD 66
STRINGA 1
BEGIN
KEY "Azienda di credito"
PROMPT 38 7 ""
PROMPT 67 7 ""
FIELD 14@->S0
END
STRINGA
STRINGA 2
BEGIN
KEY "Dipendenza"
PROMPT 38 9 ""
PROMPT 67 9 ""
FIELD 24@->S0
END
STRINGA
STRINGA 3
BEGIN
KEY "PROVINCIA Dipendenza"
PROMPT 72 9 ""
PROMPT 125 9 ""
FIELD 413@->PROVCOM
END
GRUPPO
GRUPPO 4
BEGIN
KEY "DATI DICHIARANTE"
KEY "DATI DICHIARANTE"
END
STRINGA
STRINGA 5
BEGIN
KEY "COGNOME"
PROMPT 5 12 ""
FIELD 16->RAGSOC[1,30]
PROMPT 9 12 ""
FIELD 16@->RAGSOC[1,30]
END
STRINGA
STRINGA 6
BEGIN
KEY "NOME"
PROMPT 33 12 ""
FIELD 16->RAGSOC[31,0]
PROMPT 58 12 ""
FIELD 16@->RAGSOC[31,0]
END
DATA
DATA 7
BEGIN
KEY "DATA DI NASCITA"
PROMPT 54 12 ""
PICTURE "# #^# #^^ # # #"
FIELD 18->DATANASC
PROMPT 95 12 ""
PICTURE "# #^ # #^ ^# # #"
FIELD 18@->DATANASC
FORMAT "1444-"
END
STRINGA
STRINGA 8
BEGIN
KEY "SESSO (M o F)"
PROMPT 68 12 ""
FIELD 18->SESSO
PROMPT 120 12 ""
FIELD 18@->SESSO
END
STRINGA
STRINGA 9
BEGIN
KEY "STATO CIVILE"
PROMPT 72 12 ""
FIELD 18->STATCIV
PROMPT 127 12 ""
FIELD 18@->STATCIV
END
STRINGA
STRINGA 10
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 5 14 ""
PROMPT 9 14 ""
FIELD 113@->DENCOM
END
STRINGA
STRINGA 11
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 33 14 ""
PROMPT 58 14 ""
FIELD 113@->PROVCOM
END
STRINGA
STRINGA 12
BEGIN
KEY "CODICE FISCALE"
PROMPT 43 14 ""
FIELD 16->COFI
PICTURE "# # # # # # # # # # # # # # #"
PROMPT 76 14 ""
PICTURE "# # # # # # # # # # # # # # # #"
FIELD 16@->COFI
END
STRINGA
STRINGA 13
BEGIN
KEY "RESIDENTE IN: COMUNE"
PROMPT 5 16 ""
PROMPT 26 16 ""
FIELD 213@->DENCOM
END
STRINGA
STRINGA 14
BEGIN
KEY "RESIDENTE IN: PROV. (sigla)"
PROMPT 33 16 ""
PROMPT 58 16 ""
FIELD 213@->PROVCOM
END
STRINGA
STRINGA 15
BEGIN
KEY "RESIDENTE IN: VIA"
PROMPT 41 18 ""
FIELD 16->INDRES
PROMPT 74 16 ""
FIELD 16@->INDRES
END
STRINGA
STRINGA 16
BEGIN
KEY "RESIDENTE IN: NUMERO CIVICO"
PROMPT 70 18 ""
FIELD 16->CIVRES
END
GRUPPO
BEGIN
KEY "DATI CONIUGE"
PROMPT 126 16 ""
FIELD 16@->CIVRES
END
STRINGA
GRUPPO 17
BEGIN
KEY "DATI CONIUGE"
END
STRINGA 18
BEGIN
KEY "COGNOME"
PROMPT 5 19 ""
FIELD 26->RAGSOC[1,30]
PROMPT 9 19 ""
FIELD 26@->RAGSOC[1,30]
END
STRINGA
STRINGA 19
BEGIN
KEY "NOME"
PROMPT 33 19 ""
FIELD 26->RAGSOC[31,0]
PROMPT 58 19 ""
FIELD 26@->RAGSOC[31,0]
END
DATA
DATA 20
BEGIN
KEY "DATA DI NASCITA"
PROMPT 58 19 ""
PICTURE "# #^# #^^ # # #"
FIELD 28->DATANASC
PROMPT 102 19 ""
PICTURE "# #^ # #^ ^# # #"
FIELD 28@->DATANASC
FORMAT "1444-"
END
STRINGA
STRINGA 21
BEGIN
KEY "SESSO (M o F)"
PROMPT 72 19 ""
FIELD 28->SESSO
PROMPT 127 19 ""
FIELD 28@->SESSO
END
STRINGA
STRINGA 22
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 5 21 ""
PROMPT 9 21 ""
FIELD 313@->DENCOM
END
STRINGA
STRINGA 23
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 33 21 ""
PROMPT 58 21 ""
FIELD 313@->PROVCOM
END
STRINGA
STRINGA 24
BEGIN
KEY "CODICE FISCALE"
PROMPT 43 21 ""
FIELD 26->COFI
PICTURE "# # # # # # # # # # # # # # #"
PROMPT 76 21 ""
PICTURE "# # # # # # # # # # # # # # # #"
FIELD 26@->COFI
END
NUMERO
NUMERO 25
BEGIN
KEY "IRPEF: Saldo anno"
PROMPT 28 28 ""
PROMPT 47 25 ""
PICTURE "^^# #"
FIELD I0
PICTURE "^^# #"
END
NUMERO
NUMERO 26
BEGIN
KEY "IRPEF: Saldo in lettere"
PROMPT 10 30 ""
PROMPT 15 27 ""
PICTURE "LETTERE"
FIELD R0
END
NUMERO
NUMERO 27
BEGIN
KEY "IRPEF: Saldo in cifre"
PROMPT 58 30 ""
PROMPT 111 27 ""
PICTURE "###.###.###^^^"
FIELD R0
END
NUMERO
NUMERO 28
BEGIN
KEY "IRPEF: Acconto anno"
PROMPT 28 32 ""
PROMPT 47 29 ""
PICTURE "^^# #"
FIELD I1
PICTURE "^^# #"
END
NUMERO
NUMERO 29
BEGIN
KEY "IRPEF: Acconto in lettere"
PROMPT 10 34 ""
PROMPT 15 31 ""
PICTURE "LETTERE"
FIELD R1
END
NUMERO
NUMERO 30
BEGIN
KEY "IRPEF: Acconto in cifre"
PROMPT 58 34 ""
PROMPT 111 31 ""
PICTURE "###.###.###^^^"
FIELD R1
END
NUMERO
NUMERO 31
BEGIN
KEY "ILOR: Saldo anno"
PROMPT 28 39 ""
PROMPT 47 36 ""
PICTURE "^^# #"
FIELD I2
PICTURE "^^# #"
END
NUMERO
NUMERO 32
BEGIN
KEY "ILOR: Saldo dichiarante"
PROMPT 50 41 ""
FIELD R2
MESSAGGE COPY,10@
PROMPT 97 38 ""
MESSAGE COPY,10@
PICTURE "###.###.###^^^"
FIELD R2
END
NUMERO
NUMERO 33
BEGIN
KEY "ILOR: Saldo coniuge"
PROMPT 50 43 ""
PROMPT 97 41 ""
MESSAGE ADD,10@
PICTURE "###.###.###^^^"
FIELD R3
MESSAGGE ADD,10@
END
NUMERO
NUMERO 34
BEGIN
KEY "ILOR: Saldo in lettere"
PROMPT 10 46 ""
GROUP 10
PROMPT 15 45 ""
GROUP 10
PICTURE "LETTERE"
END
NUMERO
NUMERO 35
BEGIN
KEY "ILOR: Saldo in cifre"
PROMPT 58 46 ""
GROUP 10
PROMPT 111 45 ""
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO
NUMERO 36
BEGIN
KEY "ILOR: Acconto anno"
PROMPT 28 48 ""
PROMPT 47 47 ""
PICTURE "^^# #"
FIELD I3
PICTURE "^^# #"
END
NUMERO
NUMERO 37
BEGIN
KEY "ILOR: Acconto dichiarante"
PROMPT 50 50 ""
FIELD R4
MESSAGGE COPY,11@
PROMPT 97 49 ""
MESSAGE COPY,11@
PICTURE "###.###.###^^^"
FIELD R4
END
NUMERO
NUMERO 38
BEGIN
KEY "ILOR: Acconto coniuge"
PROMPT 50 52 ""
PROMPT 97 52 ""
MESSAGE ADD,11@
PICTURE "###.###.###^^^"
FIELD R5
MESSAGGE ADD,11@
END
NUMERO
NUMERO 39
BEGIN
KEY "ILOR: Acconto in lettere"
PROMPT 10 54 ""
GROUP 11
PROMPT 15 56 ""
GROUP 11
PICTURE "LETTERE"
END
NUMERO
NUMERO 40
BEGIN
KEY "ILOR: Acconto in cifre"
PROMPT 58 54 ""
GROUP 11
PROMPT 111 56 ""
GROUP 11
PICTURE "###.###.###^^^"
END
STRINGA
STRINGA 41
BEGIN
KEY "CENTRO SERVIZI: Provincia"
PROMPT 60 3 ""
FIELD 513@->PROVCOM
KEY "CENTRO SERVIZI: Provincia"
PROMPT 5 63 ""
FIELD 513@->PROVCOM
FIELD 613@->PROVCOM
END
STRINGA
STRINGA 42
BEGIN
KEY "CENTRO SERVIZI"
PROMPT 60 10 ""
FIELD 34@->S0
KEY "CENTRO SERVIZI"
PROMPT 17 63 ""
FIELD 34@->S0
FIELD 44@->S0
END
DATA
DATA 43
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 44 60 ""
PICTURE "@@ ^ @@^^^@@"
PROMPT 72 63 ""
PICTURE "@ @^ @ @^ ^^@ @"
FIELD D0
FORMAT "1444-"
END
STRINGA
STRINGA 44
BEGIN
KEY "CODICE AZIENDA"
PROMPT 52 60 ""
PROMPT 92 63 ""
FIELD S7
END
STRINGA
STRINGA 45
BEGIN
KEY "CODICE DIPENDENZA"
PROMPT 65 60 ""
PROMPT 115 63 ""
FIELD S8
END

261
ba/delritcf.frm
View File

@ -1,6 +1,4 @@
// Delega di pagamento delle ritenute alla fonte e altri codici tributo
USE %SDR
USE %RIT
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
@ -10,59 +8,77 @@ JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
JOIN 13 TO 24@ ALIAS 313 INTO COM=S5
END
DESCRIPTION
BEGIN
%RIT->* " "
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
14@->* "BAN"
24@->* "BAN"
313@->* "Comuni"
END
SECTION BODY 0 66 0 0
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 7
END
STRINGA
SECTION BODY ODD 66
STRINGA 1
BEGIN
KEY "Azienda di credito"
PROMPT 47 7 ""
PROMPT 74 8 ""
FIELD 14@->S0
END
STRINGA
STRINGA 2
BEGIN
KEY "Dipendenza"
PROMPT 47 9 ""
PROMPT 74 10 ""
FIELD 24@->S0
END
STRINGA
STRINGA 3
BEGIN
KEY "PROVINCIA Dipendenza"
PROMPT 78 9 ""
PROMPT 129 10 ""
FIELD 313@->PROVCOM
END
STRINGA
STRINGA 4
BEGIN
KEY "COD. CONCESS."
PROMPT 9 12 ""
PROMPT 16 13 ""
FIELD S9
END
STRINGA
STRINGA 5
BEGIN
KEY "CODICE FISCALE"
PROMPT 15 12 ""
PROMPT 26 13 ""
FIELD 6->COFI
END
STRINGA
STRINGA 6
BEGIN
KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
PROMPT 2 17 ""
PROMPT 4 17 ""
FIELD 6->RAGSOC[1,30]
END
STRINGA
STRINGA 7
BEGIN
KEY "NOME"
PROMPT 54 17 ""
PROMPT 95 17 ""
FIELD 6->RAGSOC[31,-1]
END
LISTA
LISTA 8
BEGIN
KEY "Tipo anagrafica"
FIELD 6->TIPOA
@ -70,314 +86,327 @@ BEGIN
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
GRUPPO
GRUPPO 9
BEGIN
KEY "Persone fisiche"
PROMPT 0 0 ""
GROUP 1
GROUP 1
END
DATA
DATA 10
BEGIN
KEY "DATA DI NASCITA"
PROMPT 2 19 ""
GROUP 1
PICTURE "# #^# #^^ # # #"
PROMPT 4 19 ""
GROUP 1
PICTURE "# #^ # #^ ^ # # #"
FIELD 8->DATANASC
FORMAT "1444-"
END
STRINGA
STRINGA 11
BEGIN
KEY "SESSO (M o F)"
PROMPT 19 19 ""
GROUP 1
PROMPT 34 19 ""
GROUP 1
FIELD 8->SESSO
END
STRINGA
STRINGA 12
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 24 19 ""
GROUP 1
PROMPT 42 19 ""
GROUP 1
FIELD 113@->DENCOM
END
STRINGA
STRINGA 13
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 68 19 ""
PROMPT 120 19 ""
GROUP 1
FIELD 113@->PROVCOM
END
STRINGA
STRINGA 14
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 8 21 ""
PROMPT 14 21 ""
FIELD 213@->DENCOM
END
STRINGA
STRINGA 15
BEGIN
KEY "DOMICILIO FISCALE: PROV. (sigla)"
PROMPT 36 21 ""
PROMPT 64 21 ""
FIELD 213@->PROVCOM
END
STRINGA
STRINGA 16
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 41 21 ""
PROMPT 72 21 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA
STRINGA 17
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 70 21 ""
PROMPT 124 21 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
END
NUMERO
NUMERO 18
BEGIN
KEY "AL PERIODO DI RIFERIMENTO (mese o anno)"
PROMPT 30 28 ""
PROMPT 53 28 ""
FIELD I0
END
NUMERO
NUMERO 19
BEGIN
KEY "AL PERIODO DI RIFERIMENTO (anno)"
PROMPT 34 28 ""
PROMPT 60 28 ""
FIELD I1
END
DATA
DATA 20
BEGIN
KEY "OVVERO ALTRA DATA"
PROMPT 64 28 ""
PICTURE "# # ^ # #^^^# #"
PROMPT 113 28 ""
PICTURE "# # ^ # #^ ^^# #"
FIELD D1
FORMAT "1444-"
END
NUMERO
NUMERO 21
BEGIN
KEY "TRIBUTO 1001: IMPORTO"
PROMPT 14 33 ""
PROMPT 44 33 ""
MESSAGE COPY,10@
PICTURE "###.###.###^^^"
FIELD R0
END
NUMERO
NUMERO 22
BEGIN
KEY "TRIBUTO 1001: INTERESSI"
PROMPT 36 33 ""
PROMPT 75 33 ""
MESSAGE ADD,10@
PICTURE "###.###.###^^^"
FIELD R7
END
NUMERO
NUMERO 23
BEGIN
KEY "TRIBUTO 1001: TOTALE"
PROMPT 54 33 ""
PICTURE "###.###.###^^^"
PROMPT 114 33 ""
GROUP 10
MESSAGE COPY,9@
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO
NUMERO 24
BEGIN
KEY "TRIBUTO 1040: IMPORTO"
PROMPT 14 35 ""
PROMPT 44 35 ""
MESSAGE COPY,11@
PICTURE "###.###.###^^^"
FIELD R1
END
NUMERO
NUMERO 25
BEGIN
KEY "TRIBUTO 1040: INTERESSI"
PROMPT 36 35 ""
PROMPT 75 35 ""
MESSAGE ADD,11@
PICTURE "###.###.###^^^"
FIELD R7
END
NUMERO
NUMERO 26
BEGIN
KEY "TRIBUTO 1040: TOTALE"
PROMPT 54 35 ""
PICTURE "###.###.###^^^"
PROMPT 114 35 ""
GROUP 11
MESSAGE ADD,9@
GROUP 11
PICTURE "###.###.###^^^"
END
STRING
STRINGA 27
BEGIN
KEY "TRIBUTO 3: CODICE"
PROMPT 4 37 ""
PROMPT 7 37 ""
FIELD S2
END
NUMERO
NUMERO 28
BEGIN
KEY "TRIBUTO 3: IMPORTO"
PROMPT 14 37 ""
PROMPT 44 37 ""
MESSAGE COPY,12@
PICTURE "###.###.###^^^"
FIELD R2
END
NUMERO
NUMERO 29
BEGIN
KEY "TRIBUTO 3: INTERESSI"
PROMPT 36 37 ""
PROMPT 75 37 ""
MESSAGE ADD,12@
PICTURE "###.###.###^^^"
FIELD R8
END
NUMERO
NUMERO 30
BEGIN
KEY "TRIBUTO 3: TOTALE"
PROMPT 54 37 ""
PICTURE "###.###.###^^^"
PROMPT 114 37 ""
GROUP 12
MESSAGE ADD,9@
GROUP 12
PICTURE "###.###.###^^^"
END
STRING
STRINGA 31
BEGIN
KEY "TRIBUTO 4: CODICE"
PROMPT 4 39 ""
PROMPT 7 39 ""
FIELD S3
END
NUMERO
NUMERO 32
BEGIN
KEY "TRIBUTO 4: IMPORTO"
PROMPT 14 39 ""
PROMPT 44 39 ""
MESSAGE COPY,13@
PICTURE "###.###.###^^^"
FIELD R3
END
NUMERO
NUMERO 33
BEGIN
KEY "TRIBUTO 4: INTERESSI"
PROMPT 36 39 ""
PROMPT 75 39 ""
MESSAGE ADD,13@
PICTURE "###.###.###^^^"
FIELD R9
END
NUMERO
NUMERO 34
BEGIN
KEY "TRIBUTO 4: TOTALE"
PROMPT 54 39 ""
PICTURE "###.###.###^^^"
PROMPT 114 39 ""
GROUP 13
MESSAGE ADD,9@
GROUP 13
PICTURE "###.###.###^^^"
END
STRING
STRINGA 35
BEGIN
KEY "TRIBUTO 5: CODICE"
PROMPT 4 41 ""
PROMPT 7 41 ""
FIELD S4
END
NUMERO
NUMERO 36
BEGIN
KEY "TRIBUTO 5: IMPORTO"
PROMPT 14 41 ""
PROMPT 44 41 ""
MESSAGE COPY,14@
PICTURE "###.###.###^^^"
FIELD R4
END
NUMERO
NUMERO 37
BEGIN
KEY "TRIBUTO 5: INTERESSI"
PROMPT 36 41 ""
PROMPT 75 41 ""
MESSAGE ADD,14@
PICTURE "###.###.###^^^"
FIELD R10
END
NUMERO
NUMERO 38
BEGIN
KEY "TRIBUTO 5: TOTALE"
PROMPT 54 41 ""
PICTURE "###.###.###^^^"
PROMPT 114 41 ""
GROUP 14
MESSAGE ADD,9@
GROUP 14
PICTURE "###.###.###^^^"
END
STRING
STRINGA 39
BEGIN
KEY "TRIBUTO 6: CODICE"
PROMPT 4 43 ""
PROMPT 7 43 ""
FIELD S5
END
NUMERO
NUMERO 40
BEGIN
KEY "TRIBUTO 6: IMPORTO"
PROMPT 14 43 ""
PROMPT 44 43 ""
MESSAGE COPY,15@
PICTURE "###.###.###^^^"
FIELD R5
END
NUMERO
NUMERO 41
BEGIN
KEY "TRIBUTO 6: INTERESSI"
PROMPT 36 43 ""
PROMPT 75 43 ""
MESSAGE ADD,15@
PICTURE "###.###.###^^^"
FIELD R11
END
NUMERO
NUMERO 42
BEGIN
KEY "TRIBUTO 6: TOTALE"
PROMPT 54 43 ""
PICTURE "###.###.###^^^"
PROMPT 114 43 ""
GROUP 15
MESSAGE ADD,9@
GROUP 15
PICTURE "###.###.###^^^"
END
NUMERO
NUMERO 43
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 5 57 ""
PROMPT 9 57 ""
GROUP 9
PICTURE "LETTERE"
END
NUMERO
NUMERO 44
BEGIN
KEY "TOTALE (in cifre)"
PROMPT 60 57 ""
PROMPT 115 57 ""
GROUP 9
PICTURE "###.###.###^^^"
END
DATA
DATA 45
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 47 61 ""
PICTURE "@@ ^ @@^^^@@"
PROMPT 80 62 ""
PICTURE "@ @^ @ @^ ^^@ @"
FIELD D0
FORMAT "1444-"
END
STRINGA 46
BEGIN
KEY "CODICE AZIENDA"
PROMPT 102 62 ""
FIELD S7
END
STRINGA 47
BEGIN
KEY "CODICE DIPENDENZA"
PROMPT 120 62 ""
FIELD S8
END
END

320
ba/disgen.frm
View File

@ -1,298 +1,310 @@
// Distinte di versamento Quadro K 7xx
USE %SKX
USE %GEN
JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 TO 6 ALIAS 18 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 8 TO 16@ ALIAS 18 INTO CODANAGR=CODANAGR
JOIN 13 TO 18@ ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 16@ ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 ALIAS 26 INTO TIPOA=S1[1,1] CODANAGR=S1[2,6]
JOIN 8 TO 6 ALIAS 28 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 313 INTO COM=COMNASC
JOIN 8 TO 16@ ALIAS 28 INTO CODANAGR=CODANAGR
JOIN 13 TO 18@ ALIAS 313 INTO COM=COMNASC
JOIN %UCC ALIAS 14 INTO CODTAB=S9
END
DESCRIPTION
BEGIN
%GEN->* "GEN"
16@->* "Anagrafica persone fisiche e giuridiche"
18@->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
26@->* "Anagrafica persone fisiche e giuridiche"
28@->* "Anagrafica persone fisiche"
313@->* "Comuni"
14@->* "UCC"
END
SECTION BODY 0 66 0 0
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 7
END
STRINGA
SECTION BODY ODD 66
STRINGA 1
BEGIN
KEY "CONCESSIONE DI"
PROMPT 40 5 ""
FIELD 14->S0
PROMPT 71 4 ""
FIELD 14@->S0
END
GRUPPO
GRUPPO 2
BEGIN
KEY "DATI DICHIARANTE (ALIAS 16 e 18)"
KEY "DATI DICHIARANTE (ALIAS 16 e 18)"
END
STRINGA
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 5 10 ""
FIELD 16->RAGSOC[1,30]
PROMPT 9 10 ""
FIELD 16@->RAGSOC[1,30]
END
STRINGA
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 36 10 ""
FIELD 16->RAGSOC[31,0]
PROMPT 64 10 ""
FIELD 16@->RAGSOC[31,0]
END
DATA
DATA 5
BEGIN
KEY "DATA DI NASCITA"
PROMPT 56 10 ""
PICTURE "# #^# #^^ # # #"
FIELD 18->DATANASC
PROMPT 97 10 ""
PICTURE "# #^ # #^^ # # #"
FIELD 18@->DATANASC
FORMAT "1444-"
END
STRINGA
STRINGA 6
BEGIN
KEY "SESSO (M o F)"
PROMPT 69 12 ""
FIELD 18->SESSO
PROMPT 122 10 ""
FIELD 18@->SESSO
END
STRINGA
STRINGA 7
BEGIN
KEY "STATO CIVILE"
PROMPT 74 12 ""
FIELD 18->STATCIV
PROMPT 131 10 ""
FIELD 18@->STATCIV
END
STRINGA
STRINGA 8
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 5 12 ""
PROMPT 9 12 ""
FIELD 113@->DENCOM
END
STRINGA
STRINGA 9
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 41 12 ""
PROMPT 72 12 ""
FIELD 113@->PROVCOM
END
STRINGA
STRINGA 10
BEGIN
KEY "CODICE FISCALE"
PROMPT 46 12 ""
FIELD 16->COFI
PICTURE "# # # # # # # # # # # # # # #"
PROMPT 81 12 ""
PICTURE "# # # # # # # # # # # # # # # #"
FIELD 16@->COFI
END
STRINGA
STRINGA 11
BEGIN
KEY "RESIDENTE IN: COMUNE"
PROMPT 14 14 ""
PROMPT 25 14 ""
FIELD 213@->DENCOM
END
STRINGA
STRINGA 12
BEGIN
KEY "RESIDENTE IN: PROV. (sigla)"
PROMPT 41 14 ""
PROMPT 72 14 ""
FIELD 213@->PROVCOM
END
STRINGA
STRINGA 13
BEGIN
KEY "RESIDENTE IN: VIA"
PROMPT 46 14 ""
FIELD 16->INDRES
PROMPT 81 14 ""
FIELD 16@->INDRES
END
STRINGA
STRINGA 14
BEGIN
KEY "RESIDENTE IN: NUMERO CIVICO"
PROMPT 72 14 ""
FIELD 16->CIVRES
END
GRUPPO
BEGIN
KEY "DATI CONIUGE (ALIAS 26 e 28)"
PROMPT 127 14 ""
FIELD 16@->CIVRES
END
STRINGA
GRUPPO 15
BEGIN
KEY "DATI CONIUGE (ALIAS 26 e 28)"
END
STRINGA 16
BEGIN
KEY "COGNOME"
PROMPT 5 17 ""
FIELD 26->RAGSOC[1,30]
PROMPT 9 17 ""
FIELD 26@->RAGSOC[1,30]
END
STRINGA
STRINGA 17
BEGIN
KEY "NOME"
PROMPT 36 17 ""
FIELD 26->RAGSOC[31,0]
PROMPT 64 17 ""
FIELD 26@->RAGSOC[31,0]
END
DATA
DATA 18
BEGIN
KEY "DATA DI NASCITA"
PROMPT 56 17 ""
PICTURE "# #^# #^^ # # #"
FIELD 28->DATANASC
PROMPT 105 17 ""
PICTURE "# #^ # #^^ # # #"
FIELD 28@->DATANASC
FORMAT "1444-"
END
STRINGA
STRINGA 19
BEGIN
KEY "SESSO (M o F)"
PROMPT 69 17 ""
FIELD 28->SESSO
PROMPT 131 17 ""
FIELD 28@->SESSO
END
STRINGA
BEGIN
KEY "STATO CIVILE"
PROMPT 74 17 ""
FIELD 28->STATCIV
END
STRINGA
STRINGA 21
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 5 19 ""
PROMPT 9 19 ""
FIELD 313@->DENCOM
END
STRINGA
STRINGA 22
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 42 19 ""
PROMPT 72 19 ""
FIELD 313@->PROVCOM
END
STRINGA
STRINGA 23
BEGIN
KEY "CODICE FISCALE"
PROMPT 46 19 ""
FIELD 26->COFI
PICTURE "# # # # # # # # # # # # # # #"
PROMPT 81 19 ""
PICTURE "# # # # # # # # # # # # # # # #"
FIELD 26@->COFI
END
NUMERO
NUMERO 24
BEGIN
KEY "PERIODO DI RIFERIMENTO 1"
PROMPT 43 25 ""
FIELD I0
PICTURE "# #"
KEY "PERIODO DI RIFERIMENTO 1"
PROMPT 76 25 ""
PICTURE "# #"
FIELD I0
END
NUMERO
NUMERO 25
BEGIN
KEY "PERIODO DI RIFERIMENTO 2"
PROMPT 53 25 ""
FIELD I1
PICTURE "# #"
KEY "PERIODO DI RIFERIMENTO 2"
PROMPT 94 25 ""
PICTURE "# #"
FIELD I1
END
STRINGA
STRINGA 26
BEGIN
KEY "CODICE TRIBUTO"
PROMPT 5 29 ""
FIELD S2
KEY "CODICE TRIBUTO"
PROMPT 9 29 ""
FIELD S2
END
NUMERO
NUMERO 27
BEGIN
KEY "GRUPPO"
PROMPT 16 29 ""
FIELD I2
KEY "GRUPPO"
PROMPT 28 29 ""
FIELD I2
END
NUMERO
NUMERO 28
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 27 29 ""
FIELD R0
PICTURE "###.###.###.###^^^"
MESSAGE COPY,1@
KEY "IMPORTO TRIBUTO"
PROMPT 55 29 ""
MESSAGE COPY,1@
PICTURE "###.###.###.###^^^"
FIELD R0
END
NUMERO
NUMERO 29
BEGIN
KEY "INTERESSI"
PROMPT 44 29 ""
FIELD R1
PICTURE "###.###.###.###^^^"
MESSAGE ADD,1@
KEY "INTERESSI"
PROMPT 85 29 ""
MESSAGE ADD,1@
PICTURE "###.###.###.###^^^"
FIELD R1
END
NUMERO
NUMERO 30
BEGIN
KEY "TOTALE (a)"
PROMPT 62 29 ""
PICTURE "###.###.###.###^^^"
MESSAGE COPY,2@
GROUP 1
KEY "TOTALE (a)"
PROMPT 115 29 ""
GROUP 1
MESSAGE COPY,2@
PICTURE "###.###.###.###^^^"
END
STRINGA
STRINGA 31
BEGIN
KEY "CODICE TRIBUTO SOPRATASSA"
PROMPT 5 35 ""
FIELD S3
KEY "CODICE TRIBUTO SOPRATASSA"
PROMPT 9 35 ""
FIELD S3
END
NUMERO
NUMERO 32
BEGIN
KEY "GRUPPO SOPRATASSA"
PROMPT 12 35 ""
FIELD I3
KEY "GRUPPO SOPRATASSA"
PROMPT 19 35 ""
FIELD I3
END
NUMERO
NUMERO 33
BEGIN
KEY "IMPORTO (b)"
PROMPT 22 35 ""
FIELD R2
PICTURE "###.###.###.###^^^"
MESSAGE ADD,2@
KEY "IMPORTO (b)"
PROMPT 40 35 ""
MESSAGE ADD,2@
PICTURE "###.###.###.###^^^"
FIELD R2
END
NUMERO
NUMERO 34
BEGIN
KEY "TOTALE DA VERSARE (a+b)"
PROMPT 62 40 ""
PICTURE "###.###.###.###^^^"
GROUP 2
KEY "TOTALE DA VERSARE (a+b)"
PROMPT 115 39 ""
GROUP 2
PICTURE "###.###.###.###^^^"
END
STRINGA
STRINGA 35
BEGIN
KEY "CODICE CONTRIBUENTE Dichiarante"
PROMPT 2 53 "# # # # # # # # # # # # # # #"
FIELD 16@->CODCONTR
KEY "CODICE CONTRIBUENTE Dichiarante"
PROMPT 4 53 "# # # # # # # # # # # # # # # # # # # #"
PICTURE "### ##"
FIELD 16@->CODCONTR
END
STRINGA
STRINGA 36
BEGIN
KEY "CODICE CONTRIBUENTE Coniuge"
PROMPT 2 56 "# # # # # # # # # # # # # # #"
FIELD 26@->CODCONTR
KEY "CODICE CONTRIBUENTE Coniuge"
PROMPT 4 56 "# # # # # # # # # # # # # # # # # # # #"
PICTURE "### ##"
FIELD 26@->CODCONTR
END
STRINGA
STRINGA 37
BEGIN
KEY "CENTRO SERVIZI: Provincia e Denominazione"
PROMPT 42 56 ""
MESSAGE _CENSERoUFFIMP,16@,213@
KEY "CENTRO SERVIZI: Provincia e Denominazione"
PROMPT 74 56 ""
MESSAGE _CENSERoUFFIMP,16@,213@
END
DATA
DATA 38
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 12 60 ""
PICTURE "@ @^@ @^^^@ @"
PROMPT 21 62 ""
PICTURE "@ @^ @ @^ ^^@ @"
FIELD D0
FORMAT "1444-"
END
END

181
ba/disiircf.frm
View File

@ -1,14 +1,14 @@
USE %SDI
USE %IIR
JOIN %UCC ALIAS 14 INTO CODTAB=S9
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
END
END
DESCRIPTION
BEGIN
%SDI->* "Tabella deleghe IRPEF"
%IIR->* "Tabella deleghe IRPEF"
14@->* "Tabella Centro Servizi"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
@ -16,40 +16,47 @@ BEGIN
213@->* "Comune di residenza fiscale"
END
SECTION BODY ODD 63 0 0
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 7
END
SECTION BODY ODD 63
STRINGA 1
BEGIN
KEY "CONCESSIONE DI"
PROMPT 32 6 ""
PROMPT 56 6 ""
FIELD 14@->S0
END
STRINGA 4
BEGIN
KEY "COD. CONCESS."
PROMPT 13 12 ""
PROMPT 23 12 ""
FIELD S9
END
STRINGA 5
BEGIN
KEY "CODICE FISCALE"
PROMPT 19 12 ""
PROMPT 34 12 ""
FIELD 6->COFI
END
STRINGA 6
BEGIN
KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
PROMPT 5 16 ""
PROMPT 9 16 ""
FIELD 6->RAGSOC[1,30]
END
STRINGA 7
BEGIN
KEY "NOME"
PROMPT 57 16 ""
PROMPT 101 16 ""
FIELD 6->RAGSOC[31,-1]
END
@ -71,9 +78,9 @@ END
DATA 10
BEGIN
KEY "DATA DI NASCITA"
PROMPT 5 18 ""
PROMPT 9 18 ""
GROUP 1
PICTURE "# #^# #^^# # #"
PICTURE "# #^ # #^ ^# # #"
FIELD 8->DATANASC
FORMAT "1444-"
END
@ -81,7 +88,7 @@ END
STRINGA 11
BEGIN
KEY "SESSO (M o F)"
PROMPT 23 18 ""
PROMPT 41 18 ""
GROUP 1
FIELD 8->SESSO
END
@ -89,7 +96,7 @@ END
STRINGA 12
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 28 18 ""
PROMPT 49 18 ""
GROUP 1
FIELD 113@->DENCOM
END
@ -97,7 +104,7 @@ END
STRINGA 13
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 74 18 ""
PROMPT 131 18 ""
GROUP 1
FIELD 113@->PROVCOM
END
@ -105,21 +112,21 @@ END
STRINGA 14
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 12 20 ""
PROMPT 21 20 ""
FIELD 213@->DENCOM
END
STRINGA 15
BEGIN
KEY "DOMICILIO FISCALE: PROV. (sigla)"
PROMPT 40 20 ""
PROMPT 71 20 ""
FIELD 213@->PROVCOM
END
STRINGA 16
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 45 20 ""
PROMPT 79 20 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
@ -127,7 +134,7 @@ END
STRINGA 17
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 74 20 ""
PROMPT 131 20 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
@ -151,7 +158,7 @@ END
NUMERO 20
BEGIN
KEY "IRPEF 4007: PERIODO AA (1)"
PROMPT 24 26 ""
PROMPT 42 26 ""
GROUP 6
FIELD I0
END
@ -159,7 +166,7 @@ END
NUMERO 21
BEGIN
KEY "IRPEF 4007: PERIODO AA (2)"
PROMPT 27 26 ""
PROMPT 48 26 ""
GROUP 6
FIELD I1
END
@ -167,7 +174,7 @@ END
NUMERO 22
BEGIN
KEY "IRPEF 4007: IMPOSTA"
PROMPT 32 26 ""
PROMPT 67 26 ""
GROUP 6
MESSAGE COPY,10@
PICTURE "###.###.###^^^"
@ -177,7 +184,7 @@ END
NUMERO 23
BEGIN
KEY "IRPEF 4007: INTERESSI"
PROMPT 46 26 ""
PROMPT 90 26 ""
GROUP 6
MESSAGE ADD,10@
PICTURE "###.###.###^^^"
@ -187,7 +194,7 @@ END
NUMERO 24
BEGIN
KEY "IRPEF 4007: TOTALE"
PROMPT 64 26 ""
PROMPT 123 26 ""
GROUP 6 10
MESSAGE ADD,9@
PICTURE "###.###.###^^^"
@ -196,7 +203,7 @@ END
NUMERO 25
BEGIN
KEY "IRPEF 4001: PERIODO AA (1)"
PROMPT 24 28 ""
PROMPT 42 28 ""
GROUP 6
FIELD I2
END
@ -204,7 +211,7 @@ END
NUMERO 26
BEGIN
KEY "IRPEF 4001: PERIODO AA (2)"
PROMPT 27 28 ""
PROMPT 48 28 ""
GROUP 6
FIELD I3
END
@ -212,7 +219,7 @@ END
NUMERO 27
BEGIN
KEY "IRPEF 4001: IMPOSTA"
PROMPT 32 28 ""
PROMPT 67 28 ""
GROUP 6
MESSAGE COPY,11@
PICTURE "###.###.###^^^"
@ -222,7 +229,7 @@ END
NUMERO 28
BEGIN
KEY "IRPEF 4001: INTERESSI"
PROMPT 46 28 ""
PROMPT 90 28 ""
GROUP 6
MESSAGE ADD,11@
PICTURE "###.###.###^^^"
@ -232,7 +239,7 @@ END
NUMERO 29
BEGIN
KEY "IRPEF 4001: TOTALE"
PROMPT 64 28 ""
PROMPT 123 28 ""
GROUP 6 11
MESSAGE ADD,9@
PICTURE "###.###.###^^^"
@ -241,7 +248,7 @@ END
NUMERO 30
BEGIN
KEY "ILOR 3353: PERIODO AA (1)"
PROMPT 24 30 ""
PROMPT 42 30 ""
GROUP 6
FIELD I2
END
@ -249,7 +256,7 @@ END
NUMERO 31
BEGIN
KEY "ILOR 3353: PERIODO AA (2)"
PROMPT 27 30 ""
PROMPT 48 30 ""
GROUP 6
FIELD I3
END
@ -257,7 +264,7 @@ END
NUMERO 32
BEGIN
KEY "ILOR 3353: IMPOSTA"
PROMPT 32 30 ""
PROMPT 67 30 ""
GROUP 6
MESSAGE COPY,12@
PICTURE "###.###.###^^^"
@ -267,7 +274,7 @@ END
NUMERO 33
BEGIN
KEY "ILOR 3353: INTERESSI"
PROMPT 46 30 ""
PROMPT 90 30 ""
GROUP 6
MESSAGE ADD,12@
PICTURE "###.###.###^^^"
@ -277,7 +284,7 @@ END
NUMERO 34
BEGIN
KEY "IRPEF 3353: TOTALE"
PROMPT 64 30 ""
PROMPT 123 30 ""
GROUP 6 12
MESSAGE ADD,9@
PICTURE "###.###.###^^^"
@ -286,7 +293,7 @@ END
NUMERO 35
BEGIN
KEY "ILOR 3350: PERIODO AA (1)"
PROMPT 24 32 ""
PROMPT 42 32 ""
GROUP 6
FIELD I6
END
@ -294,7 +301,7 @@ END
NUMERO 36
BEGIN
KEY "ILOR 3350: PERIODO AA (2)"
PROMPT 27 32 ""
PROMPT 48 32 ""
GROUP 6
FIELD I7
END
@ -302,7 +309,7 @@ END
NUMERO 37
BEGIN
KEY "ILOR 3350: IMPOSTA"
PROMPT 32 32 ""
PROMPT 67 32 ""
GROUP 6
MESSAGE COPY,13@
PICTURE "###.###.###^^^"
@ -312,7 +319,7 @@ END
NUMERO 38
BEGIN
KEY "ILOR 3350: INTERESSI"
PROMPT 46 32 ""
PROMPT 90 32 ""
GROUP 6
MESSAGE ADD,13@
PICTURE "###.###.###^^^"
@ -322,7 +329,7 @@ END
NUMERO 39
BEGIN
KEY "ILOR 3350: TOTALE"
PROMPT 64 32 ""
PROMPT 123 32 ""
GROUP 6 13
MESSAGE ADD,9@
PICTURE "###.###.###^^^"
@ -339,7 +346,7 @@ END
NUMERO 41
BEGIN
KEY "IRPEG 2110: PERIODO AA (1)"
PROMPT 24 34 ""
PROMPT 42 34 ""
GROUP 7
FLAGS "DH"
FIELD I0
@ -348,7 +355,7 @@ END
NUMERO 42
BEGIN
KEY "IRPEG 2110: PERIODO AA (2)"
PROMPT 27 34 ""
PROMPT 48 34 ""
GROUP 7
FLAGS "DH"
FIELD I1
@ -357,7 +364,7 @@ END
NUMERO 43
BEGIN
KEY "IRPEG 2110: IMPOSTA"
PROMPT 32 34 ""
PROMPT 67 34 ""
GROUP 7
FLAGS "DH"
MESSAGE COPY,10@
@ -368,7 +375,7 @@ END
NUMERO 44
BEGIN
KEY "IRPEG 2110: INTERESSI"
PROMPT 46 34 ""
PROMPT 90 34 ""
GROUP 7
FLAGS "DH"
MESSAGE ADD,10@
@ -379,7 +386,7 @@ END
NUMERO 45
BEGIN
KEY "IRPEG 2110: TOTALE"
PROMPT 64 34 ""
PROMPT 123 34 ""
GROUP 7 10
FLAGS "DH"
MESSAGE ADD,9@
@ -389,7 +396,7 @@ END
NUMERO 46
BEGIN
KEY "IRPEG 2100: PERIODO AA (1)"
PROMPT 24 36 ""
PROMPT 42 36 ""
GROUP 7
FLAGS "DH"
FIELD I2
@ -398,7 +405,7 @@ END
NUMERO 47
BEGIN
KEY "IRPEG 2100: PERIODO AA (2)"
PROMPT 27 36 ""
PROMPT 48 36 ""
GROUP 7
FLAGS "DH"
FIELD I3
@ -407,7 +414,7 @@ END
NUMERO 48
BEGIN
KEY "IRPEG 2100: IMPOSTA"
PROMPT 32 36 ""
PROMPT 67 36 ""
GROUP 7
FLAGS "DH"
MESSAGE COPY,11@
@ -418,7 +425,7 @@ END
NUMERO 49
BEGIN
KEY "IRPEG 2100: INTERESSI"
PROMPT 46 36 ""
PROMPT 90 36 ""
GROUP 7
FLAGS "DH"
MESSAGE ADD,11@
@ -429,7 +436,7 @@ END
NUMERO 50
BEGIN
KEY "IRPEG 2100: TOTALE"
PROMPT 64 36 ""
PROMPT 123 36 ""
GROUP 7 11
FLAGS "DH"
MESSAGE ADD,9@
@ -439,7 +446,7 @@ END
NUMERO 51
BEGIN
KEY "ILOR 3110: PERIODO AA (1)"
PROMPT 24 38 ""
PROMPT 42 38 ""
GROUP 7
FLAGS "DH"
FIELD I2
@ -448,7 +455,7 @@ END
NUMERO 52
BEGIN
KEY "ILOR 3110: PERIODO AA (2)"
PROMPT 27 38 ""
PROMPT 48 38 ""
GROUP 7
FLAGS "DH"
FIELD I3
@ -457,7 +464,7 @@ END
NUMERO 53
BEGIN
KEY "ILOR 3110: IMPOSTA"
PROMPT 32 38 ""
PROMPT 67 38 ""
GROUP 7
FLAGS "DH"
MESSAGE COPY,12@
@ -468,7 +475,7 @@ END
NUMERO 54
BEGIN
KEY "ILOR 3110: INTERESSI"
PROMPT 46 38 ""
PROMPT 90 38 ""
GROUP 7
FLAGS "DH"
MESSAGE ADD,12@
@ -479,7 +486,7 @@ END
NUMERO 55
BEGIN
KEY "IRPEF 3110: TOTALE"
PROMPT 64 38 ""
PROMPT 123 38 ""
GROUP 7 12
FLAGS "DH"
MESSAGE ADD,9@
@ -489,7 +496,7 @@ END
NUMERO 56
BEGIN
KEY "ILOR 3000: PERIODO AA (1)"
PROMPT 24 40 ""
PROMPT 42 40 ""
GROUP 7
FLAGS "DH"
FIELD I6
@ -498,7 +505,7 @@ END
NUMERO 57
BEGIN
KEY "ILOR 3000: PERIODO AA (2)"
PROMPT 27 40 ""
PROMPT 48 40 ""
GROUP 7
FLAGS "DH"
FIELD I7
@ -507,7 +514,7 @@ END
NUMERO 58
BEGIN
KEY "ILOR 3000: IMPOSTA"
PROMPT 32 40 ""
PROMPT 67 40 ""
GROUP 7
FLAGS "DH"
MESSAGE COPY,13@
@ -518,7 +525,7 @@ END
NUMERO 59
BEGIN
KEY "ILOR 3000: INTERESSI"
PROMPT 46 40 ""
PROMPT 90 40 ""
GROUP 7
FLAGS "DH"
MESSAGE ADD,13@
@ -529,7 +536,7 @@ END
NUMERO 60
BEGIN
KEY "ILOR 3000: TOTALE"
PROMPT 64 40 ""
PROMPT 123 40 ""
GROUP 7 13
FLAGS "DH"
MESSAGE ADD,9@
@ -547,7 +554,7 @@ END
NUMERO 62
BEGIN
KEY "ILOR 3303: PERIODO AA (1)"
PROMPT 24 42 ""
PROMPT 42 42 ""
GROUP 8
FLAGS "DH"
FIELD I4
@ -556,7 +563,7 @@ END
NUMERO 63
BEGIN
KEY "ILOR 3303: PERIODO AA (2)"
PROMPT 27 42 ""
PROMPT 48 42 ""
GROUP 8
FLAGS "DH"
FIELD I5
@ -565,7 +572,7 @@ END
NUMERO 64
BEGIN
KEY "ILOR 3303: IMPOSTA"
PROMPT 32 42 ""
PROMPT 67 42 ""
GROUP 8
FLAGS "DH"
MESSAGE COPY,12@
@ -576,7 +583,7 @@ END
NUMERO 65
BEGIN
KEY "ILOR 3303: INTERESSI"
PROMPT 46 42 ""
PROMPT 90 42 ""
GROUP 8
FLAGS "DH"
MESSAGE ADD,12@
@ -587,7 +594,7 @@ END
NUMERO 66
BEGIN
KEY "ILOR 3303: TOTALE"
PROMPT 64 42 ""
PROMPT 123 42 ""
GROUP 8 12
FLAGS "DH"
MESSAGE ADD,9@
@ -597,7 +604,7 @@ END
NUMERO 67
BEGIN
KEY "ILOR 3300: PERIODO AA (1)"
PROMPT 24 44 ""
PROMPT 42 44 ""
GROUP 8
FLAGS "DH"
FIELD I6
@ -606,7 +613,7 @@ END
NUMERO 68
BEGIN
KEY "ILOR 3300: PERIODO AA (2)"
PROMPT 27 44 ""
PROMPT 48 44 ""
GROUP 8
FLAGS "DH"
FIELD I7
@ -615,7 +622,7 @@ END
NUMERO 69
BEGIN
KEY "ILOR 3300: IMPOSTA"
PROMPT 32 44 ""
PROMPT 67 44 ""
GROUP 8
FLAGS "DH"
MESSAGE COPY,13@
@ -626,7 +633,7 @@ END
NUMERO 70
BEGIN
KEY "ILOR 3300: INTERESSI"
PROMPT 46 44 ""
PROMPT 90 44 ""
GROUP 8
FLAGS "DH"
MESSAGE ADD,13@
@ -637,7 +644,7 @@ END
NUMERO 71
BEGIN
KEY "ILOR 3300: TOTALE"
PROMPT 64 44 ""
PROMPT 123 44 ""
GROUP 8 13
FLAGS "DH"
MESSAGE ADD,9@
@ -653,21 +660,21 @@ END
NUMERO 73
BEGIN
KEY "TRIBUTO 1: PERIODO AA (1)"
PROMPT 24 50 ""
PROMPT 42 50 ""
FIELD I8
END
NUMERO 74
BEGIN
KEY "TRIBUTO 1: PERIODO AA (2)"
PROMPT 27 50 ""
PROMPT 48 50 ""
FIELD I9
END
NUMERO 75
BEGIN
KEY "TRIBUTO 1: IMPORTO"
PROMPT 32 50 ""
PROMPT 67 50 ""
MESSAGE COPY,14@
PICTURE "###.###.###^^^"
FIELD R4
@ -676,7 +683,7 @@ END
NUMERO 76
BEGIN
KEY "TRIBUTO 1: INTERESSI"
PROMPT 46 50 ""
PROMPT 90 50 ""
MESSAGE ADD,14@
PICTURE "###.###.###^^^"
FIELD R11
@ -685,7 +692,7 @@ END
NUMERO 77
BEGIN
KEY "TRIBUTO 1: TOTALE"
PROMPT 64 50 ""
PROMPT 123 50 ""
GROUP 14
MESSAGE ADD,9@
PICTURE "###.###.###^^^"
@ -694,21 +701,21 @@ END
NUMERO 78
BEGIN
KEY "TRIBUTO 2: PERIODO AA (1)"
PROMPT 24 52 ""
PROMPT 42 52 ""
FIELD I10
END
NUMERO 79
BEGIN
KEY "TRIBUTO 2: PERIODO AA (2)"
PROMPT 27 52 ""
PROMPT 48 52 ""
FIELD I11
END
NUMERO 80
BEGIN
KEY "TRIBUTO 2: IMPORTO"
PROMPT 32 52 ""
PROMPT 67 52 ""
MESSAGE COPY,15@
PICTURE "###.###.###^^^"
FIELD R5
@ -717,7 +724,7 @@ END
NUMERO 81
BEGIN
KEY "TRIBUTO 2: INTERESSI"
PROMPT 46 52 ""
PROMPT 90 52 ""
MESSAGE ADD,15@
PICTURE "###.###.###^^^"
FIELD R12
@ -726,7 +733,7 @@ END
NUMERO 82
BEGIN
KEY "TRIBUTO 2: TOTALE"
PROMPT 64 52 ""
PROMPT 123 52 ""
GROUP 15
MESSAGE ADD,9@
PICTURE "###.###.###^^^"
@ -735,21 +742,21 @@ END
NUMERO 83
BEGIN
KEY "TRIBUTO 3: PERIODO AA (1)"
PROMPT 24 54 ""
PROMPT 42 54 ""
FIELD I12
END
NUMERO 84
BEGIN
KEY "TRIBUTO 3: PERIODO AA (2)"
PROMPT 27 54 ""
PROMPT 48 54 ""
FIELD I13
END
NUMERO 85
BEGIN
KEY "TRIBUTO 3: IMPORTO"
PROMPT 32 54 ""
PROMPT 67 54 ""
MESSAGE COPY,16@
PICTURE "###.###.###^^^"
FIELD R6
@ -758,7 +765,7 @@ END
NUMERO 86
BEGIN
KEY "TRIBUTO 3: INTERESSI"
PROMPT 46 54 ""
PROMPT 90 54 ""
MESSAGE ADD,16@
PICTURE "###.###.###^^^"
FIELD R13
@ -767,7 +774,7 @@ END
NUMERO 87
BEGIN
KEY "TRIBUTO 3: TOTALE"
PROMPT 64 54 ""
PROMPT 123 54 ""
GROUP 16
MESSAGE ADD,9@
PICTURE "###.###.###^^^"
@ -776,7 +783,7 @@ END
NUMERO 88
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 7 57 ""
PROMPT 12 57 ""
GROUP 9
PICTURE "LETTERE"
END
@ -784,7 +791,7 @@ END
NUMERO 89
BEGIN
KEY "TOTALE (in cifre)"
PROMPT 64 57 ""
PROMPT 123 57 ""
GROUP 9
PICTURE "###.###.###^^^"
END
@ -792,8 +799,8 @@ END
DATA 90
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 12 61 ""
PICTURE "@ @^@ @^@ @"
PROMPT 25 61 ""
PICTURE "@ @^ @ @^ @ @"
FIELD D0
FORMAT "1442S"
END

188
ba/disirg.frm
View File

@ -1,269 +1,293 @@
USE %SD6
USE %IRG
JOIN %UCC ALIAS 14 INTO CODTAB=S9
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
JOIN 13 TO 6 INTO COM=COMRF(COMRES)
END
END
DESCRIPTION
BEGIN
%IRG->* " "
14@->* "UCC"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
13->* "Comuni"
END
SECTION BODY 0 66 0 0
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 7
END
STRINGA
SECTION BODY ODD 66
STRINGA 1
BEGIN
KEY "CONCESSIONE DI"
PROMPT 28 4 ""
PROMPT 63 4 ""
FIELD 14@->S0
END
STRINGA
STRINGA 2
BEGIN
KEY "DENOMINAZIONE"
PROMPT 2 10 ""
PROMPT 4 10 ""
FIELD 6->RAGSOC
END
STRINGA
STRINGA 3
BEGIN
KEY "CODICE FISCALE"
PROMPT 55 10 ""
PROMPT 97 10 ""
FIELD 6->COFI
END
STRINGA
STRINGA 4
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 16 12 ""
PROMPT 24 12 ""
FIELD 13->DENCOM
END
STRINGA
STRINGA 5
BEGIN
KEY "DOMICILIO FISCALE: PROV. (sigla)"
PROMPT 36 12 ""
PROMPT 64 12 ""
FIELD 13->PROVCOM
END
STRINGA
STRINGA 6
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 41 12 ""
PROMPT 77 12 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA
STRINGA 7
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 70 12 ""
PROMPT 122 12 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
GRUPPO
GRUPPO 8
BEGIN
KEY "DISTINTA VERSAMENTO IRPEG"
PROMPT 0 0 ""
END
NUMERO
NUMERO 9
BEGIN
KEY "IRPEG 2100 GRUPPO 4: DA ANNO"
PROMPT 20 18 ""
PROMPT 33 19 ""
PICTURE "# #"
FIELD I0
END
NUMERO
NUMERO 10
BEGIN
KEY "IRPEG 2100 GRUPPO 4: AD ANNO"
PROMPT 27 18 ""
PROMPT 44 19 ""
PICTURE "# #"
FIELD I1
END
NUMERO
NUMERO 11
BEGIN
KEY "IRPEG 2100 GRUPPO 4: IMPOSTA"
PROMPT 32 18 ""
PROMPT 62 19 ""
MESSAGE COPY,1@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R0
END
NUMERO
NUMERO 12
BEGIN
KEY "IRPEG 2100 GRUPPO 4: INTERESSI"
PROMPT 48 18 ""
PROMPT 89 19 ""
MESSAGE ADD,1@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R4
END
NUMERO
NUMERO 13
BEGIN
KEY "IRPEG 2100 GRUPPO 4: TOTALE"
PROMPT 62 18 ""
PROMPT 115 19 ""
GROUP 1
MESSAGE COPY,5@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
END
NUMERO
NUMERO 14
BEGIN
KEY "IRPEG 2110 GRUPPO 10: DA ANNO"
PROMPT 20 23 ""
PROMPT 33 23 ""
PICTURE "# #"
FIELD I2
END
NUMERO
NUMERO 15
BEGIN
KEY "IRPEG 2110 GRUPPO 10: AD ANNO"
PROMPT 27 23 ""
PROMPT 44 23 ""
PICTURE "# #"
FIELD I3
END
NUMERO
NUMERO 16
BEGIN
KEY "IRPEG 2110 GRUPPO 10: IMPOSTA"
PROMPT 32 23 ""
PROMPT 62 23 ""
MESSAGE COPY,2@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R1
END
NUMERO
NUMERO 17
BEGIN
KEY "IRPEG 2110 GRUPPO 10: INTERESSI"
PROMPT 48 23 ""
PROMPT 89 23 ""
MESSAGE ADD,2@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R5
END
NUMERO
NUMERO 18
BEGIN
KEY "IRPEG 2110 GRUPPO 10: TOTALE"
PROMPT 62 23 ""
PROMPT 115 23 ""
GROUP 2
MESSAGE ADD,5@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
END
GRUPPO
GRUPPO 19
BEGIN
KEY "DISTINTA VERSAMENTO ILOR"
PROMPT 0 0 ""
END
NUMERO
NUMERO 20
BEGIN
KEY "ILOR 3000 GRUPPO 06: DA ANNO"
PROMPT 20 33 ""
PROMPT 33 34 ""
PICTURE "# #"
FIELD I4
END
NUMERO
NUMERO 21
BEGIN
KEY "ILOR 3000 GRUPPO 06: AD ANNO"
PROMPT 27 33 ""
PROMPT 44 34 ""
PICTURE "# #"
FIELD I5
END
NUMERO
NUMERO 22
BEGIN
KEY "ILOR 3000 GRUPPO 06: IMPOSTA"
PROMPT 32 33 ""
PROMPT 62 34 ""
MESSAGE COPY,3@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R2
END
NUMERO
NUMERO 23
BEGIN
KEY "ILOR 3000 GRUPPO 06: INTERESSI"
PROMPT 48 33 ""
PROMPT 89 34 ""
MESSAGE ADD,3@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R6
END
NUMERO
NUMERO 24
BEGIN
KEY "ILOR 3000 GRUPPO 06: TOTALE"
PROMPT 62 33 ""
PROMPT 115 34 ""
GROUP 3
MESSAGE ADD,5@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
END
NUMERO
NUMERO 25
BEGIN
KEY "ILOR 3110 GRUPPO 11: DA ANNO"
PROMPT 20 38 ""
PROMPT 33 38 ""
PICTURE "# #"
FIELD I6
END
NUMERO
NUMERO 26
BEGIN
KEY "ILOR 3110 GRUPPO 11: AD ANNO"
PROMPT 27 38 ""
PROMPT 44 38 ""
PICTURE "# #"
FIELD I7
END
NUMERO
NUMERO 27
BEGIN
KEY "ILOR 3110 GRUPPO 11: IMPOSTA"
PROMPT 32 38 ""
PROMPT 62 38 ""
MESSAGE COPY,4@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R3
END
NUMERO
NUMERO 28
BEGIN
KEY "ILOR 3110 GRUPPO 11: INTERESSI"
PROMPT 48 38 ""
PROMPT 89 38 ""
MESSAGE ADD,4@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R7
END
NUMERO
NUMERO 29
BEGIN
KEY "ILOR 3110 GRUPPO 11: TOTALE"
PROMPT 62 38 ""
PROMPT 115 38 ""
GROUP 4
MESSAGE ADD,5@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
END
NUMERO
NUMERO 30
BEGIN
KEY "TOTALE DA VERSARE"
PROMPT 62 44 ""
PROMPT 115 44 ""
GROUP 5
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
END
STRINGA
STRINGA 31
BEGIN
KEY "CODICE CONTRIBUENTE"
PROMPT 2 51 ""
PICTURE "# # # # # # # # # # # # # # #"
PROMPT 4 51 "# # # # # # # # # # # # # # # # # #"
PICTURE "# # # ##"
FIELD 6->CODCONTR
END
STRINGA
STRINGA 32
BEGIN
KEY "CENTRO SERVIZI: Provincia e Denominazione"
PROMPT 42 52 ""
PROMPT 74 52 ""
MESSAGE _CENSERoUFFIMP,6,13
END
DATA
DATA 33
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 12 56 ""
PICTURE "@@ ~ @@~~~@@"
PROMPT 20 57 ""
PICTURE "@@ ^ @@^^^@@"
FIELD D0
FORMAT "1444-"
END
END

415
ba/disivacf.frm
View File

@ -1,198 +1,217 @@
USE %DEL
JOIN 9 INTO CODDITTA=CODTAB[1,5]
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 9 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC
END
SECTION BODY 0 64 0 0
STRINGA
BEGIN
KEY "CONCESSIONE DI"
PROMPT 36 5 ""
FIELD 14@->S0
END
STRINGA
BEGIN
KEY "COD. CONCESS."
PROMPT 9 11 ""
FIELD 14@->CODTAB
END
STRINGA
BEGIN
KEY "CODICE FISCALE"
PROMPT 15 11 ""
FIELD 6->COFI
END
STRINGA
BEGIN
KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
PROMPT 2 15 ""
FIELD 6->RAGSOC[1,30]
END
STRINGA
BEGIN
KEY "NOME"
PROMPT 54 15 ""
FIELD 6->RAGSOC[31,-1]
END
LISTA
BEGIN
KEY "Tipo anagrafica"
FIELD 6->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
GRUPPO
BEGIN
KEY "Persone fisiche"
PROMPT 0 0 ""
GROUP 1
FLAGS "DH"
END
DATA
BEGIN
KEY "DATA DI NASCITA"
PROMPT 2 17 ""
GROUP 1
FLAGS "DH"
PICTURE "# # ~ # # ~ ~ # # #"
FIELD 8->DATANASC
END
STRINGA
BEGIN
KEY "SESSO (M o F)"
PROMPT 19 17 ""
GROUP 1
FLAGS "DH"
FIELD 8->SESSO
END
STRINGA
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 24 17 ""
GROUP 1
FLAGS "DH"
FIELD 113@->DENCOM
END
STRINGA
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 68 17 ""
GROUP 1
FLAGS "DH"
FIELD 113@->PROVCOM
END
STRINGA
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 8 19 ""
FIELD 213@->DENCOM
END
STRINGA
BEGIN
KEY "DOMICILIO FISCALE: PROV. (sigla)"
PROMPT 36 19 ""
FIELD 213@->PROVCOM
END
STRINGA
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 41 19 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 70 19 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
STRINGA
BEGIN
KEY "PARTITA IVA"
PROMPT 12 47 ""
FIELD 6->PAIV
END
NUMERO
BEGIN
KEY "ANNO"
PROMPT 14 51 ""
PICTURE "~~@@"
FIELD CODTAB[6,9]
END
NUMERO
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 20 51 ""
MESSAGE COPY,10@
PICTURE "###.###.###~~~"
FIELD R0
END
NUMERO
BEGIN
KEY "INTERESSI"
PROMPT 40 51 ""
MESSAGE ADD,10@
PICTURE "###.###.###~~~"
FIELD R1
END
NUMERO
BEGIN
KEY "TOTALE"
PROMPT 54 51 ""
GROUP 10
PICTURE "###.###.###~~~"
END
NUMERO
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 5 55 ""
GROUP 10
PICTURE "LETTERE"
END
NUMERO
BEGIN
KEY "TOTALE (in cifre)"
PROMPT 54 55 ""
GROUP 10
PICTURE "###.###.###~~~"
END
DATA
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 12 60 ""
PICTURE "@@ ~ @@~~~@@"
FIELD D0
END
END
END
USE %DEL
JOIN 9 INTO CODDITTA=CODTAB[1,5]
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 9 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC
END
DESCRIPTION
BEGIN
%DEL->* "DEL"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
14@->* "UCC"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 7
END
SECTION BODY ODD 64
STRINGA 1
BEGIN
KEY "CONCESSIONE DI"
PROMPT 64 5 ""
FIELD 14@->S0
END
STRINGA 2
BEGIN
KEY "COD. CONCESS."
PROMPT 16 11 ""
FIELD 14@->CODTAB
END
STRINGA 3
BEGIN
KEY "CODICE FISCALE"
PROMPT 26 11 ""
FIELD 6->COFI
END
STRINGA 4
BEGIN
KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
PROMPT 4 15 ""
FIELD 6->RAGSOC[1,30]
END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 95 15 ""
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
FLAGS "DH"
END
DATA 8
BEGIN
KEY "DATA DI NASCITA"
PROMPT 4 17 ""
GROUP 1
FLAGS "DH"
PICTURE "# # ^ # # ^^ # # #"
FIELD 8->DATANASC
FORMAT "1444-"
END
STRINGA 9
BEGIN
KEY "SESSO (M o F)"
PROMPT 34 17 ""
GROUP 1
FLAGS "DH"
FIELD 8->SESSO
END
STRINGA 10
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 42 17 ""
GROUP 1
FLAGS "DH"
FIELD 113@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 120 17 ""
GROUP 1
FLAGS "DH"
FIELD 113@->PROVCOM
END
STRINGA 12
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 14 19 ""
FIELD 213@->DENCOM
END
STRINGA 13
BEGIN
KEY "DOMICILIO FISCALE: PROV. (sigla)"
PROMPT 64 19 ""
FIELD 213@->PROVCOM
END
STRINGA 14
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 72 19 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA 15
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 124 19 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
STRINGA 16
BEGIN
KEY "PARTITA IVA"
PROMPT 25 47 ""
FIELD 6->PAIV
END
NUMERO 17
BEGIN
KEY "ANNO"
PROMPT 26 51 ""
PICTURE "^^@@"
FIELD CODTAB[6,9]
END
NUMERO 18
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 50 51 ""
MESSAGE COPY,10@
PICTURE "###.###.###^^^"
FIELD R0
END
NUMERO 19
BEGIN
KEY "INTERESSI"
PROMPT 76 51 ""
MESSAGE ADD,10@
PICTURE "###.###.###^^^"
FIELD R1
END
NUMERO 20
BEGIN
KEY "TOTALE"
PROMPT 115 51 ""
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO 21
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 9 55 ""
GROUP 10
PICTURE "LETTERE"
END
NUMERO 22
BEGIN
KEY "TOTALE (in cifre)"
PROMPT 115 55 ""
GROUP 10
PICTURE "###.###.###^^^"
END
DATA 23
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 22 60 ""
PICTURE "@@ ^ @@^ ^^@@"
FIELD D0
FORMAT "1444-"
END
END
END

233
ba/disritcf.frm
View File

@ -1,6 +1,4 @@
// Distinta di pagamento delle ritenute alla fonte e altri codici tributo
USE %SDR
USE %RIT
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
@ -8,45 +6,61 @@ JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN %UCC ALIAS 14 INTO CODTAB=S9
END
DESCRIPTION
BEGIN
%RIT->* "RIT"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
14@->* "UCC"
END
SECTION BODY 0 66 0 0
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 7
END
STRINGA
SECTION BODY ODD 66
STRINGA 1
BEGIN
KEY "CONCESSIONE DI"
PROMPT 47 7 ""
PROMPT 70 7 ""
FIELD 14@->S0
END
STRINGA
STRINGA 2
BEGIN
KEY "COD. CONCESS."
PROMPT 9 12 ""
PROMPT 16 13 ""
FIELD S9
END
STRINGA
STRINGA 3
BEGIN
KEY "CODICE FISCALE"
PROMPT 15 12 ""
PROMPT 26 13 ""
FIELD 6->COFI
END
STRINGA
STRINGA 4
BEGIN
KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
PROMPT 2 17 ""
PROMPT 4 17 ""
FIELD 6->RAGSOC[1,30]
END
STRINGA
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 54 17 ""
PROMPT 95 17 ""
FIELD 6->RAGSOC[31,-1]
END
LISTA
LISTA 6
BEGIN
KEY "Tipo anagrafica"
FIELD 6->TIPOA
@ -54,314 +68,313 @@ BEGIN
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
GRUPPO
GRUPPO 7
BEGIN
KEY "Persone fisiche"
PROMPT 0 0 ""
GROUP 1
GROUP 1
END
DATA
DATA 8
BEGIN
KEY "DATA DI NASCITA"
PROMPT 2 19 ""
GROUP 1
PICTURE "# #^# #^^ # # #"
PROMPT 4 19 ""
GROUP 1
PICTURE "# #^ # #^ ^ # # #"
FIELD 8->DATANASC
FORMAT "1444-"
END
STRINGA
STRINGA 9
BEGIN
KEY "SESSO (M o F)"
PROMPT 19 19 ""
GROUP 1
PROMPT 34 19 ""
GROUP 1
FIELD 8->SESSO
END
STRINGA
STRINGA 10
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 24 19 ""
GROUP 1
PROMPT 42 19 ""
GROUP 1
FIELD 113@->DENCOM
END
STRINGA
STRINGA 11
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 68 19 ""
PROMPT 120 19 ""
GROUP 1
FIELD 113@->PROVCOM
END
STRINGA
STRINGA 12
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 8 21 ""
PROMPT 14 21 ""
FIELD 213@->DENCOM
END
STRINGA
STRINGA 13
BEGIN
KEY "DOMICILIO FISCALE: PROV. (sigla)"
PROMPT 36 21 ""
PROMPT 64 21 ""
FIELD 213@->PROVCOM
END
STRINGA
STRINGA 14
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 41 21 ""
PROMPT 72 21 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA
STRINGA 15
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 70 21 ""
PROMPT 124 21 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
END
NUMERO
NUMERO 16
BEGIN
KEY "AL PERIODO DI RIFERIMENTO (mese o anno)"
PROMPT 30 28 ""
PROMPT 53 28 ""
FIELD I0
END
NUMERO
NUMERO 17
BEGIN
KEY "AL PERIODO DI RIFERIMENTO (anno)"
PROMPT 34 28 ""
PROMPT 60 28 ""
FIELD I1
END
DATA
DATA 18
BEGIN
KEY "OVVERO ALTRA DATA"
PROMPT 64 28 ""
PROMPT 114 28 ""
PICTURE "# # ^ # #^^^# #"
FIELD D1
FORMAT "1444-"
END
NUMERO
NUMERO 19
BEGIN
KEY "TRIBUTO 1001: IMPORTO"
PROMPT 14 33 ""
PROMPT 44 33 ""
MESSAGE COPY,10@
PICTURE "###.###.###^^^"
FIELD R0
END
NUMERO
NUMERO 20
BEGIN
KEY "TRIBUTO 1001: INTERESSI"
PROMPT 36 33 ""
PROMPT 76 33 ""
MESSAGE ADD,10@
PICTURE "###.###.###^^^"
FIELD R7
END
NUMERO
NUMERO 21
BEGIN
KEY "TRIBUTO 1001: TOTALE"
PROMPT 54 33 ""
PICTURE "###.###.###^^^"
PROMPT 114 33 ""
GROUP 10
MESSAGE COPY,9@
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO
NUMERO 22
BEGIN
KEY "TRIBUTO 1040: IMPORTO"
PROMPT 14 35 ""
PROMPT 44 35 ""
MESSAGE COPY,11@
PICTURE "###.###.###^^^"
FIELD R1
END
NUMERO
NUMERO 23
BEGIN
KEY "TRIBUTO 1040: INTERESSI"
PROMPT 36 35 ""
PROMPT 76 35 ""
MESSAGE ADD,11@
PICTURE "###.###.###^^^"
FIELD R7
END
NUMERO
NUMERO 24
BEGIN
KEY "TRIBUTO 1040: TOTALE"
PROMPT 54 35 ""
PICTURE "###.###.###^^^"
PROMPT 114 35 ""
GROUP 11
MESSAGE ADD,9@
GROUP 11
PICTURE "###.###.###^^^"
END
STRING
STRINGA 25
BEGIN
KEY "TRIBUTO 3: CODICE"
PROMPT 4 37 ""
PROMPT 11 37 ""
FIELD S2
END
NUMERO
NUMERO 26
BEGIN
KEY "TRIBUTO 3: IMPORTO"
PROMPT 14 37 ""
PROMPT 44 37 ""
MESSAGE COPY,12@
PICTURE "###.###.###^^^"
FIELD R2
END
NUMERO
NUMERO 27
BEGIN
KEY "TRIBUTO 3: INTERESSI"
PROMPT 36 37 ""
PROMPT 76 37 ""
MESSAGE ADD,12@
PICTURE "###.###.###^^^"
FIELD R8
END
NUMERO
NUMERO 28
BEGIN
KEY "TRIBUTO 3: TOTALE"
PROMPT 54 37 ""
PICTURE "###.###.###^^^"
PROMPT 114 37 ""
GROUP 12
MESSAGE ADD,9@
GROUP 12
PICTURE "###.###.###^^^"
END
STRING
STRINGA 29
BEGIN
KEY "TRIBUTO 4: CODICE"
PROMPT 4 39 ""
PROMPT 11 39 ""
FIELD S3
END
NUMERO
NUMERO 30
BEGIN
KEY "TRIBUTO 4: IMPORTO"
PROMPT 14 39 ""
PROMPT 44 39 ""
MESSAGE COPY,13@
PICTURE "###.###.###^^^"
FIELD R3
END
NUMERO
NUMERO 31
BEGIN
KEY "TRIBUTO 4: INTERESSI"
PROMPT 36 39 ""
PROMPT 76 39 ""
MESSAGE ADD,13@
PICTURE "###.###.###^^^"
FIELD R9
END
NUMERO
NUMERO 32
BEGIN
KEY "TRIBUTO 4: TOTALE"
PROMPT 54 39 ""
PICTURE "###.###.###^^^"
PROMPT 114 39 ""
GROUP 13
MESSAGE ADD,9@
GROUP 13
PICTURE "###.###.###^^^"
END
STRING
STRINGA 33
BEGIN
KEY "TRIBUTO 5: CODICE"
PROMPT 4 41 ""
PROMPT 11 41 ""
FIELD S4
END
NUMERO
NUMERO 34
BEGIN
KEY "TRIBUTO 5: IMPORTO"
PROMPT 14 41 ""
PROMPT 44 41 ""
MESSAGE COPY,14@
PICTURE "###.###.###^^^"
FIELD R4
END
NUMERO
NUMERO 35
BEGIN
KEY "TRIBUTO 5: INTERESSI"
PROMPT 36 41 ""
PROMPT 76 41 ""
MESSAGE ADD,14@
PICTURE "###.###.###^^^"
FIELD R10
END
NUMERO
NUMERO 36
BEGIN
KEY "TRIBUTO 5: TOTALE"
PROMPT 54 41 ""
PICTURE "###.###.###^^^"
PROMPT 114 41 ""
GROUP 14
MESSAGE ADD,9@
GROUP 14
PICTURE "###.###.###^^^"
END
STRING
STRINGA 37
BEGIN
KEY "TRIBUTO 6: CODICE"
PROMPT 4 43 ""
PROMPT 11 43 ""
FIELD S5
END
NUMERO
NUMERO 38
BEGIN
KEY "TRIBUTO 6: IMPORTO"
PROMPT 14 43 ""
PROMPT 44 43 ""
MESSAGE COPY,15@
PICTURE "###.###.###^^^"
FIELD R5
END
NUMERO
NUMERO 39
BEGIN
KEY "TRIBUTO 6: INTERESSI"
PROMPT 36 43 ""
PROMPT 76 43 ""
MESSAGE ADD,15@
PICTURE "###.###.###^^^"
FIELD R11
END
NUMERO
NUMERO 40
BEGIN
KEY "TRIBUTO 6: TOTALE"
PROMPT 54 43 ""
PICTURE "###.###.###^^^"
PROMPT 114 43 ""
GROUP 15
MESSAGE ADD,9@
GROUP 15
PICTURE "###.###.###^^^"
END
NUMERO
NUMERO 41
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 5 57 ""
PROMPT 9 57 ""
GROUP 9
PICTURE "LETTERE"
END
NUMERO
NUMERO 42
BEGIN
KEY "TOTALE (in cifre)"
PROMPT 60 57 ""
PROMPT 115 57 ""
GROUP 9
PICTURE "###.###.###^^^"
END
DATA
DATA 43
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 10 60 ""
PROMPT 22 61 ""
PICTURE "@@ ^ @@^^^@@"
FIELD D0
FORMAT "1444-"
END
END