diff --git a/ba/delsdi.frm b/ba/delsdi.frm
index bedb2db4b..b6ef89aab 100755
--- a/ba/delsdi.frm
+++ b/ba/delsdi.frm
@@ -1,794 +1,794 @@
-// 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
-
-END
-
-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
+// 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
+
+END
+
+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
index 62a38f76c..1c61d9769 100755
--- a/ba/delsdr.frm
+++ b/ba/delsdr.frm
@@ -1,385 +1,385 @@
-// 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
-
-END
-
-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
+// 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
+
+END
+
+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
index ca24e5965..bfcc5fe76 100755
--- a/ba/delsii.frm
+++ b/ba/delsii.frm
@@ -1,354 +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
-
-END
-
-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
+// 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
+
+END
+
+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/dissd6.frm b/ba/dissd6.frm
index a4d21872c..63b17a19f 100755
--- a/ba/dissd6.frm
+++ b/ba/dissd6.frm
@@ -1,268 +1,270 @@
-// Distinta di versamento: IRPEG/ILOR (PERSONE GIURIDICHE)
-
-USE %SDI
+USE %SD6
 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     
-  
-  SECTION BODY 0 66 0 0
+END
+SECTION BODY 0 66 0 0
 
-  STRINGA
-  BEGIN
-  KEY "CONCESSIONE DI"
-  PROMPT 28 4 ""
-  FIELD 14@->S0
-  END
+STRINGA
+BEGIN
+ KEY "CONCESSIONE DI"
+ PROMPT 28 4 ""
+ FIELD 14@->S0
+END
 
-  STRINGA
-  BEGIN
-  KEY "DENOMINAZIONE"
-  PROMPT 2 10 ""
-  FIELD 6->RAGSOC
-  END
+STRINGA
+BEGIN
+ KEY "DENOMINAZIONE"
+ PROMPT 2 10 ""
+ FIELD 6->RAGSOC
+END
 
-  STRINGA
-  BEGIN
-  KEY "CODICE FISCALE"
-  PROMPT 55 10 ""
-  FIELD 6->COFI
-  END
+STRINGA
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 55 10 ""
+ FIELD 6->COFI
+END
 
-  STRINGA
-  BEGIN
-  KEY "DOMICILIO FISCALE: COMUNE"
-  PROMPT 16 12 ""
-  FIELD 213@->DENCOM
-  END
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: COMUNE"
+ PROMPT 16 12 ""
+ FIELD 13->DENCOM
+END
 
-  STRINGA
-  BEGIN
-  KEY "DOMICILIO FISCALE: PROV. (sigla)"
-  PROMPT 36 12 ""
-  FIELD 213@->PROVCOM
-  END
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: PROV. (sigla)"
+ PROMPT 36 12 ""
+ FIELD 13->PROVCOM
+END
 
-  STRINGA
-  BEGIN
-  KEY "DOMICILIO FISCALE: VIA"
-  PROMPT 41 21 ""
-  FIELD 6->INDRF
-  FIELD 6->INDRES
-  END
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: VIA"
+ PROMPT 41 12 ""
+ FIELD 6->INDRF
+ FIELD 6->INDRES
+END
 
-  STRINGA
-  BEGIN
-  KEY "DOMICILIO FISCALE: NUMERO CIVICO"
-  PROMPT 70 21 ""
-  FIELD 6->CIVRF
-  FIELD 6->CIVRES
-  END   
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: NUMERO CIVICO"
+ PROMPT 70 12 ""
+ FIELD 6->CIVRF
+ FIELD 6->CIVRES
+END
 
+GRUPPO
+BEGIN
+ KEY "DISTINTA VERSAMENTO IRPEG"
+ PROMPT 0 0 ""
+END
 
-  GRUPPO
-  BEGIN
-  KEY "DISTINTA VERSAMENTO IRPEG"
-  PROMPT 0 0 ""
-  END
+NUMERO
+BEGIN
+ KEY "IRPEG 2100 GRUPPO 4: DA ANNO"
+ PROMPT 20 18 ""
+ FIELD I0
+END
 
-  NUMERO
-  BEGIN
-  KEY "IRPEG 2100 GRUPPO 4: DA ANNO"
-  PROMPT 20 18 ""
-  FIELD I0
-  END
+NUMERO
+BEGIN
+ KEY "IRPEG 2100 GRUPPO 4: AD ANNO"
+ PROMPT 27 18 ""
+ FIELD I1
+END
 
-  NUMERO
-  BEGIN
-  KEY "IRPEG 2100 GRUPPO 4: AD ANNO"
-  PROMPT 27 18 ""
-  FIELD I1
-  END
+NUMERO
+BEGIN
+ KEY "IRPEG 2100 GRUPPO 4: IMPOSTA"
+ PROMPT 32 18 ""
+ MESSAGE COPY,1@
+ PICTURE "###.###.###~~~"
+ FIELD R0
+END
 
-  NUMERO
-  BEGIN
-  KEY "IRPEG 2100 GRUPPO 4: IMPOSTA"
-  PROMPT 32 18 ""
-  MESSAGE COPY,1@
-  PICTURE "###.###.###~~~"
-  FIELD R0
-  END
+NUMERO
+BEGIN
+ KEY "IRPEG 2100 GRUPPO 4: INTERESSI"
+ PROMPT 48 18 ""
+ MESSAGE ADD,1@
+ PICTURE "###.###.###~~~"
+ FIELD R4
+END
 
-  NUMERO
-  BEGIN
-  KEY "IRPEG 2100 GRUPPO 4: INTERESSI"
-  PROMPT 48 18 ""
-  MESSAGE ADD,1@
-  PICTURE "###.###.###~~~"
-  FIELD R4
-  END
+NUMERO
+BEGIN
+ KEY "IRPEG 2100 GRUPPO 4: TOTALE"
+ PROMPT 62 18 ""
+ GROUP  1
+ MESSAGE COPY,5@
+ PICTURE "###.###.###~~~"
+END
 
-  NUMERO
-  BEGIN
-  KEY "IRPEG 2100 GRUPPO 4: TOTALE"
-  PROMPT 62 18 ""
-  PICTURE "###.###.###~~~"
-  GROUP 1
-  MESSAGE COPY,5@
-  END
+NUMERO
+BEGIN
+ KEY "IRPEG 2110 GRUPPO 10: DA ANNO"
+ PROMPT 20 23 ""
+ FIELD I2
+END
 
-  
-  NUMERO
-  BEGIN
-  KEY "IRPEG 2110 GRUPPO 10: DA ANNO"
-  PROMPT 20 23 ""
-  FIELD I2
-  END
+NUMERO
+BEGIN
+ KEY "IRPEG 2110 GRUPPO 10: AD ANNO"
+ PROMPT 27 23 ""
+ FIELD I3
+END
 
-  NUMERO
-  BEGIN
-  KEY "IRPEG 2110 GRUPPO 10: AD ANNO"
-  PROMPT 27 23 ""
-  FIELD I3
-  END
+NUMERO
+BEGIN
+ KEY "IRPEG 2110 GRUPPO 10: IMPOSTA"
+ PROMPT 32 23 ""
+ MESSAGE COPY,2@
+ PICTURE "###.###.###~~~"
+ FIELD R1
+END
 
-  NUMERO
-  BEGIN
-  KEY "IRPEG 2110 GRUPPO 10: IMPOSTA"
-  PROMPT 32 23 ""
-  MESSAGE COPY,2@
-  PICTURE "###.###.###~~~"
-  FIELD R1
-  END
+NUMERO
+BEGIN
+ KEY "IRPEG 2110 GRUPPO 10: INTERESSI"
+ PROMPT 48 23 ""
+ MESSAGE ADD,2@
+ PICTURE "###.###.###~~~"
+ FIELD R5
+END
 
-  NUMERO
-  BEGIN
-  KEY "IRPEG 2110 GRUPPO 10: INTERESSI"
-  PROMPT 48 23 ""
-  MESSAGE ADD,2@
-  PICTURE "###.###.###~~~"
-  FIELD R5
-  END
+NUMERO
+BEGIN
+ KEY "IRPEG 2110 GRUPPO 10: TOTALE"
+ PROMPT 62 23 ""
+ GROUP  2
+ MESSAGE ADD,5@
+ PICTURE "###.###.###~~~"
+END
 
-  NUMERO
-  BEGIN
-  KEY "IRPEG 2110 GRUPPO 10: TOTALE"
-  PROMPT 62 23 ""
-  PICTURE "###.###.###~~~"
-  GROUP 2
-  MESSAGE ADD,5@
-  END
+GRUPPO
+BEGIN
+ KEY "DISTINTA VERSAMENTO ILOR"
+ PROMPT 0 0 ""
+END
 
-  NUMERO
-  BEGIN
-  KEY "ILOR 3000 GRUPPO 06: DA ANNO"
-  PROMPT 20 33 ""
-  FIELD I4
-  END
+NUMERO
+BEGIN
+ KEY "ILOR 3000 GRUPPO 06: DA ANNO"
+ PROMPT 20 33 ""
+ FIELD I4
+END
 
-  NUMERO
-  BEGIN
-  KEY "ILOR 3000 GRUPPO 06: AD ANNO"
-  PROMPT 27 33 ""
-  FIELD I5
-  END
+NUMERO
+BEGIN
+ KEY "ILOR 3000 GRUPPO 06: AD ANNO"
+ PROMPT 27 33 ""
+ FIELD I5
+END
 
-  NUMERO
-  BEGIN
-  KEY "ILOR 3000 GRUPPO 06: IMPOSTA"
-  PROMPT 32 33 ""
-  MESSAGE COPY,3@
-  PICTURE "###.###.###~~~"
-  FIELD R2
-  END
+NUMERO
+BEGIN
+ KEY "ILOR 3000 GRUPPO 06: IMPOSTA"
+ PROMPT 32 33 ""
+ MESSAGE COPY,3@
+ PICTURE "###.###.###~~~"
+ FIELD R2
+END
 
-  NUMERO
-  BEGIN
-  KEY "ILOR 3000 GRUPPO 06: INTERESSI"
-  PROMPT 48 33 ""
-  MESSAGE ADD,3@
-  PICTURE "###.###.###~~~"
-  FIELD R6
-  END
+NUMERO
+BEGIN
+ KEY "ILOR 3000 GRUPPO 06: INTERESSI"
+ PROMPT 48 33 ""
+ MESSAGE ADD,3@
+ PICTURE "###.###.###~~~"
+ FIELD R6
+END
 
-  NUMERO
-  BEGIN
-  KEY "ILOR 3000 GRUPPO 06: TOTALE"
-  PROMPT 62 33 ""
-  PICTURE "###.###.###~~~"
-  GROUP 3
-  MESSAGE ADD,5@
-  END 
+NUMERO
+BEGIN
+ KEY "ILOR 3000 GRUPPO 06: TOTALE"
+ PROMPT 62 33 ""
+ GROUP  3
+ MESSAGE ADD,5@
+ PICTURE "###.###.###~~~"
+END
 
-  NUMERO
-  BEGIN
-  KEY "ILOR 3110 GRUPPO 11: DA ANNO"
-  PROMPT 20 38 ""
-  FIELD I6
-  END
+NUMERO
+BEGIN
+ KEY "ILOR 3110 GRUPPO 11: DA ANNO"
+ PROMPT 20 38 ""
+ FIELD I6
+END
 
-  NUMERO
-  BEGIN
-  KEY "ILOR 3110 GRUPPO 11: AD ANNO"
-  PROMPT 27 38 ""
-  FIELD I7
-  END
+NUMERO
+BEGIN
+ KEY "ILOR 3110 GRUPPO 11: AD ANNO"
+ PROMPT 27 38 ""
+ FIELD I7
+END
 
-  NUMERO
-  BEGIN
-  KEY "ILOR 3110 GRUPPO 11: IMPOSTA"
-  PROMPT 32 38 ""
-  MESSAGE COPY,4@
-  PICTURE "###.###.###~~~"
-  FIELD R3
-  END
+NUMERO
+BEGIN
+ KEY "ILOR 3110 GRUPPO 11: IMPOSTA"
+ PROMPT 32 38 ""
+ MESSAGE COPY,4@
+ PICTURE "###.###.###~~~"
+ FIELD R3
+END
 
-  NUMERO
-  BEGIN
-  KEY "ILOR 3110 GRUPPO 11: INTERESSI"
-  PROMPT 48 38 ""
-  MESSAGE ADD,4@
-  PICTURE "###.###.###~~~"
-  FIELD R7
-  END
+NUMERO
+BEGIN
+ KEY "ILOR 3110 GRUPPO 11: INTERESSI"
+ PROMPT 48 38 ""
+ MESSAGE ADD,4@
+ PICTURE "###.###.###~~~"
+ FIELD R7
+END
 
-  NUMERO
-  BEGIN
-  KEY "ILOR 3110 GRUPPO 11: TOTALE"
-  PROMPT 62 38 ""
-  PICTURE "###.###.###~~~"
-  GROUP 4
-  MESSAGE ADD,5@
-  END
+NUMERO
+BEGIN
+ KEY "ILOR 3110 GRUPPO 11: TOTALE"
+ PROMPT 62 38 ""
+ GROUP  4
+ MESSAGE ADD,5@
+ PICTURE "###.###.###~~~"
+END
 
-  NUMERO
-  BEGIN
-  KEY "TOTALE DA VERSARE"
-  PROMPT 62 44 ""
-  PICTURE "###.###.###~~~"
-  GROUP 5
-  END
+NUMERO
+BEGIN
+ KEY "TOTALE DA VERSARE"
+ PROMPT 62 44 ""
+ GROUP  5
+ PICTURE "###.###.###~~~"
+END
 
-  STRINGA
-  BEGIN
-  KEY "CODICE CONTRIBUENTE"
-  PROMPT 2 51 "# # # # # # # # # # # # # # #"
-  FIELD 6@->CODCONTR
-  END
+STRINGA
+BEGIN
+ KEY "CODICE CONTRIBUENTE"
+ PROMPT 2 51 ""
+ PICTURE "# # # # # # # # # # # # # # #"
+ FIELD 6->CODCONTR
+END
 
-  STRINGA
-  BEGIN
-  KEY "CENTRO SERVIZI: Provincia e Denominazione"
-  PROMPT 42 52 ""
-  MESSAGE _CENSERoUFFIMP,6@,13@
-  END
+STRINGA
+BEGIN
+ KEY "CENTRO SERVIZI: Provincia e Denominazione"
+ PROMPT 42 52 ""
+ MESSAGE _CENSERoUFFIMP,6,13
+END
 
-  DATA
-  BEGIN
-  KEY "DATA: giorno - mese - anno"
-  PROMPT 12 56 ""
-  PICTURE "@@ ~ @@~~~@@"
-  FIELD D0
-  END
+DATA
+BEGIN
+ KEY "DATA: giorno - mese - anno"
+ PROMPT 12 56 ""
+ PICTURE "@@ ~ @@~~~@@"
+ FIELD D0
+END
 
-  END
+END
 
-  END
+END
diff --git a/ba/dissdi.frm b/ba/dissdi.frm
index 385588a1a..4f72af71b 100755
--- a/ba/dissdi.frm
+++ b/ba/dissdi.frm
@@ -1,764 +1,764 @@
-// 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)
-
-END     
-     
-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
+// 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)
+
+END     
+     
+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
index 7c76a0ebe..edf46394d 100755
--- a/ba/dissdr.frm
+++ b/ba/dissdr.frm
@@ -1,369 +1,369 @@
-// 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
-
-END
-
-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
+// 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
+
+END
+
+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
index 700d105cb..e5ae0564d 100755
--- a/ba/dissii.frm
+++ b/ba/dissii.frm
@@ -1,396 +1,396 @@
-// 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
-
-END
-
-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
+// 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
+
+END
+
+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
diff --git a/ba/disskx.frm b/ba/disskx.frm
index 070c6ef7c..9f6f094de 100755
--- a/ba/disskx.frm
+++ b/ba/disskx.frm
@@ -1,300 +1,300 @@
-// Distinte di versamento Quadro K 7xx
-
-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 ALIAS 14 INTO CODTAB=S9
-
-END
-
-SECTION BODY 0 66 0 0
-
-STRINGA
-BEGIN
- KEY "CONCESSIONE DI"
- PROMPT 40 5 ""
- FIELD 14->S0
-END
-
-GRUPPO
-BEGIN
-  KEY "DATI DICHIARANTE (ALIAS 16 e 18)"
-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 (ALIAS 26 e 28)"
-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 "PERIODO DI RIFERIMENTO 1"
-  PROMPT 43 25 ""
-  FIELD I0   
-  PICTURE "# #"
-END
-
-NUMERO
-BEGIN
-  KEY "PERIODO DI RIFERIMENTO 2"
-  PROMPT 53 25 ""
-  FIELD I1
-  PICTURE "# #"
-END
-
-STRINGA
-BEGIN
-  KEY "CODICE TRIBUTO"
-  PROMPT 5 29 ""
-  FIELD S2
-END
-
-NUMERO
-BEGIN
-  KEY "GRUPPO"
-  PROMPT 16 29 ""
-  FIELD I2
-END
-
-NUMERO
-BEGIN
-  KEY "IMPORTO TRIBUTO"
-  PROMPT 27 29 ""
-  FIELD R0
-  PICTURE "###.###.###.###~~~"
-  MESSAGE COPY,1@
-END
-
-NUMERO
-BEGIN
-  KEY "INTERESSI"
-  PROMPT 44 29 ""
-  FIELD R1
-  PICTURE "###.###.###.###~~~"
-  MESSAGE ADD,1@
-END
-
-NUMERO
-BEGIN
-  KEY "TOTALE (a)"
-  PROMPT 62 29 ""
-  PICTURE "###.###.###.###~~~"
-  MESSAGE COPY,2@
-  GROUP 1
-END
-
-STRINGA
-BEGIN
-  KEY "CODICE TRIBUTO SOPRATASSA"
-  PROMPT 5 35 ""
-  FIELD S3
-END
-
-NUMERO
-BEGIN
-  KEY "GRUPPO SOPRATASSA"
-  PROMPT 12 35 ""
-  FIELD I3
-END
-
-NUMERO
-BEGIN
-  KEY "IMPORTO (b)"
-  PROMPT 22 35 ""
-  FIELD R2
-  PICTURE "###.###.###.###~~~"
-  MESSAGE ADD,2@
-END
-
-NUMERO
-BEGIN
-  KEY "TOTALE DA VERSARE (a+b)"
-  PROMPT 62 40 ""
-  PICTURE "###.###.###.###~~~"
-  GROUP 2
-END
-
-STRINGA
-BEGIN
-  KEY "CODICE CONTRIBUENTE Dichiarante"
-  PROMPT 2 53 "# # # # # # # # # # # # # # #"
-  FIELD 16@->CODCONTR
-END
-
-STRINGA
-BEGIN
-  KEY "CODICE CONTRIBUENTE Coniuge"
-  PROMPT 2 56 "# # # # # # # # # # # # # # #"
-  FIELD 26@->CODCONTR
-END
-
-STRINGA
-BEGIN
-  KEY "CENTRO SERVIZI: Provincia e Denominazione"
-  PROMPT 42 56 ""
-  MESSAGE _CENSERoUFFIMP,16@,213@
-END
-
-DATA
-BEGIN
- KEY "DATA: giorno - mese - anno"
- PROMPT 12 60 ""
- PICTURE "@ @~@ @~~~@ @"
- FIELD D0
-END
-
-END
-
-END
+// Distinte di versamento Quadro K 7xx
+
+USE %SKX
+
+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 ALIAS 14 INTO CODTAB=S9
+
+END
+
+SECTION BODY 0 66 0 0
+
+STRINGA
+BEGIN
+ KEY "CONCESSIONE DI"
+ PROMPT 40 5 ""
+ FIELD 14->S0
+END
+
+GRUPPO
+BEGIN
+  KEY "DATI DICHIARANTE (ALIAS 16 e 18)"
+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 (ALIAS 26 e 28)"
+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 "PERIODO DI RIFERIMENTO 1"
+  PROMPT 43 25 ""
+  FIELD I0   
+  PICTURE "# #"
+END
+
+NUMERO
+BEGIN
+  KEY "PERIODO DI RIFERIMENTO 2"
+  PROMPT 53 25 ""
+  FIELD I1
+  PICTURE "# #"
+END
+
+STRINGA
+BEGIN
+  KEY "CODICE TRIBUTO"
+  PROMPT 5 29 ""
+  FIELD S2
+END
+
+NUMERO
+BEGIN
+  KEY "GRUPPO"
+  PROMPT 16 29 ""
+  FIELD I2
+END
+
+NUMERO
+BEGIN
+  KEY "IMPORTO TRIBUTO"
+  PROMPT 27 29 ""
+  FIELD R0
+  PICTURE "###.###.###.###~~~"
+  MESSAGE COPY,1@
+END
+
+NUMERO
+BEGIN
+  KEY "INTERESSI"
+  PROMPT 44 29 ""
+  FIELD R1
+  PICTURE "###.###.###.###~~~"
+  MESSAGE ADD,1@
+END
+
+NUMERO
+BEGIN
+  KEY "TOTALE (a)"
+  PROMPT 62 29 ""
+  PICTURE "###.###.###.###~~~"
+  MESSAGE COPY,2@
+  GROUP 1
+END
+
+STRINGA
+BEGIN
+  KEY "CODICE TRIBUTO SOPRATASSA"
+  PROMPT 5 35 ""
+  FIELD S3
+END
+
+NUMERO
+BEGIN
+  KEY "GRUPPO SOPRATASSA"
+  PROMPT 12 35 ""
+  FIELD I3
+END
+
+NUMERO
+BEGIN
+  KEY "IMPORTO (b)"
+  PROMPT 22 35 ""
+  FIELD R2
+  PICTURE "###.###.###.###~~~"
+  MESSAGE ADD,2@
+END
+
+NUMERO
+BEGIN
+  KEY "TOTALE DA VERSARE (a+b)"
+  PROMPT 62 40 ""
+  PICTURE "###.###.###.###~~~"
+  GROUP 2
+END
+
+STRINGA
+BEGIN
+  KEY "CODICE CONTRIBUENTE Dichiarante"
+  PROMPT 2 53 "# # # # # # # # # # # # # # #"
+  FIELD 16@->CODCONTR
+END
+
+STRINGA
+BEGIN
+  KEY "CODICE CONTRIBUENTE Coniuge"
+  PROMPT 2 56 "# # # # # # # # # # # # # # #"
+  FIELD 26@->CODCONTR
+END
+
+STRINGA
+BEGIN
+  KEY "CENTRO SERVIZI: Provincia e Denominazione"
+  PROMPT 42 56 ""
+  MESSAGE _CENSERoUFFIMP,16@,213@
+END
+
+DATA
+BEGIN
+ KEY "DATA: giorno - mese - anno"
+ PROMPT 12 60 ""
+ PICTURE "@ @~@ @~~~@ @"
+ FIELD D0
+END
+
+END
+
+END