Cambiati i nomi ai forms:

DISTITCF   =>  DISIVACF
DISSKX     =>  DISGEN
DISSD6     =>  DISIRG
DELSII     =>  DELIRF
DELSDI     =>  DELIIRCF
DISSDI     =>  DISIIRCF
DELSDR     =>  DELRITCF
DISSDR     =>  DISRITCF
BOLTITCF   =>  BOLIVACF


git-svn-id: svn://10.65.10.50/trunk@1639 c028cbd2-c16b-5b4b-a496-9718f37d4682

ba/bolivacf.frm

@@ -0,0 +1,376 @@
+USE %DEL
+JOIN 9 INTO CODDITTA=CODTAB[1,5]
+JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN 8 TO 9 INTO CODANAGR=CODANAGR
+JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
+JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
+JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC
+
+END
+
+SECTION BODY ODD 24 0 0
+
+GROUP
+BEGIN
+  KEY "Prima sezione"
+END  
+
+NUMERO
+BEGIN
+  KEY "IMPORTO TRIBUTO"
+  PROMPT 2 13 ""
+  MESSAGE COPY,10@
+  PICTURE "###.###.###^^^"
+  FIELD R0
+END
+
+NUMERO
+BEGIN
+  KEY "INTERESSI"
+  PROMPT 12 13 ""
+  MESSAGE ADD,10@
+  PICTURE "###.###.###^^^"
+  FIELD R1
+END
+
+NUMERO
+BEGIN
+  KEY "TOTALE (in basso)"
+  PROMPT 19 13 ""
+  GROUP  10
+  PICTURE "###.###.###^^^"
+END
+
+NUMERO
+BEGIN
+  KEY "TOTALE (in alto)"
+  PROMPT 19 2 ""
+  GROUP  10
+  PICTURE "###.###.###^^^"
+END
+
+NUMERO
+BEGIN
+  KEY "TOTALE (in lettere)"
+  PROMPT 2 3 ""
+  GROUP  10
+  PICTURE "LETTERE"
+END
+
+STRINGA
+BEGIN
+  KEY "sul C/C n."
+  PROMPT 6 4 ""
+  FIELD 14@->S5
+END
+
+STRINGA
+BEGIN
+  KEY "Concessione di"
+  PROMPT 10 5 ""
+  FIELD 14@->S0
+END
+
+STRINGA 
+BEGIN
+  KEY "Eseguito da"
+  PROMPT 7 6 ""
+  FIELD 6->RAGSOC[1,22]
+END
+
+NUMERO
+BEGIN
+  KEY "Codice Concessione"
+  PROMPT 8 9 ""
+  FIELD 14@->CODTAB
+END
+
+STRINGA
+BEGIN
+  KEY "Codice fiscale"
+  PROMPT 12 9 ""
+  FIELD 6->COFI
+END
+
+STRING
+BEGIN
+  KEY "CODICE TRIBUTO"
+  PROMPT 9 11 ""
+  FIELD S6
+END
+
+STRING
+BEGIN
+  KEY "PERIODO DI RIFERIMENTO"
+  PROMPT 20 11 ""
+  FIELD CODTAB[6,9]
+END
+
+GROUP
+BEGIN
+  KEY "Seconda sezione"
+END  
+
+NUMERO
+BEGIN
+ KEY "IMPORTO TRIBUTO"
+ PROMPT 2 47 ""
+ PICTURE "###.###.###^^^"
+ FIELD R0
+END
+
+NUMERO
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 12 47 ""
+ PICTURE "###.###.###^^^"
+ FIELD R1
+END
+
+NUMERO
+BEGIN
+ KEY "TOTALE (in basso)"
+ PROMPT 19 47 ""
+ GROUP  10
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO
+BEGIN
+ KEY "TOTALE (in alto)"
+ PROMPT 19 45 ""
+ GROUP  10
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO
+BEGIN
+ KEY "TOTALE (in lettere)"
+ PROMPT 2 45 ""
+ GROUP  10
+ PICTURE "LETTERE"
+END
+
+STRINGA
+BEGIN
+  KEY "sul C/C n."
+  PROMPT 6 38 ""
+  FIELD 14@->S5
+END
+
+STRINGA
+BEGIN
+  KEY "Concessione di"
+  PROMPT 10 39 ""
+  FIELD 14@->S0
+END
+
+STRINGA 
+BEGIN
+ KEY "Eseguito da"
+ PROMPT 7 40 ""
+ FIELD 6->RAGSOC[1,22]
+END
+
+NUMERO
+BEGIN
+  KEY "Codice Concessione"
+  PROMPT 8 43 ""
+  FIELD 14@->CODTAB
+END
+
+STRINGA
+BEGIN
+ KEY "Codice fiscale"
+ PROMPT 12 43 ""
+ FIELD 6->COFI
+END
+
+STRING
+BEGIN
+  KEY "CODICE TRIBUTO"
+  PROMPT 9 45 ""
+  FIELD S6
+END
+
+STRING
+BEGIN
+  KEY "PERIODO DI RIFERIMENTO"
+  PROMPT 20 56 ""
+  FIELD CODTAB[6,9]
+END
+
+GROUP
+BEGIN
+  KEY "Terza sezione"
+END  
+
+NUMERO
+BEGIN
+ KEY "TOTALE (in lettere)"
+ PROMPT 70 3 ""
+ GROUP  10
+ PICTURE "LETTERE"
+END
+
+NUMERO
+BEGIN
+ KEY "TOTALE (in alto)"
+ PROMPT 110 3 ""
+ GROUP  10
+ PICTURE "###.###.###^^^"
+END
+
+STRINGA
+BEGIN
+  KEY "sul C/C n."
+  PROMPT 70 4 ""
+  FIELD 14@->S5
+END
+
+STRINGA
+BEGIN
+  KEY "Concessione di"
+  PROMPT 74 5 ""
+  FIELD 14@->S0
+END
+
+STRINGA 
+BEGIN
+ KEY "Eseguito da (1)"
+ PROMPT 72 6 ""
+ FIELD 6->RAGSOC[1,30]
+END
+
+STRINGA 
+BEGIN
+ KEY "Eseguito da (2)"
+ PROMPT 102 6 ""
+ FIELD 6->RAGSOC[31,50]
+END
+
+LISTA
+BEGIN
+ KEY "Tipo anagrafica"
+ FIELD 6->TIPOA
+ ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
+ ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
+END
+
+DATA
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 68 7 ""
+ GROUP  1
+ FLAGS "D"
+ PICTURE "# # ^ # # ^ ^ # # #"
+ FIELD 8->DATANASC
+END
+
+STRINGA
+BEGIN
+ KEY "COMUNE (o Stato estero) DI NASCITA"
+ PROMPT 84 7 ""
+ GROUP  1
+ FLAGS "D"
+ FIELD 113@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "PROV. DI NASCITA (sigla)"
+ PROMPT 123 7 ""
+ GROUP  1
+ FLAGS "D"
+ FIELD 113@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "SESSO (M o F)"
+ PROMPT 127 7 ""
+ GROUP  1
+ FLAGS "D"
+ FIELD 8->SESSO
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: COMUNE"
+ PROMPT 65 8 ""
+ FIELD 213@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: VIA"
+ PROMPT 85 8 ""
+ FIELD 6->INDRF
+ FIELD 6->INDRES
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: NUMERO CIVICO"
+ PROMPT 124 8 ""
+ FIELD 6->CIVRF
+ FIELD 6->CIVRES
+END
+
+STRING
+BEGIN
+  KEY "CODICE TRIBUTO"
+  PROMPT 68 13 ""
+  PICTURE "# # # #"
+  FIELD S6
+END
+
+STRING
+BEGIN
+  KEY "PERIODO DI RIFERIMENTO"
+  PROMPT 80 13 ""
+  FIELD CODTAB[6,9]
+END
+
+NUMERO
+BEGIN
+  KEY "Codice Concessione"
+  PROMPT 92 13 ""
+  PICTURE "# # #"
+  FIELD 14@->CODTAB
+END
+
+STRINGA
+BEGIN
+ KEY "Codice fiscale"
+ PROMPT 100 13 "" 
+ PICTURE "# # # # # # # # # # # # # # # #"
+ FIELD 6->COFI
+END
+
+STRINGA
+BEGIN
+ KEY "Partita IVA"
+ PROMPT 109 15 "" 
+ PICTURE "# # # # # # # # # # #"
+ FIELD 6->PAIV
+END
+
+NUMERO
+BEGIN
+ KEY "IMPORTO TRIBUTO"
+ PROMPT 109 17 ""
+ PICTURE "# # # # # # # #^^^"
+ FIELD R0
+END
+
+NUMERO
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 109 19 ""
+ PICTURE "# # # # # # # #^^^"
+ FIELD R1
+END
+
+END
+

ba/deliircf.frm

@@ -0,0 +1,824 @@
+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 ODD 63 0 0
+
+STRINGA 1
+BEGIN
+ KEY "Azienda di credito"
+ PROMPT 45 7 ""
+ FIELD 14@->S0
+END
+
+STRINGA 2
+BEGIN
+ KEY "Dipendenza"
+ PROMPT 45 9 ""
+ FIELD 24@->S0
+END
+
+STRINGA 3
+BEGIN
+ KEY "PROVINCIA Dipendenza"
+ PROMPT 77 9 ""
+ FIELD 313@->PROVCOM
+END
+
+STRINGA 4
+BEGIN
+ KEY "COD. CONCESS."
+ PROMPT 13 12 ""
+ FIELD S9
+END
+
+STRINGA 5
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 19 12 ""
+ FIELD 6->COFI
+END
+
+STRINGA 6
+BEGIN
+ KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
+ PROMPT 5 16 ""
+ FIELD 6->RAGSOC[1,30]
+END
+
+STRINGA 7
+BEGIN
+ KEY "NOME"
+ PROMPT 57 16 ""
+ FIELD 6->RAGSOC[31,-1]
+END
+
+LISTA 8
+BEGIN
+ KEY "Tipo anagrafica"
+ FIELD 6->TIPOA
+ ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
+ ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
+END
+
+GRUPPO -1
+BEGIN
+ KEY "Persone fisiche"
+ PROMPT 0 0 ""
+ GROUP  1
+END
+
+DATA 10
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 5 18 ""
+ GROUP  1
+ PICTURE "# #^# #^^# # #"
+ FIELD 8->DATANASC
+ FORMAT "1444-"
+END
+
+STRINGA 11
+BEGIN
+ KEY "SESSO (M o F)"
+ PROMPT 23 18 ""
+ GROUP  1
+ FIELD 8->SESSO
+END
+
+STRINGA 12
+BEGIN
+ KEY "COMUNE (o Stato estero) DI NASCITA"
+ PROMPT 28 18 ""
+ GROUP  1
+ FIELD 113@->DENCOM
+END
+
+STRINGA 13
+BEGIN
+ KEY "PROV. DI NASCITA (sigla)"
+ PROMPT 74 18 ""
+ GROUP  1
+ FIELD 113@->PROVCOM
+END
+
+STRINGA 14
+BEGIN
+ KEY "DOMICILIO FISCALE: COMUNE"
+ PROMPT 12 20 ""
+ FIELD 213@->DENCOM
+END
+
+STRINGA 15
+BEGIN
+ KEY "DOMICILIO FISCALE: PROV. (sigla)"
+ PROMPT 40 20 ""
+ FIELD 213@->PROVCOM
+END
+
+STRINGA 16
+BEGIN
+ KEY "DOMICILIO FISCALE: VIA"
+ PROMPT 45 20 ""
+ FIELD 6->INDRF
+ FIELD 6->INDRES
+END
+
+STRINGA 17
+BEGIN
+ KEY "DOMICILIO FISCALE: NUMERO CIVICO"
+ PROMPT 74 20 ""
+ FIELD 6->CIVRF
+ FIELD 6->CIVRES
+END
+
+LISTA 18
+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 -1
+BEGIN
+ KEY "Righe Persone Fisiche"
+ PROMPT 0 0 ""
+ GROUP  6
+END
+
+NUMERO 20
+BEGIN
+ KEY "IRPEF 4007: PERIODO AA (1)"
+ PROMPT 24 26 ""
+ GROUP  6
+ FIELD I0
+END
+
+NUMERO 21
+BEGIN
+ KEY "IRPEF 4007: PERIODO AA (2)"
+ PROMPT 27 26 ""
+ GROUP  6
+ FIELD I1
+END
+
+NUMERO 22
+BEGIN
+ KEY "IRPEF 4007: IMPOSTA"
+ PROMPT 32 26 ""
+ GROUP  6
+ MESSAGE COPY,10@
+ PICTURE "###.###.###^^^"
+ FIELD R0
+END
+
+NUMERO 23
+BEGIN
+ KEY "IRPEF 4007: INTERESSI"
+ PROMPT 46 26 ""
+ GROUP  6
+ MESSAGE ADD,10@
+ PICTURE "###.###.###^^^"
+ FIELD R7
+END
+
+NUMERO 24
+BEGIN
+ KEY "IRPEF 4007: TOTALE"
+ PROMPT 64 26 ""
+ GROUP  6 10
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 25
+BEGIN
+ KEY "IRPEF 4001: PERIODO AA (1)"
+ PROMPT 24 28 ""
+ GROUP  6
+ FIELD I2
+END
+
+NUMERO 26
+BEGIN
+ KEY "IRPEF 4001: PERIODO AA (2)"
+ PROMPT 27 28 ""
+ GROUP  6
+ FIELD I3
+END
+
+NUMERO 27
+BEGIN
+ KEY "IRPEF 4001: IMPOSTA"
+ PROMPT 32 28 ""
+ GROUP  6
+ MESSAGE COPY,11@
+ PICTURE "###.###.###^^^"
+ FIELD R1
+END
+
+NUMERO 28
+BEGIN
+ KEY "IRPEF 4001: INTERESSI"
+ PROMPT 46 28 ""
+ GROUP  6
+ MESSAGE ADD,11@
+ PICTURE "###.###.###^^^"
+ FIELD R8
+END
+
+NUMERO 29
+BEGIN
+ KEY "IRPEF 4001: TOTALE"
+ PROMPT 64 28 ""
+ GROUP  6 11
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 30
+BEGIN
+ KEY "ILOR 3353: PERIODO AA (1)"
+ PROMPT 24 30 ""
+ GROUP  6
+ FIELD I2
+END
+
+NUMERO 31
+BEGIN
+ KEY "ILOR 3353: PERIODO AA (2)"
+ PROMPT 27 30 ""
+ GROUP  6
+ FIELD I3
+END
+
+NUMERO 32
+BEGIN
+ KEY "ILOR 3353: IMPOSTA"
+ PROMPT 32 30 ""
+ GROUP  6
+ MESSAGE COPY,12@
+ PICTURE "###.###.###^^^"
+ FIELD R2
+END
+
+NUMERO 33
+BEGIN
+ KEY "ILOR 3353: INTERESSI"
+ PROMPT 46 30 ""
+ GROUP  6
+ MESSAGE ADD,12@
+ PICTURE "###.###.###^^^"
+ FIELD R9
+END
+
+NUMERO 34
+BEGIN
+ KEY "IRPEF 3353: TOTALE"
+ PROMPT 64 30 ""
+ GROUP  6 12
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 35
+BEGIN
+ KEY "ILOR 3350: PERIODO AA (1)"
+ PROMPT 24 32 ""
+ GROUP  6
+ FIELD I6
+END
+
+NUMERO 36
+BEGIN
+ KEY "ILOR 3350: PERIODO AA (2)"
+ PROMPT 27 32 ""
+ GROUP  6
+ FIELD I7
+END
+
+NUMERO 37
+BEGIN
+ KEY "ILOR 3350: IMPOSTA"
+ PROMPT 32 32 ""
+ GROUP  6
+ MESSAGE COPY,13@
+ PICTURE "###.###.###^^^"
+ FIELD R3
+END
+
+NUMERO 38
+BEGIN
+ KEY "ILOR 3350: INTERESSI"
+ PROMPT 46 32 ""
+ GROUP  6
+ MESSAGE ADD,13@
+ PICTURE "###.###.###^^^"
+ FIELD R10
+END
+
+NUMERO 39
+BEGIN
+ KEY "ILOR 3350: TOTALE"
+ PROMPT 64 32 ""
+ GROUP  6 13
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+GRUPPO -1
+BEGIN
+ KEY "Righe Persone Giuridiche"
+ PROMPT 0 0 ""
+ GROUP  7
+ FLAGS "DH"
+END
+
+NUMERO 41
+BEGIN
+ KEY "IRPEG 2110: PERIODO AA (1)"
+ PROMPT 24 34 ""
+ GROUP  7
+ FLAGS "DH"
+ FIELD I0
+END
+
+NUMERO 42
+BEGIN
+ KEY "IRPEG 2110: PERIODO AA (2)"
+ PROMPT 27 34 ""
+ GROUP  7
+ FLAGS "DH"
+ FIELD I1
+END
+
+NUMERO 43
+BEGIN
+ KEY "IRPEG 2110: IMPOSTA"
+ PROMPT 32 34 ""
+ GROUP  7
+ FLAGS "DH"
+ MESSAGE COPY,10@
+ PICTURE "###.###.###^^^"
+ FIELD R0
+END
+
+NUMERO 44
+BEGIN
+ KEY "IRPEG 2110: INTERESSI"
+ PROMPT 46 34 ""
+ GROUP  7
+ FLAGS "DH"
+ MESSAGE ADD,10@
+ PICTURE "###.###.###^^^"
+ FIELD R7
+END
+
+NUMERO 45
+BEGIN
+ KEY "IRPEG 2110: TOTALE"
+ PROMPT 64 34 ""
+ GROUP  7 10
+ FLAGS "DH"
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 46
+BEGIN
+ KEY "IRPEG 2100: PERIODO AA (1)"
+ PROMPT 24 36 ""
+ GROUP  7
+ FLAGS "DH"
+ FIELD I2
+END
+
+NUMERO 47
+BEGIN
+ KEY "IRPEG 2100: PERIODO AA (2)"
+ PROMPT 27 36 ""
+ GROUP  7
+ FLAGS "DH"
+ FIELD I3
+END
+
+NUMERO 48
+BEGIN
+ KEY "IRPEG 2100: IMPOSTA"
+ PROMPT 32 36 ""
+ GROUP  7
+ FLAGS "DH"
+ MESSAGE COPY,11@
+ PICTURE "###.###.###^^^"
+ FIELD R1
+END
+
+NUMERO 49
+BEGIN
+ KEY "IRPEG 2100: INTERESSI"
+ PROMPT 46 36 ""
+ GROUP  7
+ FLAGS "DH"
+ MESSAGE ADD,11@
+ PICTURE "###.###.###^^^"
+ FIELD R8
+END
+
+NUMERO 50
+BEGIN
+ KEY "IRPEG 2100: TOTALE"
+ PROMPT 64 36 ""
+ GROUP  7 11
+ FLAGS "DH"
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 51
+BEGIN
+ KEY "ILOR 3110: PERIODO AA (1)"
+ PROMPT 24 38 ""
+ GROUP  7
+ FLAGS "DH"
+ FIELD I2
+END
+
+NUMERO 52
+BEGIN
+ KEY "ILOR 3110: PERIODO AA (2)"
+ PROMPT 27 38 ""
+ GROUP  7
+ FLAGS "DH"
+ FIELD I3
+END
+
+NUMERO 53
+BEGIN
+ KEY "ILOR 3110: IMPOSTA"
+ PROMPT 32 38 ""
+ GROUP  7
+ FLAGS "DH"
+ MESSAGE COPY,12@
+ PICTURE "###.###.###^^^"
+ FIELD R2
+END
+
+NUMERO 54
+BEGIN
+ KEY "ILOR 3110: INTERESSI"
+ PROMPT 46 38 ""
+ GROUP  7
+ FLAGS "DH"
+ MESSAGE ADD,12@
+ PICTURE "###.###.###^^^"
+ FIELD R9
+END
+
+NUMERO 55
+BEGIN
+ KEY "IRPEF 3110: TOTALE"
+ PROMPT 64 38 ""
+ GROUP  7 12
+ FLAGS "DH"
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 56
+BEGIN
+ KEY "ILOR 3000: PERIODO AA (1)"
+ PROMPT 24 40 ""
+ GROUP  7
+ FLAGS "DH"
+ FIELD I6
+END
+
+NUMERO 57
+BEGIN
+ KEY "ILOR 3000: PERIODO AA (2)"
+ PROMPT 27 40 ""
+ GROUP  7
+ FLAGS "DH"
+ FIELD I7
+END
+
+NUMERO 58
+BEGIN
+ KEY "ILOR 3000: IMPOSTA"
+ PROMPT 32 40 ""
+ GROUP  7
+ FLAGS "DH"
+ MESSAGE COPY,13@
+ PICTURE "###.###.###^^^"
+ FIELD R3
+END
+
+NUMERO 59
+BEGIN
+ KEY "ILOR 3000: INTERESSI"
+ PROMPT 46 40 ""
+ GROUP  7
+ FLAGS "DH"
+ MESSAGE ADD,13@
+ PICTURE "###.###.###^^^"
+ FIELD R10
+END
+
+NUMERO 60
+BEGIN
+ KEY "ILOR 3000: TOTALE"
+ PROMPT 64 40 ""
+ GROUP  7 13
+ FLAGS "DH"
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+GRUPPO -1
+BEGIN
+ KEY "Righe Societa' di Persone"
+ PROMPT 0 0 ""
+ GROUP  8
+ FLAGS "DH"
+END
+
+NUMERO 62
+BEGIN
+ KEY "ILOR 3303: PERIODO AA (1)"
+ PROMPT 24 42 ""
+ GROUP  8
+ FLAGS "DH"
+ FIELD I4
+END
+
+NUMERO 63
+BEGIN
+ KEY "ILOR 3303: PERIODO AA (2)"
+ PROMPT 27 42 ""
+ GROUP  8
+ FLAGS "DH"
+ FIELD I5
+END
+
+NUMERO 64
+BEGIN
+ KEY "ILOR 3303: IMPOSTA"
+ PROMPT 32 42 ""
+ GROUP  8
+ FLAGS "DH"
+ MESSAGE COPY,12@
+ PICTURE "###.###.###^^^"
+ FIELD R2
+END
+
+NUMERO 65
+BEGIN
+ KEY "ILOR 3303: INTERESSI"
+ PROMPT 46 42 ""
+ GROUP  8
+ FLAGS "DH"
+ MESSAGE ADD,12@
+ PICTURE "###.###.###^^^"
+ FIELD R9
+END
+
+NUMERO 66
+BEGIN
+ KEY "ILOR 3303: TOTALE"
+ PROMPT 64 42 ""
+ GROUP  8 12
+ FLAGS "DH"
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 67
+BEGIN
+ KEY "ILOR 3300: PERIODO AA (1)"
+ PROMPT 24 44 ""
+ GROUP  8
+ FLAGS "DH"
+ FIELD I6
+END
+
+NUMERO 68
+BEGIN
+ KEY "ILOR 3300: PERIODO AA (2)"
+ PROMPT 27 44 ""
+ GROUP  8
+ FLAGS "DH"
+ FIELD I7
+END
+
+NUMERO 69
+BEGIN
+ KEY "ILOR 3300: IMPOSTA"
+ PROMPT 32 44 ""
+ GROUP  8
+ FLAGS "DH"
+ MESSAGE COPY,13@
+ PICTURE "###.###.###^^^"
+ FIELD R3
+END
+
+NUMERO 70
+BEGIN
+ KEY "ILOR 3300: INTERESSI"
+ PROMPT 46 44 ""
+ GROUP  8
+ FLAGS "DH"
+ MESSAGE ADD,13@
+ PICTURE "###.###.###^^^"
+ FIELD R10
+END
+
+NUMERO 71
+BEGIN
+ KEY "ILOR 3300: TOTALE"
+ PROMPT 64 44 ""
+ GROUP  8 13
+ FLAGS "DH"
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+GRUPPO -1
+BEGIN
+ KEY "IMPOSTE SOSTITUTIVE E ALTRI CODICI TRIBUTO"
+ PROMPT 0 0 ""
+END
+
+NUMERO 73
+BEGIN
+ KEY "TRIBUTO 1: PERIODO AA (1)"
+ PROMPT 24 50 ""
+ FIELD I8
+END
+
+NUMERO 74
+BEGIN
+ KEY "TRIBUTO 1: PERIODO AA (2)"
+ PROMPT 27 50 ""
+ FIELD I9
+END
+
+NUMERO 75
+BEGIN
+ KEY "TRIBUTO 1: IMPORTO"
+ PROMPT 32 50 ""
+ MESSAGE COPY,14@
+ PICTURE "###.###.###^^^"
+ FIELD R4
+END
+
+NUMERO 76
+BEGIN
+ KEY "TRIBUTO 1: INTERESSI"
+ PROMPT 46 50 ""
+ MESSAGE ADD,14@
+ PICTURE "###.###.###^^^"
+ FIELD R11
+END
+
+NUMERO 77
+BEGIN
+ KEY "TRIBUTO 1: TOTALE"
+ PROMPT 64 50 ""
+ GROUP  14
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 78
+BEGIN
+ KEY "TRIBUTO 2: PERIODO AA (1)"
+ PROMPT 24 52 ""
+ FIELD I10
+END
+
+NUMERO 79
+BEGIN
+ KEY "TRIBUTO 2: PERIODO AA (2)"
+ PROMPT 27 52 ""
+ FIELD I11
+END
+
+NUMERO 80
+BEGIN
+ KEY "TRIBUTO 2: IMPORTO"
+ PROMPT 32 52 ""
+ MESSAGE COPY,15@
+ PICTURE "###.###.###^^^"
+ FIELD R5
+END
+
+NUMERO 81
+BEGIN
+ KEY "TRIBUTO 2: INTERESSI"
+ PROMPT 46 52 ""
+ MESSAGE ADD,15@
+ PICTURE "###.###.###^^^"
+ FIELD R12
+END
+
+NUMERO 82
+BEGIN
+ KEY "TRIBUTO 2: TOTALE"
+ PROMPT 64 52 ""
+ GROUP  15
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 83
+BEGIN
+ KEY "TRIBUTO 3: PERIODO AA (1)"
+ PROMPT 24 54 ""
+ FIELD I12
+END
+
+NUMERO 84
+BEGIN
+ KEY "TRIBUTO 3: PERIODO AA (2)"
+ PROMPT 27 54 ""
+ FIELD I13
+END
+
+NUMERO 85
+BEGIN
+ KEY "TRIBUTO 3: IMPORTO"
+ PROMPT 32 54 ""
+ MESSAGE COPY,16@
+ PICTURE "###.###.###^^^"
+ FIELD R6
+END
+
+NUMERO 86
+BEGIN
+ KEY "TRIBUTO 3: INTERESSI"
+ PROMPT 46 54 ""
+ MESSAGE ADD,16@
+ PICTURE "###.###.###^^^"
+ FIELD R13
+END
+
+NUMERO 87
+BEGIN
+ KEY "TRIBUTO 3: TOTALE"
+ PROMPT 64 54 ""
+ GROUP  16
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 88
+BEGIN
+ KEY "TOTALE (in lettere)"
+ PROMPT 7 57 ""
+ GROUP  9
+ PICTURE "LETTERE"
+END
+
+NUMERO 89
+BEGIN
+ KEY "TOTALE (in cifre)"
+ PROMPT 64 57 ""
+ GROUP  9
+ PICTURE "###.###.###^^^"
+END
+
+DATA 90
+BEGIN
+ KEY "DATA: giorno - mese - anno"
+ PROMPT 49 62 ""
+ PICTURE "@ @^@ @^@ @"
+ FIELD D0
+ FORMAT "1442-"
+END
+
+STRINGA 91
+BEGIN
+ KEY "CODICE AZIENDA"
+ PROMPT 64 62 ""
+ FIELD S7
+END
+
+STRINGA 92
+BEGIN
+ KEY "CODICE DIPENDENZA"
+ PROMPT 74 62 ""
+ FIELD S8
+END
+
+END
+
+END

ba/delirf.frm

@@ -0,0 +1,354 @@
+// Delega di pagamento: IRPEF E/O ILOR (PERSONE FISICHE)
+
+USE %IPF
+
+JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
+JOIN 8 TO 6 ALIAS 18 INTO CODANAGR=CODANAGR
+JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
+JOIN 13 TO 6 ALIAS 213 INTO COM=COMRES
+
+JOIN 6 ALIAS 26 INTO TIPOA=S1[1,1] CODANAGR=S1[2,6]
+JOIN 8 TO 6 ALIAS 28 INTO CODANAGR=CODANAGR
+JOIN 13 TO 8 ALIAS 313 INTO COM=COMNASC
+
+JOIN %BAN ALIAS 14 INTO CODTAB=S7
+JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
+JOIN 13 TO 24@ ALIAS 413 INTO COM=S5
+
+JOIN %UCS TO 213@ ALIAS 34 INTO CODTAB=CENSER
+JOIN 13 TO 34@ ALIAS 513 INTO COM=S6
+
+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

ba/delritcf.frm

@@ -0,0 +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

ba/disgen.frm

@@ -0,0 +1,300 @@
+// 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

ba/disiircf.frm

@@ -0,0 +1,803 @@
+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
+
+DESCRIPTION
+BEGIN
+  %SDI->* "Tabella deleghe IRPEF"
+  14@->* "Tabella Centro Servizi"
+  6->* "Anagrafica persone fisiche e giuridiche"
+  8->* "Anagrafica persone fisiche"
+  113@->* "Comune di nascita"
+  213@->* "Comune di residenza fiscale"
+END
+
+SECTION BODY ODD 63 0 0
+
+STRINGA 1
+BEGIN
+ KEY "CONCESSIONE DI"
+ PROMPT 32 6 ""
+ FIELD 14@->S0
+END
+
+STRINGA 4
+BEGIN
+ KEY "COD. CONCESS."
+ PROMPT 13 12 ""
+ FIELD S9
+END
+
+STRINGA 5
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 19 12 ""
+ FIELD 6->COFI
+END
+
+STRINGA 6
+BEGIN
+ KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
+ PROMPT 5 16 ""
+ FIELD 6->RAGSOC[1,30]
+END
+
+STRINGA 7
+BEGIN
+ KEY "NOME"
+ PROMPT 57 16 ""
+ FIELD 6->RAGSOC[31,-1]
+END
+
+LISTA 8
+BEGIN
+ KEY "Tipo anagrafica"
+ FIELD 6->TIPOA
+ ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
+ ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
+END
+
+GRUPPO -1
+BEGIN
+ KEY "Persone fisiche"
+ PROMPT 0 0 ""
+ GROUP  1
+END
+
+DATA 10
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 5 18 ""
+ GROUP  1
+ PICTURE "# #^# #^^# # #"
+ FIELD 8->DATANASC
+ FORMAT "1444-"
+END
+
+STRINGA 11
+BEGIN
+ KEY "SESSO (M o F)"
+ PROMPT 23 18 ""
+ GROUP  1
+ FIELD 8->SESSO
+END
+
+STRINGA 12
+BEGIN
+ KEY "COMUNE (o Stato estero) DI NASCITA"
+ PROMPT 28 18 ""
+ GROUP  1
+ FIELD 113@->DENCOM
+END
+
+STRINGA 13
+BEGIN
+ KEY "PROV. DI NASCITA (sigla)"
+ PROMPT 74 18 ""
+ GROUP  1
+ FIELD 113@->PROVCOM
+END
+
+STRINGA 14
+BEGIN
+ KEY "DOMICILIO FISCALE: COMUNE"
+ PROMPT 12 20 ""
+ FIELD 213@->DENCOM
+END
+
+STRINGA 15
+BEGIN
+ KEY "DOMICILIO FISCALE: PROV. (sigla)"
+ PROMPT 40 20 ""
+ FIELD 213@->PROVCOM
+END
+
+STRINGA 16
+BEGIN
+ KEY "DOMICILIO FISCALE: VIA"
+ PROMPT 45 20 ""
+ FIELD 6->INDRF
+ FIELD 6->INDRES
+END
+
+STRINGA 17
+BEGIN
+ KEY "DOMICILIO FISCALE: NUMERO CIVICO"
+ PROMPT 74 20 ""
+ FIELD 6->CIVRF
+ FIELD 6->CIVRES
+END
+
+LISTA 18
+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 -1
+BEGIN
+ KEY "Righe Persone Fisiche"
+ PROMPT 0 0 ""
+ GROUP  6
+END
+
+NUMERO 20
+BEGIN
+ KEY "IRPEF 4007: PERIODO AA (1)"
+ PROMPT 24 26 ""
+ GROUP  6
+ FIELD I0
+END
+
+NUMERO 21
+BEGIN
+ KEY "IRPEF 4007: PERIODO AA (2)"
+ PROMPT 27 26 ""
+ GROUP  6
+ FIELD I1
+END
+
+NUMERO 22
+BEGIN
+ KEY "IRPEF 4007: IMPOSTA"
+ PROMPT 32 26 ""
+ GROUP  6
+ MESSAGE COPY,10@
+ PICTURE "###.###.###^^^"
+ FIELD R0
+END
+
+NUMERO 23
+BEGIN
+ KEY "IRPEF 4007: INTERESSI"
+ PROMPT 46 26 ""
+ GROUP  6
+ MESSAGE ADD,10@
+ PICTURE "###.###.###^^^"
+ FIELD R7
+END
+
+NUMERO 24
+BEGIN
+ KEY "IRPEF 4007: TOTALE"
+ PROMPT 64 26 ""
+ GROUP  6 10
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 25
+BEGIN
+ KEY "IRPEF 4001: PERIODO AA (1)"
+ PROMPT 24 28 ""
+ GROUP  6
+ FIELD I2
+END
+
+NUMERO 26
+BEGIN
+ KEY "IRPEF 4001: PERIODO AA (2)"
+ PROMPT 27 28 ""
+ GROUP  6
+ FIELD I3
+END
+
+NUMERO 27
+BEGIN
+ KEY "IRPEF 4001: IMPOSTA"
+ PROMPT 32 28 ""
+ GROUP  6
+ MESSAGE COPY,11@
+ PICTURE "###.###.###^^^"
+ FIELD R1
+END
+
+NUMERO 28
+BEGIN
+ KEY "IRPEF 4001: INTERESSI"
+ PROMPT 46 28 ""
+ GROUP  6
+ MESSAGE ADD,11@
+ PICTURE "###.###.###^^^"
+ FIELD R8
+END
+
+NUMERO 29
+BEGIN
+ KEY "IRPEF 4001: TOTALE"
+ PROMPT 64 28 ""
+ GROUP  6 11
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 30
+BEGIN
+ KEY "ILOR 3353: PERIODO AA (1)"
+ PROMPT 24 30 ""
+ GROUP  6
+ FIELD I2
+END
+
+NUMERO 31
+BEGIN
+ KEY "ILOR 3353: PERIODO AA (2)"
+ PROMPT 27 30 ""
+ GROUP  6
+ FIELD I3
+END
+
+NUMERO 32
+BEGIN
+ KEY "ILOR 3353: IMPOSTA"
+ PROMPT 32 30 ""
+ GROUP  6
+ MESSAGE COPY,12@
+ PICTURE "###.###.###^^^"
+ FIELD R2
+END
+
+NUMERO 33
+BEGIN
+ KEY "ILOR 3353: INTERESSI"
+ PROMPT 46 30 ""
+ GROUP  6
+ MESSAGE ADD,12@
+ PICTURE "###.###.###^^^"
+ FIELD R9
+END
+
+NUMERO 34
+BEGIN
+ KEY "IRPEF 3353: TOTALE"
+ PROMPT 64 30 ""
+ GROUP  6 12
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 35
+BEGIN
+ KEY "ILOR 3350: PERIODO AA (1)"
+ PROMPT 24 32 ""
+ GROUP  6
+ FIELD I6
+END
+
+NUMERO 36
+BEGIN
+ KEY "ILOR 3350: PERIODO AA (2)"
+ PROMPT 27 32 ""
+ GROUP  6
+ FIELD I7
+END
+
+NUMERO 37
+BEGIN
+ KEY "ILOR 3350: IMPOSTA"
+ PROMPT 32 32 ""
+ GROUP  6
+ MESSAGE COPY,13@
+ PICTURE "###.###.###^^^"
+ FIELD R3
+END
+
+NUMERO 38
+BEGIN
+ KEY "ILOR 3350: INTERESSI"
+ PROMPT 46 32 ""
+ GROUP  6
+ MESSAGE ADD,13@
+ PICTURE "###.###.###^^^"
+ FIELD R10
+END
+
+NUMERO 39
+BEGIN
+ KEY "ILOR 3350: TOTALE"
+ PROMPT 64 32 ""
+ GROUP  6 13
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+GRUPPO -1
+BEGIN
+ KEY "Righe Persone Giuridiche"
+ PROMPT 0 0 ""
+ GROUP  7
+ FLAGS "DH"
+END
+
+NUMERO 41
+BEGIN
+ KEY "IRPEG 2110: PERIODO AA (1)"
+ PROMPT 24 34 ""
+ GROUP  7
+ FLAGS "DH"
+ FIELD I0
+END
+
+NUMERO 42
+BEGIN
+ KEY "IRPEG 2110: PERIODO AA (2)"
+ PROMPT 27 34 ""
+ GROUP  7
+ FLAGS "DH"
+ FIELD I1
+END
+
+NUMERO 43
+BEGIN
+ KEY "IRPEG 2110: IMPOSTA"
+ PROMPT 32 34 ""
+ GROUP  7
+ FLAGS "DH"
+ MESSAGE COPY,10@
+ PICTURE "###.###.###^^^"
+ FIELD R0
+END
+
+NUMERO 44
+BEGIN
+ KEY "IRPEG 2110: INTERESSI"
+ PROMPT 46 34 ""
+ GROUP  7
+ FLAGS "DH"
+ MESSAGE ADD,10@
+ PICTURE "###.###.###^^^"
+ FIELD R7
+END
+
+NUMERO 45
+BEGIN
+ KEY "IRPEG 2110: TOTALE"
+ PROMPT 64 34 ""
+ GROUP  7 10
+ FLAGS "DH"
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 46
+BEGIN
+ KEY "IRPEG 2100: PERIODO AA (1)"
+ PROMPT 24 36 ""
+ GROUP  7
+ FLAGS "DH"
+ FIELD I2
+END
+
+NUMERO 47
+BEGIN
+ KEY "IRPEG 2100: PERIODO AA (2)"
+ PROMPT 27 36 ""
+ GROUP  7
+ FLAGS "DH"
+ FIELD I3
+END
+
+NUMERO 48
+BEGIN
+ KEY "IRPEG 2100: IMPOSTA"
+ PROMPT 32 36 ""
+ GROUP  7
+ FLAGS "DH"
+ MESSAGE COPY,11@
+ PICTURE "###.###.###^^^"
+ FIELD R1
+END
+
+NUMERO 49
+BEGIN
+ KEY "IRPEG 2100: INTERESSI"
+ PROMPT 46 36 ""
+ GROUP  7
+ FLAGS "DH"
+ MESSAGE ADD,11@
+ PICTURE "###.###.###^^^"
+ FIELD R8
+END
+
+NUMERO 50
+BEGIN
+ KEY "IRPEG 2100: TOTALE"
+ PROMPT 64 36 ""
+ GROUP  7 11
+ FLAGS "DH"
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 51
+BEGIN
+ KEY "ILOR 3110: PERIODO AA (1)"
+ PROMPT 24 38 ""
+ GROUP  7
+ FLAGS "DH"
+ FIELD I2
+END
+
+NUMERO 52
+BEGIN
+ KEY "ILOR 3110: PERIODO AA (2)"
+ PROMPT 27 38 ""
+ GROUP  7
+ FLAGS "DH"
+ FIELD I3
+END
+
+NUMERO 53
+BEGIN
+ KEY "ILOR 3110: IMPOSTA"
+ PROMPT 32 38 ""
+ GROUP  7
+ FLAGS "DH"
+ MESSAGE COPY,12@
+ PICTURE "###.###.###^^^"
+ FIELD R2
+END
+
+NUMERO 54
+BEGIN
+ KEY "ILOR 3110: INTERESSI"
+ PROMPT 46 38 ""
+ GROUP  7
+ FLAGS "DH"
+ MESSAGE ADD,12@
+ PICTURE "###.###.###^^^"
+ FIELD R9
+END
+
+NUMERO 55
+BEGIN
+ KEY "IRPEF 3110: TOTALE"
+ PROMPT 64 38 ""
+ GROUP  7 12
+ FLAGS "DH"
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 56
+BEGIN
+ KEY "ILOR 3000: PERIODO AA (1)"
+ PROMPT 24 40 ""
+ GROUP  7
+ FLAGS "DH"
+ FIELD I6
+END
+
+NUMERO 57
+BEGIN
+ KEY "ILOR 3000: PERIODO AA (2)"
+ PROMPT 27 40 ""
+ GROUP  7
+ FLAGS "DH"
+ FIELD I7
+END
+
+NUMERO 58
+BEGIN
+ KEY "ILOR 3000: IMPOSTA"
+ PROMPT 32 40 ""
+ GROUP  7
+ FLAGS "DH"
+ MESSAGE COPY,13@
+ PICTURE "###.###.###^^^"
+ FIELD R3
+END
+
+NUMERO 59
+BEGIN
+ KEY "ILOR 3000: INTERESSI"
+ PROMPT 46 40 ""
+ GROUP  7
+ FLAGS "DH"
+ MESSAGE ADD,13@
+ PICTURE "###.###.###^^^"
+ FIELD R10
+END
+
+NUMERO 60
+BEGIN
+ KEY "ILOR 3000: TOTALE"
+ PROMPT 64 40 ""
+ GROUP  7 13
+ FLAGS "DH"
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+GRUPPO -1
+BEGIN
+ KEY "Righe Societa' di Persone"
+ PROMPT 0 0 ""
+ GROUP  8
+ FLAGS "DH"
+END
+
+NUMERO 62
+BEGIN
+ KEY "ILOR 3303: PERIODO AA (1)"
+ PROMPT 24 42 ""
+ GROUP  8
+ FLAGS "DH"
+ FIELD I4
+END
+
+NUMERO 63
+BEGIN
+ KEY "ILOR 3303: PERIODO AA (2)"
+ PROMPT 27 42 ""
+ GROUP  8
+ FLAGS "DH"
+ FIELD I5
+END
+
+NUMERO 64
+BEGIN
+ KEY "ILOR 3303: IMPOSTA"
+ PROMPT 32 42 ""
+ GROUP  8
+ FLAGS "DH"
+ MESSAGE COPY,12@
+ PICTURE "###.###.###^^^"
+ FIELD R2
+END
+
+NUMERO 65
+BEGIN
+ KEY "ILOR 3303: INTERESSI"
+ PROMPT 46 42 ""
+ GROUP  8
+ FLAGS "DH"
+ MESSAGE ADD,12@
+ PICTURE "###.###.###^^^"
+ FIELD R9
+END
+
+NUMERO 66
+BEGIN
+ KEY "ILOR 3303: TOTALE"
+ PROMPT 64 42 ""
+ GROUP  8 12
+ FLAGS "DH"
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 67
+BEGIN
+ KEY "ILOR 3300: PERIODO AA (1)"
+ PROMPT 24 44 ""
+ GROUP  8
+ FLAGS "DH"
+ FIELD I6
+END
+
+NUMERO 68
+BEGIN
+ KEY "ILOR 3300: PERIODO AA (2)"
+ PROMPT 27 44 ""
+ GROUP  8
+ FLAGS "DH"
+ FIELD I7
+END
+
+NUMERO 69
+BEGIN
+ KEY "ILOR 3300: IMPOSTA"
+ PROMPT 32 44 ""
+ GROUP  8
+ FLAGS "DH"
+ MESSAGE COPY,13@
+ PICTURE "###.###.###^^^"
+ FIELD R3
+END
+
+NUMERO 70
+BEGIN
+ KEY "ILOR 3300: INTERESSI"
+ PROMPT 46 44 ""
+ GROUP  8
+ FLAGS "DH"
+ MESSAGE ADD,13@
+ PICTURE "###.###.###^^^"
+ FIELD R10
+END
+
+NUMERO 71
+BEGIN
+ KEY "ILOR 3300: TOTALE"
+ PROMPT 64 44 ""
+ GROUP  8 13
+ FLAGS "DH"
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+GRUPPO -1
+BEGIN
+ KEY "IMPOSTE SOSTITUTIVE E ALTRI CODICI TRIBUTO"
+ PROMPT 0 0 ""
+END
+
+NUMERO 73
+BEGIN
+ KEY "TRIBUTO 1: PERIODO AA (1)"
+ PROMPT 24 50 ""
+ FIELD I8
+END
+
+NUMERO 74
+BEGIN
+ KEY "TRIBUTO 1: PERIODO AA (2)"
+ PROMPT 27 50 ""
+ FIELD I9
+END
+
+NUMERO 75
+BEGIN
+ KEY "TRIBUTO 1: IMPORTO"
+ PROMPT 32 50 ""
+ MESSAGE COPY,14@
+ PICTURE "###.###.###^^^"
+ FIELD R4
+END
+
+NUMERO 76
+BEGIN
+ KEY "TRIBUTO 1: INTERESSI"
+ PROMPT 46 50 ""
+ MESSAGE ADD,14@
+ PICTURE "###.###.###^^^"
+ FIELD R11
+END
+
+NUMERO 77
+BEGIN
+ KEY "TRIBUTO 1: TOTALE"
+ PROMPT 64 50 ""
+ GROUP  14
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 78
+BEGIN
+ KEY "TRIBUTO 2: PERIODO AA (1)"
+ PROMPT 24 52 ""
+ FIELD I10
+END
+
+NUMERO 79
+BEGIN
+ KEY "TRIBUTO 2: PERIODO AA (2)"
+ PROMPT 27 52 ""
+ FIELD I11
+END
+
+NUMERO 80
+BEGIN
+ KEY "TRIBUTO 2: IMPORTO"
+ PROMPT 32 52 ""
+ MESSAGE COPY,15@
+ PICTURE "###.###.###^^^"
+ FIELD R5
+END
+
+NUMERO 81
+BEGIN
+ KEY "TRIBUTO 2: INTERESSI"
+ PROMPT 46 52 ""
+ MESSAGE ADD,15@
+ PICTURE "###.###.###^^^"
+ FIELD R12
+END
+
+NUMERO 82
+BEGIN
+ KEY "TRIBUTO 2: TOTALE"
+ PROMPT 64 52 ""
+ GROUP  15
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 83
+BEGIN
+ KEY "TRIBUTO 3: PERIODO AA (1)"
+ PROMPT 24 54 ""
+ FIELD I12
+END
+
+NUMERO 84
+BEGIN
+ KEY "TRIBUTO 3: PERIODO AA (2)"
+ PROMPT 27 54 ""
+ FIELD I13
+END
+
+NUMERO 85
+BEGIN
+ KEY "TRIBUTO 3: IMPORTO"
+ PROMPT 32 54 ""
+ MESSAGE COPY,16@
+ PICTURE "###.###.###^^^"
+ FIELD R6
+END
+
+NUMERO 86
+BEGIN
+ KEY "TRIBUTO 3: INTERESSI"
+ PROMPT 46 54 ""
+ MESSAGE ADD,16@
+ PICTURE "###.###.###^^^"
+ FIELD R13
+END
+
+NUMERO 87
+BEGIN
+ KEY "TRIBUTO 3: TOTALE"
+ PROMPT 64 54 ""
+ GROUP  16
+ MESSAGE ADD,9@
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 88
+BEGIN
+ KEY "TOTALE (in lettere)"
+ PROMPT 7 57 ""
+ GROUP  9
+ PICTURE "LETTERE"
+END
+
+NUMERO 89
+BEGIN
+ KEY "TOTALE (in cifre)"
+ PROMPT 64 57 ""
+ GROUP  9
+ PICTURE "###.###.###^^^"
+END
+
+DATA 90
+BEGIN
+ KEY "DATA: giorno - mese - anno"
+ PROMPT 12 61 ""
+ PICTURE "@ @^@ @^@ @"
+ FIELD D0
+ FORMAT "1442S"
+END
+
+END
+
+END

ba/disirg.frm

@@ -0,0 +1,271 @@
+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
+
+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 "CODICE FISCALE"
+ PROMPT 55 10 ""
+ FIELD 6->COFI
+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 13->PROVCOM
+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 12 ""
+ FIELD 6->CIVRF
+ FIELD 6->CIVRES
+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: 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: 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 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: 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: TOTALE"
+ PROMPT 62 23 ""
+ GROUP  2
+ MESSAGE ADD,5@
+ PICTURE "###.###.###~~~"
+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: 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: INTERESSI"
+ PROMPT 48 33 ""
+ MESSAGE ADD,3@
+ PICTURE "###.###.###~~~"
+ FIELD R6
+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: 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: INTERESSI"
+ PROMPT 48 38 ""
+ MESSAGE ADD,4@
+ PICTURE "###.###.###~~~"
+ FIELD R7
+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 ""
+ GROUP  5
+ PICTURE "###.###.###~~~"
+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
+
+DATA
+BEGIN
+ KEY "DATA: giorno - mese - anno"
+ PROMPT 12 56 ""
+ PICTURE "@@ ~ @@~~~@@"
+ FIELD D0
+END
+
+END
+
+END

ba/disivacf.frm

@@ -0,0 +1,198 @@
+USE %DEL
+JOIN 9 INTO CODDITTA=CODTAB[1,5]
+JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN 8 TO 9 INTO CODANAGR=CODANAGR
+JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
+JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
+JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC
+
+END
+
+SECTION BODY 0 64 0 0
+
+STRINGA
+BEGIN
+ KEY "CONCESSIONE DI"
+ PROMPT 36 5 ""
+ FIELD 14@->S0
+END
+
+STRINGA
+BEGIN
+ KEY "COD. CONCESS."
+ PROMPT 9 11 ""
+ FIELD 14@->CODTAB
+END
+
+STRINGA
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 15 11 ""
+ FIELD 6->COFI
+END
+
+STRINGA
+BEGIN
+ KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
+ PROMPT 2 15 ""
+ FIELD 6->RAGSOC[1,30]
+END
+
+STRINGA
+BEGIN
+ KEY "NOME"
+ PROMPT 54 15 ""
+ FIELD 6->RAGSOC[31,-1]
+END
+
+LISTA
+BEGIN
+ KEY "Tipo anagrafica"
+ FIELD 6->TIPOA
+ ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
+ ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
+END
+
+GRUPPO
+BEGIN
+ KEY "Persone fisiche"
+ PROMPT 0 0 ""
+ GROUP  1
+ FLAGS "DH"
+END
+
+DATA
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 2 17 ""
+ GROUP  1
+ FLAGS "DH"
+ PICTURE "# # ~ # # ~ ~ # # #"
+ FIELD 8->DATANASC
+END
+
+STRINGA
+BEGIN
+ KEY "SESSO (M o F)"
+ PROMPT 19 17 ""
+ GROUP  1
+ FLAGS "DH"
+ FIELD 8->SESSO
+END
+
+STRINGA
+BEGIN
+ KEY "COMUNE (o Stato estero) DI NASCITA"
+ PROMPT 24 17 ""
+ GROUP  1
+ FLAGS "DH"
+ FIELD 113@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "PROV. DI NASCITA (sigla)"
+ PROMPT 68 17 ""
+ GROUP  1
+ FLAGS "DH"
+ FIELD 113@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: COMUNE"
+ PROMPT 8 19 ""
+ FIELD 213@->DENCOM
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: PROV. (sigla)"
+ PROMPT 36 19 ""
+ FIELD 213@->PROVCOM
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: VIA"
+ PROMPT 41 19 ""
+ FIELD 6->INDRF
+ FIELD 6->INDRES
+END
+
+STRINGA
+BEGIN
+ KEY "DOMICILIO FISCALE: NUMERO CIVICO"
+ PROMPT 70 19 ""
+ FIELD 6->CIVRF
+ FIELD 6->CIVRES
+END
+
+STRINGA
+BEGIN
+ KEY "PARTITA IVA"
+ PROMPT 12 47 ""
+ FIELD 6->PAIV
+END
+
+NUMERO
+BEGIN
+ KEY "ANNO"
+ PROMPT 14 51 ""
+ PICTURE "~~@@"
+ FIELD CODTAB[6,9]
+END
+
+NUMERO
+BEGIN
+ KEY "IMPORTO TRIBUTO"
+ PROMPT 20 51 ""
+ MESSAGE COPY,10@
+ PICTURE "###.###.###~~~"
+ FIELD R0
+END
+
+NUMERO
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 40 51 ""
+ MESSAGE ADD,10@
+ PICTURE "###.###.###~~~"
+ FIELD R1
+END
+
+NUMERO
+BEGIN
+ KEY "TOTALE"
+ PROMPT 54 51 ""
+ GROUP  10
+ PICTURE "###.###.###~~~"
+END
+
+NUMERO
+BEGIN
+ KEY "TOTALE (in lettere)"
+ PROMPT 5 55 ""
+ GROUP  10
+ PICTURE "LETTERE"
+END
+
+NUMERO
+BEGIN
+ KEY "TOTALE (in cifre)"
+ PROMPT 54 55 ""
+ GROUP  10
+ PICTURE "###.###.###~~~"
+END
+
+DATA
+BEGIN
+ KEY "DATA: giorno - mese - anno"
+ PROMPT 12 60 ""
+ PICTURE "@@ ~ @@~~~@@"
+ FIELD D0
+END
+
+END
+
+END

ba/disritcf.frm

@@ -0,0 +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