From 5d8d3bc10518020484b179fa7ab2f846bcc1694c Mon Sep 17 00:00:00 2001
From: guy <guy@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Wed, 1 Mar 1995 16:17:44 +0000
Subject: [PATCH] Aggiunti profili per stampa deleghe e distinte irpef/irpeg

git-svn-id: svn://10.65.10.50/trunk@1060 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/delsdi.frm | 792 ++++++++++++++++++++++++++++++++++++++++++++++++++
 ba/delsdr.frm | 383 ++++++++++++++++++++++++
 ba/delsii.frm | 354 ++++++++++++++++++++++
 ba/dissdi.frm | 763 ++++++++++++++++++++++++++++++++++++++++++++++++
 ba/dissdr.frm | 367 +++++++++++++++++++++++
 ba/dissii.frm | 395 +++++++++++++++++++++++++
 6 files changed, 3054 insertions(+)
 create mode 100755 ba/delsdi.frm
 create mode 100755 ba/delsdr.frm
 create mode 100755 ba/delsii.frm
 create mode 100755 ba/dissdi.frm
 create mode 100755 ba/dissdr.frm
 create mode 100755 ba/dissii.frm

diff --git a/ba/delsdi.frm b/ba/delsdi.frm
new file mode 100755
index 000000000..c36448b5d
--- /dev/null
+++ b/ba/delsdi.frm
@@ -0,0 +1,792 @@
+// Delega di pagamento: IRPEF, IRPEG e altri codici tributo
+
+USE %SDI
+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 %BAN ALIAS 14 INTO CODTAB=S7
+JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
+JOIN 13 TO 24@ ALIAS 313 INTO COM=S5
+
+SECTION BODY 0 66 0 0
+
+STRINGA
+BEGIN
+ KEY "Azienda di credito"
+ PROMPT 47 7 ""
+ FIELD 14@->S0
+END
+
+STRINGA
+BEGIN
+ KEY "Dipendenza"
+ PROMPT 47 9 ""
+ FIELD 24@->S0
+END
+
+STRINGA
+BEGIN
+ KEY "PROVINCIA Dipendenza"
+ PROMPT 78 9 ""
+ FIELD 313@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "COD. CONCESS."
+ PROMPT 9 13 ""
+ FIELD S9
+END
+
+STRINGA
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 15 13 ""
+ FIELD 6->COFI
+END
+
+STRINGA
+BEGIN
+ KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
+ PROMPT 2 17 ""
+ FIELD 6->RAGSOC[1,30]
+END
+
+STRINGA
+BEGIN
+ KEY "NOME"
+ PROMPT 54 17 ""
+ 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
+END
+
+DATA
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 2 19 ""
+ GROUP 1
+ PICTURE "# #~# #~~ # # #"
+ FIELD 8->DATANASC
+END
+
+STRINGA
+BEGIN
+ KEY "SESSO (M o F)"
+ PROMPT 19 19 ""
+ GROUP 1
+ FIELD 8->SESSO
+END
+
+STRINGA
+BEGIN
+ KEY "COMUNE (o Stato estero) DI NASCITA"
+ PROMPT 24 19 ""
+ GROUP 1
+ FIELD 113@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "PROV. DI NASCITA (sigla)"
+ PROMPT 68 19 ""
+ GROUP  1
+ FIELD 113@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: COMUNE"
+ PROMPT 8 21 ""
+ FIELD 213@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: PROV. (sigla)"
+ PROMPT 36 21 ""
+ FIELD 213@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: VIA"
+ PROMPT 41 21 ""
+ FIELD 6->INDRF
+ FIELD 6->INDRES
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: NUMERO CIVICO"
+ PROMPT 70 21 ""
+ FIELD 6->CIVRF
+ FIELD 6->CIVRES
+END   
+
+LISTA
+BEGIN
+ KEY "Righe da compilare "
+ FIELD S6
+ ITEM "F| " MESSAGE ENABLE,6@|DISABLE,7@|DISABLE,8@
+ ITEM "G| " MESSAGE ENABLE,7@|DISABLE,6@|DISABLE,8@
+ ITEM "S| " MESSAGE ENABLE,8@|DISABLE,6@|DISABLE,7@
+END
+
+GRUPPO
+BEGIN
+ KEY "Righe Persone Fisiche"
+ PROMPT 0 0 ""
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4007: PERIODO AA (1)"
+ PROMPT 20 26 ""
+ FIELD I0
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4007: PERIODO AA (2)"
+ PROMPT 23 26 ""
+ FIELD I1
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4007: IMPOSTA"
+ PROMPT 28 26 ""
+ MESSAGE COPY,10@
+ PICTURE "###.###.###~~~"
+ FIELD R0
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4007: INTERESSI"
+ PROMPT 46 26 ""
+ MESSAGE ADD,10@
+ PICTURE "###.###.###~~~"
+ FIELD R7
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4007: TOTALE"
+ PROMPT 60 26 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 6 10
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4001: PERIODO AA (1)"
+ PROMPT 20 28 ""
+ FIELD I2
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4001: PERIODO AA (2)"
+ PROMPT 23 28 ""
+ FIELD I3
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4001: IMPOSTA"
+ PROMPT 28 28 ""
+ MESSAGE COPY,11@
+ PICTURE "###.###.###~~~"
+ FIELD R1
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4001: INTERESSI"
+ PROMPT 46 28 ""
+ MESSAGE ADD,11@
+ PICTURE "###.###.###~~~"
+ FIELD R8
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4001: TOTALE"
+ PROMPT 60 28 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 6 11
+END      
+
+NUMERO
+BEGIN
+ KEY "ILOR 3353: PERIODO AA (1)"
+ PROMPT 20 30 ""
+ FIELD I2
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3353: PERIODO AA (2)"
+ PROMPT 23 30 ""
+ FIELD I3
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3353: IMPOSTA"
+ PROMPT 28 30 ""
+ MESSAGE COPY,12@
+ PICTURE "###.###.###~~~"
+ FIELD R2
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3353: INTERESSI"
+ PROMPT 46 30 ""
+ MESSAGE ADD,12@
+ PICTURE "###.###.###~~~"
+ FIELD R9
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 3353: TOTALE"
+ PROMPT 60 30 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 6 12
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3350: PERIODO AA (1)"
+ PROMPT 20 32 ""
+ FIELD I6
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3350: PERIODO AA (2)"
+ PROMPT 23 32 ""
+ FIELD I7
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3350: IMPOSTA"
+ PROMPT 28 32 ""
+ MESSAGE COPY,13@
+ PICTURE "###.###.###~~~"
+ FIELD R3
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3350: INTERESSI"
+ PROMPT 46 32 ""
+ MESSAGE ADD,13@
+ PICTURE "###.###.###~~~"
+ FIELD R10
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3350: TOTALE"
+ PROMPT 60 32 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 6 13
+END
+
+
+GRUPPO
+BEGIN
+ KEY "Righe Persone Giuridiche"
+ PROMPT 0 0 ""
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2110: PERIODO AA (1)"
+ PROMPT 20 34 ""
+ FIELD I0
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2110: PERIODO AA (2)"
+ PROMPT 23 34 ""
+ FIELD I1
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2110: IMPOSTA"
+ PROMPT 28 34 ""
+ MESSAGE COPY,10@
+ PICTURE "###.###.###~~~"
+ FIELD R0
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2110: INTERESSI"
+ PROMPT 46 34 ""
+ MESSAGE ADD,10@
+ PICTURE "###.###.###~~~"
+ FIELD R7
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2110: TOTALE"
+ PROMPT 60 34 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 7 10
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2100: PERIODO AA (1)"
+ PROMPT 20 36 ""
+ FIELD I2
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2100: PERIODO AA (2)"
+ PROMPT 23 36 ""
+ FIELD I3
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2100: IMPOSTA"
+ PROMPT 28 36 ""
+ MESSAGE COPY,11@
+ PICTURE "###.###.###~~~"
+ FIELD R1
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2100: INTERESSI"
+ PROMPT 46 36 ""
+ MESSAGE ADD,11@
+ PICTURE "###.###.###~~~"
+ FIELD R8
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2100: TOTALE"
+ PROMPT 60 36 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 7 11
+END      
+
+NUMERO
+BEGIN
+ KEY "ILOR 3110: PERIODO AA (1)"
+ PROMPT 20 38 ""
+ FIELD I2
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3110: PERIODO AA (2)"
+ PROMPT 23 38 ""
+ FIELD I3
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3110: IMPOSTA"
+ PROMPT 28 38 ""
+ MESSAGE COPY,12@
+ PICTURE "###.###.###~~~"
+ FIELD R2
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3110: INTERESSI"
+ PROMPT 46 38 ""
+ MESSAGE ADD,12@
+ PICTURE "###.###.###~~~"
+ FIELD R9
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 3110: TOTALE"
+ PROMPT 60 38 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 7 12
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3000: PERIODO AA (1)"
+ PROMPT 20 40 ""
+ FIELD I6
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3000: PERIODO AA (2)"
+ PROMPT 23 40 ""
+ FIELD I7
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3000: IMPOSTA"
+ PROMPT 28 40 ""
+ MESSAGE COPY,13@
+ PICTURE "###.###.###~~~"
+ FIELD R3
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3000: INTERESSI"
+ PROMPT 46 40 ""
+ MESSAGE ADD,13@
+ PICTURE "###.###.###~~~"
+ FIELD R10
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3000: TOTALE"
+ PROMPT 60 40 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 7 13
+END
+
+
+GRUPPO
+BEGIN
+ KEY "Righe Societa' di Persone"
+ PROMPT 0 0 ""
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3303: PERIODO AA (1)"
+ PROMPT 20 42 ""
+ FIELD I4
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3303: PERIODO AA (2)"
+ PROMPT 23 42 ""
+ FIELD I5
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3303: IMPOSTA"
+ PROMPT 28 42 ""
+ MESSAGE COPY,12@
+ PICTURE "###.###.###~~~"
+ FIELD R2
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3303: INTERESSI"
+ PROMPT 46 42 ""
+ MESSAGE ADD,12@
+ PICTURE "###.###.###~~~"
+ FIELD R9
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3303: TOTALE"
+ PROMPT 60 42 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 8 12
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3300: PERIODO AA (1)"
+ PROMPT 20 44 ""
+ FIELD I6
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3300: PERIODO AA (2)"
+ PROMPT 23 44 ""
+ FIELD I7
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3300: IMPOSTA"
+ PROMPT 28 44 ""
+ MESSAGE COPY,13@
+ PICTURE "###.###.###~~~"
+ FIELD R3
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3300: INTERESSI"
+ PROMPT 46 44 ""
+ MESSAGE ADD,13@
+ PICTURE "###.###.###~~~"
+ FIELD R10
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3300: TOTALE"
+ PROMPT 60 44 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 8 13
+END
+
+GRUPPO
+BEGIN
+ KEY "IMPOSTE SOSTITUTIVE E ALTRI CODICI TRIBUTO"
+ PROMPT 0 0 ""
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1: PERIODO AA (1)"
+ PROMPT 20 50 ""
+ FIELD I8
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1: PERIODO AA (2)"
+ PROMPT 23 50 ""
+ FIELD I9
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1: IMPORTO"
+ PROMPT 28 50 ""
+ MESSAGE COPY,14@
+ PICTURE "###.###.###~~~"
+ FIELD R4
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1: INTERESSI"
+ PROMPT 46 50 ""
+ MESSAGE ADD,14@
+ PICTURE "###.###.###~~~"
+ FIELD R11
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1: TOTALE"
+ PROMPT 60 50 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 14
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 2: PERIODO AA (1)"
+ PROMPT 20 52 ""
+ FIELD I10
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 2: PERIODO AA (2)"
+ PROMPT 23 52 ""
+ FIELD I11
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 2: IMPORTO"
+ PROMPT 28 52 ""
+ MESSAGE COPY,15@
+ PICTURE "###.###.###~~~"
+ FIELD R5
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 2: INTERESSI"
+ PROMPT 46 52 ""
+ MESSAGE ADD,15@
+ PICTURE "###.###.###~~~"
+ FIELD R12
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 2: TOTALE"
+ PROMPT 60 52 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 15
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 3: PERIODO AA (1)"
+ PROMPT 20 54 ""
+ FIELD I12
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 3: PERIODO AA (2)"
+ PROMPT 23 54 ""
+ FIELD I13
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 3: IMPORTO"
+ PROMPT 28 54 ""
+ MESSAGE COPY,16@
+ PICTURE "###.###.###~~~"
+ FIELD R6
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 3: INTERESSI"
+ PROMPT 46 54 ""
+ MESSAGE ADD,16@
+ PICTURE "###.###.###~~~"
+ FIELD R13
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 3: TOTALE"
+ PROMPT 60 54 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 16
+END
+
+NUMERO
+BEGIN
+ KEY "TOTALE (in lettere)"
+ PROMPT 5 58 ""
+ GROUP  9
+ PICTURE "LETTERE"
+END
+
+NUMERO
+BEGIN
+ KEY "TOTALE (in cifre)"
+ PROMPT 60 58 ""
+ GROUP  9
+ PICTURE "###.###.###~~~"
+END
+
+DATA
+BEGIN
+ KEY "DATA: giorno - mese - anno"
+ PROMPT 50 62 ""
+ PICTURE "@@ ~ @@~~~@@"
+ FIELD D0
+END
+
+STRING
+BEGIN
+ KEY "CODICE AZIENDA"
+ PROMPT 64 62 ""
+ FIELD S7
+END
+
+STRING
+BEGIN
+ KEY "CODICE DIPENDENZA"
+ PROMPT 74 62 ""
+ FIELD S8
+END
+
+END
+
+END
diff --git a/ba/delsdr.frm b/ba/delsdr.frm
new file mode 100755
index 000000000..44a69b651
--- /dev/null
+++ b/ba/delsdr.frm
@@ -0,0 +1,383 @@
+// Delega di pagamento delle ritenute alla fonte e altri codici tributo
+
+USE %SDR
+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 %BAN ALIAS 14 INTO CODTAB=S7
+JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
+JOIN 13 TO 24@ ALIAS 313 INTO COM=S5
+
+SECTION BODY 0 66 0 0
+
+STRINGA
+BEGIN
+ KEY "Azienda di credito"
+ PROMPT 47 7 ""
+ FIELD 14@->S0
+END
+
+STRINGA
+BEGIN
+ KEY "Dipendenza"
+ PROMPT 47 9 ""
+ FIELD 24@->S0
+END
+
+STRINGA
+BEGIN
+ KEY "PROVINCIA Dipendenza"
+ PROMPT 78 9 ""
+ FIELD 313@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "COD. CONCESS."
+ PROMPT 9 12 ""
+ FIELD S9
+END
+
+STRINGA
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 15 12 ""
+ FIELD 6->COFI
+END
+
+STRINGA
+BEGIN
+ KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
+ PROMPT 2 17 ""
+ FIELD 6->RAGSOC[1,30]
+END
+
+STRINGA
+BEGIN
+ KEY "NOME"
+ PROMPT 54 17 ""
+ 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
+END
+
+DATA
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 2 19 ""
+ GROUP 1
+ PICTURE "# #~# #~~ # # #"
+ FIELD 8->DATANASC
+END
+
+STRINGA
+BEGIN
+ KEY "SESSO (M o F)"
+ PROMPT 19 19 ""
+ GROUP 1
+ FIELD 8->SESSO
+END
+
+STRINGA
+BEGIN
+ KEY "COMUNE (o Stato estero) DI NASCITA"
+ PROMPT 24 19 ""
+ GROUP 1
+ FIELD 113@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "PROV. DI NASCITA (sigla)"
+ PROMPT 68 19 ""
+ GROUP  1
+ FIELD 113@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: COMUNE"
+ PROMPT 8 21 ""
+ FIELD 213@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: PROV. (sigla)"
+ PROMPT 36 21 ""
+ FIELD 213@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: VIA"
+ PROMPT 41 21 ""
+ FIELD 6->INDRF
+ FIELD 6->INDRES
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: NUMERO CIVICO"
+ PROMPT 70 21 ""
+ FIELD 6->CIVRF
+ FIELD 6->CIVRES
+END         
+
+NUMERO
+BEGIN
+ KEY "AL PERIODO DI RIFERIMENTO (mese o anno)"
+ PROMPT 30 28 ""
+ FIELD I0
+END
+
+NUMERO
+BEGIN
+ KEY "AL PERIODO DI RIFERIMENTO (anno)"
+ PROMPT 34 28 ""
+ FIELD I1
+END
+
+DATA
+BEGIN
+ KEY "OVVERO ALTRA DATA"
+ PROMPT 64 28 ""
+ PICTURE "# # ~ # #~~~# #"
+ FIELD D1
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1001: IMPORTO"
+ PROMPT 14 33 ""
+ MESSAGE COPY,10@
+ PICTURE "###.###.###~~~"
+ FIELD R0
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1001: INTERESSI"
+ PROMPT 36 33 ""
+ MESSAGE ADD,10@
+ PICTURE "###.###.###~~~"
+ FIELD R7
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1001: TOTALE"
+ PROMPT 54 33 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE COPY,9@
+ GROUP 10
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1040: IMPORTO"
+ PROMPT 14 35 ""
+ MESSAGE COPY,11@
+ PICTURE "###.###.###~~~"
+ FIELD R1
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1040: INTERESSI"
+ PROMPT 36 35 ""
+ MESSAGE ADD,11@
+ PICTURE "###.###.###~~~"
+ FIELD R7
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1040: TOTALE"
+ PROMPT 54 35 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 11
+END
+
+STRING
+BEGIN
+ KEY "TRIBUTO 3: CODICE"
+ PROMPT 4 37 ""
+ FIELD S2
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 3: IMPORTO"
+ PROMPT 14 37 ""
+ MESSAGE COPY,12@
+ PICTURE "###.###.###~~~"
+ FIELD R2
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 3: INTERESSI"
+ PROMPT 36 37 ""
+ MESSAGE ADD,12@
+ PICTURE "###.###.###~~~"
+ FIELD R8
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 3: TOTALE"
+ PROMPT 54 37 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 12
+END
+
+
+STRING
+BEGIN
+ KEY "TRIBUTO 4: CODICE"
+ PROMPT 4 39 ""
+ FIELD S3
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 4: IMPORTO"
+ PROMPT 14 39 ""
+ MESSAGE COPY,13@
+ PICTURE "###.###.###~~~"
+ FIELD R3
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 4: INTERESSI"
+ PROMPT 36 39 ""
+ MESSAGE ADD,13@
+ PICTURE "###.###.###~~~"
+ FIELD R9
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 4: TOTALE"
+ PROMPT 54 39 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 13
+END
+
+
+STRING
+BEGIN
+ KEY "TRIBUTO 5: CODICE"
+ PROMPT 4 41 ""
+ FIELD S4
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 5: IMPORTO"
+ PROMPT 14 41 ""
+ MESSAGE COPY,14@
+ PICTURE "###.###.###~~~"
+ FIELD R4
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 5: INTERESSI"
+ PROMPT 36 41 ""
+ MESSAGE ADD,14@
+ PICTURE "###.###.###~~~"
+ FIELD R10
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 5: TOTALE"
+ PROMPT 54 41 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 14
+END
+
+
+STRING
+BEGIN
+ KEY "TRIBUTO 6: CODICE"
+ PROMPT 4 43 ""
+ FIELD S5
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 6: IMPORTO"
+ PROMPT 14 43 ""
+ MESSAGE COPY,15@
+ PICTURE "###.###.###~~~"
+ FIELD R5
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 6: INTERESSI"
+ PROMPT 36 43 ""
+ MESSAGE ADD,15@
+ PICTURE "###.###.###~~~"
+ FIELD R11
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 6: TOTALE"
+ PROMPT 54 43 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 15
+END
+
+
+NUMERO
+BEGIN
+ KEY "TOTALE (in lettere)"
+ PROMPT 5 57 ""
+ GROUP  9
+ PICTURE "LETTERE"
+END
+
+NUMERO
+BEGIN
+ KEY "TOTALE (in cifre)"
+ PROMPT 60 57 ""
+ GROUP  9
+ PICTURE "###.###.###~~~"
+END
+
+DATA
+BEGIN
+ KEY "DATA: giorno - mese - anno"
+ PROMPT 47 61 ""
+ PICTURE "@@ ~ @@~~~@@"
+ FIELD D0
+END
+
+END
+
+END
diff --git a/ba/delsii.frm b/ba/delsii.frm
new file mode 100755
index 000000000..b5c0f7e16
--- /dev/null
+++ b/ba/delsii.frm
@@ -0,0 +1,354 @@
+// Delega di pagamento: IRPEF E/O ILOR (PERSONE FISICHE)
+
+USE %IPF
+
+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 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 %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 13 TO 34@ ALIAS 513 INTO COM=S6
+
+
+
+SECTION BODY 0 66 0 0
+
+STRINGA
+BEGIN
+ KEY "Azienda di credito"
+ PROMPT 38 7 ""
+ FIELD 14@->S0
+END
+
+STRINGA
+BEGIN
+ KEY "Dipendenza"
+ PROMPT 38 9 ""
+ FIELD 24@->S0
+END
+
+STRINGA
+BEGIN
+ KEY "PROVINCIA Dipendenza"
+ PROMPT 72 9 ""
+ FIELD 413@->PROVCOM
+END
+
+GRUPPO
+BEGIN
+  KEY "DATI DICHIARANTE"
+END
+
+STRINGA
+BEGIN
+ KEY "COGNOME"
+ PROMPT 5 12 ""
+ FIELD 16->RAGSOC[1,30]
+END
+
+STRINGA
+BEGIN
+ KEY "NOME"
+ PROMPT 33 12 ""
+ FIELD 16->RAGSOC[31,0]
+END
+
+DATA
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 54 12 ""
+ PICTURE "# #~# #~~ # # #"
+ FIELD 18->DATANASC
+END
+
+STRINGA
+BEGIN
+ KEY "SESSO (M o F)"
+ PROMPT 68 12 ""
+ FIELD 18->SESSO
+END
+
+STRINGA
+BEGIN
+ KEY "STATO CIVILE"
+ PROMPT 72 12 ""
+ FIELD 18->STATCIV
+END
+
+STRINGA
+BEGIN
+ KEY "COMUNE (o Stato estero) DI NASCITA"
+ PROMPT 5 14 ""
+ FIELD 113@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "PROV. DI NASCITA (sigla)"
+ PROMPT 33 14 ""
+ FIELD 113@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 43 14 ""
+ FIELD 16->COFI
+ PICTURE "# # # # # # # # # # # # # # #"
+END
+
+STRINGA
+BEGIN
+ KEY "RESIDENTE IN: COMUNE"
+ PROMPT 5 16 ""
+ FIELD 213@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "RESIDENTE IN: PROV. (sigla)"
+ PROMPT 33 16 ""
+ FIELD 213@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "RESIDENTE IN: VIA"
+ PROMPT 41 18 ""
+ FIELD 16->INDRES
+END
+
+STRINGA
+BEGIN
+ KEY "RESIDENTE IN: NUMERO CIVICO"
+ PROMPT 70 18 ""
+ FIELD 16->CIVRES
+END   
+
+GRUPPO
+BEGIN
+  KEY "DATI CONIUGE"
+END
+
+STRINGA
+BEGIN
+ KEY "COGNOME"
+ PROMPT 5 19 ""
+ FIELD 26->RAGSOC[1,30]
+END
+
+STRINGA
+BEGIN
+ KEY "NOME"
+ PROMPT 33 19 ""
+ FIELD 26->RAGSOC[31,0]
+END
+
+DATA
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 58 19 ""
+ PICTURE "# #~# #~~ # # #"
+ FIELD 28->DATANASC
+END
+
+STRINGA
+BEGIN
+ KEY "SESSO (M o F)"
+ PROMPT 72 19 ""
+ FIELD 28->SESSO
+END
+
+STRINGA
+BEGIN
+ KEY "COMUNE (o Stato estero) DI NASCITA"
+ PROMPT 5 21 ""
+ FIELD 313@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "PROV. DI NASCITA (sigla)"
+ PROMPT 33 21 ""
+ FIELD 313@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 43 21 ""
+ FIELD 26->COFI
+ PICTURE "# # # # # # # # # # # # # # #"
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF: Saldo anno"
+ PROMPT 28 28 ""
+ FIELD I0
+ PICTURE "~~# #"
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF: Saldo in lettere"
+ PROMPT 10 30 ""
+ PICTURE "LETTERE"
+ FIELD R0
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF: Saldo in cifre"
+ PROMPT 58 30 ""
+ FIELD R0
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF: Acconto anno"
+ PROMPT 28 32 ""
+ FIELD I1
+ PICTURE "~~# #"
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF: Acconto in lettere"
+ PROMPT 10 34 ""
+ PICTURE "LETTERE"
+ FIELD R1
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF: Acconto in cifre"
+ PROMPT 58 34 ""
+ FIELD R1
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR: Saldo anno"
+ PROMPT 28 39 ""
+ FIELD I2
+ PICTURE "~~# #"
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR: Saldo dichiarante"
+ PROMPT 50 41 ""
+ FIELD R2        
+ MESSAGGE COPY,10@
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR: Saldo coniuge"
+ PROMPT 50 43 ""
+ FIELD R3
+ MESSAGGE ADD,10@
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR: Saldo in lettere"
+ PROMPT 10 46 ""
+ GROUP 10
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR: Saldo in cifre"
+ PROMPT 58 46 ""
+ GROUP 10
+END
+
+
+NUMERO
+BEGIN
+ KEY "ILOR: Acconto anno"
+ PROMPT 28 48 ""
+ FIELD I3
+ PICTURE "~~# #"
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR: Acconto dichiarante"
+ PROMPT 50 50 ""
+ FIELD R4        
+ MESSAGGE COPY,11@
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR: Acconto coniuge"
+ PROMPT 50 52 ""
+ FIELD R5
+ MESSAGGE ADD,11@
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR: Acconto in lettere"
+ PROMPT 10 54 ""
+ GROUP 11
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR: Acconto in cifre"
+ PROMPT 58 54 ""
+ GROUP 11
+END
+
+STRINGA
+BEGIN
+  KEY "CENTRO SERVIZI: Provincia"
+  PROMPT 60 3 ""
+  FIELD 513@->PROVCOM
+END
+
+STRINGA
+BEGIN
+  KEY "CENTRO SERVIZI"
+  PROMPT 60 10 ""
+  FIELD 34@->S0
+END
+
+DATA
+BEGIN
+ KEY "DATA: giorno - mese - anno"
+ PROMPT 44 60 ""
+ PICTURE "@@ ~ @@~~~@@"
+ FIELD D0
+END
+
+STRINGA
+BEGIN
+ KEY "CODICE AZIENDA"
+ PROMPT 52 60 ""
+ FIELD S7
+END
+
+STRINGA
+BEGIN
+ KEY "CODICE DIPENDENZA"
+ PROMPT 65 60 ""
+ FIELD S8
+END
+
+END
+
+END
diff --git a/ba/dissdi.frm b/ba/dissdi.frm
new file mode 100755
index 000000000..76f5c08cf
--- /dev/null
+++ b/ba/dissdi.frm
@@ -0,0 +1,763 @@
+// Distinta di versamento: IRPEF, IRPEG e altri codici tributo
+
+USE %SDI
+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)
+
+
+SECTION BODY 0 66 0 0
+
+STRINGA
+BEGIN
+ KEY "CONCESSIONE DI"
+ PROMPT 28 7 ""
+ FIELD 14@->S0
+END
+
+STRINGA
+BEGIN
+ KEY "COD. CONCESS."
+ PROMPT 9 13 ""
+ FIELD S9
+END
+
+STRINGA
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 15 13 ""
+ FIELD 6->COFI
+END
+
+STRINGA
+BEGIN
+ KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
+ PROMPT 2 17 ""
+ FIELD 6->RAGSOC[1,30]
+END
+
+STRINGA
+BEGIN
+ KEY "NOME"
+ PROMPT 54 17 ""
+ 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
+END
+
+DATA
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 2 19 ""
+ GROUP 1
+ PICTURE "# #~# #~~ # # #"
+ FIELD 8->DATANASC
+END
+
+STRINGA
+BEGIN
+ KEY "SESSO (M o F)"
+ PROMPT 19 19 ""
+ GROUP 1
+ FIELD 8->SESSO
+END
+
+STRINGA
+BEGIN
+ KEY "COMUNE (o Stato estero) DI NASCITA"
+ PROMPT 24 19 ""
+ GROUP 1
+ FIELD 113@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "PROV. DI NASCITA (sigla)"
+ PROMPT 68 19 ""
+ GROUP  1
+ FIELD 113@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: COMUNE"
+ PROMPT 8 21 ""
+ FIELD 213@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: PROV. (sigla)"
+ PROMPT 36 21 ""
+ FIELD 213@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: VIA"
+ PROMPT 41 21 ""
+ FIELD 6->INDRF
+ FIELD 6->INDRES
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: NUMERO CIVICO"
+ PROMPT 70 21 ""
+ FIELD 6->CIVRF
+ FIELD 6->CIVRES
+END   
+
+LISTA
+BEGIN
+ KEY "Righe da compilare "
+ FIELD S6
+ ITEM "F| " MESSAGE ENABLE,6@|DISABLE,7@|DISABLE,8@
+ ITEM "G| " MESSAGE ENABLE,7@|DISABLE,6@|DISABLE,8@
+ ITEM "S| " MESSAGE ENABLE,8@|DISABLE,6@|DISABLE,7@
+END
+
+GRUPPO
+BEGIN
+ KEY "Righe Persone Fisiche"
+ PROMPT 0 0 ""
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4007: PERIODO AA (1)"
+ PROMPT 20 26 ""
+ FIELD I0
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4007: PERIODO AA (2)"
+ PROMPT 23 26 ""
+ FIELD I1
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4007: IMPOSTA"
+ PROMPT 28 26 ""
+ MESSAGE COPY,10@
+ PICTURE "###.###.###~~~"
+ FIELD R0
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4007: INTERESSI"
+ PROMPT 46 26 ""
+ MESSAGE ADD,10@
+ PICTURE "###.###.###~~~"
+ FIELD R7
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4007: TOTALE"
+ PROMPT 60 26 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 6 10
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4001: PERIODO AA (1)"
+ PROMPT 20 28 ""
+ FIELD I2
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4001: PERIODO AA (2)"
+ PROMPT 23 28 ""
+ FIELD I3
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4001: IMPOSTA"
+ PROMPT 28 28 ""
+ MESSAGE COPY,11@
+ PICTURE "###.###.###~~~"
+ FIELD R1
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4001: INTERESSI"
+ PROMPT 46 28 ""
+ MESSAGE ADD,11@
+ PICTURE "###.###.###~~~"
+ FIELD R8
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 4001: TOTALE"
+ PROMPT 60 28 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 6 11
+END      
+
+NUMERO
+BEGIN
+ KEY "ILOR 3353: PERIODO AA (1)"
+ PROMPT 20 30 ""
+ FIELD I2
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3353: PERIODO AA (2)"
+ PROMPT 23 30 ""
+ FIELD I3
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3353: IMPOSTA"
+ PROMPT 28 30 ""
+ MESSAGE COPY,12@
+ PICTURE "###.###.###~~~"
+ FIELD R2
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3353: INTERESSI"
+ PROMPT 46 30 ""
+ MESSAGE ADD,12@
+ PICTURE "###.###.###~~~"
+ FIELD R9
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 3353: TOTALE"
+ PROMPT 60 30 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 6 12
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3350: PERIODO AA (1)"
+ PROMPT 20 32 ""
+ FIELD I6
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3350: PERIODO AA (2)"
+ PROMPT 23 32 ""
+ FIELD I7
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3350: IMPOSTA"
+ PROMPT 28 32 ""
+ MESSAGE COPY,13@
+ PICTURE "###.###.###~~~"
+ FIELD R3
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3350: INTERESSI"
+ PROMPT 46 32 ""
+ MESSAGE ADD,13@
+ PICTURE "###.###.###~~~"
+ FIELD R10
+ GROUP 6
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3350: TOTALE"
+ PROMPT 60 32 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 6 13
+END
+
+
+GRUPPO
+BEGIN
+ KEY "Righe Persone Giuridiche"
+ PROMPT 0 0 ""
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2110: PERIODO AA (1)"
+ PROMPT 20 34 ""
+ FIELD I0
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2110: PERIODO AA (2)"
+ PROMPT 23 34 ""
+ FIELD I1
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2110: IMPOSTA"
+ PROMPT 28 34 ""
+ MESSAGE COPY,10@
+ PICTURE "###.###.###~~~"
+ FIELD R0
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2110: INTERESSI"
+ PROMPT 46 34 ""
+ MESSAGE ADD,10@
+ PICTURE "###.###.###~~~"
+ FIELD R7
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2110: TOTALE"
+ PROMPT 60 34 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 7 10
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2100: PERIODO AA (1)"
+ PROMPT 20 36 ""
+ FIELD I2
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2100: PERIODO AA (2)"
+ PROMPT 23 36 ""
+ FIELD I3
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2100: IMPOSTA"
+ PROMPT 28 36 ""
+ MESSAGE COPY,11@
+ PICTURE "###.###.###~~~"
+ FIELD R1
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2100: INTERESSI"
+ PROMPT 46 36 ""
+ MESSAGE ADD,11@
+ PICTURE "###.###.###~~~"
+ FIELD R8
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEG 2100: TOTALE"
+ PROMPT 60 36 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 7 11
+END      
+
+NUMERO
+BEGIN
+ KEY "ILOR 3110: PERIODO AA (1)"
+ PROMPT 20 38 ""
+ FIELD I2
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3110: PERIODO AA (2)"
+ PROMPT 23 38 ""
+ FIELD I3
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3110: IMPOSTA"
+ PROMPT 28 38 ""
+ MESSAGE COPY,12@
+ PICTURE "###.###.###~~~"
+ FIELD R2
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3110: INTERESSI"
+ PROMPT 46 38 ""
+ MESSAGE ADD,12@
+ PICTURE "###.###.###~~~"
+ FIELD R9
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF 3110: TOTALE"
+ PROMPT 60 38 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 7 12
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3000: PERIODO AA (1)"
+ PROMPT 20 40 ""
+ FIELD I6
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3000: PERIODO AA (2)"
+ PROMPT 23 40 ""
+ FIELD I7
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3000: IMPOSTA"
+ PROMPT 28 40 ""
+ MESSAGE COPY,13@
+ PICTURE "###.###.###~~~"
+ FIELD R3
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3000: INTERESSI"
+ PROMPT 46 40 ""
+ MESSAGE ADD,13@
+ PICTURE "###.###.###~~~"
+ FIELD R10
+ GROUP 7
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3000: TOTALE"
+ PROMPT 60 40 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 7 13
+END
+
+
+GRUPPO
+BEGIN
+ KEY "Righe Societa' di Persone"
+ PROMPT 0 0 ""
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3303: PERIODO AA (1)"
+ PROMPT 20 42 ""
+ FIELD I4
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3303: PERIODO AA (2)"
+ PROMPT 23 42 ""
+ FIELD I5
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3303: IMPOSTA"
+ PROMPT 28 42 ""
+ MESSAGE COPY,12@
+ PICTURE "###.###.###~~~"
+ FIELD R2
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3303: INTERESSI"
+ PROMPT 46 42 ""
+ MESSAGE ADD,12@
+ PICTURE "###.###.###~~~"
+ FIELD R9
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3303: TOTALE"
+ PROMPT 60 42 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 8 12
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3300: PERIODO AA (1)"
+ PROMPT 20 44 ""
+ FIELD I6
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3300: PERIODO AA (2)"
+ PROMPT 23 44 ""
+ FIELD I7
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3300: IMPOSTA"
+ PROMPT 28 44 ""
+ MESSAGE COPY,13@
+ PICTURE "###.###.###~~~"
+ FIELD R3
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3300: INTERESSI"
+ PROMPT 46 44 ""
+ MESSAGE ADD,13@
+ PICTURE "###.###.###~~~"
+ FIELD R10
+ GROUP 8
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR 3300: TOTALE"
+ PROMPT 60 44 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 8 13
+END
+
+GRUPPO
+BEGIN
+ KEY "IMPOSTE SOSTITUTIVE E ALTRI CODICI TRIBUTO"
+ PROMPT 0 0 ""
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1: PERIODO AA (1)"
+ PROMPT 20 50 ""
+ FIELD I8
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1: PERIODO AA (2)"
+ PROMPT 23 50 ""
+ FIELD I9
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1: IMPORTO"
+ PROMPT 28 50 ""
+ MESSAGE COPY,14@
+ PICTURE "###.###.###~~~"
+ FIELD R4
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1: INTERESSI"
+ PROMPT 46 50 ""
+ MESSAGE ADD,14@
+ PICTURE "###.###.###~~~"
+ FIELD R11
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1: TOTALE"
+ PROMPT 60 50 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 14
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 2: PERIODO AA (1)"
+ PROMPT 20 52 ""
+ FIELD I10
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 2: PERIODO AA (2)"
+ PROMPT 23 52 ""
+ FIELD I11
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 2: IMPORTO"
+ PROMPT 28 52 ""
+ MESSAGE COPY,15@
+ PICTURE "###.###.###~~~"
+ FIELD R5
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 2: INTERESSI"
+ PROMPT 46 52 ""
+ MESSAGE ADD,15@
+ PICTURE "###.###.###~~~"
+ FIELD R12
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 2: TOTALE"
+ PROMPT 60 52 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 15
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 3: PERIODO AA (1)"
+ PROMPT 20 54 ""
+ FIELD I12
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 3: PERIODO AA (2)"
+ PROMPT 23 54 ""
+ FIELD I13
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 3: IMPORTO"
+ PROMPT 28 54 ""
+ MESSAGE COPY,16@
+ PICTURE "###.###.###~~~"
+ FIELD R6
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 3: INTERESSI"
+ PROMPT 46 54 ""
+ MESSAGE ADD,16@
+ PICTURE "###.###.###~~~"
+ FIELD R13
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 3: TOTALE"
+ PROMPT 60 54 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 16
+END
+
+NUMERO
+BEGIN
+ KEY "TOTALE (in lettere)"
+ PROMPT 5 58 ""
+ GROUP  9
+ PICTURE "LETTERE"
+END
+
+NUMERO
+BEGIN
+ KEY "TOTALE (in cifre)"
+ PROMPT 60 58 ""
+ GROUP  9
+ PICTURE "###.###.###~~~"
+END
+
+DATA
+BEGIN
+ KEY "DATA: giorno - mese - anno"
+ PROMPT 12 62 ""
+ PICTURE "@@ ~ @@~~~@@"
+ FIELD D0
+END
+
+END
+
+END
diff --git a/ba/dissdr.frm b/ba/dissdr.frm
new file mode 100755
index 000000000..fae690568
--- /dev/null
+++ b/ba/dissdr.frm
@@ -0,0 +1,367 @@
+// Distinta di pagamento delle ritenute alla fonte e altri codici tributo
+
+USE %SDR
+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 ALIAS 14 INTO CODTAB=S9
+
+SECTION BODY 0 66 0 0
+
+STRINGA
+BEGIN
+ KEY "CONCESSIONE DI"
+ PROMPT 47 7 ""
+ FIELD 14@->S0
+END
+
+STRINGA
+BEGIN
+ KEY "COD. CONCESS."
+ PROMPT 9 12 ""
+ FIELD S9
+END
+
+STRINGA
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 15 12 ""
+ FIELD 6->COFI
+END
+
+STRINGA
+BEGIN
+ KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
+ PROMPT 2 17 ""
+ FIELD 6->RAGSOC[1,30]
+END
+
+STRINGA
+BEGIN
+ KEY "NOME"
+ PROMPT 54 17 ""
+ 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
+END
+
+DATA
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 2 19 ""
+ GROUP 1
+ PICTURE "# #~# #~~ # # #"
+ FIELD 8->DATANASC
+END
+
+STRINGA
+BEGIN
+ KEY "SESSO (M o F)"
+ PROMPT 19 19 ""
+ GROUP 1
+ FIELD 8->SESSO
+END
+
+STRINGA
+BEGIN
+ KEY "COMUNE (o Stato estero) DI NASCITA"
+ PROMPT 24 19 ""
+ GROUP 1
+ FIELD 113@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "PROV. DI NASCITA (sigla)"
+ PROMPT 68 19 ""
+ GROUP  1
+ FIELD 113@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: COMUNE"
+ PROMPT 8 21 ""
+ FIELD 213@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: PROV. (sigla)"
+ PROMPT 36 21 ""
+ FIELD 213@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: VIA"
+ PROMPT 41 21 ""
+ FIELD 6->INDRF
+ FIELD 6->INDRES
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: NUMERO CIVICO"
+ PROMPT 70 21 ""
+ FIELD 6->CIVRF
+ FIELD 6->CIVRES
+END         
+
+NUMERO
+BEGIN
+ KEY "AL PERIODO DI RIFERIMENTO (mese o anno)"
+ PROMPT 30 28 ""
+ FIELD I0
+END
+
+NUMERO
+BEGIN
+ KEY "AL PERIODO DI RIFERIMENTO (anno)"
+ PROMPT 34 28 ""
+ FIELD I1
+END
+
+DATA
+BEGIN
+ KEY "OVVERO ALTRA DATA"
+ PROMPT 64 28 ""
+ PICTURE "# # ~ # #~~~# #"
+ FIELD D1
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1001: IMPORTO"
+ PROMPT 14 33 ""
+ MESSAGE COPY,10@
+ PICTURE "###.###.###~~~"
+ FIELD R0
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1001: INTERESSI"
+ PROMPT 36 33 ""
+ MESSAGE ADD,10@
+ PICTURE "###.###.###~~~"
+ FIELD R7
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1001: TOTALE"
+ PROMPT 54 33 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE COPY,9@
+ GROUP 10
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1040: IMPORTO"
+ PROMPT 14 35 ""
+ MESSAGE COPY,11@
+ PICTURE "###.###.###~~~"
+ FIELD R1
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1040: INTERESSI"
+ PROMPT 36 35 ""
+ MESSAGE ADD,11@
+ PICTURE "###.###.###~~~"
+ FIELD R7
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 1040: TOTALE"
+ PROMPT 54 35 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 11
+END
+
+STRING
+BEGIN
+ KEY "TRIBUTO 3: CODICE"
+ PROMPT 4 37 ""
+ FIELD S2
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 3: IMPORTO"
+ PROMPT 14 37 ""
+ MESSAGE COPY,12@
+ PICTURE "###.###.###~~~"
+ FIELD R2
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 3: INTERESSI"
+ PROMPT 36 37 ""
+ MESSAGE ADD,12@
+ PICTURE "###.###.###~~~"
+ FIELD R8
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 3: TOTALE"
+ PROMPT 54 37 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 12
+END
+
+
+STRING
+BEGIN
+ KEY "TRIBUTO 4: CODICE"
+ PROMPT 4 39 ""
+ FIELD S3
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 4: IMPORTO"
+ PROMPT 14 39 ""
+ MESSAGE COPY,13@
+ PICTURE "###.###.###~~~"
+ FIELD R3
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 4: INTERESSI"
+ PROMPT 36 39 ""
+ MESSAGE ADD,13@
+ PICTURE "###.###.###~~~"
+ FIELD R9
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 4: TOTALE"
+ PROMPT 54 39 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 13
+END
+
+
+STRING
+BEGIN
+ KEY "TRIBUTO 5: CODICE"
+ PROMPT 4 41 ""
+ FIELD S4
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 5: IMPORTO"
+ PROMPT 14 41 ""
+ MESSAGE COPY,14@
+ PICTURE "###.###.###~~~"
+ FIELD R4
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 5: INTERESSI"
+ PROMPT 36 41 ""
+ MESSAGE ADD,14@
+ PICTURE "###.###.###~~~"
+ FIELD R10
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 5: TOTALE"
+ PROMPT 54 41 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 14
+END
+
+
+STRING
+BEGIN
+ KEY "TRIBUTO 6: CODICE"
+ PROMPT 4 43 ""
+ FIELD S5
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 6: IMPORTO"
+ PROMPT 14 43 ""
+ MESSAGE COPY,15@
+ PICTURE "###.###.###~~~"
+ FIELD R5
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 6: INTERESSI"
+ PROMPT 36 43 ""
+ MESSAGE ADD,15@
+ PICTURE "###.###.###~~~"
+ FIELD R11
+END
+
+NUMERO
+BEGIN
+ KEY "TRIBUTO 6: TOTALE"
+ PROMPT 54 43 ""
+ PICTURE "###.###.###~~~"
+ MESSAGE ADD,9@
+ GROUP 15
+END
+
+
+NUMERO
+BEGIN
+ KEY "TOTALE (in lettere)"
+ PROMPT 5 57 ""
+ GROUP  9
+ PICTURE "LETTERE"
+END
+
+NUMERO
+BEGIN
+ KEY "TOTALE (in cifre)"
+ PROMPT 60 57 ""
+ GROUP  9
+ PICTURE "###.###.###~~~"
+END
+
+DATA
+BEGIN
+ KEY "DATA: giorno - mese - anno"
+ PROMPT 10 60 ""
+ PICTURE "@@ ~ @@~~~@@"
+ FIELD D0
+END
+
+END
+
+END
diff --git a/ba/dissii.frm b/ba/dissii.frm
new file mode 100755
index 000000000..19a4d0ecc
--- /dev/null
+++ b/ba/dissii.frm
@@ -0,0 +1,395 @@
+// Distinte di versamento IRPEF/ILOR (PERSONE FISICHE)
+
+USE %SII
+
+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 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 %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC
+
+
+SECTION BODY 0 66 0 0
+
+STRINGA
+BEGIN
+ KEY "CONCESSIONE DI"
+ PROMPT 40 5 ""
+ FIELD 14@->S0
+END
+
+GRUPPO
+BEGIN
+  KEY "DATI DICHIARANTE"
+END
+
+STRINGA
+BEGIN
+ KEY "COGNOME"
+ PROMPT 5 10 ""
+ FIELD 16->RAGSOC[1,30]
+END
+
+STRINGA
+BEGIN
+ KEY "NOME"
+ PROMPT 36 10 ""
+ FIELD 16->RAGSOC[31,0]
+END
+
+DATA
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 56 10 ""
+ PICTURE "# #~# #~~ # # #"
+ FIELD 18->DATANASC
+END
+
+STRINGA
+BEGIN
+ KEY "SESSO (M o F)"
+ PROMPT 69 12 ""
+ FIELD 18->SESSO
+END
+
+STRINGA
+BEGIN
+ KEY "STATO CIVILE"
+ PROMPT 74 12 ""
+ FIELD 18->STATCIV
+END
+
+STRINGA
+BEGIN
+ KEY "COMUNE (o Stato estero) DI NASCITA"
+ PROMPT 5 12 ""
+ FIELD 113@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "PROV. DI NASCITA (sigla)"
+ PROMPT 41 12 ""
+ FIELD 113@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 46 12 ""
+ FIELD 16->COFI
+ PICTURE "# # # # # # # # # # # # # # #"
+END
+
+STRINGA
+BEGIN
+ KEY "RESIDENTE IN: COMUNE"
+ PROMPT 14 14 ""
+ FIELD 213@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "RESIDENTE IN: PROV. (sigla)"
+ PROMPT 41 14 ""
+ FIELD 213@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "RESIDENTE IN: VIA"
+ PROMPT 46 14 ""
+ FIELD 16->INDRES
+END
+
+STRINGA
+BEGIN
+ KEY "RESIDENTE IN: NUMERO CIVICO"
+ PROMPT 72 14 ""
+ FIELD 16->CIVRES
+END   
+
+GRUPPO
+BEGIN
+  KEY "DATI CONIUGE"
+END
+
+STRINGA
+BEGIN
+ KEY "COGNOME"
+ PROMPT 5 17 ""
+ FIELD 26->RAGSOC[1,30]
+END
+
+STRINGA
+BEGIN
+ KEY "NOME"
+ PROMPT 36 17 ""
+ FIELD 26->RAGSOC[31,0]
+END
+
+DATA
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 56 17 ""
+ PICTURE "# #~# #~~ # # #"
+ FIELD 28->DATANASC
+END
+
+STRINGA
+BEGIN
+ KEY "SESSO (M o F)"
+ PROMPT 69 17 ""
+ FIELD 28->SESSO
+END
+
+STRINGA
+BEGIN
+ KEY "STATO CIVILE"
+ PROMPT 74 17 ""
+ FIELD 28->STATCIV
+END
+
+STRINGA
+BEGIN
+ KEY "COMUNE (o Stato estero) DI NASCITA"
+ PROMPT 5 19 ""
+ FIELD 313@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "PROV. DI NASCITA (sigla)"
+ PROMPT 42 19 ""
+ FIELD 313@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 46 19 ""
+ FIELD 26->COFI
+ PICTURE "# # # # # # # # # # # # # # #"
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF Saldo: anno"
+ PROMPT 25 24 ""
+ FIELD I0
+ PICTURE "~~# #"
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF Saldo: Imposta"
+ PROMPT 32 24 ""
+ FIELD R0
+ MESSAGE COPY,10@
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF Saldo: Interessi"
+ PROMPT 47 24 ""
+ FIELD R7    
+ MESSAGE ADD,10@
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF Saldo: Totale"
+ PROMPT 62 24 ""
+ GROUP 10
+ MESSAGE COPY,20@
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF Acconto: anno"
+ PROMPT 25 28 ""
+ FIELD I1
+ PICTURE "~~# #"
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF Acconto: Imposta"
+ PROMPT 32 28 ""
+ FIELD R1
+ MESSAGE COPY,11@
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF Acconto: Interessi"
+ PROMPT 47 28 ""
+ FIELD R8
+ MESSAGE ADD,11@
+END
+
+NUMERO
+BEGIN
+ KEY "IRPEF Acconto: Totale"
+ PROMPT 62 28 ""
+ GROUP 11
+ MESSAGE ADD,20@
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR Saldo: anno"
+ PROMPT 25 35 ""
+ FIELD I2
+ PICTURE "~~# #"
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR Saldo dichiarante: Imposta"
+ PROMPT 32 37 ""
+ FIELD R2
+ MESSAGE COPY,12@
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR Saldo dichiarante: Interessi"
+ PROMPT 47 37 ""
+ FIELD R9
+ MESSAGE ADD,12@
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR Saldo dichiarante: Totale"
+ PROMPT 62 37 ""
+ GROUP 12
+ MESSAGE ADD,20@
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR Saldo coniuge: Imposta"
+ PROMPT 32 39 ""
+ FIELD R3
+ MESSAGE COPY,13@
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR Saldo coniuge: Interessi"
+ PROMPT 47 39 ""
+ FIELD R10
+ MESSAGE ADD,13@
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR Saldo coniuge: Totale"
+ PROMPT 62 39 ""
+ GROUP 13
+ MESSAGE ADD,20@
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR Acconto: anno"
+ PROMPT 25 43 ""
+ FIELD I3
+ PICTURE "~~# #"
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR Acconto dichiarante: Imposta"
+ PROMPT 32 45 ""
+ FIELD R4
+ MESSAGE COPY,14@
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR Acconto dichiarante: Interessi"
+ PROMPT 47 45 ""
+ FIELD R11
+ MESSAGE ADD,14@
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR Acconto dichiarante: Totale"
+ PROMPT 62 45 ""
+ GROUP 14
+ MESSAGE ADD,20@
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR Acconto coniuge: Imposta"
+ PROMPT 32 47 ""
+ FIELD R5
+ MESSAGE COPY,15@
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR Acconto coniuge: Interessi"
+ PROMPT 47 47 ""
+ FIELD R12
+ MESSAGE ADD,15@
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR Acconto coniuge: Totale"
+ PROMPT 62 47 ""
+ GROUP 15
+ MESSAGE ADD,20@
+END
+
+NUMERO
+BEGIN
+ KEY "ILOR: TOTALE DA VERSARE"
+ PROMPT 62 50 ""
+ GROUP 20
+END
+
+STRINGA
+BEGIN
+  KEY "CODICE CONTRIBUENTE Dichiarante"
+  PROMPT 2 54 "# # # # # # # # # # # # # # #"
+  FIELD 16@->CODCONTR
+END
+
+STRINGA
+BEGIN
+  KEY "CODICE CONTRIBUENTE Coniuge"
+  PROMPT 2 57 "# # # # # # # # # # # # # # #"
+  FIELD 26@->CODCONTR
+END
+
+
+STRINGA
+BEGIN
+  KEY "CENTRO SERVIZI: Provincia e Denominazione"
+  PROMPT 42 57 ""
+  MESSAGE _CENSERoUFFIMP,16@,213@
+END
+
+DATA
+BEGIN
+ KEY "DATA: giorno - mese - anno"
+ PROMPT 12 60 ""
+ PICTURE "@ @~@ @~~~@ @"
+ FIELD D0
+END
+
+END
+
+END