diff --git a/m770/77base2.frm b/m770/77base2.frm
index 25772f981..3e127edd4 100755
--- a/m770/77base2.frm
+++ b/m770/77base2.frm
@@ -1,1089 +1,1089 @@
-USE 36
-JOIN 37 TO 36 INTO TIPOQUA=TIPOQUA CODDITTA=CODDITTA
-END
-
-DESCRIPTION
-BEGIN
-  36->* "Base 770"
-  37->* "Basebis 770"
-END
-
-GENERAL
-BEGIN
-  OFFSET 0 0
-  FONT "Roman 17cpi"
-  SIZE 12
-  CA "X"           
-  IN 3 2
-  FI 131
-END
-
-SECTION BODY EVEN 60
-
-NUMERO 1
-BEGIN
- KEY "I1-1"
- PROMPT 23 1 ""
- PICTURE "##.###"
- FIELD 36->A0NFCOM
-END
-
-NUMERO 2
-BEGIN
- KEY "I1-2"
- PROMPT 36 1 ""
- PICTURE "##.###"
- FIELD 36->A0NLDIP
-END
-
-NUMERO 3
-BEGIN
- KEY "I1-3"
- PROMPT 50 1 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0COBB
-END
-
-NUMERO 4
-BEGIN
- KEY "I1-4"
- PROMPT 72 1 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0CNET
-END
-
-NUMERO 5
-BEGIN
- KEY "I1-5"
- PROMPT 94 1 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0IITRA
-END
-
-NUMERO 6
-BEGIN
- KEY "I1-6"
- PROMPT 116 1 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0EPREV
-END
-
-NUMERO 7
-BEGIN
- KEY "I2-7 Compensi da terzi"
- PROMPT 27 3 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0CTER
-END
-
-NUMERO 8
-BEGIN
- KEY "I2-8 Tot. imponibile"
- PROMPT 50 3 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0TIMP
-END
-
-NUMERO 9
-BEGIN
- KEY "I2-9 Imposta lorda"
- PROMPT 72 3 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0ILOR
-END
-
-NUMERO 10
-BEGIN
- KEY "I2-10 Tot. detrazioni"
- PROMPT 94 3 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0TDET
-END
-
-NUMERO 11
-BEGIN
- KEY "I2-11 Incremento detrazioni"
- PROMPT 116 3 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0INCDET
-END
-
-NUMERO 12
-BEGIN
- KEY "I3-12 Ritenute da terzi"
- PROMPT 27 5 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0RTER
-END
-
-NUMERO 13
-BEGIN
- KEY "I3-13 Rit.datore di lavoro"
- PROMPT 50 5 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0RDAT
-END
-
-NUMERO 14
-BEGIN
- KEY "I3-14 Eccedenza ritenute"
- PROMPT 72 5 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0ERIT
-END
-
-NUMERO 15
-BEGIN
- KEY "I3-15 Contrib.arretrati"
- PROMPT 94 5 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0CARR
-END
-
-NUMERO 16
-BEGIN
- KEY "I3-16 Ammontare arretrati"
- PROMPT 116 5 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0AARR
-END
-
-NUMERO 17
-BEGIN
- KEY "I4-17 Detrazioni arretrati"
- PROMPT 27 7 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0DARR
-END
-
-NUMERO 18
-BEGIN
- KEY "I4-18 Rit.arretrati"
- PROMPT 50 7 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0RARR
-END
-
-NUMERO 19
-BEGIN
- KEY "I4-19 Compensi ai fini contr.INPS"
- PROMPT 72 7 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0CINPS
-END
-
-NUMERO 20
-BEGIN
- KEY "I4-20 Rit.operate VA"
- PROMPT 94 7 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0RITOPEVA
-END
-
-NUMERO 21
-BEGIN
- KEY "I4-21 Ritenute operate SA"
- PROMPT 116 7 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0RITOPESA
-END
-
-NUMERO 22
-BEGIN
- KEY "I5-22 Rit.operate SI"
- PROMPT 27 9 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0RITSI
-END
-
-NUMERO 23
-BEGIN
- KEY "I5-23 Credito d'imp.imprese d'autotrasporto"
- PROMPT 50 9 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0CIIAUT
-END
-
-NUMERO 24
-BEGIN
- KEY "I5-25 Credito d'imp.premio d'assun."
- PROMPT 72 9 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0CRIMPRAS
-END
-
-NUMERO 25
-BEGIN
- KEY "I5-25 Credito d'imp.L.85"
- PROMPT 94 9 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A0CRIMP85
-END
-
-NUMERO 26
-BEGIN
- KEY "I5-26 Num.assistiti da datore di lavoro"
- PROMPT 116 9 ""
- PICTURE "#.###"
- FIELD 36->A0NADLAV
-END
-
-NUMERO 27
-BEGIN
- KEY "I6-27 Num.ass.CAAF"
- PROMPT 27 11 ""
- PICTURE "#.###"
- FIELD 36->A0NACAAF
-END
-
-NUMERO 28
-BEGIN
- KEY "I7-1 N.fogli"
- PROMPT 23 13 ""
- PICTURE "##.###"
- FIELD 36->A3NFCOM
-END
-
-NUMERO 29
-BEGIN
- KEY "I7-2 N.percipienti"
- PROMPT 36 13 ""
- PICTURE "##.###"
- FIELD 36->A3NUMPER
-END
-
-NUMERO 30
-BEGIN
- KEY "I7-3 Reddito corrisp(p.10)"
- PROMPT 50 13 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A3REPT10
-END
-
-NUMERO 31
-BEGIN
- KEY "I7-4 Reddito corrisp(p.12)"
- PROMPT 72 13 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->A3REPT12
-END
-
-NUMERO 32
-BEGIN
- KEY "I8-1 N.fogli"
- PROMPT 23 15 ""
- PICTURE "##.###"
- FIELD 36->B0NFCOM
-END
-
-NUMERO 33
-BEGIN
- KEY "I8-2 N.dip."
- PROMPT 36 15 ""
- PICTURE "##.###"
- FIELD 36->B0NLDIP
-END
-
-NUMERO 34
-BEGIN
- KEY "I8-3 TFR corrisposto nel 95"
- PROMPT 50 15 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->B0TFR93
-END
-
-NUMERO 35
-BEGIN
- KEY "I8-4 Altre indennità 95"
- PROMPT 72 15 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->B0AI
-END
-
-NUMERO 36
-BEGIN
- KEY "I8-5 Cont.obb.caric.lav."
- PROMPT 94 15 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->B0COLAV
-END
-
-NUMERO 37
-BEGIN
- KEY "I8-6 T.F.R. erogato 74-94"
- PROMPT 116 15 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->B0TFR7492
-END
-
-NUMERO 38
-BEGIN
- KEY "I9-7 Altr.ind.erog. 74-94"
- PROMPT 27 17 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->B0AI7492
-END
-
-NUMERO 39
-BEGIN
- KEY "I9-8 Imponibile dell'anno"
- PROMPT 50 17 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->B0IMP
-END
-
-NUMERO 40
-BEGIN
- KEY "I9-9 Totale imponibile   "
- PROMPT 72 17 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->B0TIMP
-END
-
-NUMERO 41
-BEGIN
- KEY "I9-10 Ritenute operate    "
- PROMPT 94 17 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->B0ROP
-END
-
-NUMERO 42
-BEGIN
- KEY "I9-11 Alt.ind.fin.con.Inps"
- PROMPT 116 17 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->B0AIINPS
-END
-
-NUMERO 43
-BEGIN
- KEY "I10-12 Ritenute operate SA"
- PROMPT 27 19 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->B0ROPESA
-END
-
-NUMERO 44
-BEGIN
- KEY "I10-13 Ritenute operate SI "
- PROMPT 50 19 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->B0RITSI
-END
-
-NUMERO 45
-BEGIN
- KEY "I10-14 Cred.imp.impr.autot."
- PROMPT 72 19 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->B0CIIAUT
-END
-
-NUMERO 46
-BEGIN
- KEY "I10-15 Cred.imp.pre.assun. "
- PROMPT 94 19 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->B0CRIMPRAS
-END
-
-NUMERO 47
-BEGIN
- KEY "I10-16 Cred.imp.ex L.85/95 "
- PROMPT 116 19 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->B0CRIMP85
-END
-
-NUMERO 48
-BEGIN
- KEY "I11-1 N.fogli"
- PROMPT 23 21 ""
- PICTURE "##.###"
- FIELD 36->B1NFCOM
-END
-
-NUMERO 49
-BEGIN
- KEY "I11-2 N.dip."
- PROMPT 36 21 ""
- PICTURE "##.###"
- FIELD 36->B1NPER
-END
-
-NUMERO 50
-BEGIN
- KEY "I11-3 Totale indennità    "
- PROMPT 50 21 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->B1TIND
-END
-
-NUMERO 51
-BEGIN
- KEY "I11-4 Totale imponib. r.m."
- PROMPT 72 21 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->B1TIRM
-END
-
-NUMERO 52
-BEGIN
- KEY "I11-5 Tot.imp.complessivo "
- PROMPT 94 21 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->B1TICOM
-END
-
-NUMERO 53
-BEGIN
- KEY "I12-1 N.fogli"
- PROMPT 23 23 ""
- PICTURE "##.###"
- FIELD 36->C0NFCOM
-END
-
-NUMERO 54
-BEGIN
- KEY "I12-2 N.dip."
- PROMPT 36 23 ""
- PICTURE "##.###"
- FIELD 36->C0NLASS
-END
-
-NUMERO 55
-BEGIN
- KEY "I12-3 Ammont.corris.totale"
- PROMPT 50 23 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->C0ACTOT
-END
-
-NUMERO 56
-BEGIN
- KEY "I12-4 Contributi S.S.N.   "
- PROMPT 72 23 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->C0CONTSSN
-END
-
-NUMERO 57
-BEGIN
- KEY "I12-5 Somme non sogg.rit. "
- PROMPT 94 23 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->C0SNSRIT
-END
-
-NUMERO 58
-BEGIN
- KEY "I12-6 Ritenute operate    "
- PROMPT 116 23 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->C0ROPE
-END
-
-NUMERO 59
-BEGIN
- KEY "I13-7 Cred.imp.impr.autot."
- PROMPT 27 25 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->C0CIIAUT
-END
-
-NUMERO 60
-BEGIN
- KEY "I13-8 Cred.imp.pre.assun. "
- PROMPT 50 25 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->C0CRIMPRAS
-END
-
-NUMERO 61
-BEGIN
- KEY "I14-1 N.fogli"
- PROMPT 23 27 ""
- PICTURE "##.###"
- FIELD 36->D0NFCOM
-END
-
-NUMERO 62
-BEGIN
- KEY "I14-2 N.dip."
- PROMPT 36 27 ""
- PICTURE "##.###"
- FIELD 36->D0NLAUT
-END
-
-NUMERO 63
-BEGIN
- KEY "I14-3 Ammont.corris.totale"
- PROMPT 50 27 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->D0ACTOT
-END
-
-NUMERO 64
-BEGIN
- KEY "I14-4 Somme non sogg.rit. "
- PROMPT 72 27 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->D0SNSRIT
-END
-
-NUMERO 65
-BEGIN
- KEY "I14-5 Ritenute operate    "
- PROMPT 94 27 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->D0ROPE
-END
-
-NUMERO 66
-BEGIN
- KEY "I14-6 Cred.imp.impr.autot."
- PROMPT 116 27 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->D0CIIAUT
-END
-
-NUMERO 67
-BEGIN
- KEY "I15-7 Cred.imp.pre.assun. "
- PROMPT 27 29 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->D0CRIMPRAS
-END
-
-NUMERO 68
-BEGIN
- KEY "I15-8 Cred.imp.ex L.85/95 "
- PROMPT 50 29 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->D0CRIMP85
-END
-
-NUMERO 69
-BEGIN
- KEY "I16-1 N.fogli"
- PROMPT 23 31 ""
- PICTURE "##.###"
- FIELD 36->D1NFCOM
-END
-
-NUMERO 70
-BEGIN
- KEY "I16-2 N.dip."
- PROMPT 36 31 ""
- PICTURE "##.###"
- FIELD 36->D1NPER
-END
-
-NUMERO 71
-BEGIN
- KEY "I16-3 Ammont.corris.totale"
- PROMPT 50 31 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->D1TACOR
-END
-
-NUMERO 72
-BEGIN
- KEY "I16-4 Somme non sogg.rit. "
- PROMPT 72 31 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->D1SNSRIT
-END
-
-NUMERO 73
-BEGIN
- KEY "I16-5 Ritenute operate    "
- PROMPT 94 31 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->D1ROPE
-END
-
-NUMERO 74
-BEGIN
- KEY "I16-6 Cred.imp.pre.assun. "
- PROMPT 116 31 ""
- PICTURE "###.###.###.###^^^"
- FIELD 36->D1CRIMPRAS
-END
-
-NUMERO 75
-BEGIN
- KEY "I17-1 N.fogli"
- PROMPT 23 33 ""
- PICTURE "##.###"
- FIELD 37->E0NFCOM
-END
-
-NUMERO 76
-BEGIN
- KEY "I17-2 N.dip."
- PROMPT 36 33 ""
- PICTURE "##.###"
- FIELD 37->E0NPER
-END
-
-NUMERO 77
-BEGIN
- KEY "I17-3 Ammontare imponibile"
- PROMPT 50 33 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->E0AIMP
-END
-
-NUMERO 78
-BEGIN
- KEY "I17-4 Ritenute operate    "
- PROMPT 72 33 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->E0ROPE
-END
-
-NUMERO 79
-BEGIN
- KEY "I17-5 Somme non sogg.rit. "
- PROMPT 94 33 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->E0SNSRIT
-END
-
-NUMERO 80
-BEGIN
- KEY "I17-6 Cred.imp.pre.assun. "
- PROMPT 116 33 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->E0CRIMPRAS
-END
-
-NUMERO 81
-BEGIN
- KEY "I18-1 N.fogli"
- PROMPT 23 35 ""
- PICTURE "##.###"
- FIELD 37->E1NFCOM
-END
-
-NUMERO 82
-BEGIN
- KEY "I18-2 N.dip."
- PROMPT 36 35 ""
- PICTURE "##.###"
- FIELD 37->E1NPER
-END
-
-NUMERO 83
-BEGIN
- KEY "I18-3 Somme corrisposte   "
- PROMPT 50 35 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->E1SCOR
-END
-
-NUMERO 84
-BEGIN
- KEY "I18-4 Base commisurazione "
- PROMPT 72 35 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->E1BCOM
-END
-
-NUMERO 85
-BEGIN
- KEY "I18-5 Ritenute operate    "
- PROMPT 94 35 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->E1ROPE
-END
-
-NUMERO 86
-BEGIN
- KEY "I18-6 Ammontare compless. "
- PROMPT 116 35 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->E1ACOM
-END
-
-NUMERO 87
-BEGIN
- KEY "I19-7 Base commisurazione "
- PROMPT 27 37 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->E1BCOM2
-END
-
-NUMERO 88
-BEGIN
- KEY "I19-8 Ritenute operate    "
- PROMPT 50 37 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->E1ROPE2
-END
-
-NUMERO 89
-BEGIN
- KEY "I19-9 Cred.imp.pre.assun. "
- PROMPT 72 37 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->E1CRIMPRAS
-END
-
-NUMERO 90
-BEGIN
- KEY "I20-1 N.fogli"
- PROMPT 23 39 ""
- PICTURE "##.###"
- FIELD 37->E2NFCOM
-END
-
-NUMERO 91
-BEGIN
- KEY "I20-2 N.dip."
- PROMPT 36 39 ""
- PICTURE "##.###"
- FIELD 37->E2NPER
-END
-
-NUMERO 92
-BEGIN
- KEY "I20-3 Somme sogg. ritenute "
- PROMPT 50 39 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->E2SSRIT
-END
-
-NUMERO 93
-BEGIN
- KEY "I20-4 Ritenute operate    "
- PROMPT 72 39 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->E2ROPE
-END
-
-NUMERO 94
-BEGIN
- KEY "I20-5 Cred.imp.pre.assun.  "
- PROMPT 94 39 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->E2CRIMPRAS
-END
-
-NUMERO 95
-BEGIN
- KEY "I21-1 Som.sog.rit.(pros.A)"
- PROMPT 27 41 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->F0SRITA
-END
-
-NUMERO 96
-BEGIN
- KEY "I21-2 Rit.operate(pros.A) "
- PROMPT 50 41 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->F0ROPEA
-END
-
-NUMERO 97
-BEGIN
- KEY "I21-3 Tot.acconti (pros.A)"
- PROMPT 72 41 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->F0TACCA
-END
-
-NUMERO 98
-BEGIN
- KEY "I21-4 Ecc.dim.acc.(pros.A)"
- PROMPT 94 41 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->F0EDACCA
-END
-
-NUMERO 99
-BEGIN
- KEY "I21-5 Ecc. rimbor.(pros.A)"
- PROMPT 116 41 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->F0ERIMA
-END
-
-NUMERO 100
-BEGIN
- KEY "I22-6 Somme sog.VA(pros.A)"
- PROMPT 27 43 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->F0SSVA
-END
-
-NUMERO 101
-BEGIN
- KEY "I22-7 Rit.oper.VA (pros.A)"
- PROMPT 50 43 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->F0ROPEVA
-END
-
-NUMERO 102
-BEGIN
- KEY "I22-8 Som.sogg.rit.(BCDEF)"
- PROMPT 72 43 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->F0SSRITBF
-END
-
-NUMERO 103
-BEGIN
- KEY "I22-9 Rit.op.(p.B,C,D,E,F)"
- PROMPT 94 43 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->F0ROPEBF
-END
-
-NUMERO 104
-BEGIN
- KEY "I22-10 Cred.imp.pre.assun. "
- PROMPT 116 43 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->F0CRIMPRAS
-END
-
-NUMERO 105
-BEGIN
- KEY "I23-1 Som.sogg.rit.(p.A,B)"
- PROMPT 27 45 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->F1SSRIT
-END
-
-NUMERO 106
-BEGIN
- KEY "I23-2 Riten.operat.(p.A,B)"
- PROMPT 50 45 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->F1ROPE
-END
-
-NUMERO 107
-BEGIN
- KEY "I23-3 Cred.imp.pre.assun. "
- PROMPT 72 45 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->F1CRIMPRAS
-END
-
-NUMERO 108
-BEGIN
- KEY "I24-1 Somme sogg. ritenute"
- PROMPT 27 47 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->F2SSRIT
-END
-
-NUMERO 109
-BEGIN
- KEY "I24-2 Ritenute operate    "
- PROMPT 50 47 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->F2ROPE
-END
-
-NUMERO 110
-BEGIN
- KEY "I24-3 Cred.imp.pre.assun. "
- PROMPT 72 47 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->F2CRIMPRAS
-END
-
-NUMERO 111
-BEGIN
- KEY "I25-1 N.fogli"
- PROMPT 23 49 ""
- PICTURE "##.###"
- FIELD 37->G0NFCOM
-END
-
-NUMERO 112
-BEGIN
- KEY "I125-2 N.dip."
- PROMPT 36 49 ""
- PICTURE "##.###"
- FIELD 37->G0NPER
-END
-
-NUMERO 113
-BEGIN
- KEY "I25-3 Utili spettanti     "
- PROMPT 50 49 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G0USPE
-END
-
-NUMERO 114
-BEGIN
- KEY "I25-4 Rit.utili spettanti "
- PROMPT 72 49 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G0RITSPET
-END
-
-NUMERO 115
-BEGIN
- KEY "I25-5 Utili pagati        "
- PROMPT 94 49 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G0UPAG
-END
-
-NUMERO 116
-BEGIN
- KEY "I25-6 Rit. su utili pagati"
- PROMPT 116 49 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G0ROPE
-END
-
-NUMERO 117
-BEGIN
- KEY "I26-7 Azioni o quote(pr.1)"
- PROMPT 27 51 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G0NAZI1
-END
-
-NUMERO 118
-BEGIN
- KEY "I26-8 Utili denaro (pr.1) "
- PROMPT 50 51 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G0UDEN1
-END
-
-NUMERO 120
-BEGIN
- KEY "I26-9 Utili natura (pr.1) "
- PROMPT 72 51 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G0UNAT1
-END
-
-NUMERO 121
-BEGIN
- KEY "I26-10 Importo utili (pr.2)"
- PROMPT 94 51 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G0IUTI2
-END
-
-NUMERO 122
-BEGIN
- KEY "I26-11 Util.sogg.rit.(pr.3)"
- PROMPT 116 51 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G0USRIT3
-END
-
-NUMERO 123
-BEGIN
- KEY "I27-12 Ritenuta acc.(pr.3) "
- PROMPT 27 53 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G0RACC3
-END
-
-NUMERO 124
-BEGIN
- KEY "I27-13 Riten. impos.(pr.3) "
- PROMPT 50 53 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G0RIMP3
-END
-
-NUMERO 125
-BEGIN
- KEY "I27-14 Ut.non sogg.rit.(p3)"
- PROMPT 72 53 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G0UNSRIT3
-END
-
-NUMERO 126
-BEGIN
- KEY "I27-15 Cred.imp.pre.assun. "
- PROMPT 94 53 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G0CRIMPRAS
-END
-
-NUMERO 127
-BEGIN
- KEY "I28-1 Utili corrisposti   "
- PROMPT 27 55 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G1UCOR
-END
-
-NUMERO 128
-BEGIN
- KEY "I28-2 Utili sogg. ritenute"
- PROMPT 50 55 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G1USRIT
-END
-
-NUMERO 129
-BEGIN
- KEY "I28-3 Ritenute di acconto "
- PROMPT 72 55 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G1RACC
-END
-
-NUMERO 130
-BEGIN
- KEY "I28-4 Ritenute di imposta "
- PROMPT 94 55 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G1RIMP
-END
-
-NUMERO 131
-BEGIN
- KEY "I28-5 Utili non sogg.rit. "
- PROMPT 116 55 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G1UNSRIT
-END
-
-NUMERO 132
-BEGIN
- KEY "I29-6 Cred.imp.pre.assun. "
- PROMPT 27 57 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->G1CRIMPRAS
-END
-
-NUMERO 133
-BEGIN
- KEY "I30-1 Cont.obb.car.dat.lav"
- PROMPT 27 59 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->H0CODLAV
-END
-
-NUMERO 134
-BEGIN
- KEY "I30-2 Cont.ob.car.lav.dip."
- PROMPT 50 59 ""
- PICTURE "###.###.###.###^^^"
- FIELD 37->H0COLDIP
-END
-
-END
-
-END
+USE 36
+JOIN 37 TO 36 INTO TIPOQUA=TIPOQUA CODDITTA=CODDITTA
+END
+
+DESCRIPTION
+BEGIN
+  36->* "Base 770"
+  37->* "Basebis 770"
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Roman 17cpi"
+  SIZE 12
+  CA "X"           
+  IN 3 2
+  FI 131
+END
+
+SECTION BODY EVEN 60
+
+NUMERO 1
+BEGIN
+ KEY "I1-1"
+ PROMPT 23 1 ""
+ PICTURE "##.###"
+ FIELD 36->A0NFCOM
+END
+
+NUMERO 2
+BEGIN
+ KEY "I1-2"
+ PROMPT 36 1 ""
+ PICTURE "##.###"
+ FIELD 36->A0NLDIP
+END
+
+NUMERO 3
+BEGIN
+ KEY "I1-3"
+ PROMPT 50 1 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0COBB
+END
+
+NUMERO 4
+BEGIN
+ KEY "I1-4"
+ PROMPT 72 1 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0CNET
+END
+
+NUMERO 5
+BEGIN
+ KEY "I1-5"
+ PROMPT 94 1 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0IITRA
+END
+
+NUMERO 6
+BEGIN
+ KEY "I1-6"
+ PROMPT 116 1 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0EPREV
+END
+
+NUMERO 7
+BEGIN
+ KEY "I2-7 Compensi da terzi"
+ PROMPT 27 3 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0CTER
+END
+
+NUMERO 8
+BEGIN
+ KEY "I2-8 Tot. imponibile"
+ PROMPT 50 3 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0TIMP
+END
+
+NUMERO 9
+BEGIN
+ KEY "I2-9 Imposta lorda"
+ PROMPT 72 3 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0ILOR
+END
+
+NUMERO 10
+BEGIN
+ KEY "I2-10 Tot. detrazioni"
+ PROMPT 94 3 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0TDET
+END
+
+NUMERO 11
+BEGIN
+ KEY "I2-11 Incremento detrazioni"
+ PROMPT 116 3 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0INCDET
+END
+
+NUMERO 12
+BEGIN
+ KEY "I3-12 Ritenute da terzi"
+ PROMPT 27 5 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0RTER
+END
+
+NUMERO 13
+BEGIN
+ KEY "I3-13 Rit.datore di lavoro"
+ PROMPT 50 5 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0RDAT
+END
+
+NUMERO 14
+BEGIN
+ KEY "I3-14 Eccedenza ritenute"
+ PROMPT 72 5 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0ERIT
+END
+
+NUMERO 15
+BEGIN
+ KEY "I3-15 Contrib.arretrati"
+ PROMPT 94 5 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0CARR
+END
+
+NUMERO 16
+BEGIN
+ KEY "I3-16 Ammontare arretrati"
+ PROMPT 116 5 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0AARR
+END
+
+NUMERO 17
+BEGIN
+ KEY "I4-17 Detrazioni arretrati"
+ PROMPT 27 7 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0DARR
+END
+
+NUMERO 18
+BEGIN
+ KEY "I4-18 Rit.arretrati"
+ PROMPT 50 7 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0RARR
+END
+
+NUMERO 19
+BEGIN
+ KEY "I4-19 Compensi ai fini contr.INPS"
+ PROMPT 72 7 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0CINPS
+END
+
+NUMERO 20
+BEGIN
+ KEY "I4-20 Rit.operate VA"
+ PROMPT 94 7 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0RITOPEVA
+END
+
+NUMERO 21
+BEGIN
+ KEY "I4-21 Ritenute operate SA"
+ PROMPT 116 7 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0RITOPESA
+END
+
+NUMERO 22
+BEGIN
+ KEY "I5-22 Rit.operate SI"
+ PROMPT 27 9 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0RITSI
+END
+
+NUMERO 23
+BEGIN
+ KEY "I5-23 Credito d'imp.imprese d'autotrasporto"
+ PROMPT 50 9 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0CIIAUT
+END
+
+NUMERO 24
+BEGIN
+ KEY "I5-25 Credito d'imp.premio d'assun."
+ PROMPT 72 9 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0CRIMPRAS
+END
+
+NUMERO 25
+BEGIN
+ KEY "I5-25 Credito d'imp.L.85"
+ PROMPT 94 9 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A0CRIMP85
+END
+
+NUMERO 26
+BEGIN
+ KEY "I5-26 Num.assistiti da datore di lavoro"
+ PROMPT 116 9 ""
+ PICTURE "#.###"
+ FIELD 36->A0NADLAV
+END
+
+NUMERO 27
+BEGIN
+ KEY "I6-27 Num.ass.CAAF"
+ PROMPT 27 11 ""
+ PICTURE "#.###"
+ FIELD 36->A0NACAAF
+END
+
+NUMERO 28
+BEGIN
+ KEY "I7-1 N.fogli"
+ PROMPT 23 13 ""
+ PICTURE "##.###"
+ FIELD 36->A3NFCOM
+END
+
+NUMERO 29
+BEGIN
+ KEY "I7-2 N.percipienti"
+ PROMPT 36 13 ""
+ PICTURE "##.###"
+ FIELD 36->A3NUMPER
+END
+
+NUMERO 30
+BEGIN
+ KEY "I7-3 Reddito corrisp(p.10)"
+ PROMPT 50 13 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A3REPT10
+END
+
+NUMERO 31
+BEGIN
+ KEY "I7-4 Reddito corrisp(p.12)"
+ PROMPT 72 13 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->A3REPT12
+END
+
+NUMERO 32
+BEGIN
+ KEY "I8-1 N.fogli"
+ PROMPT 23 15 ""
+ PICTURE "##.###"
+ FIELD 36->B0NFCOM
+END
+
+NUMERO 33
+BEGIN
+ KEY "I8-2 N.dip."
+ PROMPT 36 15 ""
+ PICTURE "##.###"
+ FIELD 36->B0NLDIP
+END
+
+NUMERO 34
+BEGIN
+ KEY "I8-3 TFR corrisposto nel 95"
+ PROMPT 50 15 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->B0TFR93
+END
+
+NUMERO 35
+BEGIN
+ KEY "I8-4 Altre indennità 95"
+ PROMPT 72 15 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->B0AI
+END
+
+NUMERO 36
+BEGIN
+ KEY "I8-5 Cont.obb.caric.lav."
+ PROMPT 94 15 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->B0COLAV
+END
+
+NUMERO 37
+BEGIN
+ KEY "I8-6 T.F.R. erogato 74-94"
+ PROMPT 116 15 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->B0TFR7492
+END
+
+NUMERO 38
+BEGIN
+ KEY "I9-7 Altr.ind.erog. 74-94"
+ PROMPT 27 17 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->B0AI7492
+END
+
+NUMERO 39
+BEGIN
+ KEY "I9-8 Imponibile dell'anno"
+ PROMPT 50 17 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->B0IMP
+END
+
+NUMERO 40
+BEGIN
+ KEY "I9-9 Totale imponibile   "
+ PROMPT 72 17 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->B0TIMP
+END
+
+NUMERO 41
+BEGIN
+ KEY "I9-10 Ritenute operate    "
+ PROMPT 94 17 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->B0ROP
+END
+
+NUMERO 42
+BEGIN
+ KEY "I9-11 Alt.ind.fin.con.Inps"
+ PROMPT 116 17 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->B0AIINPS
+END
+
+NUMERO 43
+BEGIN
+ KEY "I10-12 Ritenute operate SA"
+ PROMPT 27 19 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->B0ROPESA
+END
+
+NUMERO 44
+BEGIN
+ KEY "I10-13 Ritenute operate SI "
+ PROMPT 50 19 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->B0RITSI
+END
+
+NUMERO 45
+BEGIN
+ KEY "I10-14 Cred.imp.impr.autot."
+ PROMPT 72 19 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->B0CIIAUT
+END
+
+NUMERO 46
+BEGIN
+ KEY "I10-15 Cred.imp.pre.assun. "
+ PROMPT 94 19 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->B0CRIMPRAS
+END
+
+NUMERO 47
+BEGIN
+ KEY "I10-16 Cred.imp.ex L.85/95 "
+ PROMPT 116 19 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->B0CRIMP85
+END
+
+NUMERO 48
+BEGIN
+ KEY "I11-1 N.fogli"
+ PROMPT 23 21 ""
+ PICTURE "##.###"
+ FIELD 36->B1NFCOM
+END
+
+NUMERO 49
+BEGIN
+ KEY "I11-2 N.dip."
+ PROMPT 36 21 ""
+ PICTURE "##.###"
+ FIELD 36->B1NPER
+END
+
+NUMERO 50
+BEGIN
+ KEY "I11-3 Totale indennità    "
+ PROMPT 50 21 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->B1TIND
+END
+
+NUMERO 51
+BEGIN
+ KEY "I11-4 Totale imponib. r.m."
+ PROMPT 72 21 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->B1TIRM
+END
+
+NUMERO 52
+BEGIN
+ KEY "I11-5 Tot.imp.complessivo "
+ PROMPT 94 21 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->B1TICOM
+END
+
+NUMERO 53
+BEGIN
+ KEY "I12-1 N.fogli"
+ PROMPT 23 23 ""
+ PICTURE "##.###"
+ FIELD 36->C0NFCOM
+END
+
+NUMERO 54
+BEGIN
+ KEY "I12-2 N.dip."
+ PROMPT 36 23 ""
+ PICTURE "##.###"
+ FIELD 36->C0NLASS
+END
+
+NUMERO 55
+BEGIN
+ KEY "I12-3 Ammont.corris.totale"
+ PROMPT 50 23 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->C0ACTOT
+END
+
+NUMERO 56
+BEGIN
+ KEY "I12-4 Contributi S.S.N.   "
+ PROMPT 72 23 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->C0CONTSSN
+END
+
+NUMERO 57
+BEGIN
+ KEY "I12-5 Somme non sogg.rit. "
+ PROMPT 94 23 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->C0SNSRIT
+END
+
+NUMERO 58
+BEGIN
+ KEY "I12-6 Ritenute operate    "
+ PROMPT 116 23 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->C0ROPE
+END
+
+NUMERO 59
+BEGIN
+ KEY "I13-7 Cred.imp.impr.autot."
+ PROMPT 27 25 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->C0CIIAUT
+END
+
+NUMERO 60
+BEGIN
+ KEY "I13-8 Cred.imp.pre.assun. "
+ PROMPT 50 25 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->C0CRIMPRAS
+END
+
+NUMERO 61
+BEGIN
+ KEY "I14-1 N.fogli"
+ PROMPT 23 27 ""
+ PICTURE "##.###"
+ FIELD 36->D0NFCOM
+END
+
+NUMERO 62
+BEGIN
+ KEY "I14-2 N.dip."
+ PROMPT 36 27 ""
+ PICTURE "##.###"
+ FIELD 36->D0NLAUT
+END
+
+NUMERO 63
+BEGIN
+ KEY "I14-3 Ammont.corris.totale"
+ PROMPT 50 27 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->D0ACTOT
+END
+
+NUMERO 64
+BEGIN
+ KEY "I14-4 Somme non sogg.rit. "
+ PROMPT 72 27 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->D0SNSRIT
+END
+
+NUMERO 65
+BEGIN
+ KEY "I14-5 Ritenute operate    "
+ PROMPT 94 27 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->D0ROPE
+END
+
+NUMERO 66
+BEGIN
+ KEY "I14-6 Cred.imp.impr.autot."
+ PROMPT 116 27 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->D0CIIAUT
+END
+
+NUMERO 67
+BEGIN
+ KEY "I15-7 Cred.imp.pre.assun. "
+ PROMPT 27 29 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->D0CRIMPRAS
+END
+
+NUMERO 68
+BEGIN
+ KEY "I15-8 Cred.imp.ex L.85/95 "
+ PROMPT 50 29 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->D0CRIMP85
+END
+
+NUMERO 69
+BEGIN
+ KEY "I16-1 N.fogli"
+ PROMPT 23 31 ""
+ PICTURE "##.###"
+ FIELD 36->D1NFCOM
+END
+
+NUMERO 70
+BEGIN
+ KEY "I16-2 N.dip."
+ PROMPT 36 31 ""
+ PICTURE "##.###"
+ FIELD 36->D1NPER
+END
+
+NUMERO 71
+BEGIN
+ KEY "I16-3 Ammont.corris.totale"
+ PROMPT 50 31 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->D1TACOR
+END
+
+NUMERO 72
+BEGIN
+ KEY "I16-4 Somme non sogg.rit. "
+ PROMPT 72 31 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->D1SNSRIT
+END
+
+NUMERO 73
+BEGIN
+ KEY "I16-5 Ritenute operate    "
+ PROMPT 94 31 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->D1ROPE
+END
+
+NUMERO 74
+BEGIN
+ KEY "I16-6 Cred.imp.pre.assun. "
+ PROMPT 116 31 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 36->D1CRIMPRAS
+END
+
+NUMERO 75
+BEGIN
+ KEY "I17-1 N.fogli"
+ PROMPT 23 33 ""
+ PICTURE "##.###"
+ FIELD 37->E0NFCOM
+END
+
+NUMERO 76
+BEGIN
+ KEY "I17-2 N.dip."
+ PROMPT 36 33 ""
+ PICTURE "##.###"
+ FIELD 37->E0NPER
+END
+
+NUMERO 77
+BEGIN
+ KEY "I17-3 Ammontare imponibile"
+ PROMPT 50 33 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->E0AIMP
+END
+
+NUMERO 78
+BEGIN
+ KEY "I17-4 Ritenute operate    "
+ PROMPT 72 33 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->E0ROPE
+END
+
+NUMERO 79
+BEGIN
+ KEY "I17-5 Somme non sogg.rit. "
+ PROMPT 94 33 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->E0SNSRIT
+END
+
+NUMERO 80
+BEGIN
+ KEY "I17-6 Cred.imp.pre.assun. "
+ PROMPT 116 33 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->E0CRIMPRAS
+END
+
+NUMERO 81
+BEGIN
+ KEY "I18-1 N.fogli"
+ PROMPT 23 35 ""
+ PICTURE "##.###"
+ FIELD 37->E1NFCOM
+END
+
+NUMERO 82
+BEGIN
+ KEY "I18-2 N.dip."
+ PROMPT 36 35 ""
+ PICTURE "##.###"
+ FIELD 37->E1NPER
+END
+
+NUMERO 83
+BEGIN
+ KEY "I18-3 Somme corrisposte   "
+ PROMPT 50 35 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->E1SCOR
+END
+
+NUMERO 84
+BEGIN
+ KEY "I18-4 Base commisurazione "
+ PROMPT 72 35 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->E1BCOM
+END
+
+NUMERO 85
+BEGIN
+ KEY "I18-5 Ritenute operate    "
+ PROMPT 94 35 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->E1ROPE
+END
+
+NUMERO 86
+BEGIN
+ KEY "I18-6 Ammontare compless. "
+ PROMPT 116 35 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->E1ACOM
+END
+
+NUMERO 87
+BEGIN
+ KEY "I19-7 Base commisurazione "
+ PROMPT 27 37 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->E1BCOM2
+END
+
+NUMERO 88
+BEGIN
+ KEY "I19-8 Ritenute operate    "
+ PROMPT 50 37 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->E1ROPE2
+END
+
+NUMERO 89
+BEGIN
+ KEY "I19-9 Cred.imp.pre.assun. "
+ PROMPT 72 37 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->E1CRIMPRAS
+END
+
+NUMERO 90
+BEGIN
+ KEY "I20-1 N.fogli"
+ PROMPT 23 39 ""
+ PICTURE "##.###"
+ FIELD 37->E2NFCOM
+END
+
+NUMERO 91
+BEGIN
+ KEY "I20-2 N.dip."
+ PROMPT 36 39 ""
+ PICTURE "##.###"
+ FIELD 37->E2NPER
+END
+
+NUMERO 92
+BEGIN
+ KEY "I20-3 Somme sogg. ritenute "
+ PROMPT 50 39 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->E2SSRIT
+END
+
+NUMERO 93
+BEGIN
+ KEY "I20-4 Ritenute operate    "
+ PROMPT 72 39 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->E2ROPE
+END
+
+NUMERO 94
+BEGIN
+ KEY "I20-5 Cred.imp.pre.assun.  "
+ PROMPT 94 39 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->E2CRIMPRAS
+END
+
+NUMERO 95
+BEGIN
+ KEY "I21-1 Som.sog.rit.(pros.A)"
+ PROMPT 27 41 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->F0SRITA
+END
+
+NUMERO 96
+BEGIN
+ KEY "I21-2 Rit.operate(pros.A) "
+ PROMPT 50 41 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->F0ROPEA
+END
+
+NUMERO 97
+BEGIN
+ KEY "I21-3 Tot.acconti (pros.A)"
+ PROMPT 72 41 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->F0TACCA
+END
+
+NUMERO 98
+BEGIN
+ KEY "I21-4 Ecc.dim.acc.(pros.A)"
+ PROMPT 94 41 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->F0EDACCA
+END
+
+NUMERO 99
+BEGIN
+ KEY "I21-5 Ecc. rimbor.(pros.A)"
+ PROMPT 116 41 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->F0ERIMA
+END
+
+NUMERO 100
+BEGIN
+ KEY "I22-6 Somme sog.VA(pros.A)"
+ PROMPT 27 43 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->F0SSVA
+END
+
+NUMERO 101
+BEGIN
+ KEY "I22-7 Rit.oper.VA (pros.A)"
+ PROMPT 50 43 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->F0ROPEVA
+END
+
+NUMERO 102
+BEGIN
+ KEY "I22-8 Som.sogg.rit.(BCDEF)"
+ PROMPT 72 43 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->F0SSRITBF
+END
+
+NUMERO 103
+BEGIN
+ KEY "I22-9 Rit.op.(p.B,C,D,E,F)"
+ PROMPT 94 43 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->F0ROPEBF
+END
+
+NUMERO 104
+BEGIN
+ KEY "I22-10 Cred.imp.pre.assun. "
+ PROMPT 116 43 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->F0CRIMPRAS
+END
+
+NUMERO 105
+BEGIN
+ KEY "I23-1 Som.sogg.rit.(p.A,B)"
+ PROMPT 27 45 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->F1SSRIT
+END
+
+NUMERO 106
+BEGIN
+ KEY "I23-2 Riten.operat.(p.A,B)"
+ PROMPT 50 45 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->F1ROPE
+END
+
+NUMERO 107
+BEGIN
+ KEY "I23-3 Cred.imp.pre.assun. "
+ PROMPT 72 45 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->F1CRIMPRAS
+END
+
+NUMERO 108
+BEGIN
+ KEY "I24-1 Somme sogg. ritenute"
+ PROMPT 27 47 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->F2SSRIT
+END
+
+NUMERO 109
+BEGIN
+ KEY "I24-2 Ritenute operate    "
+ PROMPT 50 47 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->F2ROPE
+END
+
+NUMERO 110
+BEGIN
+ KEY "I24-3 Cred.imp.pre.assun. "
+ PROMPT 72 47 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->F2CRIMPRAS
+END
+
+NUMERO 111
+BEGIN
+ KEY "I25-1 N.fogli"
+ PROMPT 23 49 ""
+ PICTURE "##.###"
+ FIELD 37->G0NFCOM
+END
+
+NUMERO 112
+BEGIN
+ KEY "I125-2 N.dip."
+ PROMPT 36 49 ""
+ PICTURE "##.###"
+ FIELD 37->G0NPER
+END
+
+NUMERO 113
+BEGIN
+ KEY "I25-3 Utili spettanti     "
+ PROMPT 50 49 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G0USPE
+END
+
+NUMERO 114
+BEGIN
+ KEY "I25-4 Rit.utili spettanti "
+ PROMPT 72 49 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G0RITSPET
+END
+
+NUMERO 115
+BEGIN
+ KEY "I25-5 Utili pagati        "
+ PROMPT 94 49 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G0UPAG
+END
+
+NUMERO 116
+BEGIN
+ KEY "I25-6 Rit. su utili pagati"
+ PROMPT 116 49 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G0ROPE
+END
+
+NUMERO 117
+BEGIN
+ KEY "I26-7 Azioni o quote(pr.1)"
+ PROMPT 27 51 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G0NAZI1
+END
+
+NUMERO 118
+BEGIN
+ KEY "I26-8 Utili denaro (pr.1) "
+ PROMPT 50 51 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G0UDEN1
+END
+
+NUMERO 120
+BEGIN
+ KEY "I26-9 Utili natura (pr.1) "
+ PROMPT 72 51 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G0UNAT1
+END
+
+NUMERO 121
+BEGIN
+ KEY "I26-10 Importo utili (pr.2)"
+ PROMPT 94 51 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G0IUTI2
+END
+
+NUMERO 122
+BEGIN
+ KEY "I26-11 Util.sogg.rit.(pr.3)"
+ PROMPT 116 51 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G0USRIT3
+END
+
+NUMERO 123
+BEGIN
+ KEY "I27-12 Ritenuta acc.(pr.3) "
+ PROMPT 27 53 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G0RACC3
+END
+
+NUMERO 124
+BEGIN
+ KEY "I27-13 Riten. impos.(pr.3) "
+ PROMPT 50 53 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G0RIMP3
+END
+
+NUMERO 125
+BEGIN
+ KEY "I27-14 Ut.non sogg.rit.(p3)"
+ PROMPT 72 53 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G0UNSRIT3
+END
+
+NUMERO 126
+BEGIN
+ KEY "I27-15 Cred.imp.pre.assun. "
+ PROMPT 94 53 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G0CRIMPRAS
+END
+
+NUMERO 127
+BEGIN
+ KEY "I28-1 Utili corrisposti   "
+ PROMPT 27 55 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G1UCOR
+END
+
+NUMERO 128
+BEGIN
+ KEY "I28-2 Utili sogg. ritenute"
+ PROMPT 50 55 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G1USRIT
+END
+
+NUMERO 129
+BEGIN
+ KEY "I28-3 Ritenute di acconto "
+ PROMPT 72 55 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G1RACC
+END
+
+NUMERO 130
+BEGIN
+ KEY "I28-4 Ritenute di imposta "
+ PROMPT 94 55 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G1RIMP
+END
+
+NUMERO 131
+BEGIN
+ KEY "I28-5 Utili non sogg.rit. "
+ PROMPT 116 55 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G1UNSRIT
+END
+
+NUMERO 132
+BEGIN
+ KEY "I29-6 Cred.imp.pre.assun. "
+ PROMPT 27 57 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->G1CRIMPRAS
+END
+
+NUMERO 133
+BEGIN
+ KEY "I30-1 Cont.obb.car.dat.lav"
+ PROMPT 27 59 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->H0CODLAV
+END
+
+NUMERO 134
+BEGIN
+ KEY "I30-2 Cont.ob.car.lav.dip."
+ PROMPT 50 59 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 37->H0COLDIP
+END
+
+END
+
+END
diff --git a/m770/77base3.frm b/m770/77base3.frm
index 6d406221d..8081067a5 100755
--- a/m770/77base3.frm
+++ b/m770/77base3.frm
@@ -1,192 +1,192 @@
-USE 42
-JOIN 37 INTO CODDITTA=CODDITTA
-END
-
-DESCRIPTION
-BEGIN
-  36->* "Base 770"
-  37->* "Basebis 770"
-END
-
-GENERAL
-BEGIN
-  OFFSET 0 0
-  FONT "Roman 17cpi"
-  SIZE 12
-  CA "X"           
-  IN 3 2
-  FI 131
-END
-
-SECTION HEADER FIRST 2
-
-STRINGA 1
-BEGIN
-  KEY "Cod.Conc.1"
-  PROMPT 41 1 ""
-  FIELD 37->L0CCONC1
-END
-
-STRINGA 2
-BEGIN
-  KEY "Cod.Conc.2"
-  PROMPT 53 1 ""
-  FIELD 37->L0CCONC2
-END
-
-STRINGA 3
-BEGIN
-  KEY "Cod.Conc.3"
-  PROMPT 63 1 ""
-  FIELD 37->L0CCONC3
-END
-
-NUMERO 4
-BEGIN
-  KEY "Cod.Tes.1"
-  PROMPT 102 1 ""
-  FIELD 37->L0CTES1
-END
-
-NUMERO 5
-BEGIN
-  KEY "Cod.Tes.2"
-  PROMPT 114 1 ""
-  FIELD 37->L0CTES2
-END
-
-NUMERO 6
-BEGIN
-  KEY "Cod.Tes.3"
-  PROMPT 126 1 ""
-  FIELD 37->L0CTES3
-END
-
-END
-
-SECTION BODY ODD 4
-
-NUMERO 1
-BEGIN
-  KEY "Mese rif."
-  PROMPT 26 1 ""
-  FIELD 42->QLMP
-END
-
-NUMERO 2
-BEGIN
-  KEY "Anno rif."
-  PROMPT 29 1 ""
-  FIELD 42->QLAP
-END
-
-NUMERO 3
-BEGIN
-  KEY "Rit.eff"
-  PROMPT 48 1 ""
-  FIELD 42->QLRITEFF
-  PICTURE "###.###.###.###^^^"  
-  MESSAGE ADD,FL->1
-END
-
-NUMERO 4
-BEGIN
-  KEY "Rit.ver"
-  PROMPT 79 1 ""
-  FIELD 42->QLRITVER
-  PICTURE "###.###.###.###^^^"  
-  MESSAGE ADD,FL->2  
-END
-
-LISTA 5
-BEGIN
-  KEY "RSS"
-  PROMPT 100 1 ""
-  ITEM " | "
-  ITEM "1|VA" 
-  ITEM "2|SA"
-  ITEM "3|SI"    
-  FIELD 42->QLRSS
-END
-
-STRINGA 6
-BEGIN
-  KEY "Note"
-  PROMPT 111 1 ""
-  FIELD 42->QLNOTE
-END
-
-STRINGA 7
-BEGIN
-  KEY "Luogo Vers."
-  PROMPT 26 3 ""
-  FIELD 42->QLLV
-END
-
-STRINGA 8
-BEGIN
-  KEY "Tipo Vers."
-  PROMPT 34 3 ""
-  FIELD 42->QLTV
-END
-
-STRINGA 9
-BEGIN
-  KEY "CodTrib"
-  PROMPT 47 3 ""
-  FIELD 42->QLCT
-END
-
-STRINGA 10
-BEGIN
-  KEY "Art.Bil."
-  PROMPT 54 3 ""
-  FIELD 42->QLAB
-END
-
-STRINGA 11
-BEGIN
-  KEY "DATA VERS."
-  PROMPT 63 3 ""
-  FIELD 42->QLDV
-  PICTURE "## ^ ##  ^####" 
-END  
-  
-STRINGA 12
-BEGIN
-  KEY "SERIE"
-  PROMPT 84 3 ""
-  FIELD 42->QLSERIE
-END
-
-STRINGA 13
-BEGIN
-  KEY "NUMERO"
-  PROMPT 99 3 ""
-  FIELD 42->QLNUMERO[1,5]
-END
-
-END
-
-SECTION FOOTER LAST 2
-
-NUMERO 1
-BEGIN
-  KEY "Tot.rit.eff"
-  PROMPT 61 1 ""
-  PICTURE "###.###.###.###^^^"    
-END
-
-NUMERO 2
-BEGIN
-  KEY "Tot.rit.ver"
-  PROMPT 112 1 ""               
-  PICTURE "###.###.###.###^^^"    
-END
-
-END
-
-END
-
-
-
+USE 42
+JOIN 37 INTO CODDITTA=CODDITTA
+END
+
+DESCRIPTION
+BEGIN
+  36->* "Base 770"
+  37->* "Basebis 770"
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Roman 17cpi"
+  SIZE 12
+  CA "X"           
+  IN 3 2
+  FI 131
+END
+
+SECTION HEADER FIRST 2
+
+STRINGA 1
+BEGIN
+  KEY "Cod.Conc.1"
+  PROMPT 41 1 ""
+  FIELD 37->L0CCONC1
+END
+
+STRINGA 2
+BEGIN
+  KEY "Cod.Conc.2"
+  PROMPT 53 1 ""
+  FIELD 37->L0CCONC2
+END
+
+STRINGA 3
+BEGIN
+  KEY "Cod.Conc.3"
+  PROMPT 63 1 ""
+  FIELD 37->L0CCONC3
+END
+
+NUMERO 4
+BEGIN
+  KEY "Cod.Tes.1"
+  PROMPT 102 1 ""
+  FIELD 37->L0CTES1
+END
+
+NUMERO 5
+BEGIN
+  KEY "Cod.Tes.2"
+  PROMPT 114 1 ""
+  FIELD 37->L0CTES2
+END
+
+NUMERO 6
+BEGIN
+  KEY "Cod.Tes.3"
+  PROMPT 126 1 ""
+  FIELD 37->L0CTES3
+END
+
+END
+
+SECTION BODY ODD 4
+
+NUMERO 1
+BEGIN
+  KEY "Mese rif."
+  PROMPT 26 1 ""
+  FIELD 42->QLMP
+END
+
+NUMERO 2
+BEGIN
+  KEY "Anno rif."
+  PROMPT 29 1 ""
+  FIELD 42->QLAP
+END
+
+NUMERO 3
+BEGIN
+  KEY "Rit.eff"
+  PROMPT 48 1 ""
+  FIELD 42->QLRITEFF
+  PICTURE "###.###.###.###^^^"  
+  MESSAGE ADD,FL->1
+END
+
+NUMERO 4
+BEGIN
+  KEY "Rit.ver"
+  PROMPT 79 1 ""
+  FIELD 42->QLRITVER
+  PICTURE "###.###.###.###^^^"  
+  MESSAGE ADD,FL->2  
+END
+
+LISTA 5
+BEGIN
+  KEY "RSS"
+  PROMPT 100 1 ""
+  ITEM " | "
+  ITEM "1|VA" 
+  ITEM "2|SA"
+  ITEM "3|SI"    
+  FIELD 42->QLRSS
+END
+
+STRINGA 6
+BEGIN
+  KEY "Note"
+  PROMPT 111 1 ""
+  FIELD 42->QLNOTE
+END
+
+STRINGA 7
+BEGIN
+  KEY "Luogo Vers."
+  PROMPT 26 3 ""
+  FIELD 42->QLLV
+END
+
+STRINGA 8
+BEGIN
+  KEY "Tipo Vers."
+  PROMPT 34 3 ""
+  FIELD 42->QLTV
+END
+
+STRINGA 9
+BEGIN
+  KEY "CodTrib"
+  PROMPT 47 3 ""
+  FIELD 42->QLCT
+END
+
+STRINGA 10
+BEGIN
+  KEY "Art.Bil."
+  PROMPT 54 3 ""
+  FIELD 42->QLAB
+END
+
+STRINGA 11
+BEGIN
+  KEY "DATA VERS."
+  PROMPT 63 3 ""
+  FIELD 42->QLDV
+  PICTURE "## ^ ##  ^####" 
+END  
+  
+STRINGA 12
+BEGIN
+  KEY "SERIE"
+  PROMPT 84 3 ""
+  FIELD 42->QLSERIE
+END
+
+STRINGA 13
+BEGIN
+  KEY "NUMERO"
+  PROMPT 99 3 ""
+  FIELD 42->QLNUMERO[1,5]
+END
+
+END
+
+SECTION FOOTER LAST 2
+
+NUMERO 1
+BEGIN
+  KEY "Tot.rit.eff"
+  PROMPT 61 2 ""
+  PICTURE "###.###.###.###^^^"    
+END
+
+NUMERO 2
+BEGIN
+  KEY "Tot.rit.ver"
+  PROMPT 112 2 ""               
+  PICTURE "###.###.###.###^^^"    
+END
+
+END
+
+END
+
+
+
diff --git a/m770/77base4.frm b/m770/77base4.frm
index 1f3c9a547..e84d22bf7 100755
--- a/m770/77base4.frm
+++ b/m770/77base4.frm
@@ -1,617 +1,618 @@
-USE 37                         
-JOIN 72 INTO CODDITTA=CODDITTA 
-JOIN 73 TO 37 INTO CODDITTA=CODDITTA
-JOIN 74 TO 37 INTO CODDITTA=CODDITTA
-JOIN 75 TO 37 INTO CODDITTA=CODDITTA
-JOIN 76 TO 37 INTO CODDITTA=CODDITTA
-JOIN 77 TO 37 INTO CODDITTA=CODDITTA
-JOIN 36 TO 37 INTO CODDITTA=CODDITTA 
-JOIN %CAF TO 36 ALIAS 104 INTO CODTAB==CODCAAF
-JOIN 9 TO 36 INTO CODDITTA=CODDITTA
-JOIN 6 TO  9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN 8 TO 36 ALIAS 108 INTO CODANAGR==CODPRO
-JOIN 6 TO  8 ALIAS 106 INTO TIPOA="F" CODANAGR=CODANAGR 
-END
-
-DESCRIPTION
-BEGIN
-  36->* "Base 770"
-  37->* "Basebis 770" 
-  72->* "Quadro N"   
-  73->* "Quadro P"  
-  74->* "Quadro Q"  
-  75->* "Quadro R"  
-  76->* "Quadro S"          
-  77->* "Quadro T"  
-END
-
-GENERAL
-BEGIN
-  OFFSET 0 0
-  FONT "Roman 17cpi"
-  SIZE 12
-  CA "X"           
-  IN 3 2
-  FI 131
-END
-
-SECTION HEADER FIRST 7
-
-NUMERO 1
-BEGIN
-  KEY "M1"
-  PROMPT 60 1 ""
-  FIELD 37->ECCRIT12
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 2
-BEGIN
-  KEY "M2"
-  PROMPT 117 1 ""
-  FIELD 37->ECCRIT23              
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 3
-BEGIN
-  KEY "M3"
-  PROMPT 60 3 ""                  
-  FIELD 37->CRIMPDL
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 4
-BEGIN
-  KEY "M4"
-  PROMPT 60 5 ""
-  FIELD 37->CRIMPIVA    
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 5
-BEGIN
-  KEY "M5"
-  PROMPT 117 3 ""
-  FIELD 37->CRIMPRIT
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 6
-BEGIN
-  KEY "M6"
-  PROMPT 117 5 ""
-  FIELD 37->CRIMPRES
-  PICTURE "###.###.###.###^^^"      
-END
-
-END
-
-SECTION BODY ODD 1
-
-NUMERO 1
-BEGIN
-  KEY "MeseRif"
-  PROMPT 25 1 ""
-  FIELD 72->MESERIF
-END
-
-NUMERO 2
-BEGIN
-  KEY "AnnoRif"
-  PROMPT 28 1 ""
-  FIELD 72->ANNORIF
-END
-
-NUMERO 3
-BEGIN
-  KEY "imp. rimb"
-  PROMPT 37 1 ""
-  FIELD 72->IMPOSTA
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 4
-BEGIN
-  KEY "Compensi"
-  PROMPT 58 1 ""
-  FIELD 72->COMPENSI
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 5
-BEGIN
-  KEY "MeseRif"
-  PROMPT 83 1 ""
-  FIELD 72->MESERIF
-END
-
-NUMERO 6
-BEGIN
-  KEY "AnnoRif"
-  PROMPT 86 1 ""
-  FIELD 72->ANNORIF
-END
-
-NUMERO 7
-BEGIN
-  KEY "imp. rimb"
-  PROMPT 96 1 ""
-  FIELD 72->IMPOSTA
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 8
-BEGIN
-  KEY "Compensi"
-  PROMPT 116 1 ""
-  FIELD 72->COMPENSI
-  PICTURE "###.###.###.###^^^"      
-END
-
-END
-
-SECTION BODY EVEN 1
-
-NUMERO 1
-BEGIN
-  KEY "R - MeseRif"
-  PROMPT 25 1 ""
-  FIELD 75->MESERIF
-END
-
-NUMERO 2
-BEGIN
-  KEY "R - AnnoRif"
-  PROMPT 28 1 ""
-  FIELD 75->ANNORIF
-END
-
-NUMERO 3
-BEGIN
-  KEY "R - imp. rimb"
-  PROMPT 37 1 ""
-  FIELD 75->IMPRIMB
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 4
-BEGIN
-  KEY "R - Compensi"
-  PROMPT 58 1 ""
-  FIELD 75->COMPENSI
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 5
-BEGIN
-  KEY "R - MeseRif"
-  PROMPT 83 1 ""
-  FIELD 75->MESERIF
-END
-
-NUMERO 6
-BEGIN
-  KEY "R - AnnoRif"
-  PROMPT 86 1 ""
-  FIELD 75->ANNORIF
-END
-
-NUMERO 7
-BEGIN
-  KEY "R - imp. rimb"
-  PROMPT 96 1 ""
-  FIELD 75->IMPRIMB
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 8
-BEGIN
-  KEY "R - Compensi"
-  PROMPT 116 1 ""
-  FIELD 75->COMPENSI
-  PICTURE "###.###.###.###^^^"      
-END
-
-END
-
-SECTION HEADER EVEN 1
-
-NUMERO 1
-BEGIN
-  KEY "PS Imp.versata"
-  PROMPT 22 1 ""
-  PICTURE "###.###.###.###^^^"        
-END
-
-NUMERO 2
-BEGIN
-  KEY "PS Inter.lav.dip"
-  PROMPT 38 1 ""
-  PICTURE "###.###.###.###^^^"        
-END
-
-NUMERO 3
-BEGIN
-  KEY "PS Inter.dat.lav."
-  PROMPT 53 1 ""
-  PICTURE "###.###.###.###^^^"        
-END
-
-STRINGA 4
-BEGIN
-  KEY "PS Modalita' vers"
-  PROMPT 73 1 ""
-END
-
-STRINGA 5
-BEGIN
-  KEY "PS Cod.trib"
-  PROMPT 80 1 ""
-END
-
-DATA 6
-BEGIN
-  KEY "PS DATA VERS."
-  PROMPT 89 1 ""
-  PICTURE "## ^ ## ^####" 
-END  
-
-STRINGA 7
-BEGIN
-  KEY "PS Serie"
-  PROMPT 107 1 ""
-END
-  
-STRINGA 8
-BEGIN
-  KEY "PS Numero"
-  PROMPT 117 1 ""
-END
-
-END
-
-SECTION FOOTER EVEN 1
-
-NUMERO 1
-BEGIN
-  KEY "Q Mese paga"
-  PROMPT 25 1 ""
-  FIELD 74->MESEPAG
-END
-
-NUMERO 2
-BEGIN
-  KEY "Q Anno paga"
-  PROMPT 28 1 ""
-  FIELD 74->ANNOPAG
-END
-
-NUMERO 3
-BEGIN
-  KEY "Q Contr.versato"
-  PROMPT 46 1 ""
-  FIELD 74->CONTVERS
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 4
-BEGIN
-  KEY "Q Contr.rimborsati"
-  PROMPT 75 1 ""
-  FIELD 74->CONTRIMB
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 5
-BEGIN
-  KEY "Q Interes.e/o soprattasse"
-  PROMPT 104 1 ""
-  FIELD 74->INTERESSI
-  PICTURE "###.###.###.###^^^"      
-END
-
-STRINGA 6
-BEGIN
-  KEY "Q Cod.Reg"
-  PROMPT 126 1 ""
-  FIELD 74->CODREG
-END
-
-END
-
-SECTION FOOTER ODD 1
-
-NUMERO 1
-BEGIN
-  KEY "T Mese paga"
-  PROMPT 25 1 ""
-  FIELD 77->MESEPAG
-END
-
-NUMERO 2
-BEGIN
-  KEY "T Anno paga"
-  PROMPT 28 1 ""
-  FIELD 77->ANNOPAG
-END
-
-NUMERO 3
-BEGIN
-  KEY "T Contr.versato"
-  PROMPT 46 1 ""
-  FIELD 77->CONTVERS
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 4
-BEGIN
-  KEY "T Contr.rimborsati"
-  PROMPT 75 1 ""
-  FIELD 77->CONTRIMB
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 5
-BEGIN
-  KEY "T Interes.e/o soprattasse"
-  PROMPT 104 1 ""
-  FIELD 77->INTERESSI
-  PICTURE "###.###.###.###^^^"      
-END
-
-STRINGA 6
-BEGIN
-  KEY "T Cod.Reg"
-  PROMPT 126 1 ""
-  FIELD 77->CODREG
-END
-
-END
-
-SECTION FOOTER FIRST 25
-
-STRINGA 650
-BEGIN
- KEY "Quadro A" 
- PROMPT 21 3 ""
- FIELD 37->QCOMP[1,1]
-END
-
-STRINGA 653
-BEGIN
- KEY "Quadro A3" 
- PROMPT 26 3 ""
- FIELD 37->QCOMP[4,4]
-END
-
-STRINGA 660
-BEGIN
- KEY "Quadro B" 
- PROMPT 31 3 ""
- FIELD 37->QCOMP[5,5]
-END
-
-STRINGA 661
-BEGIN
- KEY "Quadro B1" 
- PROMPT 36 3 ""
- FIELD 37->QCOMP[6,6]
-END
-
-STRINGA 670
-BEGIN
- KEY "Quadro C" 
- PROMPT 41 3 ""
- FIELD 37->QCOMP[7,7]
-END
-
-STRINGA 680
-BEGIN
- KEY "Quadro D" 
- PROMPT 46 3 ""
- FIELD 37->QCOMP[8,8]
-END
-
-STRINGA 681
-BEGIN
- KEY "Quadro D1" 
- PROMPT 51 3 ""
- FIELD 37->QCOMP[9,9]
-END
-
-STRINGA 690
-BEGIN
- KEY "Quadro E" 
- PROMPT 56 3 ""
- FIELD 37->QCOMP[10,10]
-END
-
-STRINGA 691
-BEGIN
- KEY "Quadro E1" 
- PROMPT 62 3 ""
- FIELD 37->QCOMP[11,11]
-END
-
-STRINGA 692
-BEGIN
- KEY "Quadro E2" 
- PROMPT 67 3 ""
- FIELD 37->QCOMP[12,12]
-END
-
-STRINGA 700
-BEGIN
- KEY "Quadro F" 
- PROMPT 72 3 ""
- FIELD 37->QCOMP[13,13]
-END
-
-STRINGA 701
-BEGIN
- KEY "Quadro F1" 
- PROMPT 77 3 ""
- FIELD 37->QCOMP[14,14]
-END
-
-STRINGA 702
-BEGIN
- KEY "Quadro F2" 
- PROMPT 82 3 ""
- FIELD 37->QCOMP[15,15]
-END
-
-STRINGA 710
-BEGIN
- KEY "Quadro G" 
- PROMPT 87 3 ""
- FIELD 37->QCOMP[16,16]
-END
-
-STRINGA 711
-BEGIN
- KEY "Quadro G1" 
- PROMPT 92 3 ""
- FIELD 37->QCOMP[17,17]
-END
-
-STRINGA 720
-BEGIN
- KEY "Quadro H" 
- PROMPT 97 3 ""
- FIELD 37->QCOMP[18,18]
-END
-
-STRINGA 730
-BEGIN
- KEY "Quadro I" 
- PROMPT 102 3 ""
- FIELD 37->QCOMP[19,19]
-END
-
-STRINGA 651
-BEGIN
- KEY "Quadro A1" 
- PROMPT 21 7 ""
- FIELD 37->QCOMP[2,2]
-END
-
-STRINGA 652
-BEGIN
- KEY "Quadro A2" 
- PROMPT 26 7 ""
- FIELD 37->QCOMP[3,3]
-END
-
-STRINGA 760
-BEGIN
- KEY "Quadro N" 
- PROMPT 31 7 ""
- FIELD 37->QCOMP[20,20]
-END
-
-STRINGA 780
-BEGIN
- KEY "Quadro P" 
- PROMPT 37 7 ""
- FIELD 37->QCOMP[21,21]
-END
-
-STRINGA 790
-BEGIN
- KEY "Quadro Q" 
- PROMPT 42 7 ""
- FIELD 37->QCOMP[22,22]
-END
-
-STRINGA 800
-BEGIN
- KEY "Quadro R" 
- PROMPT 47 7 ""
- FIELD 37->QCOMP[23,23]
-END
-
-STRINGA 810
-BEGIN
- KEY "Quadro S" 
- PROMPT 52 7 ""
- FIELD 37->QCOMP[24,24]
-END
-
-STRINGA 820
-BEGIN
- KEY "Quadro T" 
- PROMPT 57 7 ""
- FIELD 37->QCOMP[25,25]
-END
-
-STRINGA 821
-BEGIN                    
-  PROMPT 85 9 ""
-  KEY "Numero quadri aggiuntivi L P Q S T"
-  FIELD 37->H0NQLAGG
-END
-
-STRINGA 822
-BEGIN        
-  PROMPT 75 11 ""
-  KEY "Numero quadri su supporto magnetico"
-  FIELD 37->NSUPPM
-END
-
-DATA 823
-BEGIN
-  KEY "Data"
-  PROMPT 29 16 ""
-  FLAGS "A"
-END
-
-STRINGA 824
-BEGIN         
-  KEY "Presidente"
-  PROMPT 51 15 ""
-END
-
-STRINGA 825 
-BEGIN
-  KEY "Dichiarante"
-  PROMPT 95 15 ""
-  FIELD 6->RAGSOC
-END
-
-STRINGA 826
-BEGIN
- KEY "CODICE FISCALE CAAF"
- PROMPT 48 18 ""
- FIELD 104@->S1
-END
-
-NUMERO 827
-BEGIN
- KEY "NUMERO ISCRIZIONE ALBO"
- PROMPT 122 18 ""
- FIELD 104@->I1
- PICTURE "#####"
-END
-
-STRINGA 828
-BEGIN
- KEY "CODICE FISCALE PROF."
- PROMPT 92 20 ""
- FIELD 106@->COFI
-END
-
-STRINGA 829
-BEGIN
-  KEY "FIRMA"
-  PROMPT 84 25 ""
-  FIELD 106@->RAGSOC
-END
-
-END
-
-END
-
-
-
+USE 36
+JOIN 37 TO 36 INTO CODDITTA=CODDITTA 
+JOIN 72 TO 36 INTO CODDITTA=CODDITTA 
+JOIN 73 TO 36 INTO CODDITTA=CODDITTA
+JOIN 74 TO 36 INTO CODDITTA=CODDITTA
+JOIN 75 TO 36 INTO CODDITTA=CODDITTA
+JOIN 76 TO 36 INTO CODDITTA=CODDITTA
+JOIN 77 TO 36 INTO CODDITTA=CODDITTA
+JOIN 9 TO 36 INTO CODDITTA=CODDITTA
+JOIN 6 TO  9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN 8 TO 36 ALIAS 108 INTO CODANAGR==CODPRO
+JOIN 6 TO  8 ALIAS 106 INTO TIPOA="F" CODANAGR=CODANAGR 
+JOIN 9 TO 36 ALIAS 104 INTO CODDITTA==DITTACAAF
+JOIN 6 TO 104@ ALIAS 206 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+END
+
+DESCRIPTION
+BEGIN
+  36->* "Base 770"
+  37->* "Basebis 770" 
+  72->* "Quadro N"   
+  73->* "Quadro P"  
+  74->* "Quadro Q"  
+  75->* "Quadro R"  
+  76->* "Quadro S"          
+  77->* "Quadro T"  
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Roman 17cpi"
+  SIZE 12
+  CA "X"           
+  IN 3 2
+  FI 131
+END
+
+SECTION HEADER FIRST 7
+
+NUMERO 1
+BEGIN
+  KEY "M1"
+  PROMPT 60 1 ""
+  FIELD 37->ECCRIT12
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 2
+BEGIN
+  KEY "M2"
+  PROMPT 117 1 ""
+  FIELD 37->ECCRIT23              
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 3
+BEGIN
+  KEY "M3"
+  PROMPT 60 3 ""                  
+  FIELD 37->CRIMPDL
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 4
+BEGIN
+  KEY "M4"
+  PROMPT 60 5 ""
+  FIELD 37->CRIMPIVA    
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 5
+BEGIN
+  KEY "M5"
+  PROMPT 117 3 ""
+  FIELD 37->CRIMPRIT
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 6
+BEGIN
+  KEY "M6"
+  PROMPT 117 5 ""
+  FIELD 37->CRIMPRES
+  PICTURE "###.###.###.###^^^"      
+END
+
+END
+
+SECTION BODY ODD 1
+
+NUMERO 1
+BEGIN
+  KEY "MeseRif"
+  PROMPT 25 1 ""
+  FIELD 72->MESERIF
+END
+
+NUMERO 2
+BEGIN
+  KEY "AnnoRif"
+  PROMPT 28 1 ""
+  FIELD 72->ANNORIF
+END
+
+NUMERO 3
+BEGIN
+  KEY "imp. rimb"
+  PROMPT 37 1 ""
+  FIELD 72->IMPOSTA
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 4
+BEGIN
+  KEY "Compensi"
+  PROMPT 58 1 ""
+  FIELD 72->COMPENSI
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 5
+BEGIN
+  KEY "MeseRif"
+  PROMPT 83 1 ""
+  FIELD 72->MESERIF
+END
+
+NUMERO 6
+BEGIN
+  KEY "AnnoRif"
+  PROMPT 86 1 ""
+  FIELD 72->ANNORIF
+END
+
+NUMERO 7
+BEGIN
+  KEY "imp. rimb"
+  PROMPT 96 1 ""
+  FIELD 72->IMPOSTA
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 8
+BEGIN
+  KEY "Compensi"
+  PROMPT 116 1 ""
+  FIELD 72->COMPENSI
+  PICTURE "###.###.###.###^^^"      
+END
+
+END
+
+SECTION BODY EVEN 1
+
+NUMERO 1
+BEGIN
+  KEY "R - MeseRif"
+  PROMPT 25 1 ""
+  FIELD 75->MESERIF
+END
+
+NUMERO 2
+BEGIN
+  KEY "R - AnnoRif"
+  PROMPT 28 1 ""
+  FIELD 75->ANNORIF
+END
+
+NUMERO 3
+BEGIN
+  KEY "R - imp. rimb"
+  PROMPT 37 1 ""
+  FIELD 75->IMPRIMB
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 4
+BEGIN
+  KEY "R - Compensi"
+  PROMPT 58 1 ""
+  FIELD 75->COMPENSI
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 5
+BEGIN
+  KEY "R - MeseRif"
+  PROMPT 83 1 ""
+  FIELD 75->MESERIF
+END
+
+NUMERO 6
+BEGIN
+  KEY "R - AnnoRif"
+  PROMPT 86 1 ""
+  FIELD 75->ANNORIF
+END
+
+NUMERO 7
+BEGIN
+  KEY "R - imp. rimb"
+  PROMPT 96 1 ""
+  FIELD 75->IMPRIMB
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 8
+BEGIN
+  KEY "R - Compensi"
+  PROMPT 116 1 ""
+  FIELD 75->COMPENSI
+  PICTURE "###.###.###.###^^^"      
+END
+
+END
+
+SECTION HEADER EVEN 1
+
+NUMERO 1
+BEGIN
+  KEY "PS Imp.versata"
+  PROMPT 22 1 ""
+  PICTURE "###.###.###.###^^^"        
+END
+
+NUMERO 2
+BEGIN
+  KEY "PS Inter.lav.dip"
+  PROMPT 38 1 ""
+  PICTURE "###.###.###.###^^^"        
+END
+
+NUMERO 3
+BEGIN
+  KEY "PS Inter.dat.lav."
+  PROMPT 53 1 ""
+  PICTURE "###.###.###.###^^^"        
+END
+
+STRINGA 4
+BEGIN
+  KEY "PS Modalita' vers"
+  PROMPT 73 1 ""
+END
+
+STRINGA 5
+BEGIN
+  KEY "PS Cod.trib"
+  PROMPT 80 1 ""
+END
+
+DATA 6
+BEGIN
+  KEY "PS DATA VERS."
+  PROMPT 89 1 ""
+  PICTURE "## ^ ## ^####" 
+END  
+
+STRINGA 7
+BEGIN
+  KEY "PS Serie"
+  PROMPT 107 1 ""
+END
+  
+STRINGA 8
+BEGIN
+  KEY "PS Numero"
+  PROMPT 117 1 ""
+END
+
+END
+
+SECTION FOOTER EVEN 1
+
+NUMERO 1
+BEGIN
+  KEY "Q Mese paga"
+  PROMPT 25 1 ""
+  FIELD 74->MESEPAG
+END
+
+NUMERO 2
+BEGIN
+  KEY "Q Anno paga"
+  PROMPT 28 1 ""
+  FIELD 74->ANNOPAG
+END
+
+NUMERO 3
+BEGIN
+  KEY "Q Contr.versato"
+  PROMPT 46 1 ""
+  FIELD 74->CONTVERS
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 4
+BEGIN
+  KEY "Q Contr.rimborsati"
+  PROMPT 75 1 ""
+  FIELD 74->CONTRIMB
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 5
+BEGIN
+  KEY "Q Interes.e/o soprattasse"
+  PROMPT 104 1 ""
+  FIELD 74->INTERESSI
+  PICTURE "###.###.###.###^^^"      
+END
+
+STRINGA 6
+BEGIN
+  KEY "Q Cod.Reg"
+  PROMPT 126 1 ""
+  FIELD 74->CODREG
+END
+
+END
+
+SECTION FOOTER ODD 1
+
+NUMERO 1
+BEGIN
+  KEY "T Mese paga"
+  PROMPT 25 1 ""
+  FIELD 77->MESEPAG
+END
+
+NUMERO 2
+BEGIN
+  KEY "T Anno paga"
+  PROMPT 28 1 ""
+  FIELD 77->ANNOPAG
+END
+
+NUMERO 3
+BEGIN
+  KEY "T Contr.versato"
+  PROMPT 46 1 ""
+  FIELD 77->CONTVERS
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 4
+BEGIN
+  KEY "T Contr.rimborsati"
+  PROMPT 75 1 ""
+  FIELD 77->CONTRIMB
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 5
+BEGIN
+  KEY "T Interes.e/o soprattasse"
+  PROMPT 104 1 ""
+  FIELD 77->INTERESSI
+  PICTURE "###.###.###.###^^^"      
+END
+
+STRINGA 6
+BEGIN
+  KEY "T Cod.Reg"
+  PROMPT 126 1 ""
+  FIELD 77->CODREG
+END
+
+END
+
+SECTION FOOTER FIRST 26
+
+STRINGA 650
+BEGIN
+ KEY "Quadro A" 
+ PROMPT 21 3 ""
+ FIELD 37->QCOMP[1,1]
+END
+
+STRINGA 653
+BEGIN
+ KEY "Quadro A3" 
+ PROMPT 26 3 ""
+ FIELD 37->QCOMP[4,4]
+END
+
+STRINGA 660
+BEGIN
+ KEY "Quadro B" 
+ PROMPT 31 3 ""
+ FIELD 37->QCOMP[5,5]
+END
+
+STRINGA 661
+BEGIN
+ KEY "Quadro B1" 
+ PROMPT 36 3 ""
+ FIELD 37->QCOMP[6,6]
+END
+
+STRINGA 670
+BEGIN
+ KEY "Quadro C" 
+ PROMPT 41 3 ""
+ FIELD 37->QCOMP[7,7]
+END
+
+STRINGA 680
+BEGIN
+ KEY "Quadro D" 
+ PROMPT 46 3 ""
+ FIELD 37->QCOMP[8,8]
+END
+
+STRINGA 681
+BEGIN
+ KEY "Quadro D1" 
+ PROMPT 51 3 ""
+ FIELD 37->QCOMP[9,9]
+END
+
+STRINGA 690
+BEGIN
+ KEY "Quadro E" 
+ PROMPT 56 3 ""
+ FIELD 37->QCOMP[10,10]
+END
+
+STRINGA 691
+BEGIN
+ KEY "Quadro E1" 
+ PROMPT 62 3 ""
+ FIELD 37->QCOMP[11,11]
+END
+
+STRINGA 692
+BEGIN
+ KEY "Quadro E2" 
+ PROMPT 67 3 ""
+ FIELD 37->QCOMP[12,12]
+END
+
+STRINGA 700
+BEGIN
+ KEY "Quadro F" 
+ PROMPT 72 3 ""
+ FIELD 37->QCOMP[13,13]
+END
+
+STRINGA 701
+BEGIN
+ KEY "Quadro F1" 
+ PROMPT 77 3 ""
+ FIELD 37->QCOMP[14,14]
+END
+
+STRINGA 702
+BEGIN
+ KEY "Quadro F2" 
+ PROMPT 82 3 ""
+ FIELD 37->QCOMP[15,15]
+END
+
+STRINGA 710
+BEGIN
+ KEY "Quadro G" 
+ PROMPT 87 3 ""
+ FIELD 37->QCOMP[16,16]
+END
+
+STRINGA 711
+BEGIN
+ KEY "Quadro G1" 
+ PROMPT 92 3 ""
+ FIELD 37->QCOMP[17,17]
+END
+
+STRINGA 720
+BEGIN
+ KEY "Quadro H" 
+ PROMPT 97 3 ""
+ FIELD 37->QCOMP[18,18]
+END
+
+STRINGA 730
+BEGIN
+ KEY "Quadro I" 
+ PROMPT 102 3 ""
+ FIELD 37->QCOMP[19,19]
+END
+
+STRINGA 651
+BEGIN
+ KEY "Quadro A1" 
+ PROMPT 21 7 ""
+ FIELD 37->QCOMP[2,2]
+END
+
+STRINGA 652
+BEGIN
+ KEY "Quadro A2" 
+ PROMPT 26 7 ""
+ FIELD 37->QCOMP[3,3]
+END
+
+STRINGA 760
+BEGIN
+ KEY "Quadro N" 
+ PROMPT 31 7 ""
+ FIELD 37->QCOMP[20,20]
+END
+
+STRINGA 780
+BEGIN
+ KEY "Quadro P" 
+ PROMPT 37 7 ""
+ FIELD 37->QCOMP[21,21]
+END
+
+STRINGA 790
+BEGIN
+ KEY "Quadro Q" 
+ PROMPT 42 7 ""
+ FIELD 37->QCOMP[22,22]
+END
+
+STRINGA 800
+BEGIN
+ KEY "Quadro R" 
+ PROMPT 47 7 ""
+ FIELD 37->QCOMP[23,23]
+END
+
+STRINGA 810
+BEGIN
+ KEY "Quadro S" 
+ PROMPT 52 7 ""
+ FIELD 37->QCOMP[24,24]
+END
+
+STRINGA 820
+BEGIN
+ KEY "Quadro T" 
+ PROMPT 57 7 ""
+ FIELD 37->QCOMP[25,25]
+END
+
+STRINGA 821
+BEGIN                    
+  PROMPT 85 9 ""
+  KEY "Numero quadri aggiuntivi L P Q S T"
+  FIELD 37->H0NQLAGG
+END
+
+STRINGA 822
+BEGIN        
+  PROMPT 75 11 ""
+  KEY "Numero quadri su supporto magnetico"
+  FIELD 37->NSUPPM
+END
+
+STRINGA 823
+BEGIN         
+  KEY "Presidente"
+  PROMPT 51 15 ""
+END
+
+STRINGA 824
+BEGIN
+  KEY "Dichiarante"
+  PROMPT 95 15 ""
+  FIELD 6->RAGSOC
+END
+
+DATA 825
+BEGIN
+  KEY "Data"
+  PROMPT 29 16 ""
+  FLAGS "A"
+END
+
+STRINGA 826
+BEGIN
+ KEY "CODICE FISCALE CAAF"
+ PROMPT 51 18 ""
+ FIELD 206@->COFI
+END
+
+NUMERO 827
+BEGIN
+ KEY "NUMERO ISCRIZIONE ALBO"
+ PROMPT 122 18 ""
+ FIELD 104@->NISCRAA
+ PICTURE "#####"
+END
+
+STRINGA 828
+BEGIN
+ KEY "CODICE FISCALE PROF."
+ PROMPT 92 20 ""
+ FIELD 106@->COFI
+END
+
+STRINGA 829
+BEGIN
+  KEY "FIRMA"
+  PROMPT 84 25 ""
+  FIELD 106@->RAGSOC
+END
+
+END
+
+END
+
+
+
diff --git a/m770/77busta.frm b/m770/77busta.frm
index 2c165a62b..1e37e7d72 100755
--- a/m770/77busta.frm
+++ b/m770/77busta.frm
@@ -1,352 +1,352 @@
-USE 36
-JOIN 37 INTO CODDITTA=CODDITTA
-JOIN 9 INTO CODDITTA=CODDITTA
-JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN 13 TO 106@ ALIAS 113 INTO COM==COMRF(COMRES)
-JOIN %UCS TO 113@ ALIAS 104 INTO CODTAB=UFFCSERV
-JOIN %UID TO 106@ ALIAS 204 INTO CODTAB=UFFIIDD
-JOIN 13 TO 204@ ALIAS 213 INTO COM==S6
-END
-
-DESCRIPTION
-BEGIN
-  58->* "Busta 770"
-  9->* "Ditte"
-  106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
-END
-
-GENERAL
-BEGIN
-  OFFSET 0 0
-  FONT "Courier New"
-  SIZE 11
-  CARATTERE "X"
-  INIZIO_POS 3 2
-  FINE_POS 131
-  GRID "+++++++++-|"
-END
-
-SECTION BODY ODD 54
-
-LISTA 1
-BEGIN
- KEY "Tipo anagrafica"
- FLAGS "H"
- FIELD 106@->TIPOA
- ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
- ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
-END
-
-STRINGA 1
-BEGIN
- KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
- PROMPT 48 10 ""
- FIELD 106@->COFI
-END
-
-STRINGA 3
-BEGIN
- KEY "RAGIONE SOCIALE"
- PROMPT 22 13 ""
- FIELD 106@->RAGSOC
-END
-
-STRINGA 6
-BEGIN
- KEY "VIA di RES."
- PROMPT 22 16 ""
- FIELD 106@->INDRF
- FIELD 106@->INDRES
-END
-
-STRINGA 7
-BEGIN
- KEY "NUM. CIVICO di RES."
- PROMPT 104 16 ""
- FIELD 106@->CIVRF
- FIELD 106@->CIVRES
-END
-
-STRINGA 8
-BEGIN
- KEY "CAP"
- PROMPT 22 19 ""
- FIELD 106@->CAPRF
- FIELD 106@->CAPRES
-END
-
-STRINGA 9
-BEGIN
- KEY "COMUNE DI RES.FISCALE"
- PROMPT 34 19 ""
- FIELD 113@->DENCOM
-END
-
-STRINGA 10
-BEGIN
- KEY "PROV DI RES.FISCALE"
- PROMPT 119 19 ""
- FIELD 113@->PROVCOM
-END
-
-STRINGA 650
-BEGIN
- KEY "Quadro A" 
- PROMPT 96 23 ""
- FIELD 37->QCOMP[1,1]
-END
-
-STRINGA 651
-BEGIN
- KEY "Quadro A1" 
- PROMPT 101 23 ""
- FIELD 37->QCOMP[2,2]
-END
-
-STRINGA 652
-BEGIN
- KEY "Quadro A2" 
- PROMPT 106 23 ""
- FIELD 37->QCOMP[3,3]
-END
-
-STRINGA 653
-BEGIN
- KEY "Quadro A3" 
- PROMPT 111 23 ""
- FIELD 37->QCOMP[4,4]
-END
-
-STRINGA 660
-BEGIN
- KEY "Quadro B" 
- PROMPT 116 23 ""
- FIELD 37->QCOMP[5,5]
-END
-
-STRINGA 661
-BEGIN
- KEY "Quadro B1" 
- PROMPT 121 23 ""
- FIELD 37->QCOMP[6,6]
-END
-
-STRINGA 670
-BEGIN
- KEY "Quadro C" 
- PROMPT 24 25 ""
- FIELD 37->QCOMP[7,7]
-END
-
-STRINGA 680
-BEGIN
- KEY "Quadro D" 
- PROMPT 29 25 ""
- FIELD 37->QCOMP[8,8]
-END
-
-STRINGA 681
-BEGIN
- KEY "Quadro D1" 
- PROMPT 34 25 ""
- FIELD 37->QCOMP[9,9]
-END
-
-STRINGA 690
-BEGIN
- KEY "Quadro E" 
- PROMPT 39 25 ""
- FIELD 37->QCOMP[10,10]
-END
-
-STRINGA 691
-BEGIN
- KEY "Quadro E1" 
- PROMPT 44 25 ""
- FIELD 37->QCOMP[11,11]
-END
-
-STRINGA 692
-BEGIN
- KEY "Quadro E2" 
- PROMPT 49 25 ""
- FIELD 37->QCOMP[12,12]
-END
-
-STRINGA 700
-BEGIN
- KEY "Quadro F" 
- PROMPT 54 25 ""
- FIELD 37->QCOMP[13,13]
-END
-
-STRINGA 701
-BEGIN
- KEY "Quadro F1" 
- PROMPT 59 25 ""
- FIELD 37->QCOMP[14,14]
-END
-
-STRINGA 702
-BEGIN
- KEY "Quadro F2" 
- PROMPT 64 25 ""
- FIELD 37->QCOMP[15,15]
-END
-
-STRINGA 710
-BEGIN
- KEY "Quadro G" 
- PROMPT 70 25 ""
- FIELD 37->QCOMP[16,16]
-END
-
-STRINGA 711
-BEGIN
- KEY "Quadro G1" 
- PROMPT 75 25 ""
- FIELD 37->QCOMP[17,17]
-END
-
-STRINGA 720
-BEGIN
- KEY "Quadro H" 
- PROMPT 80 25 ""
- FIELD 37->QCOMP[18,18]
-END
-
-STRINGA 730
-BEGIN
- KEY "Quadro I" 
- PROMPT 85 25 ""
- FIELD 37->QCOMP[19,19]
-END
-
-STRINGA 740
-BEGIN
- KEY "Quadro L" 
- PROMPT 90 25 ""
-END
-
-STRINGA 760
-BEGIN
- KEY "Quadro N" 
- PROMPT 96 25 ""
- FIELD 37->QCOMP[20,20]
-END
-
-STRINGA 780
-BEGIN
- KEY "Quadro P" 
- PROMPT 101 25 ""
- FIELD 37->QCOMP[21,21]
-END
-
-STRINGA 790
-BEGIN
- KEY "Quadro Q" 
- PROMPT 106 25 ""
- FIELD 37->QCOMP[22,22]
-END
-
-STRINGA 800
-BEGIN
- KEY "Quadro R" 
- PROMPT 111 25 ""
- FIELD 37->QCOMP[23,23]
-END
-
-STRINGA 810
-BEGIN
- KEY "Quadro S" 
- PROMPT 116 25 ""
- FIELD 37->QCOMP[24,24]
-END
-
-STRINGA 820
-BEGIN
- KEY "Quadro T" 
- PROMPT 121 25 ""
- FIELD 37->QCOMP[25,25]
-END
-
-STRINGA 20
-BEGIN
- KEY "Allegati mod.730" 
- PROMPT 111 27 ""
-END
-
-STRINGA 21
-BEGIN
- KEY "Numero quadri su supporto magnetico"
- FLAGS "H"
- FIELD 37->NSUPPM
- MESSAGE EMPTY RESET,22
- MESSAGE "X",22
-END
-
-STRINGA 22
-BEGIN
- KEY "Dichiarazione su supporto magnetico" 
- PROMPT 111 29 ""
-END
-
-STRINGA 30
-BEGIN
- KEY "Codice centro di servizio"
- FLAGS "H"
- FIELD 113@->UFFCSERV
- MESSAGE EMPTY DISABLE,10@|ENABLE,20@
- MESSAGE DISABLE,20@|ENABLE,10@
-END
-
-STRINGA 31
-BEGIN
- KEY "Centro servizio"
- PROMPT 142 40 "CENTRO SERVIZIO"
- GROUP 10
-END
-
-STRINGA 32
-BEGIN
- KEY "C.A.P. Centro servizio"
- PROMPT 138 45 ""
- FIELD 104@->S7
- GROUP 10
-END
-
-STRINGA 33
-BEGIN
- KEY "Comune Centro servizio"
- PROMPT 170 45 ""
- FIELD 104@->S0
- GROUP 10
-END
-
-STRINGA 34
-BEGIN
- KEY "Ufficio distrettuale"
- PROMPT 142 40 "UFFICIO DISTRETTUALE"
- GROUP 20
-END
-
-STRINGA 35
-BEGIN
- KEY "C.A.P. Ufficio distrettuale"
- PROMPT 138 45 ""
- FIELD 204@->S7
- FIELD 213@->CAPCOM
- GROUP 20
-END
-
-STRINGA 36
-BEGIN
- KEY "Comune Ufficio distrettuale"
- PROMPT 170 45 ""
- FIELD 204@->S0
- GROUP 20
-END
-
-END
-
+USE 36
+JOIN 37 INTO CODDITTA=CODDITTA
+JOIN 9 INTO CODDITTA=CODDITTA
+JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN 13 TO 106@ ALIAS 113 INTO COM==COMRF(COMRES)
+JOIN %UCS TO 113@ ALIAS 104 INTO CODTAB=UFFCSERV
+JOIN %UID TO 106@ ALIAS 204 INTO CODTAB=UFFIIDD
+JOIN 13 TO 204@ ALIAS 213 INTO COM==S6
+END
+
+DESCRIPTION
+BEGIN
+  58->* "Busta 770"
+  9->* "Ditte"
+  106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Courier New"
+  SIZE 11
+  CARATTERE "X"
+  INIZIO_POS 3 2
+  FINE_POS 131
+  GRID "+++++++++-|"
+END
+
+SECTION BODY ODD 54
+
+LISTA 1
+BEGIN
+ KEY "Tipo anagrafica"
+ FLAGS "H"
+ FIELD 106@->TIPOA
+ ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
+ ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
+END
+
+STRINGA 1
+BEGIN
+ KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
+ PROMPT 48 10 ""
+ FIELD 106@->COFI
+END
+
+STRINGA 3
+BEGIN
+ KEY "RAGIONE SOCIALE"
+ PROMPT 22 13 ""
+ FIELD 106@->RAGSOC
+END
+
+STRINGA 6
+BEGIN
+ KEY "VIA di RES."
+ PROMPT 22 16 ""
+ FIELD 106@->INDRF
+ FIELD 106@->INDRES
+END
+
+STRINGA 7
+BEGIN
+ KEY "NUM. CIVICO di RES."
+ PROMPT 104 16 ""
+ FIELD 106@->CIVRF
+ FIELD 106@->CIVRES
+END
+
+STRINGA 8
+BEGIN
+ KEY "CAP"
+ PROMPT 22 19 ""
+ FIELD 106@->CAPRF
+ FIELD 106@->CAPRES
+END
+
+STRINGA 9
+BEGIN
+ KEY "COMUNE DI RES.FISCALE"
+ PROMPT 34 19 ""
+ FIELD 113@->DENCOM
+END
+
+STRINGA 10
+BEGIN
+ KEY "PROV DI RES.FISCALE"
+ PROMPT 119 19 ""
+ FIELD 113@->PROVCOM
+END
+
+STRINGA 650
+BEGIN
+ KEY "Quadro A" 
+ PROMPT 96 23 ""
+ FIELD 37->QCOMP[1,1]
+END
+
+STRINGA 651
+BEGIN
+ KEY "Quadro A1" 
+ PROMPT 101 23 ""
+ FIELD 37->QCOMP[2,2]
+END
+
+STRINGA 652
+BEGIN
+ KEY "Quadro A2" 
+ PROMPT 106 23 ""
+ FIELD 37->QCOMP[3,3]
+END
+
+STRINGA 653
+BEGIN
+ KEY "Quadro A3" 
+ PROMPT 111 23 ""
+ FIELD 37->QCOMP[4,4]
+END
+
+STRINGA 660
+BEGIN
+ KEY "Quadro B" 
+ PROMPT 116 23 ""
+ FIELD 37->QCOMP[5,5]
+END
+
+STRINGA 661
+BEGIN
+ KEY "Quadro B1" 
+ PROMPT 121 23 ""
+ FIELD 37->QCOMP[6,6]
+END
+
+STRINGA 670
+BEGIN
+ KEY "Quadro C" 
+ PROMPT 24 25 ""
+ FIELD 37->QCOMP[7,7]
+END
+
+STRINGA 680
+BEGIN
+ KEY "Quadro D" 
+ PROMPT 29 25 ""
+ FIELD 37->QCOMP[8,8]
+END
+
+STRINGA 681
+BEGIN
+ KEY "Quadro D1" 
+ PROMPT 34 25 ""
+ FIELD 37->QCOMP[9,9]
+END
+
+STRINGA 690
+BEGIN
+ KEY "Quadro E" 
+ PROMPT 39 25 ""
+ FIELD 37->QCOMP[10,10]
+END
+
+STRINGA 691
+BEGIN
+ KEY "Quadro E1" 
+ PROMPT 44 25 ""
+ FIELD 37->QCOMP[11,11]
+END
+
+STRINGA 692
+BEGIN
+ KEY "Quadro E2" 
+ PROMPT 49 25 ""
+ FIELD 37->QCOMP[12,12]
+END
+
+STRINGA 700
+BEGIN
+ KEY "Quadro F" 
+ PROMPT 54 25 ""
+ FIELD 37->QCOMP[13,13]
+END
+
+STRINGA 701
+BEGIN
+ KEY "Quadro F1" 
+ PROMPT 59 25 ""
+ FIELD 37->QCOMP[14,14]
+END
+
+STRINGA 702
+BEGIN
+ KEY "Quadro F2" 
+ PROMPT 64 25 ""
+ FIELD 37->QCOMP[15,15]
+END
+
+STRINGA 710
+BEGIN
+ KEY "Quadro G" 
+ PROMPT 70 25 ""
+ FIELD 37->QCOMP[16,16]
+END
+
+STRINGA 711
+BEGIN
+ KEY "Quadro G1" 
+ PROMPT 75 25 ""
+ FIELD 37->QCOMP[17,17]
+END
+
+STRINGA 720
+BEGIN
+ KEY "Quadro H" 
+ PROMPT 80 25 ""
+ FIELD 37->QCOMP[18,18]
+END
+
+STRINGA 730
+BEGIN
+ KEY "Quadro I" 
+ PROMPT 85 25 ""
+ FIELD 37->QCOMP[19,19]
+END
+
+STRINGA 740
+BEGIN
+ KEY "Quadro L" 
+ PROMPT 90 25 ""
+END
+
+STRINGA 760
+BEGIN
+ KEY "Quadro N" 
+ PROMPT 96 25 ""
+ FIELD 37->QCOMP[20,20]
+END
+
+STRINGA 780
+BEGIN
+ KEY "Quadro P" 
+ PROMPT 101 25 ""
+ FIELD 37->QCOMP[21,21]
+END
+
+STRINGA 790
+BEGIN
+ KEY "Quadro Q" 
+ PROMPT 106 25 ""
+ FIELD 37->QCOMP[22,22]
+END
+
+STRINGA 800
+BEGIN
+ KEY "Quadro R" 
+ PROMPT 111 25 ""
+ FIELD 37->QCOMP[23,23]
+END
+
+STRINGA 810
+BEGIN
+ KEY "Quadro S" 
+ PROMPT 116 25 ""
+ FIELD 37->QCOMP[24,24]
+END
+
+STRINGA 820
+BEGIN
+ KEY "Quadro T" 
+ PROMPT 121 25 ""
+ FIELD 37->QCOMP[25,25]
+END
+
+STRINGA 20
+BEGIN
+ KEY "Allegati mod.730" 
+ PROMPT 111 27 ""
+END
+
+STRINGA 21
+BEGIN
+ KEY "Numero quadri su supporto magnetico"
+ FLAGS "H"
+ FIELD 37->NSUPPM
+ MESSAGE EMPTY RESET,22
+ MESSAGE "X",22
+END
+
+STRINGA 22
+BEGIN
+ KEY "Dichiarazione su supporto magnetico" 
+ PROMPT 111 29 ""
+END
+
+STRINGA 30
+BEGIN
+ KEY "Codice centro di servizio"
+ FLAGS "H"
+ FIELD 113@->UFFCSERV
+ MESSAGE EMPTY DISABLE,10@|ENABLE,20@
+ MESSAGE DISABLE,20@|ENABLE,10@
+END
+
+STRINGA 31
+BEGIN
+ KEY "Centro servizio"
+ PROMPT 142 40 "CENTRO SERVIZIO"
+ GROUP 10
+END
+
+STRINGA 32
+BEGIN
+ KEY "C.A.P. Centro servizio"
+ PROMPT 138 45 ""
+ FIELD 104@->S7
+ GROUP 10
+END
+
+STRINGA 33
+BEGIN
+ KEY "Comune Centro servizio"
+ PROMPT 170 45 ""
+ FIELD 104@->S0
+ GROUP 10
+END
+
+STRINGA 34
+BEGIN
+ KEY "Ufficio distrettuale"
+ PROMPT 142 40 "UFFICIO DISTRETTUALE"
+ GROUP 20
+END
+
+STRINGA 35
+BEGIN
+ KEY "C.A.P. Ufficio distrettuale"
+ PROMPT 138 45 ""
+ FIELD 204@->S7
+ FIELD 213@->CAPCOM
+ GROUP 20
+END
+
+STRINGA 36
+BEGIN
+ KEY "Comune Ufficio distrettuale"
+ PROMPT 170 45 ""
+ FIELD 204@->S0
+ GROUP 20
+END
+
+END
+
 END
\ No newline at end of file
diff --git a/m770/77qa.frm b/m770/77qa.frm
index 0e4bad0e1..cad575658 100755
--- a/m770/77qa.frm
+++ b/m770/77qa.frm
@@ -1,1140 +1,1140 @@
-USE 44
-JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
-JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
-JOIN 9 INTO CODDITTA=CODDITTA
-JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
-JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
-JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
-JOIN 36 INTO CODDITTA=CODDITTA
-
-END
-DESCRIPTION
-BEGIN
-  44->* "Quadro A 770"
-  45->* "Anagrafica dei dipendenti"
-  104@->* "Tabella CAAF"
-  9->* "Ditte"
-  106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
-  108@->* "Anagrafica persone fisiche (ditta)"
-  113@->* "Comuni DITTA (nascita)"
-  213@->* "Comuni DITTA (residenza)"
-END
-
-GENERAL
-BEGIN
-  OFFSET 0 0
-  FONT "Courier New"
-  SIZE 11
-  CARATTERE "X"
-  INIZIO_POS 3 2
-  FINE_POS 131
-  GRID "+++++++++-|"
-END
-
-SECTION HEADER FIRST 28
-
-LISTA 1
-BEGIN
- KEY "Tipo anagrafica"
- FLAGS "H"
- FIELD 106@->TIPOA
- ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
- ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
-END
-
-STRINGA 2
-BEGIN
- KEY "CODICE FISCALE"
- PROMPT 3 11 ""
- FIELD 106@->COFI
-END
-
-STRINGA 3
-BEGIN
- KEY "RAGIONE SOCIALE"
- PROMPT 39 11 ""
- GROUP  2
- FIELD 106@->RAGSOC
-END
-
-STRINGA 4
-BEGIN
- KEY "COGNOME"
- PROMPT 39 11 ""
- GROUP  1
- FIELD 106@->RAGSOC[1,30]
-END
-
-STRINGA 5
-BEGIN
- KEY "NOME"
- PROMPT 17 13 ""
- GROUP  1
- FIELD 106@->RAGSOC[31,50]
-END
-
-STRINGA 6
-BEGIN
- KEY "SESSO"
- PROMPT 58 13 ""
- GROUP  1
- FIELD 108@->SESSO
-END
-
-STRINGA 7
-BEGIN
- KEY "DATA DI NASCITA"
- PROMPT 67 13 ""
- GROUP  1
- FIELD 108@->DATANASC
-END
-
-STRINGA 8
-BEGIN
- KEY "COMUNE DI NASCITA"
- PROMPT 84 13 ""
- GROUP  1
- FIELD 113@->DENCOM
-END
-
-STRINGA 9
-BEGIN
- KEY "PROV. DI NASCITA"
- PROMPT 125 13 ""
- GROUP  1
- FIELD 113@->PROVCOM
-END
-
-STRINGA 10
-BEGIN
- KEY "COMUNE DI RES.FISCALE"
- PROMPT 17 15 ""
- FIELD 213@->DENCOM
-END
-
-STRINGA 11
-BEGIN
- KEY "PROV DI RES.FISCALE"
- PROMPT 59 15 ""
- FIELD 213@->PROVCOM
-END
-
-STRINGA 12
-BEGIN
- KEY "VIA di RES."
- PROMPT 66 15 ""
- FIELD 106@->INDRF
- FIELD 106@->INDRES
-END
-
-STRINGA 15
-BEGIN
- KEY "NUM. CIVICO di RES."
- PROMPT 104 15 ""
- FIELD 106@->CIVRF
- FIELD 106@->CIVRES
-END
-
-STRINGA 16
-BEGIN
- KEY "CAP"
- PROMPT 123 15 ""
- FIELD 106@->CAPRF
- FIELD 106@->CAPRES
-END
-
-STRINGA 13
-BEGIN
- KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
- PROMPT 85 18 ""
-END
-
-NUMERO 14
-BEGIN
- KEY "NUM. FOGLIO"
- PROMPT 125 21 ""
-END
-
-END
-
-SECTION BODY ODD 20
-
-STRINGA 1
-BEGIN
- KEY "COD.FIS"
- PROMPT 11 1 ""
- FIELD 45->CODFI
-END
-
-STRINGA 2
-BEGIN
- KEY "COGNOME"
- PROMPT 44 1 ""
- FIELD 45->COGNOME
-END
-
-STRINGA 3
-BEGIN
- KEY "NOME"
- PROMPT 82 1 ""
- FIELD 45->NOME
-END
-
-DATA 4
-BEGIN
- KEY "DATA NASCITA"
- PROMPT 114 1 ""
- FIELD 45->DATANA
- FORMAT "1444-"
-END
-
-STRINGA 5
-BEGIN
- KEY "SESSO"
- PROMPT 128 1 ""
- FIELD 45->SESSO
-END
-
-STRINGA 6
-BEGIN
- KEY "COMUNE DI NASCITA"
- PROMPT 11 3 ""
- FIELD 45->COMUNENA
-END
-
-STRINGA 7
-BEGIN
- KEY "PROV DI NASCITA"
- PROMPT 47 3 ""
- FIELD 45->PROVNA
-END
-
-STRINGA 8
-BEGIN
- KEY "COMUNE DI RESIDENZA"
- PROMPT 54 3 ""
- FIELD 45->COMRES
-END
-
-STRINGA 9
-BEGIN
- KEY "PROV. RESIDENZA"
- PROMPT 88 3 ""
- FIELD 45->PROVRES
-END
-
-STRINGA 10
-BEGIN
- KEY "INDIRIZZO RES."
- PROMPT 95 3 ""
- FIELD 45->INDRES
-END
-
-STRINGA 11
-BEGIN
- KEY "STATO CIVILE"
- PROMPT 13 5 ""
- FIELD 45->STATOCIV
-END
-
-STRINGA 12
-BEGIN
- KEY "QUALIFICA"
- PROMPT 22 5 ""
- FIELD 45->QUALIFICA
-END
-
-STRINGA 13
-BEGIN
- KEY "AREA ATTIVITA'"
- PROMPT 31 5 ""
- FIELD 44->AREAATT
-END
-
-STRINGA 14
-BEGIN
- KEY "TIPO"
- PROMPT 38 5 ""
- FIELD 44->TIPO
-END
-
-NUMERO 15
-BEGIN
- KEY "NUMERO GIORNI"
- PROMPT 46 5 ""
- FIELD 44->NUMGIO
- PICTURE "###"
-END
-
-DATA 16
-BEGIN
- KEY "DATA FINE RAPPORTO"
- PROMPT 62 5 ""
- FORMAT "1444-"    
- PICTURE "## ^ ##^^^^^"
- FIELD 44->DATAFR
-END
-
-NUMERO 17
-BEGIN
- KEY "GIORNI DETRAZ. LAV. DIP."
- PROMPT 80 5 ""
- FIELD 44->NUMGIODET
- PICTURE "###"
-END
-
-STRINGA 18
-BEGIN
- KEY "CF DATORE LAVORO PRECEDENTE"
- PROMPT 98 5 ""
- FIELD 44->CFDLPREC
-END
-
-NUMERO 19
-BEGIN
- KEY "CAUSA"
- PROMPT 129 5 ""
- FIELD 44->CAUSA
-END
-
-NUMERO 20
-BEGIN
- KEY "IN DENARO"
- PROMPT 9 7 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->20
- FIELD 44->DENARO
-END
-
-NUMERO 21
-BEGIN
- KEY "IN NATURA"
- PROMPT 24 7 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->21
- FIELD 44->NATURA
-END
-
-NUMERO 22
-BEGIN
- KEY "CONTRIBUTI OBBLIGATORI"
- PROMPT 39 7 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->22
- FIELD 44->COBBDIP
-END
-
-NUMERO 23
-BEGIN
- KEY "COMPENSI NETTI"
- PROMPT 55 7 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->23
- FIELD 44->COMPNETTI
-END
-
-NUMERO 24
-BEGIN
- KEY "AMMONTARE LORDO"
- PROMPT 70 7 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->24
- FIELD 44->AMMLORDO
-END
-
-NUMERO 25
-BEGIN
- KEY "IND.ASS.CONTRIBUTI OBBLIGATORI"
- PROMPT 85 7 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->25
- FIELD 44->IACOBBCD
-END
-
-NUMERO 26
-BEGIN
- KEY "SOMME NON ASSOG. A RITEN."
- PROMPT 101 7 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->26
- FIELD 44->NORIT
-END
-
-NUMERO 27
-BEGIN
- KEY "TOTALE IMPONIBILE"
- PROMPT 117 7 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->27
- FIELD 44->TOTIMP
-END
-
-NUMERO 28
-BEGIN
- KEY "ASSEGNI ED INDENNITA'"
- PROMPT 9 9 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->28
- FIELD 44->AIENTIPREV
-END
-
-NUMERO 29
-BEGIN
- KEY "AMMONTARE COMPENSI CORRISPOSTI DA TERZI"
- PROMPT 24 9 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->29
- FIELD 44->CCTAMMCONT
-END
-
-NUMERO 30
-BEGIN
- KEY "TOTALE IMPONIBILE 2"
- PROMPT 39 9 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->30
- FIELD 44->TOTIMP2
-END
-
-NUMERO 31
-BEGIN
- KEY "IMPOSTA CORRISPONDENTE"
- PROMPT 55 9 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->31
- FIELD 44->ICTOTIMP
-END
-
-NUMERO 32
-BEGIN
- KEY "DETRAZIONE PER CONIUGE A CARICO"
- PROMPT 70 9 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->32
- FIELD 44->DETCC
-END
-
-NUMERO 33
-BEGIN
- KEY "DETRAZIONE PER FIGLI A CARICO"
- PROMPT 85 9 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->33
- FIELD 44->DETFC
-END
-
-NUMERO 34
-BEGIN
- KEY "DETRAZIONE PER ALTRI FAMILIARI A CARICO"
- PROMPT 101 9 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->34
- FIELD 44->DETAF
-END
-
-NUMERO 35
-BEGIN
- KEY "DETRAZIONE PER LAVORO DIPENDENTE"
- PROMPT 117 9 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->35
- FIELD 44->DETLD
-END
-
-NUMERO 36
-BEGIN
- KEY "DETRAZIONE PER ONERI"
- PROMPT 9 11 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->36
- FIELD 44->DETO
-END
-
-NUMERO 37
-BEGIN
- KEY "TOTALE DETRAZIONI"
- PROMPT 24 11 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->37
- FIELD 44->TOTDET
-END
-
-NUMERO 38
-BEGIN
- KEY "INCREMENTO DETRAZIONI PER FIGLI A CARICO"
- PROMPT 39 11 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->38
- FIELD 44->INCDETFC
-END
-
-NUMERO 39
-BEGIN
- KEY "RITENUTE OPERATE DA TERZI"
- PROMPT 55 11 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->39
- FIELD 44->AMRIOT
-END
-
-NUMERO 40
-BEGIN
- KEY "RITENUTE OPERATE DAL DATORE DI LAVORO"
- PROMPT 70 11 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->40
- FIELD 44->AMRIODL
-END
-
-NUMERO 41
-BEGIN
- KEY "ECCEDENZA RITENUTE RIMBORSATE"
- PROMPT 85 11 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->41
- FIELD 44->ECCRITRIMB
-END
-
-NUMERO 42
-BEGIN
- KEY "AMMONTARE RITENUTE DOVUTE"
- PROMPT 101 11 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->42
- FIELD 44->AMMRITDOV
-END
-
-NUMERO 43
-BEGIN
- KEY "EROGAZIONI PER SPESE SANITARIE"
- PROMPT 117 11 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->43
- FIELD 44->ERSPSAN
-END
-
-NUMERO 44
-BEGIN
- KEY "PREMI DI ASSICURAZIONE VITA E INFORTUNI"
- PROMPT 9 13 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->44
- FIELD 44->PRASSVI
-END
-
-NUMERO 45
-BEGIN
- KEY "CONTRIBUTI PER PREVIDENZA COMPLEMENTARE"
- PROMPT 24 13 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->45
- FIELD 44->CONPRECO
-END
-
-NUMERO 46
-BEGIN
- KEY "CONTRIBUTI OBBLIGATORI A CARICO DEL DIPENDENTE"
- PROMPT 39 13 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->46
- FIELD 44->COBBDIP2
-END
-
-NUMERO 47
-BEGIN
- KEY "AMMONTARE IMPONIBILE"
- PROMPT 55 13 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->47
- FIELD 44->AMMIMP
-END
-
-NUMERO 48
-BEGIN
- KEY "DETRAZIONI D'IMPOSTA"
- PROMPT 70 13 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->48
- FIELD 44->DETIMPOS
-END
-
-NUMERO 49
-BEGIN
- KEY "RITENUTA ESEGUITA"
- PROMPT 85 13 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->49
- FIELD 44->RITESEG
-END
-
-NUMERO 50
-BEGIN
- KEY "ALTRE SOMME E VALORI NON ASSOGGETTATI A RITENUTA"
- PROMPT 101 13 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->50
- FIELD 44->SVNASSRI
-END
-
-NUMERO 51
-BEGIN
- KEY "AMMONTARE IMPONIBILE AI FINI DEL C.S.S.N."
- PROMPT 117 13 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->51
- FIELD 44->AIFCSSN
-END
-
-STRINGA 52
-BEGIN
- KEY "CONGUAGLI NON EFFETTUATI"
- PROMPT 13 15 ""
- FIELD 44->CONEFF
-END
-
-NUMERO 53
-BEGIN
- KEY "IMPOSTA VERSATA"
- PROMPT 20 15 ""
- PICTURE "###.###.###^^^"
- MESSAGE ADD,FL->53
- FIELD 44->IMPVERS
-END
-
-NUMERO 54
-BEGIN
- KEY "INTERESSI"
- PROMPT 32 15 ""
- MESSAGE ADD,FL->54
- FIELD 44->INTERE
- PICTURE "###.###.###^^^"
-END
-
-NUMERO 55
-BEGIN
- KEY "CONTRIBUTO VERSATO"
- PROMPT 45 15 ""
- PICTURE "###.###.###^^^"
- MESSAGE ADD,FL->55
- FIELD 44->CSSN95CV
-END
-
-NUMERO 56
-BEGIN
- KEY "INTERESSI"
- PROMPT 57 15 ""
- PICTURE "###.###.###^^^"
- MESSAGE ADD,FL->56
- FIELD 44->INTERE2
-END
-
-STRINGA 57
-BEGIN
- KEY "CONGUAGLI NON EFFETTUATI"
- PROMPT 73 15 ""
- FIELD 44->CNEFF
-END
-
-STRINGA 58
-BEGIN
- KEY "RETTIFICA CONGUAGLIO"
- PROMPT 81 15 ""
- FIELD 44->RETCON
-END
-
-NUMERO 59
-BEGIN
- KEY "IMPOSTA RIMBORSATA"
- PROMPT 85 15 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->59
- FIELD 44->IMPRIMB
-END
-
-NUMERO 60
-BEGIN
- KEY "IMPOSTA VERSATA"
- PROMPT 101 15 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->60
- FIELD 44->IMPVER
-END
-
-NUMERO 61
-BEGIN
- KEY "INTERESSI"
- PROMPT 117 15 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->61
- FIELD 44->INTIRPEF
-END
-
-NUMERO 62
-BEGIN
- KEY "IMPOSTA VERSATA"
- PROMPT 13 17 ""
- PICTURE "###.###^^^"
- MESSAGE ADD,FL->62
- FIELD 44->IMPVER2
-END
-
-NUMERO 63
-BEGIN
- KEY "INTERESSI"
- PROMPT 24 17 ""
- PICTURE "###.###^^^"
- MESSAGE ADD,FL->63
- FIELD 44->INTER
-END
-
-NUMERO 64
-BEGIN
- KEY "SOPPRATTASSA SU IRPEF"
- PROMPT 36 17 ""
- PICTURE "###.###^^^"
- MESSAGE ADD,FL->64
- FIELD 44->STSIRPEF
-END
-
-NUMERO 65
-BEGIN
- KEY "CONTRIBUTO A RIMBORSO"
- PROMPT 45 17 ""
- PICTURE "###.###.###^^^"
- MESSAGE ADD,FL->65
- FIELD 44->CONRIMB
-END
-
-NUMERO 66
-BEGIN
- KEY "CONTRIBUTO VERSATO"
- PROMPT 59 17 ""
- PICTURE "###.###.###^^^"
- MESSAGE ADD,FL->66
- FIELD 44->CONVER
-END
-
-NUMERO 67
-BEGIN
- KEY "INTERESSI"
- PROMPT 73 17 ""
- PICTURE "###.###.###^^^"
- MESSAGE ADD,FL->67
- FIELD 44->INTER2
-END
-
-NUMERO 68
-BEGIN
- KEY "CONTRIBUTO VERSATO"
- PROMPT 86 17 ""
- PICTURE "###.###.###^^^"
- MESSAGE ADD,FL->68
- FIELD 44->CONVER2
-END
-
-NUMERO 69
-BEGIN
- KEY "INTERESSI"
- PROMPT 100 17 ""
- PICTURE "###.###.###^^^"
- MESSAGE ADD,FL->69
- FIELD 44->INTER3
-END
-
-NUMERO 70
-BEGIN
- KEY "SOPPRATTASE SU C.S.S.N."
- PROMPT 114 17 ""
- PICTURE "###.###.###^^^"
- MESSAGE ADD,FL->70
- FIELD 44->STSCSSN70
-END
-
-STRINGA 71
-BEGIN
- KEY "MODELLO 730 NON LIQUIDABILE"
- PROMPT 129 17 ""
- FIELD 44->M730NLIQ
-END
-
-STRINGA 72
-BEGIN
- KEY "CODICE FISCALE CAAF"
- PROMPT 11 19 ""
- FIELD 104@->S1
-END
-
-STRINGA 73
-BEGIN
- KEY "DENOMINAZIONE CAAF"
- PROMPT 42 19 ""
- FIELD 104@->S0
-END
-
-NUMERO 74
-BEGIN
- KEY "NUMERO ISCRIZIONE ALBO"
- PROMPT 122 19 ""
- FIELD 104@->I1
- PICTURE "#####"
-END
-
-END
-
-SECTION FOOTER LAST 12
-
-NUMERO 20
-BEGIN
- KEY "IN DENARO"
- PROMPT 9 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 21
-BEGIN
- KEY "IN NATURA"
- PROMPT 24 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 22
-BEGIN
- KEY "CONTRIBUTI OBBLIGATORI"
- PROMPT 39 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 23
-BEGIN
- KEY "COMPENSI NETTI"
- PROMPT 55 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 24
-BEGIN
- KEY "AMMONTARE LORDO"
- PROMPT 70 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 25
-BEGIN
- KEY "IND.ASS.CONTRIBUTI OBBLIGATORI"
- PROMPT 85 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 26
-BEGIN
- KEY "SOMME NON ASSOG. A RITEN."
- PROMPT 101 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 27
-BEGIN
- KEY "TOTALE IMPONIBILE"
- PROMPT 117 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 28
-BEGIN
- KEY "ASSEGNI ED INDENNITA'"
- PROMPT 9 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 29
-BEGIN
- KEY "AMMONTARE COMPENSI CORRISPOSTI DA TERZI"
- PROMPT 24 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 30
-BEGIN
- KEY "TOTALE IMPONIBILE 2"
- PROMPT 39 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 31
-BEGIN
- KEY "IMPOSTA CORRISPONDENTE"
- PROMPT 55 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 32
-BEGIN
- KEY "DETRAZIONE PER CONIUGE A CARICO"
- PROMPT 70 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 33
-BEGIN
- KEY "DETRAZIONE PER FIGLI A CARICO"
- PROMPT 85 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 34
-BEGIN
- KEY "DETRAZIONE PER ALTRI FAMILIARI A CARICO"
- PROMPT 101 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 35
-BEGIN
- KEY "DETRAZIONE PER LAVORO DIPENDENTE"
- PROMPT 117 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 36
-BEGIN
- KEY "DETRAZIONE PER ONERI"
- PROMPT 9 5 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 37
-BEGIN
- KEY "TOTALE DETRAZIONI"
- PROMPT 24 5 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 38
-BEGIN
- KEY "INCREMENTO DETRAZIONI PER FIGLI A CARICO"
- PROMPT 39 5 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 39
-BEGIN
- KEY "RITENUTE OPERATE DA TERZI"
- PROMPT 55 5 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 40
-BEGIN
- KEY "RITENUTE OPERATE DAL DATORE DI LAVORO"
- PROMPT 70 5 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 41
-BEGIN
- KEY "ECCEDENZA RITENUTE RIMBORSATE"
- PROMPT 85 5 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 42
-BEGIN
- KEY "AMMONTARE RITENUTE DOVUTE"
- PROMPT 101 5 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 43
-BEGIN
- KEY "EROGAZIONI PER SPESE SANITARIE"
- PROMPT 117 5 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 44
-BEGIN
- KEY "PREMI DI ASSICURAZIONE VITA E INFORTUNI"
- PROMPT 9 7 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 45
-BEGIN
- KEY "CONTRIBUTI PER PREVIDENZA COMPLEMENTARE"
- PROMPT 24 7 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 46
-BEGIN
- KEY "CONTRIBUTI OBBLIGATORI A CARICO DEL DIPENDENTE"
- PROMPT 39 7 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 47
-BEGIN
- KEY "AMMONTARE IMPONIBILE"
- PROMPT 55 7 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 48
-BEGIN
- KEY "DETRAZIONI D'IMPOSTA"
- PROMPT 70 7 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 49
-BEGIN
- KEY "RITENUTA ESEGUITA"
- PROMPT 85 7 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 50
-BEGIN
- KEY "ALTRE SOMME E VALORI NON ASSOGGETTATI A RITENUTA"
- PROMPT 101 7 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 51
-BEGIN
- KEY "AMMONTARE IMPONIBILE AI FINI DEL C.S.S.N."
- PROMPT 117 7 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 53
-BEGIN
- KEY "IMPOSTA VERSATA"
- PROMPT 20 9 ""
- PICTURE "###.###.###^^^"
-END
-
-NUMERO 54
-BEGIN
- KEY "INTERESSI"
- PROMPT 32 9 ""
- PICTURE "###.###.###^^^"
-END
-
-NUMERO 55
-BEGIN
- KEY "CONTRIBUTO VERSATO"
- PROMPT 45 9 ""
- PICTURE "###.###.###^^^"
-END
-
-NUMERO 56
-BEGIN
- KEY "INTERESSI"
- PROMPT 57 9 ""
- PICTURE "###.###.###^^^"
-END
-
-NUMERO 59
-BEGIN
- KEY "IMPOSTA RIMBORSATA"
- PROMPT 85 9 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 60
-BEGIN
- KEY "IMPOSTA VERSATA"
- PROMPT 101 9 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 61
-BEGIN
- KEY "INTERESSI"
- PROMPT 117 9 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 62
-BEGIN
- KEY "IMPOSTA VERSATA"
- PROMPT 13 11 ""
- PICTURE "###.###^^^"
-END
-
-NUMERO 63
-BEGIN
- KEY "INTERESSI"
- PROMPT 24 11 ""
- PICTURE "###.###^^^"
-END
-
-NUMERO 64
-BEGIN
- KEY "SOPPRATTASSA SU IRPEF"
- PROMPT 36 11 ""
- PICTURE "###.###^^^"
-END
-
-NUMERO 65
-BEGIN
- KEY "CONTRIBUTO A RIMBORSO"
- PROMPT 45 11 ""
- PICTURE "###.###.###^^^"
-END
-
-NUMERO 66
-BEGIN
- KEY "CONTRIBUTO VERSATO"
- PROMPT 59 11 ""
- PICTURE "###.###.###^^^"
-END
-
-NUMERO 67
-BEGIN
- KEY "INTERESSI"
- PROMPT 73 11 ""
- PICTURE "###.###.###^^^"
-END
-
-NUMERO 68
-BEGIN
- KEY "CONTRIBUTO VERSATO"
- PROMPT 86 11 ""
- PICTURE "###.###.###^^^"
-END
-
-NUMERO 69
-BEGIN
- KEY "INTERESSI"
- PROMPT 100 11 ""
- PICTURE "###.###.###^^^"
-END
-
-NUMERO 70
-BEGIN
- KEY "SOPPRATTASE SU C.S.S.N."
- PROMPT 114 11 ""
- PICTURE "###.###.###^^^"
-END
-
-NUMERO 730
-BEGIN
- KEY "NUMERO MOD.730"
- PROMPT 21 14 ""
- FIELD 36->N730ALLA
-END
-
-STRINGA 2
-BEGIN
- KEY "FIRMA"
- PROMPT 83 18 ""
- FIELD 106@->RAGSOC
-END
-
-
-END
-
-END
+USE 44
+JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
+JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
+JOIN 9 INTO CODDITTA=CODDITTA
+JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
+JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
+JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
+JOIN 36 INTO CODDITTA=CODDITTA
+
+END
+DESCRIPTION
+BEGIN
+  44->* "Quadro A 770"
+  45->* "Anagrafica dei dipendenti"
+  104@->* "Tabella CAAF"
+  9->* "Ditte"
+  106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
+  108@->* "Anagrafica persone fisiche (ditta)"
+  113@->* "Comuni DITTA (nascita)"
+  213@->* "Comuni DITTA (residenza)"
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Courier New"
+  SIZE 11
+  CARATTERE "X"
+  INIZIO_POS 3 2
+  FINE_POS 131
+  GRID "+++++++++-|"
+END
+
+SECTION HEADER FIRST 28
+
+LISTA 1
+BEGIN
+ KEY "Tipo anagrafica"
+ FLAGS "H"
+ FIELD 106@->TIPOA
+ ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
+ ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
+END
+
+STRINGA 2
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 3 11 ""
+ FIELD 106@->COFI
+END
+
+STRINGA 3
+BEGIN
+ KEY "RAGIONE SOCIALE"
+ PROMPT 39 11 ""
+ GROUP  2
+ FIELD 106@->RAGSOC
+END
+
+STRINGA 4
+BEGIN
+ KEY "COGNOME"
+ PROMPT 39 11 ""
+ GROUP  1
+ FIELD 106@->RAGSOC[1,30]
+END
+
+STRINGA 5
+BEGIN
+ KEY "NOME"
+ PROMPT 17 13 ""
+ GROUP  1
+ FIELD 106@->RAGSOC[31,50]
+END
+
+STRINGA 6
+BEGIN
+ KEY "SESSO"
+ PROMPT 58 13 ""
+ GROUP  1
+ FIELD 108@->SESSO
+END
+
+STRINGA 7
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 67 13 ""
+ GROUP  1
+ FIELD 108@->DATANASC
+END
+
+STRINGA 8
+BEGIN
+ KEY "COMUNE DI NASCITA"
+ PROMPT 84 13 ""
+ GROUP  1
+ FIELD 113@->DENCOM
+END
+
+STRINGA 9
+BEGIN
+ KEY "PROV. DI NASCITA"
+ PROMPT 125 13 ""
+ GROUP  1
+ FIELD 113@->PROVCOM
+END
+
+STRINGA 10
+BEGIN
+ KEY "COMUNE DI RES.FISCALE"
+ PROMPT 17 15 ""
+ FIELD 213@->DENCOM
+END
+
+STRINGA 11
+BEGIN
+ KEY "PROV DI RES.FISCALE"
+ PROMPT 59 15 ""
+ FIELD 213@->PROVCOM
+END
+
+STRINGA 12
+BEGIN
+ KEY "VIA di RES."
+ PROMPT 66 15 ""
+ FIELD 106@->INDRF
+ FIELD 106@->INDRES
+END
+
+STRINGA 15
+BEGIN
+ KEY "NUM. CIVICO di RES."
+ PROMPT 104 15 ""
+ FIELD 106@->CIVRF
+ FIELD 106@->CIVRES
+END
+
+STRINGA 16
+BEGIN
+ KEY "CAP"
+ PROMPT 123 15 ""
+ FIELD 106@->CAPRF
+ FIELD 106@->CAPRES
+END
+
+STRINGA 13
+BEGIN
+ KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
+ PROMPT 85 18 ""
+END
+
+NUMERO 14
+BEGIN
+ KEY "NUM. FOGLIO"
+ PROMPT 125 21 ""
+END
+
+END
+
+SECTION BODY ODD 20
+
+STRINGA 1
+BEGIN
+ KEY "COD.FIS"
+ PROMPT 11 1 ""
+ FIELD 45->CODFI
+END
+
+STRINGA 2
+BEGIN
+ KEY "COGNOME"
+ PROMPT 44 1 ""
+ FIELD 45->COGNOME
+END
+
+STRINGA 3
+BEGIN
+ KEY "NOME"
+ PROMPT 82 1 ""
+ FIELD 45->NOME
+END
+
+DATA 4
+BEGIN
+ KEY "DATA NASCITA"
+ PROMPT 114 1 ""
+ FIELD 45->DATANA
+ FORMAT "1444-"
+END
+
+STRINGA 5
+BEGIN
+ KEY "SESSO"
+ PROMPT 128 1 ""
+ FIELD 45->SESSO
+END
+
+STRINGA 6
+BEGIN
+ KEY "COMUNE DI NASCITA"
+ PROMPT 11 3 ""
+ FIELD 45->COMUNENA
+END
+
+STRINGA 7
+BEGIN
+ KEY "PROV DI NASCITA"
+ PROMPT 47 3 ""
+ FIELD 45->PROVNA
+END
+
+STRINGA 8
+BEGIN
+ KEY "COMUNE DI RESIDENZA"
+ PROMPT 54 3 ""
+ FIELD 45->COMRES
+END
+
+STRINGA 9
+BEGIN
+ KEY "PROV. RESIDENZA"
+ PROMPT 88 3 ""
+ FIELD 45->PROVRES
+END
+
+STRINGA 10
+BEGIN
+ KEY "INDIRIZZO RES."
+ PROMPT 95 3 ""
+ FIELD 45->INDRES
+END
+
+STRINGA 11
+BEGIN
+ KEY "STATO CIVILE"
+ PROMPT 13 5 ""
+ FIELD 45->STATOCIV
+END
+
+STRINGA 12
+BEGIN
+ KEY "QUALIFICA"
+ PROMPT 22 5 ""
+ FIELD 45->QUALIFICA
+END
+
+STRINGA 13
+BEGIN
+ KEY "AREA ATTIVITA'"
+ PROMPT 31 5 ""
+ FIELD 44->AREAATT
+END
+
+STRINGA 14
+BEGIN
+ KEY "TIPO"
+ PROMPT 38 5 ""
+ FIELD 44->TIPO
+END
+
+NUMERO 15
+BEGIN
+ KEY "NUMERO GIORNI"
+ PROMPT 46 5 ""
+ FIELD 44->NUMGIO
+ PICTURE "###"
+END
+
+DATA 16
+BEGIN
+ KEY "DATA FINE RAPPORTO"
+ PROMPT 62 5 ""
+ FORMAT "1444-"    
+ PICTURE "## ^ ##^^^^^"
+ FIELD 44->DATAFR
+END
+
+NUMERO 17
+BEGIN
+ KEY "GIORNI DETRAZ. LAV. DIP."
+ PROMPT 80 5 ""
+ FIELD 44->NUMGIODET
+ PICTURE "###"
+END
+
+STRINGA 18
+BEGIN
+ KEY "CF DATORE LAVORO PRECEDENTE"
+ PROMPT 98 5 ""
+ FIELD 44->CFDLPREC
+END
+
+NUMERO 19
+BEGIN
+ KEY "CAUSA"
+ PROMPT 129 5 ""
+ FIELD 44->CAUSA
+END
+
+NUMERO 20
+BEGIN
+ KEY "IN DENARO"
+ PROMPT 9 7 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->20
+ FIELD 44->DENARO
+END
+
+NUMERO 21
+BEGIN
+ KEY "IN NATURA"
+ PROMPT 24 7 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->21
+ FIELD 44->NATURA
+END
+
+NUMERO 22
+BEGIN
+ KEY "CONTRIBUTI OBBLIGATORI"
+ PROMPT 39 7 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->22
+ FIELD 44->COBBDIP
+END
+
+NUMERO 23
+BEGIN
+ KEY "COMPENSI NETTI"
+ PROMPT 55 7 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->23
+ FIELD 44->COMPNETTI
+END
+
+NUMERO 24
+BEGIN
+ KEY "AMMONTARE LORDO"
+ PROMPT 70 7 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->24
+ FIELD 44->AMMLORDO
+END
+
+NUMERO 25
+BEGIN
+ KEY "IND.ASS.CONTRIBUTI OBBLIGATORI"
+ PROMPT 85 7 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->25
+ FIELD 44->IACOBBCD
+END
+
+NUMERO 26
+BEGIN
+ KEY "SOMME NON ASSOG. A RITEN."
+ PROMPT 101 7 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->26
+ FIELD 44->NORIT
+END
+
+NUMERO 27
+BEGIN
+ KEY "TOTALE IMPONIBILE"
+ PROMPT 117 7 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->27
+ FIELD 44->TOTIMP
+END
+
+NUMERO 28
+BEGIN
+ KEY "ASSEGNI ED INDENNITA'"
+ PROMPT 9 9 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->28
+ FIELD 44->AIENTIPREV
+END
+
+NUMERO 29
+BEGIN
+ KEY "AMMONTARE COMPENSI CORRISPOSTI DA TERZI"
+ PROMPT 24 9 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->29
+ FIELD 44->CCTAMMCONT
+END
+
+NUMERO 30
+BEGIN
+ KEY "TOTALE IMPONIBILE 2"
+ PROMPT 39 9 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->30
+ FIELD 44->TOTIMP2
+END
+
+NUMERO 31
+BEGIN
+ KEY "IMPOSTA CORRISPONDENTE"
+ PROMPT 55 9 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->31
+ FIELD 44->ICTOTIMP
+END
+
+NUMERO 32
+BEGIN
+ KEY "DETRAZIONE PER CONIUGE A CARICO"
+ PROMPT 70 9 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->32
+ FIELD 44->DETCC
+END
+
+NUMERO 33
+BEGIN
+ KEY "DETRAZIONE PER FIGLI A CARICO"
+ PROMPT 85 9 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->33
+ FIELD 44->DETFC
+END
+
+NUMERO 34
+BEGIN
+ KEY "DETRAZIONE PER ALTRI FAMILIARI A CARICO"
+ PROMPT 101 9 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->34
+ FIELD 44->DETAF
+END
+
+NUMERO 35
+BEGIN
+ KEY "DETRAZIONE PER LAVORO DIPENDENTE"
+ PROMPT 117 9 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->35
+ FIELD 44->DETLD
+END
+
+NUMERO 36
+BEGIN
+ KEY "DETRAZIONE PER ONERI"
+ PROMPT 9 11 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->36
+ FIELD 44->DETO
+END
+
+NUMERO 37
+BEGIN
+ KEY "TOTALE DETRAZIONI"
+ PROMPT 24 11 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->37
+ FIELD 44->TOTDET
+END
+
+NUMERO 38
+BEGIN
+ KEY "INCREMENTO DETRAZIONI PER FIGLI A CARICO"
+ PROMPT 39 11 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->38
+ FIELD 44->INCDETFC
+END
+
+NUMERO 39
+BEGIN
+ KEY "RITENUTE OPERATE DA TERZI"
+ PROMPT 55 11 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->39
+ FIELD 44->AMRIOT
+END
+
+NUMERO 40
+BEGIN
+ KEY "RITENUTE OPERATE DAL DATORE DI LAVORO"
+ PROMPT 70 11 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->40
+ FIELD 44->AMRIODL
+END
+
+NUMERO 41
+BEGIN
+ KEY "ECCEDENZA RITENUTE RIMBORSATE"
+ PROMPT 85 11 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->41
+ FIELD 44->ECCRITRIMB
+END
+
+NUMERO 42
+BEGIN
+ KEY "AMMONTARE RITENUTE DOVUTE"
+ PROMPT 101 11 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->42
+ FIELD 44->AMMRITDOV
+END
+
+NUMERO 43
+BEGIN
+ KEY "EROGAZIONI PER SPESE SANITARIE"
+ PROMPT 117 11 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->43
+ FIELD 44->ERSPSAN
+END
+
+NUMERO 44
+BEGIN
+ KEY "PREMI DI ASSICURAZIONE VITA E INFORTUNI"
+ PROMPT 9 13 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->44
+ FIELD 44->PRASSVI
+END
+
+NUMERO 45
+BEGIN
+ KEY "CONTRIBUTI PER PREVIDENZA COMPLEMENTARE"
+ PROMPT 24 13 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->45
+ FIELD 44->CONPRECO
+END
+
+NUMERO 46
+BEGIN
+ KEY "CONTRIBUTI OBBLIGATORI A CARICO DEL DIPENDENTE"
+ PROMPT 39 13 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->46
+ FIELD 44->COBBDIP2
+END
+
+NUMERO 47
+BEGIN
+ KEY "AMMONTARE IMPONIBILE"
+ PROMPT 55 13 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->47
+ FIELD 44->AMMIMP
+END
+
+NUMERO 48
+BEGIN
+ KEY "DETRAZIONI D'IMPOSTA"
+ PROMPT 70 13 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->48
+ FIELD 44->DETIMPOS
+END
+
+NUMERO 49
+BEGIN
+ KEY "RITENUTA ESEGUITA"
+ PROMPT 85 13 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->49
+ FIELD 44->RITESEG
+END
+
+NUMERO 50
+BEGIN
+ KEY "ALTRE SOMME E VALORI NON ASSOGGETTATI A RITENUTA"
+ PROMPT 101 13 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->50
+ FIELD 44->SVNASSRI
+END
+
+NUMERO 51
+BEGIN
+ KEY "AMMONTARE IMPONIBILE AI FINI DEL C.S.S.N."
+ PROMPT 117 13 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->51
+ FIELD 44->AIFCSSN
+END
+
+STRINGA 52
+BEGIN
+ KEY "CONGUAGLI NON EFFETTUATI"
+ PROMPT 13 15 ""
+ FIELD 44->CONEFF
+END
+
+NUMERO 53
+BEGIN
+ KEY "IMPOSTA VERSATA"
+ PROMPT 20 15 ""
+ PICTURE "###.###.###^^^"
+ MESSAGE ADD,FL->53
+ FIELD 44->IMPVERS
+END
+
+NUMERO 54
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 32 15 ""
+ MESSAGE ADD,FL->54
+ FIELD 44->INTERE
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 55
+BEGIN
+ KEY "CONTRIBUTO VERSATO"
+ PROMPT 45 15 ""
+ PICTURE "###.###.###^^^"
+ MESSAGE ADD,FL->55
+ FIELD 44->CSSN95CV
+END
+
+NUMERO 56
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 57 15 ""
+ PICTURE "###.###.###^^^"
+ MESSAGE ADD,FL->56
+ FIELD 44->INTERE2
+END
+
+STRINGA 57
+BEGIN
+ KEY "CONGUAGLI NON EFFETTUATI"
+ PROMPT 73 15 ""
+ FIELD 44->CNEFF
+END
+
+STRINGA 58
+BEGIN
+ KEY "RETTIFICA CONGUAGLIO"
+ PROMPT 81 15 ""
+ FIELD 44->RETCON
+END
+
+NUMERO 59
+BEGIN
+ KEY "IMPOSTA RIMBORSATA"
+ PROMPT 85 15 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->59
+ FIELD 44->IMPRIMB
+END
+
+NUMERO 60
+BEGIN
+ KEY "IMPOSTA VERSATA"
+ PROMPT 101 15 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->60
+ FIELD 44->IMPVER
+END
+
+NUMERO 61
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 117 15 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->61
+ FIELD 44->INTIRPEF
+END
+
+NUMERO 62
+BEGIN
+ KEY "IMPOSTA VERSATA"
+ PROMPT 13 17 ""
+ PICTURE "###.###^^^"
+ MESSAGE ADD,FL->62
+ FIELD 44->IMPVER2
+END
+
+NUMERO 63
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 24 17 ""
+ PICTURE "###.###^^^"
+ MESSAGE ADD,FL->63
+ FIELD 44->INTER
+END
+
+NUMERO 64
+BEGIN
+ KEY "SOPPRATTASSA SU IRPEF"
+ PROMPT 36 17 ""
+ PICTURE "###.###^^^"
+ MESSAGE ADD,FL->64
+ FIELD 44->STSIRPEF
+END
+
+NUMERO 65
+BEGIN
+ KEY "CONTRIBUTO A RIMBORSO"
+ PROMPT 45 17 ""
+ PICTURE "###.###.###^^^"
+ MESSAGE ADD,FL->65
+ FIELD 44->CONRIMB
+END
+
+NUMERO 66
+BEGIN
+ KEY "CONTRIBUTO VERSATO"
+ PROMPT 59 17 ""
+ PICTURE "###.###.###^^^"
+ MESSAGE ADD,FL->66
+ FIELD 44->CONVER
+END
+
+NUMERO 67
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 73 17 ""
+ PICTURE "###.###.###^^^"
+ MESSAGE ADD,FL->67
+ FIELD 44->INTER2
+END
+
+NUMERO 68
+BEGIN
+ KEY "CONTRIBUTO VERSATO"
+ PROMPT 86 17 ""
+ PICTURE "###.###.###^^^"
+ MESSAGE ADD,FL->68
+ FIELD 44->CONVER2
+END
+
+NUMERO 69
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 100 17 ""
+ PICTURE "###.###.###^^^"
+ MESSAGE ADD,FL->69
+ FIELD 44->INTER3
+END
+
+NUMERO 70
+BEGIN
+ KEY "SOPPRATTASE SU C.S.S.N."
+ PROMPT 114 17 ""
+ PICTURE "###.###.###^^^"
+ MESSAGE ADD,FL->70
+ FIELD 44->STSCSSN70
+END
+
+STRINGA 71
+BEGIN
+ KEY "MODELLO 730 NON LIQUIDABILE"
+ PROMPT 129 17 ""
+ FIELD 44->M730NLIQ
+END
+
+STRINGA 72
+BEGIN
+ KEY "CODICE FISCALE CAAF"
+ PROMPT 11 19 ""
+ FIELD 104@->S1
+END
+
+STRINGA 73
+BEGIN
+ KEY "DENOMINAZIONE CAAF"
+ PROMPT 42 19 ""
+ FIELD 104@->S0
+END
+
+NUMERO 74
+BEGIN
+ KEY "NUMERO ISCRIZIONE ALBO"
+ PROMPT 122 19 ""
+ FIELD 104@->I1
+ PICTURE "#####"
+END
+
+END
+
+SECTION FOOTER LAST 12
+
+NUMERO 20
+BEGIN
+ KEY "IN DENARO"
+ PROMPT 9 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 21
+BEGIN
+ KEY "IN NATURA"
+ PROMPT 24 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 22
+BEGIN
+ KEY "CONTRIBUTI OBBLIGATORI"
+ PROMPT 39 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 23
+BEGIN
+ KEY "COMPENSI NETTI"
+ PROMPT 55 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 24
+BEGIN
+ KEY "AMMONTARE LORDO"
+ PROMPT 70 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 25
+BEGIN
+ KEY "IND.ASS.CONTRIBUTI OBBLIGATORI"
+ PROMPT 85 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 26
+BEGIN
+ KEY "SOMME NON ASSOG. A RITEN."
+ PROMPT 101 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 27
+BEGIN
+ KEY "TOTALE IMPONIBILE"
+ PROMPT 117 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 28
+BEGIN
+ KEY "ASSEGNI ED INDENNITA'"
+ PROMPT 9 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 29
+BEGIN
+ KEY "AMMONTARE COMPENSI CORRISPOSTI DA TERZI"
+ PROMPT 24 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 30
+BEGIN
+ KEY "TOTALE IMPONIBILE 2"
+ PROMPT 39 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 31
+BEGIN
+ KEY "IMPOSTA CORRISPONDENTE"
+ PROMPT 55 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 32
+BEGIN
+ KEY "DETRAZIONE PER CONIUGE A CARICO"
+ PROMPT 70 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 33
+BEGIN
+ KEY "DETRAZIONE PER FIGLI A CARICO"
+ PROMPT 85 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 34
+BEGIN
+ KEY "DETRAZIONE PER ALTRI FAMILIARI A CARICO"
+ PROMPT 101 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 35
+BEGIN
+ KEY "DETRAZIONE PER LAVORO DIPENDENTE"
+ PROMPT 117 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 36
+BEGIN
+ KEY "DETRAZIONE PER ONERI"
+ PROMPT 9 5 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 37
+BEGIN
+ KEY "TOTALE DETRAZIONI"
+ PROMPT 24 5 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 38
+BEGIN
+ KEY "INCREMENTO DETRAZIONI PER FIGLI A CARICO"
+ PROMPT 39 5 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 39
+BEGIN
+ KEY "RITENUTE OPERATE DA TERZI"
+ PROMPT 55 5 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 40
+BEGIN
+ KEY "RITENUTE OPERATE DAL DATORE DI LAVORO"
+ PROMPT 70 5 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 41
+BEGIN
+ KEY "ECCEDENZA RITENUTE RIMBORSATE"
+ PROMPT 85 5 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 42
+BEGIN
+ KEY "AMMONTARE RITENUTE DOVUTE"
+ PROMPT 101 5 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 43
+BEGIN
+ KEY "EROGAZIONI PER SPESE SANITARIE"
+ PROMPT 117 5 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 44
+BEGIN
+ KEY "PREMI DI ASSICURAZIONE VITA E INFORTUNI"
+ PROMPT 9 7 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 45
+BEGIN
+ KEY "CONTRIBUTI PER PREVIDENZA COMPLEMENTARE"
+ PROMPT 24 7 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 46
+BEGIN
+ KEY "CONTRIBUTI OBBLIGATORI A CARICO DEL DIPENDENTE"
+ PROMPT 39 7 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 47
+BEGIN
+ KEY "AMMONTARE IMPONIBILE"
+ PROMPT 55 7 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 48
+BEGIN
+ KEY "DETRAZIONI D'IMPOSTA"
+ PROMPT 70 7 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 49
+BEGIN
+ KEY "RITENUTA ESEGUITA"
+ PROMPT 85 7 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 50
+BEGIN
+ KEY "ALTRE SOMME E VALORI NON ASSOGGETTATI A RITENUTA"
+ PROMPT 101 7 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 51
+BEGIN
+ KEY "AMMONTARE IMPONIBILE AI FINI DEL C.S.S.N."
+ PROMPT 117 7 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 53
+BEGIN
+ KEY "IMPOSTA VERSATA"
+ PROMPT 20 9 ""
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 54
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 32 9 ""
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 55
+BEGIN
+ KEY "CONTRIBUTO VERSATO"
+ PROMPT 45 9 ""
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 56
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 57 9 ""
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 59
+BEGIN
+ KEY "IMPOSTA RIMBORSATA"
+ PROMPT 85 9 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 60
+BEGIN
+ KEY "IMPOSTA VERSATA"
+ PROMPT 101 9 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 61
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 117 9 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 62
+BEGIN
+ KEY "IMPOSTA VERSATA"
+ PROMPT 13 11 ""
+ PICTURE "###.###^^^"
+END
+
+NUMERO 63
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 24 11 ""
+ PICTURE "###.###^^^"
+END
+
+NUMERO 64
+BEGIN
+ KEY "SOPPRATTASSA SU IRPEF"
+ PROMPT 36 11 ""
+ PICTURE "###.###^^^"
+END
+
+NUMERO 65
+BEGIN
+ KEY "CONTRIBUTO A RIMBORSO"
+ PROMPT 45 11 ""
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 66
+BEGIN
+ KEY "CONTRIBUTO VERSATO"
+ PROMPT 59 11 ""
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 67
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 73 11 ""
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 68
+BEGIN
+ KEY "CONTRIBUTO VERSATO"
+ PROMPT 86 11 ""
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 69
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 100 11 ""
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 70
+BEGIN
+ KEY "SOPPRATTASE SU C.S.S.N."
+ PROMPT 114 11 ""
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 730
+BEGIN
+ KEY "NUMERO MOD.730"
+ PROMPT 21 14 ""
+ FIELD 36->N730ALLA
+END
+
+STRINGA 2
+BEGIN
+ KEY "FIRMA"
+ PROMPT 83 18 ""
+ FIELD 106@->RAGSOC
+END
+
+
+END
+
+END
diff --git a/m770/77qa1.frm b/m770/77qa1.frm
index d544a6a0c..6d9365388 100755
--- a/m770/77qa1.frm
+++ b/m770/77qa1.frm
@@ -1,469 +1,469 @@
-USE 56
-JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
-JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
-JOIN 9 INTO CODDITTA=CODDITTA
-JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
-JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
-JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
-
-END
-DESCRIPTION
-BEGIN
-  56->* "Quadro A1 770"
-  45->* "Anagrafica dei dipendenti"
-  104@->* "Tabella CAAF"
-  9->* "Ditte"
-  106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
-  108@->* "Anagrafica persone fisiche (ditta)"
-  113@->* "Comuni DITTA (nascita)"
-  213@->* "Comuni DITTA (residenza)"
-END
-
-GENERAL
-BEGIN
-  OFFSET 0 0
-  FONT "Courier New"
-  SIZE 11
-  CARATTERE "X"
-  INIZIO_POS 3 2
-  FINE_POS 131
-  GRID "+++++++++-|"
-END
-
-SECTION HEADER FIRST 28
-
-LISTA 1
-BEGIN
- KEY "Tipo anagrafica"
- FLAGS "H"
- FIELD 106@->TIPOA
- ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
- ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
-END
-
-STRINGA 2
-BEGIN
- KEY "CODICE FISCALE"
- PROMPT 3 12 ""
- FIELD 106@->COFI
-END
-
-STRINGA 3
-BEGIN
- KEY "RAGIONE SOCIALE"
- PROMPT 40 12 ""
- GROUP  2
- FIELD 106@->RAGSOC
-END
-
-STRINGA 4
-BEGIN
- KEY "COGNOME"
- PROMPT 40 12 ""
- GROUP  1
- FIELD 106@->RAGSOC[1,30]
-END
-
-STRINGA 5
-BEGIN
- KEY "NOME"
- PROMPT 17 14 ""
- GROUP  1
- FIELD 106@->RAGSOC[31,50]
-END
-
-STRINGA 6
-BEGIN
- KEY "SESSO"
- PROMPT 58 14 ""
- GROUP  1
- FIELD 108@->SESSO
-END
-
-STRINGA 7
-BEGIN
- KEY "DATA DI NASCITA"
- PROMPT 67 14 ""
- GROUP  1
- FIELD 108@->DATANASC
-END
-
-STRINGA 8
-BEGIN
- KEY "COMUNE DI NASCITA"
- PROMPT 84 14 ""
- GROUP  1
- FIELD 113@->DENCOM
-END
-
-STRINGA 9
-BEGIN
- KEY "PROV. DI NASCITA"
- PROMPT 126 14 ""
- GROUP  1
- FIELD 113@->PROVCOM
-END
-
-STRINGA 10
-BEGIN
- KEY "COMUNE DI RES.FISCALE"
- PROMPT 17 16 ""
- FIELD 213@->DENCOM
-END
-
-STRINGA 11
-BEGIN
- KEY "PROV DI RES.FISCALE"
- PROMPT 59 16 ""
- FIELD 213@->PROVCOM
-END
-
-STRINGA 12
-BEGIN
- KEY "VIA di RES."
- PROMPT 66 16 ""
- FIELD 106@->INDRF
- FIELD 106@->INDRES
-END
-
-STRINGA 15
-BEGIN
- KEY "NUM. CIVICO di RES."
- PROMPT 104 16 ""
- FIELD 106@->CIVRF
- FIELD 106@->CIVRES
-END
-
-STRINGA 16
-BEGIN
- KEY "CAP"
- PROMPT 125 16 ""
- FIELD 106@->CAPRF
- FIELD 106@->CAPRES
-END
-
-STRINGA 13
-BEGIN
- KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
- PROMPT 87 19 ""
-END
-
-NUMERO 14
-BEGIN
- KEY "NUM. FOGLIO"
- PROMPT 125 22 ""
-END
-
-END
-
-SECTION BODY ODD 10
-
-STRINGA 1
-BEGIN
- KEY "COD.FIS"
- PROMPT 11 1 ""
- FIELD 45->CODFI
-END
-
-STRINGA 2
-BEGIN
- KEY "COGNOME"
- PROMPT 43 1 ""
- FIELD 45->COGNOME
-END
-
-STRINGA 3
-BEGIN
- KEY "NOME"
- PROMPT 80 1 ""
- FIELD 45->NOME
-END
-
-DATA 4
-BEGIN
- KEY "DATA NASCITA"
- PROMPT 114 1 ""
- FIELD 45->DATANA
- FORMAT "1444-"
-END
-
-STRINGA 5
-BEGIN
- KEY "SESSO"
- PROMPT 128 1 ""
- FIELD 45->SESSO
-END
-
-STRINGA 6
-BEGIN
- KEY "COMUNE DI NASCITA"
- PROMPT 11 3 ""
- FIELD 45->COMUNENA
-END
-
-STRINGA 7
-BEGIN
- KEY "PROV DI NASCITA"
- PROMPT 48 3 ""
- FIELD 45->PROVNA
-END
-
-NUMERO 8
-BEGIN
- KEY "MESE DI RIFERIMENTO"
- PROMPT 13 5 ""
- FIELD 56->MESERIF
-END
-
-NUMERO 9
-BEGIN
- KEY "IMPOSTA RIMBORSATA"
- PROMPT 25 5 ""
- PICTURE "###.###.###.###^^^"
- FIELD 56->IMPRIMB9
- MESSAGE ADD,FL->9
-END
-
-NUMERO 10
-BEGIN
- KEY "IMPOSTA VERSATA"
- PROMPT 44 5 ""
- PICTURE "###.###.###.###^^^"
- FIELD 56->IMPVERS10
- MESSAGE ADD,FL->10
-END    
-
-NUMERO 11
-BEGIN
- KEY "INTERESSI"
- PROMPT 63 5 ""
- PICTURE "###.###.###.###^^^"
- FIELD 56->INTER11
- MESSAGE ADD,FL->11
-END
-
-NUMERO 12
-BEGIN
- KEY "IMPOSTA VERSATA"
- PROMPT 81 5 ""
- PICTURE "###.###.###.###^^^"
- FIELD 56->IMPVERS12
- MESSAGE ADD,FL->12
-END
-
-NUMERO 13
-BEGIN
- KEY "INTERESSI"
- PROMPT 100 5 ""
- PICTURE "###.###.###.###^^^"
- FIELD 56->INTER13
- MESSAGE ADD,FL->13
-END
-
-NUMERO 14
-BEGIN
- KEY "SOPRATTASSA SU IRPEF"
- PROMPT 116 5 ""
- PICTURE "###.###.###.###^^^"
- FIELD 56->STASSA14
- MESSAGE ADD,FL->14
-END
-
-NUMERO 15
-BEGIN
- KEY "CONTRIBUTO A RIMBORSO"
- PROMPT 11 7 ""
- PICTURE "###.###.###.###^^^"
- FIELD 56->CONTRIMB15
- MESSAGE ADD,FL->15
-END
-
-NUMERO 16
-BEGIN
- KEY "CONTRIBUTO VERSATO"
- PROMPT 30 7 ""
- PICTURE "###.###.###.###^^^"
- FIELD 56->CONTVERS16
- MESSAGE ADD,FL->16
-END
-
-NUMERO 17
-BEGIN
- KEY "INTERESSI"
- PROMPT 49 7 ""
- PICTURE "###.###.###.###^^^"
- FIELD 56->INTER17
- MESSAGE ADD,FL->17
-END
-
-NUMERO 18
-BEGIN
- KEY "CONTRIBUTO VERSATO"
- PROMPT 68 7 ""
- PICTURE "###.###.###.###^^^"
- FIELD 56->CONTVER18
- MESSAGE ADD,FL->18
-END
-
-NUMERO 19
-BEGIN
- KEY "INTERESSI"
- PROMPT 86 7 ""
- PICTURE "###.###.###.###^^^"
- FIELD 56->INTER19
- MESSAGE ADD,FL->19
-END
-
-NUMERO 20
-BEGIN
- KEY "SOPRATTASSA SU IRPEF"
- PROMPT 102 7 ""
- PICTURE "###.###.###.###^^^"
- FIELD 56->STASSA20
- MESSAGE ADD,FL->20
-END
-
-STRINGA 21
-BEGIN
- KEY "CONGUAGLI NON EFFETTUATI"
- PROMPT 121 7 ""
- FIELD 56->CONNEFF21
-END
-
-STRINGA 22
-BEGIN
- KEY "TIPO CONGUAGLIO"
- PROMPT 128 7 ""
- FIELD 56->TIPOCONG22
-END
-
-STRINGA 23
-BEGIN
- KEY "CODICE FISCALE CAAF"
- PROMPT 11 9 ""
- FIELD 104@->S1
-END
-
-STRINGA 24
-BEGIN
- KEY "DENOMINAZIONE CAAF"
- PROMPT 43 9 ""
- FIELD 104@->S0
-END
-
-NUMERO 25
-BEGIN
- KEY "NUMERO ISCRIZIONE ALBO"
- PROMPT 100 9 ""
- PICTURE "#####"
- FIELD 104@->I1
-END
-
-DATA 26
-BEGIN
- KEY "DATA RICEZIONE MOD.730-5"
- PROMPT 115 9 ""      
- FORMAT "1444-"    
- PICTURE "## ^ ##^^^^^"
- FIELD 56->DATARIC26 
-END
-
-END
-
-SECTION FOOTER LAST 4
-
-NUMERO 9
-BEGIN
- KEY "IMPOSTA RIMBORSATA"
- PROMPT 25 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 10
-BEGIN
- KEY "IMPOSTA VERSATA"
- PROMPT 44 1 ""
- PICTURE "###.###.###.###^^^"
-END    
-
-NUMERO 11
-BEGIN
- KEY "INTERESSI"
- PROMPT 63 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 12
-BEGIN
- KEY "IMPOSTA VERSATA"
- PROMPT 81 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 13
-BEGIN
- KEY "INTERESSI"
- PROMPT 100 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 14
-BEGIN
- KEY "SOPRATTASSA SU IRPEF"
- PROMPT 116 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 15
-BEGIN
- KEY "CONTRIBUTO A RIMBORSO"
- PROMPT 11 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 16
-BEGIN
- KEY "CONTRIBUTO VERSATO"
- PROMPT 30 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 17
-BEGIN
- KEY "INTERESSI"
- PROMPT 49 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 18
-BEGIN
- KEY "CONTRIBUTO VERSATO"
- PROMPT 68 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 19
-BEGIN
- KEY "INTERESSI"
- PROMPT 86 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 20
-BEGIN
- KEY "SOPRATTASSA SU IRPEF"
- PROMPT 102 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-STRINGA 2
-BEGIN
- KEY "FIRMA"
- PROMPT 83 5 ""
- FIELD 106@->RAGSOC
-END
-
-END
-
-END
+USE 56
+JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
+JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
+JOIN 9 INTO CODDITTA=CODDITTA
+JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
+JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
+JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
+
+END
+DESCRIPTION
+BEGIN
+  56->* "Quadro A1 770"
+  45->* "Anagrafica dei dipendenti"
+  104@->* "Tabella CAAF"
+  9->* "Ditte"
+  106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
+  108@->* "Anagrafica persone fisiche (ditta)"
+  113@->* "Comuni DITTA (nascita)"
+  213@->* "Comuni DITTA (residenza)"
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Courier New"
+  SIZE 11
+  CARATTERE "X"
+  INIZIO_POS 3 2
+  FINE_POS 131
+  GRID "+++++++++-|"
+END
+
+SECTION HEADER FIRST 28
+
+LISTA 1
+BEGIN
+ KEY "Tipo anagrafica"
+ FLAGS "H"
+ FIELD 106@->TIPOA
+ ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
+ ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
+END
+
+STRINGA 2
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 3 12 ""
+ FIELD 106@->COFI
+END
+
+STRINGA 3
+BEGIN
+ KEY "RAGIONE SOCIALE"
+ PROMPT 40 12 ""
+ GROUP  2
+ FIELD 106@->RAGSOC
+END
+
+STRINGA 4
+BEGIN
+ KEY "COGNOME"
+ PROMPT 40 12 ""
+ GROUP  1
+ FIELD 106@->RAGSOC[1,30]
+END
+
+STRINGA 5
+BEGIN
+ KEY "NOME"
+ PROMPT 17 14 ""
+ GROUP  1
+ FIELD 106@->RAGSOC[31,50]
+END
+
+STRINGA 6
+BEGIN
+ KEY "SESSO"
+ PROMPT 58 14 ""
+ GROUP  1
+ FIELD 108@->SESSO
+END
+
+STRINGA 7
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 67 14 ""
+ GROUP  1
+ FIELD 108@->DATANASC
+END
+
+STRINGA 8
+BEGIN
+ KEY "COMUNE DI NASCITA"
+ PROMPT 84 14 ""
+ GROUP  1
+ FIELD 113@->DENCOM
+END
+
+STRINGA 9
+BEGIN
+ KEY "PROV. DI NASCITA"
+ PROMPT 126 14 ""
+ GROUP  1
+ FIELD 113@->PROVCOM
+END
+
+STRINGA 10
+BEGIN
+ KEY "COMUNE DI RES.FISCALE"
+ PROMPT 17 16 ""
+ FIELD 213@->DENCOM
+END
+
+STRINGA 11
+BEGIN
+ KEY "PROV DI RES.FISCALE"
+ PROMPT 59 16 ""
+ FIELD 213@->PROVCOM
+END
+
+STRINGA 12
+BEGIN
+ KEY "VIA di RES."
+ PROMPT 66 16 ""
+ FIELD 106@->INDRF
+ FIELD 106@->INDRES
+END
+
+STRINGA 15
+BEGIN
+ KEY "NUM. CIVICO di RES."
+ PROMPT 104 16 ""
+ FIELD 106@->CIVRF
+ FIELD 106@->CIVRES
+END
+
+STRINGA 16
+BEGIN
+ KEY "CAP"
+ PROMPT 125 16 ""
+ FIELD 106@->CAPRF
+ FIELD 106@->CAPRES
+END
+
+STRINGA 13
+BEGIN
+ KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
+ PROMPT 87 19 ""
+END
+
+NUMERO 14
+BEGIN
+ KEY "NUM. FOGLIO"
+ PROMPT 125 22 ""
+END
+
+END
+
+SECTION BODY ODD 10
+
+STRINGA 1
+BEGIN
+ KEY "COD.FIS"
+ PROMPT 11 1 ""
+ FIELD 45->CODFI
+END
+
+STRINGA 2
+BEGIN
+ KEY "COGNOME"
+ PROMPT 43 1 ""
+ FIELD 45->COGNOME
+END
+
+STRINGA 3
+BEGIN
+ KEY "NOME"
+ PROMPT 80 1 ""
+ FIELD 45->NOME
+END
+
+DATA 4
+BEGIN
+ KEY "DATA NASCITA"
+ PROMPT 114 1 ""
+ FIELD 45->DATANA
+ FORMAT "1444-"
+END
+
+STRINGA 5
+BEGIN
+ KEY "SESSO"
+ PROMPT 128 1 ""
+ FIELD 45->SESSO
+END
+
+STRINGA 6
+BEGIN
+ KEY "COMUNE DI NASCITA"
+ PROMPT 11 3 ""
+ FIELD 45->COMUNENA
+END
+
+STRINGA 7
+BEGIN
+ KEY "PROV DI NASCITA"
+ PROMPT 48 3 ""
+ FIELD 45->PROVNA
+END
+
+NUMERO 8
+BEGIN
+ KEY "MESE DI RIFERIMENTO"
+ PROMPT 13 5 ""
+ FIELD 56->MESERIF
+END
+
+NUMERO 9
+BEGIN
+ KEY "IMPOSTA RIMBORSATA"
+ PROMPT 25 5 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 56->IMPRIMB9
+ MESSAGE ADD,FL->9
+END
+
+NUMERO 10
+BEGIN
+ KEY "IMPOSTA VERSATA"
+ PROMPT 44 5 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 56->IMPVERS10
+ MESSAGE ADD,FL->10
+END    
+
+NUMERO 11
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 63 5 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 56->INTER11
+ MESSAGE ADD,FL->11
+END
+
+NUMERO 12
+BEGIN
+ KEY "IMPOSTA VERSATA"
+ PROMPT 81 5 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 56->IMPVERS12
+ MESSAGE ADD,FL->12
+END
+
+NUMERO 13
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 100 5 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 56->INTER13
+ MESSAGE ADD,FL->13
+END
+
+NUMERO 14
+BEGIN
+ KEY "SOPRATTASSA SU IRPEF"
+ PROMPT 116 5 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 56->STASSA14
+ MESSAGE ADD,FL->14
+END
+
+NUMERO 15
+BEGIN
+ KEY "CONTRIBUTO A RIMBORSO"
+ PROMPT 11 7 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 56->CONTRIMB15
+ MESSAGE ADD,FL->15
+END
+
+NUMERO 16
+BEGIN
+ KEY "CONTRIBUTO VERSATO"
+ PROMPT 30 7 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 56->CONTVERS16
+ MESSAGE ADD,FL->16
+END
+
+NUMERO 17
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 49 7 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 56->INTER17
+ MESSAGE ADD,FL->17
+END
+
+NUMERO 18
+BEGIN
+ KEY "CONTRIBUTO VERSATO"
+ PROMPT 68 7 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 56->CONTVER18
+ MESSAGE ADD,FL->18
+END
+
+NUMERO 19
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 86 7 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 56->INTER19
+ MESSAGE ADD,FL->19
+END
+
+NUMERO 20
+BEGIN
+ KEY "SOPRATTASSA SU IRPEF"
+ PROMPT 102 7 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD 56->STASSA20
+ MESSAGE ADD,FL->20
+END
+
+STRINGA 21
+BEGIN
+ KEY "CONGUAGLI NON EFFETTUATI"
+ PROMPT 121 7 ""
+ FIELD 56->CONNEFF21
+END
+
+STRINGA 22
+BEGIN
+ KEY "TIPO CONGUAGLIO"
+ PROMPT 128 7 ""
+ FIELD 56->TIPOCONG22
+END
+
+STRINGA 23
+BEGIN
+ KEY "CODICE FISCALE CAAF"
+ PROMPT 11 9 ""
+ FIELD 104@->S1
+END
+
+STRINGA 24
+BEGIN
+ KEY "DENOMINAZIONE CAAF"
+ PROMPT 43 9 ""
+ FIELD 104@->S0
+END
+
+NUMERO 25
+BEGIN
+ KEY "NUMERO ISCRIZIONE ALBO"
+ PROMPT 100 9 ""
+ PICTURE "#####"
+ FIELD 104@->I1
+END
+
+DATA 26
+BEGIN
+ KEY "DATA RICEZIONE MOD.730-5"
+ PROMPT 115 9 ""      
+ FORMAT "1444-"    
+ PICTURE "## ^ ##^^^^^"
+ FIELD 56->DATARIC26 
+END
+
+END
+
+SECTION FOOTER LAST 4
+
+NUMERO 9
+BEGIN
+ KEY "IMPOSTA RIMBORSATA"
+ PROMPT 25 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 10
+BEGIN
+ KEY "IMPOSTA VERSATA"
+ PROMPT 44 1 ""
+ PICTURE "###.###.###.###^^^"
+END    
+
+NUMERO 11
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 63 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 12
+BEGIN
+ KEY "IMPOSTA VERSATA"
+ PROMPT 81 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 13
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 100 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 14
+BEGIN
+ KEY "SOPRATTASSA SU IRPEF"
+ PROMPT 116 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 15
+BEGIN
+ KEY "CONTRIBUTO A RIMBORSO"
+ PROMPT 11 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 16
+BEGIN
+ KEY "CONTRIBUTO VERSATO"
+ PROMPT 30 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 17
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 49 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 18
+BEGIN
+ KEY "CONTRIBUTO VERSATO"
+ PROMPT 68 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 19
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 86 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 20
+BEGIN
+ KEY "SOPRATTASSA SU IRPEF"
+ PROMPT 102 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+STRINGA 2
+BEGIN
+ KEY "FIRMA"
+ PROMPT 83 5 ""
+ FIELD 106@->RAGSOC
+END
+
+END
+
+END
diff --git a/m770/77qa2.frm b/m770/77qa2.frm
index 3e9c48aaf..68d7799a9 100755
--- a/m770/77qa2.frm
+++ b/m770/77qa2.frm
@@ -1,469 +1,469 @@
-USE 57
-JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
-JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
-JOIN 9 INTO CODDITTA=CODDITTA
-JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
-JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
-JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
-JOIN 36 INTO CODDITTA=CODDITTA
-
-END
-DESCRIPTION
-BEGIN
-  57->* "Quadro A2 770"
-  45->* "Anagrafica dei dipendenti"
-  104@->* "Tabella CAAF"
-  9->* "Ditte"
-  106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
-  108@->* "Anagrafica persone fisiche (ditta)"
-  113@->* "Comuni DITTA (nascita)"
-  213@->* "Comuni DITTA (residenza)"
-END
-
-GENERAL
-BEGIN
-  OFFSET 0 0
-  FONT "Courier New"
-  SIZE 11
-  CARATTERE "X"
-  INIZIO_POS 3 2
-  FINE_POS 131
-  GRID "+++++++++-|"
-END
-
-SECTION HEADER FIRST 28
-
-LISTA 1
-BEGIN
- KEY "Tipo anagrafica"
- FLAGS "H"
- FIELD 106@->TIPOA
- ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
- ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
-END
-
-STRINGA 2
-BEGIN
- KEY "CODICE FISCALE"
- PROMPT 3 12 ""
- FIELD 106@->COFI
-END
-
-STRINGA 3
-BEGIN
- KEY "RAGIONE SOCIALE"
- PROMPT 40 12 ""
- GROUP  2
- FIELD 106@->RAGSOC
-END
-
-STRINGA 4
-BEGIN
- KEY "COGNOME"
- PROMPT 40 12 ""
- GROUP  1
- FIELD 106@->RAGSOC[1,30]
-END
-
-STRINGA 5
-BEGIN
- KEY "NOME"
- PROMPT 17 14 ""
- GROUP  1
- FIELD 106@->RAGSOC[31,50]
-END
-
-STRINGA 6
-BEGIN
- KEY "SESSO"
- PROMPT 59 14 ""
- GROUP  1
- FIELD 108@->SESSO
-END
-
-STRINGA 7
-BEGIN
- KEY "DATA DI NASCITA"
- PROMPT 67 14 ""
- GROUP  1
- FIELD 108@->DATANASC
-END
-
-STRINGA 8
-BEGIN
- KEY "COMUNE DI NASCITA"
- PROMPT 84 14 ""
- GROUP  1
- FIELD 113@->DENCOM
-END
-
-STRINGA 9
-BEGIN
- KEY "PROV. DI NASCITA"
- PROMPT 125 14 ""
- GROUP  1
- FIELD 113@->PROVCOM
-END
-
-STRINGA 10
-BEGIN
- KEY "COMUNE DI RES.FISCALE"
- PROMPT 17 16 ""
- FIELD 213@->DENCOM
-END
-
-STRINGA 11
-BEGIN
- KEY "PROV DI RES.FISCALE"
- PROMPT 59 16 ""
- FIELD 213@->PROVCOM
-END
-
-STRINGA 12
-BEGIN
- KEY "VIA di RES."
- PROMPT 66 16 ""
- FIELD 106@->INDRF
- FIELD 106@->INDRES
-END
-
-STRINGA 15
-BEGIN
- KEY "NUM. CIVICO di RES."
- PROMPT 104 16 ""
- FIELD 106@->CIVRF
- FIELD 106@->CIVRES
-END
-
-STRINGA 16
-BEGIN
- KEY "CAP"
- PROMPT 123 16 ""
- FIELD 106@->CAPRF
- FIELD 106@->CAPRES
-END
-
-STRINGA 13
-BEGIN
- KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
- PROMPT 87 19 ""
-END
-
-NUMERO 14
-BEGIN
- KEY "NUM. FOGLIO"
- PROMPT 125 22 ""
-END
-
-END
-
-SECTION BODY ODD 10
-
-STRINGA 1
-BEGIN
- KEY "COD.FIS"
- PROMPT 11 1 ""
- FIELD 45->CODFI
-END
-
-STRINGA 2
-BEGIN
- KEY "COGNOME"
- PROMPT 43 1 ""
- FIELD 45->COGNOME
-END
-
-STRINGA 3
-BEGIN
- KEY "NOME"
- PROMPT 80 1 ""
- FIELD 45->NOME
-END
-
-DATA 4
-BEGIN
- KEY "DATA NASCITA"
- PROMPT 114 1 ""
- FIELD 45->DATANA
- FORMAT "1444-"
-END
-
-STRINGA 5
-BEGIN
- KEY "SESSO"
- PROMPT 128 1 ""
- FIELD 45->SESSO
-END
-
-STRINGA 6
-BEGIN
- KEY "COMUNE DI NASCITA"
- PROMPT 11 3 ""
- FIELD 45->COMUNENA
-END
-
-STRINGA 7
-BEGIN
- KEY "PROV. DI NASCITA"
- PROMPT 48 3 ""
- FIELD 45->PROVNA
-END
-
-STRINGA 8
-BEGIN
- KEY "CONGUAGLI NON EFFETTUATI"
- PROMPT 16 5 ""
- FIELD 57->CONEFF
-END
-
-STRINGA 9
-BEGIN
- KEY "RETTIFICA CONGUAGLIO"
- PROMPT 31 5 ""
- FIELD 57->RETCON
-END
-
-NUMERO 10
-BEGIN
- KEY "IMPOSTA RIMBORSATA"
- PROMPT 39 5 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->10
- FIELD 57->SIRPEFRIMB
-END   
-
-NUMERO 11
-BEGIN
- KEY "IMPOSTA VERSATA"
- PROMPT 54 5 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->11
- FIELD 57->VIRPEF
-END
-
-NUMERO 12
-BEGIN
- KEY "INTERESSI"
- PROMPT 70 5 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->12
- FIELD 57->INTIRPEF
-END
-
-NUMERO 13
-BEGIN
- KEY "IMPOSTA VERSATA"
- PROMPT 85 5 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->13
- FIELD 57->AIRPEFIV
-END
-
-NUMERO 14
-BEGIN
- KEY "INTERESSI"
- PROMPT 100 5 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->14
- FIELD 57->AIRPEFINT
-END
-
-NUMERO 15
-BEGIN
- KEY "SOPRATTASSA SU IRPEF"
- PROMPT 115 5 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->15
- FIELD 57->STASSA15
-END
-
-NUMERO 16
-BEGIN
- KEY "CONTRIBUTO A RIMBORSO"
- PROMPT 8 7 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->16
- FIELD 57->CONTR16
-END
-
-NUMERO 17
-BEGIN
- KEY "CONTRIBUTO VERSATO"
- PROMPT 23 7 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->17
- FIELD 57->CONTRVER
-END
-
-NUMERO 18
-BEGIN
- KEY "INTERESSI"
- PROMPT 39 7 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->18
- FIELD 57->INTER18
-END   
-
-NUMERO 19
-BEGIN
- KEY "CONTRIBUTO VERSATO"
- PROMPT 54 7 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->19
- FIELD 57->CONTV19
-END
-
-NUMERO 20
-BEGIN
- KEY "INTERESSI"
- PROMPT 70 7 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->20
- FIELD 57->INTE20
-END
-
-NUMERO 21
-BEGIN
- KEY "SOPRATTASSA SU CSSN"
- PROMPT 85 7 ""
- PICTURE "###.###.###.###^^^"
- MESSAGE ADD,FL->21
- FIELD 57->SOPRAT21
-END
-
-NUMERO 22
-BEGIN
- KEY "MOD. 730/95 NON LIQUIDABILE"
- PROMPT 108 7 ""
- FIELD 57->M730NLIQ
-END
-
-STRINGA 23
-BEGIN
- KEY "CODICE FISCALE CAAF"
- PROMPT 11 9 ""
- FIELD 104@->S1
-END
-
-STRINGA 24
-BEGIN
- KEY "DENOMINAZIONE CAAF"
- PROMPT 44 9 ""
- FIELD 104@->S0
-END
-
-NUMERO 25
-BEGIN
- KEY "NUMERO ISCRIZIONE ALBO"
- PROMPT 125 9 ""            
- PICTURE "#####"
- FIELD 104@->I1
-END
-
-END
-
-SECTION FOOTER LAST 4
-
-NUMERO 10
-BEGIN
- KEY "IMPOSTA RIMBORSATA"
- PROMPT 39 1 ""
- PICTURE "###.###.###.###^^^"
-END   
-
-NUMERO 11
-BEGIN
- KEY "IMPOSTA VERSATA"
- PROMPT 54 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 12
-BEGIN
- KEY "INTERESSI"
- PROMPT 70 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 13
-BEGIN
- KEY "IMPOSTA VERSATA"
- PROMPT 85 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 14
-BEGIN
- KEY "INTERESSI"
- PROMPT 100 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 15
-BEGIN
- KEY "SOPRATTASSA SU IRPEF"
- PROMPT 115 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 16
-BEGIN
- KEY "CONTRIBUTO A RIMBORSO"
- PROMPT 8 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 17
-BEGIN
- KEY "CONTRIBUTO VERSATO"
- PROMPT 23 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 18
-BEGIN
- KEY "INTERESSI"
- PROMPT 39 3 ""
- PICTURE "###.###.###.###^^^"
-END   
-
-NUMERO 19
-BEGIN
- KEY "CONTRIBUTO VERSATO"
- PROMPT 54 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 20
-BEGIN
- KEY "INTERESSI"
- PROMPT 70 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 21
-BEGIN
- KEY "SOPRATTASSA SU CSSN"
- PROMPT 85 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 730
-BEGIN
- KEY "NUMERO MOD.730"
- PROMPT 20 5 ""
- PICTURE "######"
- FIELD 36->N730ALLA2
-END                
-
-STRINGA 2
-BEGIN
- KEY "FIRMA"
- PROMPT 83 9 ""
- FIELD 106@->RAGSOC
-END
-
-END
-
-END
+USE 57
+JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
+JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
+JOIN 9 INTO CODDITTA=CODDITTA
+JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
+JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
+JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
+JOIN 36 INTO CODDITTA=CODDITTA
+
+END
+DESCRIPTION
+BEGIN
+  57->* "Quadro A2 770"
+  45->* "Anagrafica dei dipendenti"
+  104@->* "Tabella CAAF"
+  9->* "Ditte"
+  106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
+  108@->* "Anagrafica persone fisiche (ditta)"
+  113@->* "Comuni DITTA (nascita)"
+  213@->* "Comuni DITTA (residenza)"
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Courier New"
+  SIZE 11
+  CARATTERE "X"
+  INIZIO_POS 3 2
+  FINE_POS 131
+  GRID "+++++++++-|"
+END
+
+SECTION HEADER FIRST 28
+
+LISTA 1
+BEGIN
+ KEY "Tipo anagrafica"
+ FLAGS "H"
+ FIELD 106@->TIPOA
+ ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
+ ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
+END
+
+STRINGA 2
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 3 12 ""
+ FIELD 106@->COFI
+END
+
+STRINGA 3
+BEGIN
+ KEY "RAGIONE SOCIALE"
+ PROMPT 40 12 ""
+ GROUP  2
+ FIELD 106@->RAGSOC
+END
+
+STRINGA 4
+BEGIN
+ KEY "COGNOME"
+ PROMPT 40 12 ""
+ GROUP  1
+ FIELD 106@->RAGSOC[1,30]
+END
+
+STRINGA 5
+BEGIN
+ KEY "NOME"
+ PROMPT 17 14 ""
+ GROUP  1
+ FIELD 106@->RAGSOC[31,50]
+END
+
+STRINGA 6
+BEGIN
+ KEY "SESSO"
+ PROMPT 59 14 ""
+ GROUP  1
+ FIELD 108@->SESSO
+END
+
+STRINGA 7
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 67 14 ""
+ GROUP  1
+ FIELD 108@->DATANASC
+END
+
+STRINGA 8
+BEGIN
+ KEY "COMUNE DI NASCITA"
+ PROMPT 84 14 ""
+ GROUP  1
+ FIELD 113@->DENCOM
+END
+
+STRINGA 9
+BEGIN
+ KEY "PROV. DI NASCITA"
+ PROMPT 125 14 ""
+ GROUP  1
+ FIELD 113@->PROVCOM
+END
+
+STRINGA 10
+BEGIN
+ KEY "COMUNE DI RES.FISCALE"
+ PROMPT 17 16 ""
+ FIELD 213@->DENCOM
+END
+
+STRINGA 11
+BEGIN
+ KEY "PROV DI RES.FISCALE"
+ PROMPT 59 16 ""
+ FIELD 213@->PROVCOM
+END
+
+STRINGA 12
+BEGIN
+ KEY "VIA di RES."
+ PROMPT 66 16 ""
+ FIELD 106@->INDRF
+ FIELD 106@->INDRES
+END
+
+STRINGA 15
+BEGIN
+ KEY "NUM. CIVICO di RES."
+ PROMPT 104 16 ""
+ FIELD 106@->CIVRF
+ FIELD 106@->CIVRES
+END
+
+STRINGA 16
+BEGIN
+ KEY "CAP"
+ PROMPT 123 16 ""
+ FIELD 106@->CAPRF
+ FIELD 106@->CAPRES
+END
+
+STRINGA 13
+BEGIN
+ KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
+ PROMPT 87 19 ""
+END
+
+NUMERO 14
+BEGIN
+ KEY "NUM. FOGLIO"
+ PROMPT 125 22 ""
+END
+
+END
+
+SECTION BODY ODD 10
+
+STRINGA 1
+BEGIN
+ KEY "COD.FIS"
+ PROMPT 11 1 ""
+ FIELD 45->CODFI
+END
+
+STRINGA 2
+BEGIN
+ KEY "COGNOME"
+ PROMPT 43 1 ""
+ FIELD 45->COGNOME
+END
+
+STRINGA 3
+BEGIN
+ KEY "NOME"
+ PROMPT 80 1 ""
+ FIELD 45->NOME
+END
+
+DATA 4
+BEGIN
+ KEY "DATA NASCITA"
+ PROMPT 114 1 ""
+ FIELD 45->DATANA
+ FORMAT "1444-"
+END
+
+STRINGA 5
+BEGIN
+ KEY "SESSO"
+ PROMPT 128 1 ""
+ FIELD 45->SESSO
+END
+
+STRINGA 6
+BEGIN
+ KEY "COMUNE DI NASCITA"
+ PROMPT 11 3 ""
+ FIELD 45->COMUNENA
+END
+
+STRINGA 7
+BEGIN
+ KEY "PROV. DI NASCITA"
+ PROMPT 48 3 ""
+ FIELD 45->PROVNA
+END
+
+STRINGA 8
+BEGIN
+ KEY "CONGUAGLI NON EFFETTUATI"
+ PROMPT 16 5 ""
+ FIELD 57->CONEFF
+END
+
+STRINGA 9
+BEGIN
+ KEY "RETTIFICA CONGUAGLIO"
+ PROMPT 31 5 ""
+ FIELD 57->RETCON
+END
+
+NUMERO 10
+BEGIN
+ KEY "IMPOSTA RIMBORSATA"
+ PROMPT 39 5 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->10
+ FIELD 57->SIRPEFRIMB
+END   
+
+NUMERO 11
+BEGIN
+ KEY "IMPOSTA VERSATA"
+ PROMPT 54 5 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->11
+ FIELD 57->VIRPEF
+END
+
+NUMERO 12
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 70 5 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->12
+ FIELD 57->INTIRPEF
+END
+
+NUMERO 13
+BEGIN
+ KEY "IMPOSTA VERSATA"
+ PROMPT 85 5 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->13
+ FIELD 57->AIRPEFIV
+END
+
+NUMERO 14
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 100 5 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->14
+ FIELD 57->AIRPEFINT
+END
+
+NUMERO 15
+BEGIN
+ KEY "SOPRATTASSA SU IRPEF"
+ PROMPT 115 5 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->15
+ FIELD 57->STASSA15
+END
+
+NUMERO 16
+BEGIN
+ KEY "CONTRIBUTO A RIMBORSO"
+ PROMPT 8 7 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->16
+ FIELD 57->CONTR16
+END
+
+NUMERO 17
+BEGIN
+ KEY "CONTRIBUTO VERSATO"
+ PROMPT 23 7 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->17
+ FIELD 57->CONTRVER
+END
+
+NUMERO 18
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 39 7 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->18
+ FIELD 57->INTER18
+END   
+
+NUMERO 19
+BEGIN
+ KEY "CONTRIBUTO VERSATO"
+ PROMPT 54 7 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->19
+ FIELD 57->CONTV19
+END
+
+NUMERO 20
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 70 7 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->20
+ FIELD 57->INTE20
+END
+
+NUMERO 21
+BEGIN
+ KEY "SOPRATTASSA SU CSSN"
+ PROMPT 85 7 ""
+ PICTURE "###.###.###.###^^^"
+ MESSAGE ADD,FL->21
+ FIELD 57->SOPRAT21
+END
+
+NUMERO 22
+BEGIN
+ KEY "MOD. 730/95 NON LIQUIDABILE"
+ PROMPT 108 7 ""
+ FIELD 57->M730NLIQ
+END
+
+STRINGA 23
+BEGIN
+ KEY "CODICE FISCALE CAAF"
+ PROMPT 11 9 ""
+ FIELD 104@->S1
+END
+
+STRINGA 24
+BEGIN
+ KEY "DENOMINAZIONE CAAF"
+ PROMPT 44 9 ""
+ FIELD 104@->S0
+END
+
+NUMERO 25
+BEGIN
+ KEY "NUMERO ISCRIZIONE ALBO"
+ PROMPT 125 9 ""            
+ PICTURE "#####"
+ FIELD 104@->I1
+END
+
+END
+
+SECTION FOOTER LAST 4
+
+NUMERO 10
+BEGIN
+ KEY "IMPOSTA RIMBORSATA"
+ PROMPT 39 1 ""
+ PICTURE "###.###.###.###^^^"
+END   
+
+NUMERO 11
+BEGIN
+ KEY "IMPOSTA VERSATA"
+ PROMPT 54 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 12
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 70 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 13
+BEGIN
+ KEY "IMPOSTA VERSATA"
+ PROMPT 85 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 14
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 100 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 15
+BEGIN
+ KEY "SOPRATTASSA SU IRPEF"
+ PROMPT 115 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 16
+BEGIN
+ KEY "CONTRIBUTO A RIMBORSO"
+ PROMPT 8 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 17
+BEGIN
+ KEY "CONTRIBUTO VERSATO"
+ PROMPT 23 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 18
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 39 3 ""
+ PICTURE "###.###.###.###^^^"
+END   
+
+NUMERO 19
+BEGIN
+ KEY "CONTRIBUTO VERSATO"
+ PROMPT 54 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 20
+BEGIN
+ KEY "INTERESSI"
+ PROMPT 70 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 21
+BEGIN
+ KEY "SOPRATTASSA SU CSSN"
+ PROMPT 85 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 730
+BEGIN
+ KEY "NUMERO MOD.730"
+ PROMPT 20 5 ""
+ PICTURE "######"
+ FIELD 36->N730ALLA2
+END                
+
+STRINGA 2
+BEGIN
+ KEY "FIRMA"
+ PROMPT 83 9 ""
+ FIELD 106@->RAGSOC
+END
+
+END
+
+END
diff --git a/m770/77qa3.frm b/m770/77qa3.frm
index dfa189757..bd18e3542 100755
--- a/m770/77qa3.frm
+++ b/m770/77qa3.frm
@@ -1,432 +1,432 @@
-USE 58
-JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
-JOIN 9 INTO CODDITTA=CODDITTA
-JOIN 102 INTO CODDITTA=CODDITTA
-JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
-JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
-JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
-JOIN 37 INTO CODDITTA=CODDITTA
-END
-
-DESCRIPTION
-BEGIN
-  58->* "Quadro A3 770"
-  45->* "Anagrafica dei dipendenti"
-  9->* "Ditte"
-  106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
-  108@->* "Anagrafica persone fisiche (ditta)"
-  113@->* "Comuni DITTA (nascita)"
-  213@->* "Comuni DITTA (residenza)"
-END
-
-GENERAL
-BEGIN
-  OFFSET 0 0
-  FONT "Courier New"
-  SIZE 11
-  CARATTERE "X"
-  INIZIO_POS 3 2
-  FINE_POS 131
-  GRID "+++++++++-|"
-END
-
-SECTION HEADER FIRST 28
-
-LISTA 100
-BEGIN
- KEY "Ditta trasformata"
- FLAGS "H"
- ITEM "1|Normale"     MESSAGE ENABLE,10@|DISABLE,20@
- ITEM "2|Trasformata" MESSAGE ENABLE,20@|DISABLE,10@
- FIELD 58->NPROG
-END
-
-LISTA 1
-BEGIN
- KEY "Tipo anagrafica"
- FLAGS "H"
- FIELD 106@->TIPOA
- ITEM "F|Fisica" MESSAGE SHOW,11@|HIDE,12@
- ITEM "G|Giuridica" MESSAGE SHOW,12@|HIDE,11@
- GROUP 10
-END
-
-STRINGA 2
-BEGIN
- KEY "CODICE FISCALE"
- PROMPT 3 12 ""
- FIELD 106@->COFI
- GROUP 10
-END
-
-STRINGA 3
-BEGIN
- KEY "RAGIONE SOCIALE"
- PROMPT 40 12 ""
- FIELD 106@->RAGSOC
- GROUP 10 12
-END
-
-STRINGA 4
-BEGIN
- KEY "COGNOME"
- PROMPT 40 12 ""
- FIELD 106@->RAGSOC[1,30]
- GROUP 10 11
-END
-
-STRINGA 5
-BEGIN
- KEY "NOME"
- PROMPT 17 14 ""
- FIELD 106@->RAGSOC[31,50]
- GROUP 10 11
-END
-
-STRINGA 6
-BEGIN
- KEY "SESSO"
- PROMPT 59 14 ""
- FIELD 108@->SESSO
- GROUP 10 11
-END
-
-STRINGA 7
-BEGIN
- KEY "DATA DI NASCITA"
- PROMPT 67 14 ""
- FIELD 108@->DATANASC
- GROUP 10 11
-END
-
-STRINGA 8
-BEGIN
- KEY "COMUNE DI NASCITA"
- PROMPT 84 14 ""
- FIELD 113@->DENCOM
- GROUP 10 11
-END
-
-STRINGA 9
-BEGIN
- KEY "PROV. DI NASCITA"
- PROMPT 126 14 ""
- FIELD 113@->PROVCOM
- GROUP 10 11
-END
-
-STRINGA 10
-BEGIN
- KEY "COMUNE DI RES.FISCALE"
- PROMPT 17 16 ""
- FIELD 213@->DENCOM
- GROUP 10
-END
-
-STRINGA 11
-BEGIN
- KEY "PROV DI RES.FISCALE"
- PROMPT 59 16 ""
- FIELD 213@->PROVCOM
- GROUP 10
-END
-
-STRINGA 12
-BEGIN
- KEY "VIA di RES."
- PROMPT 67 16 ""
- FIELD 106@->INDRF
- FIELD 106@->INDRES
- GROUP 10
-END
-
-STRINGA 15
-BEGIN
- KEY "NUM. CIVICO di RES."
- PROMPT 104 16 ""
- FIELD 106@->CIVRF
- FIELD 106@->CIVRES
- GROUP 10
-END
-
-STRINGA 16
-BEGIN
- KEY "CAP"
- PROMPT 123 16 ""
- FIELD 106@->CAPRF
- FIELD 106@->CAPRES
- GROUP 10
-END
-
-LISTA 101
-BEGIN
- KEY "Tipo anagrafica"
- FLAGS "H"
- FIELD 106@->TIPOA
- ITEM "F|Fisica" MESSAGE SHOW,21@|HIDE,22@
- ITEM "G|Giuridica" MESSAGE SHOW,22@|HIDE,21@
- GROUP 20
-END
-
-STRINGA 102
-BEGIN
- KEY "CODICE FISCALE"
- PROMPT 3 12 ""
- FIELD 102->CODFISC
- GROUP 20
-END
-
-STRINGA 103
-BEGIN
- KEY "RAGIONE SOCIALE"
- PROMPT 39 12 ""
- FIELD 102->DENOMIN
- GROUP 20 22
-END
-
-STRINGA 104
-BEGIN
- KEY "COGNOME"
- PROMPT 39 12 ""
- FIELD 102->DENOMIN
- GROUP 20 21
-END
-
-STRINGA 105
-BEGIN
- KEY "NOME"
- PROMPT 17 14 ""
- FIELD 102->NOME
- GROUP 20 21
-END
-
-STRINGA 106
-BEGIN
- KEY "SESSO"
- PROMPT 58 14 ""
- FIELD 102->SESSO
- GROUP 20 21
-END
-
-STRINGA 107
-BEGIN
- KEY "DATA DI NASCITA"
- PROMPT 67 14 ""
- FIELD 102->DATANAS
- GROUP 20 21
-END
-
-STRINGA 108
-BEGIN
- KEY "COMUNE DI NASCITA"
- PROMPT 84 14 ""
- FIELD 102->COMNAS
- GROUP 20 21
-END
-
-STRINGA 109
-BEGIN
- KEY "PROV. DI NASCITA"
- PROMPT 125 14 ""
- FIELD 102->PROVNAS
- GROUP 20 21
-END
-
-STRINGA 110
-BEGIN
- KEY "COMUNE DI RES.FISCALE"
- PROMPT 17 16 ""
- FIELD 102->COMDOM
- GROUP 20
-END
-
-STRINGA 111
-BEGIN
- KEY "PROV DI RES.FISCALE"
- PROMPT 59 16 ""
- FIELD 102->PROVDOM
- GROUP 20
-END
-
-STRINGA 112
-BEGIN
- KEY "VIA di RES."
- PROMPT 66 16 ""
- FIELD 102->INDDOM
- GROUP 20
-END
-
-STRINGA 13
-BEGIN
- KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
- PROMPT 87 20 ""
-END
-
-NUMERO 15 
-BEGIN
- KEY "CONSISTENZA BASE OCCUPAZIONALE AL 12/06/94"
- PROMPT 56 22 ""
- PICTURE "###.###"
- FIELD 37->CONSBASOCC
-END
-
-NUMERO 16
-BEGIN
- KEY "LAVORATORI DIPENDENTI IN MOBILITA'"
- PROMPT 56 23 ""
- PICTURE "###.###"
- FIELD 37->LAVDIPCIN
-END
-
-DATA 17
-BEGIN
- KEY "PERIODO D'IMPOSTA (DAL)"
- PROMPT 96 23 ""
- FORMAT "1442 "          
- FIELD 37->PIMPINI
-END
-
-DATA 18
-BEGIN
- KEY "PERIODO D'IMPOSTA (AL)"
- PROMPT 117 23 ""
- FORMAT "1442 "
- FIELD 37->PIMPFINE
-END
-
-
-NUMERO 14
-BEGIN
- KEY "NUM. FOGLIO"
- PROMPT 125 25 ""
-END
-
-
-END
-
-SECTION BODY ODD 6
-
-STRINGA 1
-BEGIN
- KEY "COD.FIS"
- PROMPT 11 1 ""
- FIELD 45->CODFI
-END
-
-STRINGA 2
-BEGIN
- KEY "COGNOME"
- PROMPT 42 1 ""
- FIELD 45->COGNOME
-END
-
-STRINGA 3
-BEGIN
- KEY "NOME"
- PROMPT 79 1 ""
- FIELD 45->NOME
-END
-
-DATA 4
-BEGIN
- KEY "DATA NASCITA"
- PROMPT 114 1 ""
- FIELD 45->DATANA
- FORMAT "1444-"
-END
-
-STRINGA 5
-BEGIN
- KEY "SESSO"
- PROMPT 128 1 ""
- FIELD 45->SESSO
-END
-
-STRINGA 6
-BEGIN
- KEY "COMUNE DI NASCITA"
- PROMPT 11 3 ""
- FIELD 45->COMUNENA
-END
-
-STRINGA 7
-BEGIN
- KEY "PROV DI NASCITA"
- PROMPT 47 3 ""
- FIELD 45->PROVNA
-END
-
-DATA 8
-BEGIN
- KEY "INIZIO RAPPORTO A TEMPO INDETERMINATO"
- PROMPT 11 5 ""
- FIELD 58->DIRAPTI
- FORMAT "1444-"
- PICTURE "## ^ ##^^^##"
-END
-
-NUMERO 9
-BEGIN
- KEY "NUMERO GIORNI IN INCREMENTO"
- PROMPT 35 5 ""
- PICTURE "######"
- FIELD 58->NGINC15
-END
-
-NUMERO 10
-BEGIN
- KEY "REDDITO CORRISPOSTO"
- PROMPT 43 5 ""
- MESSAGE ADD,FL->10
- PICTURE "###.###.###.###^^^"
- FIELD 58->REDCOR16
-END
-
-NUMERO 11
-BEGIN
- KEY "NUMERO GIORNI IN INCREMENTO"
- PROMPT 69 5 ""
- PICTURE "######"
- FIELD 58->NGINC17
-END
-
-NUMERO 12
-BEGIN
- KEY "REDDITO CORRISPOSTO"
- PROMPT 77 5 ""
- MESSAGE ADD,FL->12
- PICTURE "###.###.###.###^^^"
- FIELD 58->REDCOR18
-END
-
-END
-
-SECTION FOOTER LAST 2
-
-NUMERO 10
-BEGIN
- KEY "REDDITO CORRISPOSTO"
- PROMPT 43 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 12
-BEGIN
- KEY "REDDITO CORRISPOSTO"
- PROMPT 77 1 ""
- PICTURE "###.###.###.###^^^"
-END
-
-STRINGA 2
-BEGIN
- KEY "FIRMA"
- PROMPT 83 4 ""
- FIELD 106@->RAGSOC
-END
-
-
-
-END
-
-END
+USE 58
+JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
+JOIN 9 INTO CODDITTA=CODDITTA
+JOIN 102 INTO CODDITTA=CODDITTA
+JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
+JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
+JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
+JOIN 37 INTO CODDITTA=CODDITTA
+END
+
+DESCRIPTION
+BEGIN
+  58->* "Quadro A3 770"
+  45->* "Anagrafica dei dipendenti"
+  9->* "Ditte"
+  106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
+  108@->* "Anagrafica persone fisiche (ditta)"
+  113@->* "Comuni DITTA (nascita)"
+  213@->* "Comuni DITTA (residenza)"
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Courier New"
+  SIZE 11
+  CARATTERE "X"
+  INIZIO_POS 3 2
+  FINE_POS 131
+  GRID "+++++++++-|"
+END
+
+SECTION HEADER FIRST 28
+
+LISTA 100
+BEGIN
+ KEY "Ditta trasformata"
+ FLAGS "H"
+ ITEM "1|Normale"     MESSAGE ENABLE,10@|DISABLE,20@
+ ITEM "2|Trasformata" MESSAGE ENABLE,20@|DISABLE,10@
+ FIELD 58->NPROG
+END
+
+LISTA 1
+BEGIN
+ KEY "Tipo anagrafica"
+ FLAGS "H"
+ FIELD 106@->TIPOA
+ ITEM "F|Fisica" MESSAGE SHOW,11@|HIDE,12@
+ ITEM "G|Giuridica" MESSAGE SHOW,12@|HIDE,11@
+ GROUP 10
+END
+
+STRINGA 2
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 3 12 ""
+ FIELD 106@->COFI
+ GROUP 10
+END
+
+STRINGA 3
+BEGIN
+ KEY "RAGIONE SOCIALE"
+ PROMPT 40 12 ""
+ FIELD 106@->RAGSOC
+ GROUP 10 12
+END
+
+STRINGA 4
+BEGIN
+ KEY "COGNOME"
+ PROMPT 40 12 ""
+ FIELD 106@->RAGSOC[1,30]
+ GROUP 10 11
+END
+
+STRINGA 5
+BEGIN
+ KEY "NOME"
+ PROMPT 17 14 ""
+ FIELD 106@->RAGSOC[31,50]
+ GROUP 10 11
+END
+
+STRINGA 6
+BEGIN
+ KEY "SESSO"
+ PROMPT 59 14 ""
+ FIELD 108@->SESSO
+ GROUP 10 11
+END
+
+STRINGA 7
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 67 14 ""
+ FIELD 108@->DATANASC
+ GROUP 10 11
+END
+
+STRINGA 8
+BEGIN
+ KEY "COMUNE DI NASCITA"
+ PROMPT 84 14 ""
+ FIELD 113@->DENCOM
+ GROUP 10 11
+END
+
+STRINGA 9
+BEGIN
+ KEY "PROV. DI NASCITA"
+ PROMPT 126 14 ""
+ FIELD 113@->PROVCOM
+ GROUP 10 11
+END
+
+STRINGA 10
+BEGIN
+ KEY "COMUNE DI RES.FISCALE"
+ PROMPT 17 16 ""
+ FIELD 213@->DENCOM
+ GROUP 10
+END
+
+STRINGA 11
+BEGIN
+ KEY "PROV DI RES.FISCALE"
+ PROMPT 59 16 ""
+ FIELD 213@->PROVCOM
+ GROUP 10
+END
+
+STRINGA 12
+BEGIN
+ KEY "VIA di RES."
+ PROMPT 67 16 ""
+ FIELD 106@->INDRF
+ FIELD 106@->INDRES
+ GROUP 10
+END
+
+STRINGA 15
+BEGIN
+ KEY "NUM. CIVICO di RES."
+ PROMPT 104 16 ""
+ FIELD 106@->CIVRF
+ FIELD 106@->CIVRES
+ GROUP 10
+END
+
+STRINGA 16
+BEGIN
+ KEY "CAP"
+ PROMPT 123 16 ""
+ FIELD 106@->CAPRF
+ FIELD 106@->CAPRES
+ GROUP 10
+END
+
+LISTA 101
+BEGIN
+ KEY "Tipo anagrafica"
+ FLAGS "H"
+ FIELD 106@->TIPOA
+ ITEM "F|Fisica" MESSAGE SHOW,21@|HIDE,22@
+ ITEM "G|Giuridica" MESSAGE SHOW,22@|HIDE,21@
+ GROUP 20
+END
+
+STRINGA 102
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 3 12 ""
+ FIELD 102->CODFISC
+ GROUP 20
+END
+
+STRINGA 103
+BEGIN
+ KEY "RAGIONE SOCIALE"
+ PROMPT 39 12 ""
+ FIELD 102->DENOMIN
+ GROUP 20 22
+END
+
+STRINGA 104
+BEGIN
+ KEY "COGNOME"
+ PROMPT 39 12 ""
+ FIELD 102->DENOMIN
+ GROUP 20 21
+END
+
+STRINGA 105
+BEGIN
+ KEY "NOME"
+ PROMPT 17 14 ""
+ FIELD 102->NOME
+ GROUP 20 21
+END
+
+STRINGA 106
+BEGIN
+ KEY "SESSO"
+ PROMPT 58 14 ""
+ FIELD 102->SESSO
+ GROUP 20 21
+END
+
+STRINGA 107
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 67 14 ""
+ FIELD 102->DATANAS
+ GROUP 20 21
+END
+
+STRINGA 108
+BEGIN
+ KEY "COMUNE DI NASCITA"
+ PROMPT 84 14 ""
+ FIELD 102->COMNAS
+ GROUP 20 21
+END
+
+STRINGA 109
+BEGIN
+ KEY "PROV. DI NASCITA"
+ PROMPT 125 14 ""
+ FIELD 102->PROVNAS
+ GROUP 20 21
+END
+
+STRINGA 110
+BEGIN
+ KEY "COMUNE DI RES.FISCALE"
+ PROMPT 17 16 ""
+ FIELD 102->COMDOM
+ GROUP 20
+END
+
+STRINGA 111
+BEGIN
+ KEY "PROV DI RES.FISCALE"
+ PROMPT 59 16 ""
+ FIELD 102->PROVDOM
+ GROUP 20
+END
+
+STRINGA 112
+BEGIN
+ KEY "VIA di RES."
+ PROMPT 66 16 ""
+ FIELD 102->INDDOM
+ GROUP 20
+END
+
+STRINGA 13
+BEGIN
+ KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
+ PROMPT 87 20 ""
+END
+
+NUMERO 15 
+BEGIN
+ KEY "CONSISTENZA BASE OCCUPAZIONALE AL 12/06/94"
+ PROMPT 56 22 ""
+ PICTURE "###.###"
+ FIELD 37->CONSBASOCC
+END
+
+NUMERO 16
+BEGIN
+ KEY "LAVORATORI DIPENDENTI IN MOBILITA'"
+ PROMPT 56 23 ""
+ PICTURE "###.###"
+ FIELD 37->LAVDIPCIN
+END
+
+DATA 17
+BEGIN
+ KEY "PERIODO D'IMPOSTA (DAL)"
+ PROMPT 96 23 ""
+ FORMAT "1442 "          
+ FIELD 37->PIMPINI
+END
+
+DATA 18
+BEGIN
+ KEY "PERIODO D'IMPOSTA (AL)"
+ PROMPT 117 23 ""
+ FORMAT "1442 "
+ FIELD 37->PIMPFINE
+END
+
+
+NUMERO 14
+BEGIN
+ KEY "NUM. FOGLIO"
+ PROMPT 125 25 ""
+END
+
+
+END
+
+SECTION BODY ODD 6
+
+STRINGA 1
+BEGIN
+ KEY "COD.FIS"
+ PROMPT 11 1 ""
+ FIELD 45->CODFI
+END
+
+STRINGA 2
+BEGIN
+ KEY "COGNOME"
+ PROMPT 42 1 ""
+ FIELD 45->COGNOME
+END
+
+STRINGA 3
+BEGIN
+ KEY "NOME"
+ PROMPT 79 1 ""
+ FIELD 45->NOME
+END
+
+DATA 4
+BEGIN
+ KEY "DATA NASCITA"
+ PROMPT 114 1 ""
+ FIELD 45->DATANA
+ FORMAT "1444-"
+END
+
+STRINGA 5
+BEGIN
+ KEY "SESSO"
+ PROMPT 128 1 ""
+ FIELD 45->SESSO
+END
+
+STRINGA 6
+BEGIN
+ KEY "COMUNE DI NASCITA"
+ PROMPT 11 3 ""
+ FIELD 45->COMUNENA
+END
+
+STRINGA 7
+BEGIN
+ KEY "PROV DI NASCITA"
+ PROMPT 47 3 ""
+ FIELD 45->PROVNA
+END
+
+DATA 8
+BEGIN
+ KEY "INIZIO RAPPORTO A TEMPO INDETERMINATO"
+ PROMPT 11 5 ""
+ FIELD 58->DIRAPTI
+ FORMAT "1444-"
+ PICTURE "## ^ ##^^^##"
+END
+
+NUMERO 9
+BEGIN
+ KEY "NUMERO GIORNI IN INCREMENTO"
+ PROMPT 35 5 ""
+ PICTURE "######"
+ FIELD 58->NGINC15
+END
+
+NUMERO 10
+BEGIN
+ KEY "REDDITO CORRISPOSTO"
+ PROMPT 43 5 ""
+ MESSAGE ADD,FL->10
+ PICTURE "###.###.###.###^^^"
+ FIELD 58->REDCOR16
+END
+
+NUMERO 11
+BEGIN
+ KEY "NUMERO GIORNI IN INCREMENTO"
+ PROMPT 69 5 ""
+ PICTURE "######"
+ FIELD 58->NGINC17
+END
+
+NUMERO 12
+BEGIN
+ KEY "REDDITO CORRISPOSTO"
+ PROMPT 77 5 ""
+ MESSAGE ADD,FL->12
+ PICTURE "###.###.###.###^^^"
+ FIELD 58->REDCOR18
+END
+
+END
+
+SECTION FOOTER LAST 2
+
+NUMERO 10
+BEGIN
+ KEY "REDDITO CORRISPOSTO"
+ PROMPT 43 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 12
+BEGIN
+ KEY "REDDITO CORRISPOSTO"
+ PROMPT 77 1 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+STRINGA 2
+BEGIN
+ KEY "FIRMA"
+ PROMPT 83 4 ""
+ FIELD 106@->RAGSOC
+END
+
+
+
+END
+
+END
diff --git a/m770/77qb.frm b/m770/77qb.frm
index 6eb6b8327..d2d88e973 100755
--- a/m770/77qb.frm
+++ b/m770/77qb.frm
@@ -1,690 +1,690 @@
-USE 59
-JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
-JOIN 9 INTO CODDITTA=CODDITTA
-JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
-JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
-JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
-
-END
-DESCRIPTION
-BEGIN
-  59->* "Quadro B 770"
-  45->* "Anagrafica dei dipendenti"
-  9->* "Ditte"
-  106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
-  108@->* "Anagrafica persone fisiche (ditta)"
-  113@->* "Comuni DITTA (nascita)"
-  213@->* "Comuni DITTA (residenza)"
-END
-
-GENERAL
-BEGIN
-  OFFSET 0 0
-  FONT "Courier New"
-  SIZE 11
-  CARATTERE "X"
-  INIZIO_POS 3 2
-  FINE_POS 131
-  GRID "+++++++++-|"
-END
-
-SECTION HEADER FIRST 28
-
-LISTA 1
-BEGIN
- KEY "Tipo anagrafica"
- FLAGS "H"
- FIELD 106@->TIPOA
- ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
- ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
-END
-
-STRINGA 2
-BEGIN
- KEY "CODICE FISCALE"
- PROMPT 3 11 ""
- FIELD 106@->COFI
-END
-
-STRINGA 3
-BEGIN
- KEY "RAGIONE SOCIALE"
- PROMPT 39 11 ""
- GROUP  2
- FIELD 106@->RAGSOC
-END
-
-STRINGA 4
-BEGIN
- KEY "COGNOME"
- PROMPT 39 11 ""
- GROUP  1
- FIELD 106@->RAGSOC[1,30]
-END
-
-STRINGA 5
-BEGIN
- KEY "NOME"
- PROMPT 17 13 ""
- GROUP  1
- FIELD 106@->RAGSOC[31,50]
-END
-
-STRINGA 6
-BEGIN
- KEY "SESSO"
- PROMPT 58 13 ""
- GROUP  1
- FIELD 108@->SESSO
-END
-
-STRINGA 7
-BEGIN
- KEY "DATA DI NASCITA"
- PROMPT 67 13 ""
- GROUP  1
- FIELD 108@->DATANASC
-END
-
-STRINGA 8
-BEGIN
- KEY "COMUNE DI NASCITA"
- PROMPT 84 13 ""
- GROUP  1
- FIELD 113@->DENCOM
-END
-
-STRINGA 9
-BEGIN
- KEY "PROV. DI NASCITA"
- PROMPT 125 13 ""
- GROUP  1
- FIELD 113@->PROVCOM
-END
-
-STRINGA 10
-BEGIN
- KEY "COMUNE DI RES.FISCALE"
- PROMPT 17 15 ""
- FIELD 213@->DENCOM
-END
-
-STRINGA 11
-BEGIN
- KEY "PROV DI RES.FISCALE"
- PROMPT 59 15 ""
- FIELD 213@->PROVCOM
-END
-
-STRINGA 12
-BEGIN
- KEY "VIA di RES."
- PROMPT 66 15 ""
- FIELD 106@->INDRF 
- FIELD 106@->INDRES
-END
-
-STRINGA 15
-BEGIN
- KEY "NUM. CIVICO di RES."
- PROMPT 104 15 ""
- FIELD 106@->CIVRF
- FIELD 106@->CIVRES
-END
-
-STRINGA 16
-BEGIN
- KEY "CAP"
- PROMPT 123 15 ""
- FIELD 106@->CAPRF
- FIELD 106@->CAPRES
-END
-
-STRINGA 13
-BEGIN
- KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
- PROMPT 85 18 ""
-END
-
-NUMERO 14
-BEGIN
- KEY "NUM. FOGLIO"
- PROMPT 125 21 ""
-END
-
-END
-
-SECTION BODY ODD 12
-
-STRINGA 1
-BEGIN
- KEY "COD.FIS"
- PROMPT 11 1 ""
- FIELD 45->CODFI
-END
-
-STRINGA 2
-BEGIN
- KEY "COGNOME"
- PROMPT 44 1 ""
- FIELD 45->COGNOME
-END
-
-STRINGA 3
-BEGIN
- KEY "NOME"
- PROMPT 82 1 ""
- FIELD 45->NOME
-END
-
-DATA 4
-BEGIN
- KEY "DATA NASCITA"
- PROMPT 114 1 ""
- FIELD 45->DATANA
- FORMAT "1444-"
-END
-
-STRINGA 5
-BEGIN
- KEY "SESSO"
- PROMPT 128 1 ""
- FIELD 45->SESSO
-END
-
-STRINGA 6
-BEGIN
- KEY "COMUNE DI NASCITA"
- PROMPT 11 3 ""
- FIELD 45->COMUNENA
-END
-
-STRINGA 7
-BEGIN
- KEY "PROV DI NASCITA"
- PROMPT 47 3 ""
- FIELD 45->PROVNA
-END
-
-STRINGA 8
-BEGIN
- KEY "COMUNE DI RESIDENZA"
- PROMPT 54 3 ""
- FIELD 45->COMRES
-END
-
-STRINGA 9
-BEGIN
- KEY "PROV. RESIDENZA"
- PROMPT 88 3 ""
- FIELD 45->PROVRES
-END
-
-STRINGA 10
-BEGIN
- KEY "INDIRIZZO RES."
- PROMPT 95 3 ""
- FIELD 45->INDRES
-END
-
-DATA 11
-BEGIN
- KEY "DATA INIZIO RAPPORTO"
- PROMPT 12 5 ""
- PICTURE "## ^ ## ^ ^^##"
- FIELD DATAINI
-END
-
-DATA 12
-BEGIN
- KEY "DATA FINE RAPPORTO"
- PROMPT 31 5 ""
- PICTURE "## ^ ## ^ ^^##"
- FIELD DATAFIN
-END
-
-NUMERO 131
-BEGIN
- KEY "ANNI COMMISURAZIONE"
- PROMPT 49 5 ""
- FIELD ANNICOMM
-END
-
-NUMERO 132
-BEGIN
- KEY "MESI COMMISURAZIONE"
- PROMPT 55 5 ""
- FIELD MESICOMM
-END
-
-NUMERO 141
-BEGIN
- KEY "ANNI CONVENZIONALI"
- PROMPT 61 5 ""
- FIELD ANNICONV
-END
-
-NUMERO 142
-BEGIN
- KEY "MESI CONVENZIONALI"
- PROMPT 66 5 ""
- FIELD MESICONV
-END
-
-NUMERO 151
-BEGIN
- KEY "ANNI PARZIALI"
- PROMPT 75 5 ""
- FIELD ANNIPARZ
-END
-
-NUMERO 152
-BEGIN
- KEY "MESI PARZIALI"
- PROMPT 82 5 ""
- FIELD MESIPARZ
-END
-
-NUMERO 153
-BEGIN
- KEY "PERCENTUALE TEMPO PARZIALE"
- PROMPT 83 5 ""
- PICTURE "##@,@@"
- FIELD PERCPARZ
-END
-
-NUMERO 16
-BEGIN
- KEY "QUOTA ECCEDENTE"
- PROMPT 90 5 "" 
- PICTURE "###.###.###^^^"
- FIELD QUOTAECC
- MESSAGE ADD,FL->16
-END
-
-NUMERO 17
-BEGIN
- KEY "MESE EROGAZIONE"
- PROMPT 104 5 ""
- FIELD MESEEROG
-END
-
-STRINGA 18
-BEGIN
- KEY "TITOLO EROGAZIONE"
- PROMPT 110 5 ""
- FIELD TITEROG
-END
-
-NUMERO 19
-BEGIN
- KEY "PERCENTUALE ABBATTIMENTO"
- PROMPT 112 5 ""
- PICTURE "##@,@@"
- FIELD PERCABB
-END
-
-NUMERO 20
-BEGIN
- KEY "AMMONTARE NETTO"
- PROMPT 119 5 ""
- PICTURE "#.###.###.###^^^"
- FIELD AMMNETTO
- MESSAGE ADD,FL->20
-END
-
-NUMERO 21
-BEGIN
- KEY "MESE EROGAZIONE"
- PROMPT 11 7 ""
- FIELD MESEEROG2
-END
-
-STRINGA 22
-BEGIN
- KEY "TITOLO EROGAZIONE"
- PROMPT 16 7 ""
- FIELD TITEROG2
-END
-
-NUMERO 23
-BEGIN
- KEY "ABBATTIMENTO"
- PROMPT 22 7 ""
- PICTURE "###.###.###^^^"
- FIELD ABBATT
-END
-
-NUMERO 24
-BEGIN
- KEY "AMMONTARE NETTO"
- PROMPT 35 7 ""
- PICTURE "###.###.###^^^"
- FIELD AMMNETTO2
- MESSAGE ADD,FL->24
-END
-
-NUMERO 25
-BEGIN
- KEY "CONTRIBUTI OBBLIGATORI LAVORATORE"
- PROMPT 50 7 ""
- PICTURE "###.###.###.###^^^"
- FIELD CONTLAV
- MESSAGE ADD,FL->25
-END
-
-NUMERO 26
-BEGIN
- KEY "T.F.R."
- PROMPT 67 7 ""
- PICTURE "###.###.###.###^^^"
- FIELD TFR7494
- MESSAGE ADD,FL->26
-END
-
-NUMERO 27
-BEGIN
- KEY "ALTRE INDENNITA'"
- PROMPT 84 7 ""
- PICTURE "###.###.###.###^^^"
- FIELD INDEN7494
- MESSAGE ADD,FL->27
-END
-
-NUMERO 28
-BEGIN
- KEY "TOTALE INDENNITA'"
- PROMPT 103 7 ""
- PICTURE "###.###.###^^^"
- FIELD TIND7494
- MESSAGE ADD,FL->28
-END
-
-NUMERO 29
-BEGIN
- KEY "TOTALE RIDUZIONI"
- PROMPT 117 7 ""
- PICTURE "###.###.###.###^^^"
- FIELD TRID
- MESSAGE ADD,FL->29
-END
-
-NUMERO 30
-BEGIN
- KEY "T.F.R. PER REDDITO DI RIFERIMENTO"
- PROMPT 11 9 ""
- PICTURE "###.###.###.###^^^"
- FIELD TFRIND
- MESSAGE ADD,FL->30
-END
-
-NUMERO 31
-BEGIN
- KEY "ALIQUOTA"
- PROMPT 28 9 "" 
- PICTURE "##@,@@"
- FIELD ALIQUOTA
-END
-
-NUMERO 32
-BEGIN
- KEY "RETRIBUZIONE MEDIA BIENNIO PRECEDENTE"
- PROMPT 33 9 ""
- PICTURE "###.###.###.###^^^"
- FIELD RETRMEDIA
-END
-
-NUMERO 33
-BEGIN
- KEY "ALIQUOTA"
- PROMPT 49 9 ""
- PICTURE "##@,@@"
- FIELD ALIQUOTA2
-END
-
-NUMERO 34
-BEGIN
- KEY "IMPONIBILE T.F.R."
- PROMPT 57 9 ""
- PICTURE "#.###.###.###^^^"
- FIELD IMPTFR
- MESSAGE ADD,FL->34
-END
-
-NUMERO 35
-BEGIN
- KEY "IMPONIBILE ALTRE INDENNITA'"
- PROMPT 73 9 ""
- PICTURE "#.###.###.###^^^"
- FIELD IMPIND
- MESSAGE ADD,FL->35
-END
-
-NUMERO 36
-BEGIN
- KEY "IMPONIBILE DELL'ANNO"
- PROMPT 88 9 ""
- PICTURE "#.###.###.###^^^"
- FIELD IMPANNO
- MESSAGE ADD,FL->36
-END
-
-NUMERO 37
-BEGIN
- KEY "TOTALE REDDITO IMPONIBILE"
- PROMPT 103 9 ""
- PICTURE "#.###.###.###^^^"
- FIELD TOTIMP
- MESSAGE ADD,FL->37
-END
-
-NUMERO 38
-BEGIN
- KEY "RITENUTE OPERATE"
- PROMPT 128 9 ""
- PICTURE "#.###.###.###^^^"
- FIELD ROPEACC
- MESSAGE ADD,FL->38
-END
-
-NUMERO 39
-BEGIN
- KEY "IMPOSTA DOVUTA"
- PROMPT 11 11 ""
- PICTURE "###.###.###.###^^^"
- FIELD IMPDOV
- MESSAGE ADD,FL->39
-END
-
-NUMERO 40
-BEGIN
- KEY "RITENUTE FISCALI"
- PROMPT 28 11 ""
- PICTURE "###.###.###.###^^^"
- FIELD RITECC
- MESSAGE ADD,FL->40
-END
-
-NUMERO 41
-BEGIN
- KEY "QUOTA SPETTANTE"
- PROMPT 45 11 ""
- PICTURE "###.###.###.###^^^"
- FIELD QUOTASPET
-END
-
-NUMERO 42
-BEGIN
- KEY "INDENNITA' SPETTANTE"
- PROMPT 62 11 ""
- PICTURE "###.###.###.###^^^"
- FIELD INDSPETT
- MESSAGE ADD,FL->42
-END
-
-NUMERO 43
-BEGIN
- KEY "RITENUTE OPERATE"
- PROMPT 79 11 ""
- PICTURE "###.###.###.###^^^"
- FIELD ROPE
- MESSAGE ADD,FL->43
-END
-
-NUMERO 44
-BEGIN
- KEY "IMPONIBILE C.S.S.N."
- PROMPT 96 11 ""
- PICTURE "###.###.###.###^^^"
- FIELD IMPOCSSN
- MESSAGE ADD,FL->44
-END
-
-END
-
-SECTION FOOTER LAST 8
-
-NUMERO 16
-BEGIN
- KEY "QUOTA ECCEDENTE"
- PROMPT 90 1 "" 
- PICTURE "###.###.###^^^"
-END
-
-NUMERO 20
-BEGIN
- KEY "AMMONTARE NETTO"
- PROMPT 119 1 ""
- PICTURE "#.###.###.###^^^"
-END
-
-NUMERO 24
-BEGIN
- KEY "AMMONTARE NETTO"
- PROMPT 35 3 ""
- PICTURE "###.###.###^^^"
-END
-
-NUMERO 25
-BEGIN
- KEY "CONTRIBUTI OBBLIGATORI LAVORATORE"
- PROMPT 50 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 26
-BEGIN
- KEY "T.F.R."
- PROMPT 67 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 27
-BEGIN
- KEY "ALTRE INDENNITA'"
- PROMPT 84 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 28
-BEGIN
- KEY "TOTALE INDENNITA'"
- PROMPT 103 3 ""
- PICTURE "###.###.###^^^"
-END
-
-NUMERO 29
-BEGIN
- KEY "TOTALE INDENNITA'"
- PROMPT 117 3 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 30
-BEGIN
- KEY "T.F.R. PER REDDITO DI RIFERIMENTO"
- PROMPT 11 5 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 34
-BEGIN
- KEY "IMPONIBILE T.F.R."
- PROMPT 57 5 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 35
-BEGIN
- KEY "IMPONIBILE ALTRE INDENNITA'"
- PROMPT 73 5 ""
- PICTURE "#.###.###.###^^^"
-END
-
-NUMERO 36
-BEGIN
- KEY "IMPONIBILE DELL'ANNO"
- PROMPT 88 5 ""
- PICTURE "#.###.###.###^^^"
-END
-
-NUMERO 37
-BEGIN
- KEY "TOTALE REDDITO IMPONIBILE"
- PROMPT 103 5 ""
- PICTURE "#.###.###.###^^^"
-END
-
-NUMERO 38
-BEGIN
- KEY "RITENUTE OPERATE"
- PROMPT 128 5 ""
- PICTURE "#.###.###.###^^^"
-END
-
-NUMERO 39
-BEGIN
- KEY "IMPOSTA DOVUTA"
- PROMPT 11 7 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 40
-BEGIN
- KEY "RITENUTE FISCALI"
- PROMPT 28 7 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 42
-BEGIN
- KEY "INDENNITA' SPETTANTE"
- PROMPT 62 7 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 43
-BEGIN
- KEY "RITENUTE OPERATE"
- PROMPT 79 7 ""
- PICTURE "###.###.###.###^^^"
-END
-
-NUMERO 44
-BEGIN
- KEY "IMPONIBILE C.S.S.N."
- PROMPT 96 7 ""
- PICTURE "###.###.###.###^^^"
-END
-
-STRINGA 2
-BEGIN
- KEY "FIRMA"
- PROMPT 83 23 ""
- FIELD 106@->RAGSOC
-END
-
-END
-
+USE 59
+JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
+JOIN 9 INTO CODDITTA=CODDITTA
+JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
+JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
+JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
+
+END
+DESCRIPTION
+BEGIN
+  59->* "Quadro B 770"
+  45->* "Anagrafica dei dipendenti"
+  9->* "Ditte"
+  106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
+  108@->* "Anagrafica persone fisiche (ditta)"
+  113@->* "Comuni DITTA (nascita)"
+  213@->* "Comuni DITTA (residenza)"
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Courier New"
+  SIZE 11
+  CARATTERE "X"
+  INIZIO_POS 3 2
+  FINE_POS 131
+  GRID "+++++++++-|"
+END
+
+SECTION HEADER FIRST 28
+
+LISTA 1
+BEGIN
+ KEY "Tipo anagrafica"
+ FLAGS "H"
+ FIELD 106@->TIPOA
+ ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
+ ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
+END
+
+STRINGA 2
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 3 11 ""
+ FIELD 106@->COFI
+END
+
+STRINGA 3
+BEGIN
+ KEY "RAGIONE SOCIALE"
+ PROMPT 39 11 ""
+ GROUP  2
+ FIELD 106@->RAGSOC
+END
+
+STRINGA 4
+BEGIN
+ KEY "COGNOME"
+ PROMPT 39 11 ""
+ GROUP  1
+ FIELD 106@->RAGSOC[1,30]
+END
+
+STRINGA 5
+BEGIN
+ KEY "NOME"
+ PROMPT 17 13 ""
+ GROUP  1
+ FIELD 106@->RAGSOC[31,50]
+END
+
+STRINGA 6
+BEGIN
+ KEY "SESSO"
+ PROMPT 58 13 ""
+ GROUP  1
+ FIELD 108@->SESSO
+END
+
+STRINGA 7
+BEGIN
+ KEY "DATA DI NASCITA"
+ PROMPT 67 13 ""
+ GROUP  1
+ FIELD 108@->DATANASC
+END
+
+STRINGA 8
+BEGIN
+ KEY "COMUNE DI NASCITA"
+ PROMPT 84 13 ""
+ GROUP  1
+ FIELD 113@->DENCOM
+END
+
+STRINGA 9
+BEGIN
+ KEY "PROV. DI NASCITA"
+ PROMPT 125 13 ""
+ GROUP  1
+ FIELD 113@->PROVCOM
+END
+
+STRINGA 10
+BEGIN
+ KEY "COMUNE DI RES.FISCALE"
+ PROMPT 17 15 ""
+ FIELD 213@->DENCOM
+END
+
+STRINGA 11
+BEGIN
+ KEY "PROV DI RES.FISCALE"
+ PROMPT 59 15 ""
+ FIELD 213@->PROVCOM
+END
+
+STRINGA 12
+BEGIN
+ KEY "VIA di RES."
+ PROMPT 66 15 ""
+ FIELD 106@->INDRF 
+ FIELD 106@->INDRES
+END
+
+STRINGA 15
+BEGIN
+ KEY "NUM. CIVICO di RES."
+ PROMPT 104 15 ""
+ FIELD 106@->CIVRF
+ FIELD 106@->CIVRES
+END
+
+STRINGA 16
+BEGIN
+ KEY "CAP"
+ PROMPT 123 15 ""
+ FIELD 106@->CAPRF
+ FIELD 106@->CAPRES
+END
+
+STRINGA 13
+BEGIN
+ KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
+ PROMPT 85 18 ""
+END
+
+NUMERO 14
+BEGIN
+ KEY "NUM. FOGLIO"
+ PROMPT 125 21 ""
+END
+
+END
+
+SECTION BODY ODD 12
+
+STRINGA 1
+BEGIN
+ KEY "COD.FIS"
+ PROMPT 11 1 ""
+ FIELD 45->CODFI
+END
+
+STRINGA 2
+BEGIN
+ KEY "COGNOME"
+ PROMPT 44 1 ""
+ FIELD 45->COGNOME
+END
+
+STRINGA 3
+BEGIN
+ KEY "NOME"
+ PROMPT 82 1 ""
+ FIELD 45->NOME
+END
+
+DATA 4
+BEGIN
+ KEY "DATA NASCITA"
+ PROMPT 114 1 ""
+ FIELD 45->DATANA
+ FORMAT "1444-"
+END
+
+STRINGA 5
+BEGIN
+ KEY "SESSO"
+ PROMPT 128 1 ""
+ FIELD 45->SESSO
+END
+
+STRINGA 6
+BEGIN
+ KEY "COMUNE DI NASCITA"
+ PROMPT 11 3 ""
+ FIELD 45->COMUNENA
+END
+
+STRINGA 7
+BEGIN
+ KEY "PROV DI NASCITA"
+ PROMPT 47 3 ""
+ FIELD 45->PROVNA
+END
+
+STRINGA 8
+BEGIN
+ KEY "COMUNE DI RESIDENZA"
+ PROMPT 54 3 ""
+ FIELD 45->COMRES
+END
+
+STRINGA 9
+BEGIN
+ KEY "PROV. RESIDENZA"
+ PROMPT 88 3 ""
+ FIELD 45->PROVRES
+END
+
+STRINGA 10
+BEGIN
+ KEY "INDIRIZZO RES."
+ PROMPT 95 3 ""
+ FIELD 45->INDRES
+END
+
+DATA 11
+BEGIN
+ KEY "DATA INIZIO RAPPORTO"
+ PROMPT 12 5 ""
+ PICTURE "## ^ ## ^ ^^##"
+ FIELD DATAINI
+END
+
+DATA 12
+BEGIN
+ KEY "DATA FINE RAPPORTO"
+ PROMPT 31 5 ""
+ PICTURE "## ^ ## ^ ^^##"
+ FIELD DATAFIN
+END
+
+NUMERO 131
+BEGIN
+ KEY "ANNI COMMISURAZIONE"
+ PROMPT 49 5 ""
+ FIELD ANNICOMM
+END
+
+NUMERO 132
+BEGIN
+ KEY "MESI COMMISURAZIONE"
+ PROMPT 55 5 ""
+ FIELD MESICOMM
+END
+
+NUMERO 141
+BEGIN
+ KEY "ANNI CONVENZIONALI"
+ PROMPT 61 5 ""
+ FIELD ANNICONV
+END
+
+NUMERO 142
+BEGIN
+ KEY "MESI CONVENZIONALI"
+ PROMPT 66 5 ""
+ FIELD MESICONV
+END
+
+NUMERO 151
+BEGIN
+ KEY "ANNI PARZIALI"
+ PROMPT 75 5 ""
+ FIELD ANNIPARZ
+END
+
+NUMERO 152
+BEGIN
+ KEY "MESI PARZIALI"
+ PROMPT 82 5 ""
+ FIELD MESIPARZ
+END
+
+NUMERO 153
+BEGIN
+ KEY "PERCENTUALE TEMPO PARZIALE"
+ PROMPT 83 5 ""
+ PICTURE "##@,@@"
+ FIELD PERCPARZ
+END
+
+NUMERO 16
+BEGIN
+ KEY "QUOTA ECCEDENTE"
+ PROMPT 90 5 "" 
+ PICTURE "###.###.###^^^"
+ FIELD QUOTAECC
+ MESSAGE ADD,FL->16
+END
+
+NUMERO 17
+BEGIN
+ KEY "MESE EROGAZIONE"
+ PROMPT 104 5 ""
+ FIELD MESEEROG
+END
+
+STRINGA 18
+BEGIN
+ KEY "TITOLO EROGAZIONE"
+ PROMPT 110 5 ""
+ FIELD TITEROG
+END
+
+NUMERO 19
+BEGIN
+ KEY "PERCENTUALE ABBATTIMENTO"
+ PROMPT 112 5 ""
+ PICTURE "##@,@@"
+ FIELD PERCABB
+END
+
+NUMERO 20
+BEGIN
+ KEY "AMMONTARE NETTO"
+ PROMPT 119 5 ""
+ PICTURE "#.###.###.###^^^"
+ FIELD AMMNETTO
+ MESSAGE ADD,FL->20
+END
+
+NUMERO 21
+BEGIN
+ KEY "MESE EROGAZIONE"
+ PROMPT 11 7 ""
+ FIELD MESEEROG2
+END
+
+STRINGA 22
+BEGIN
+ KEY "TITOLO EROGAZIONE"
+ PROMPT 16 7 ""
+ FIELD TITEROG2
+END
+
+NUMERO 23
+BEGIN
+ KEY "ABBATTIMENTO"
+ PROMPT 22 7 ""
+ PICTURE "###.###.###^^^"
+ FIELD ABBATT
+END
+
+NUMERO 24
+BEGIN
+ KEY "AMMONTARE NETTO"
+ PROMPT 35 7 ""
+ PICTURE "###.###.###^^^"
+ FIELD AMMNETTO2
+ MESSAGE ADD,FL->24
+END
+
+NUMERO 25
+BEGIN
+ KEY "CONTRIBUTI OBBLIGATORI LAVORATORE"
+ PROMPT 50 7 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD CONTLAV
+ MESSAGE ADD,FL->25
+END
+
+NUMERO 26
+BEGIN
+ KEY "T.F.R."
+ PROMPT 67 7 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD TFR7494
+ MESSAGE ADD,FL->26
+END
+
+NUMERO 27
+BEGIN
+ KEY "ALTRE INDENNITA'"
+ PROMPT 84 7 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD INDEN7494
+ MESSAGE ADD,FL->27
+END
+
+NUMERO 28
+BEGIN
+ KEY "TOTALE INDENNITA'"
+ PROMPT 103 7 ""
+ PICTURE "###.###.###^^^"
+ FIELD TIND7494
+ MESSAGE ADD,FL->28
+END
+
+NUMERO 29
+BEGIN
+ KEY "TOTALE RIDUZIONI"
+ PROMPT 117 7 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD TRID
+ MESSAGE ADD,FL->29
+END
+
+NUMERO 30
+BEGIN
+ KEY "T.F.R. PER REDDITO DI RIFERIMENTO"
+ PROMPT 11 9 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD TFRIND
+ MESSAGE ADD,FL->30
+END
+
+NUMERO 31
+BEGIN
+ KEY "ALIQUOTA"
+ PROMPT 28 9 "" 
+ PICTURE "##@,@@"
+ FIELD ALIQUOTA
+END
+
+NUMERO 32
+BEGIN
+ KEY "RETRIBUZIONE MEDIA BIENNIO PRECEDENTE"
+ PROMPT 33 9 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD RETRMEDIA
+END
+
+NUMERO 33
+BEGIN
+ KEY "ALIQUOTA"
+ PROMPT 49 9 ""
+ PICTURE "##@,@@"
+ FIELD ALIQUOTA2
+END
+
+NUMERO 34
+BEGIN
+ KEY "IMPONIBILE T.F.R."
+ PROMPT 57 9 ""
+ PICTURE "#.###.###.###^^^"
+ FIELD IMPTFR
+ MESSAGE ADD,FL->34
+END
+
+NUMERO 35
+BEGIN
+ KEY "IMPONIBILE ALTRE INDENNITA'"
+ PROMPT 73 9 ""
+ PICTURE "#.###.###.###^^^"
+ FIELD IMPIND
+ MESSAGE ADD,FL->35
+END
+
+NUMERO 36
+BEGIN
+ KEY "IMPONIBILE DELL'ANNO"
+ PROMPT 88 9 ""
+ PICTURE "#.###.###.###^^^"
+ FIELD IMPANNO
+ MESSAGE ADD,FL->36
+END
+
+NUMERO 37
+BEGIN
+ KEY "TOTALE REDDITO IMPONIBILE"
+ PROMPT 103 9 ""
+ PICTURE "#.###.###.###^^^"
+ FIELD TOTIMP
+ MESSAGE ADD,FL->37
+END
+
+NUMERO 38
+BEGIN
+ KEY "RITENUTE OPERATE"
+ PROMPT 128 9 ""
+ PICTURE "#.###.###.###^^^"
+ FIELD ROPEACC
+ MESSAGE ADD,FL->38
+END
+
+NUMERO 39
+BEGIN
+ KEY "IMPOSTA DOVUTA"
+ PROMPT 11 11 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD IMPDOV
+ MESSAGE ADD,FL->39
+END
+
+NUMERO 40
+BEGIN
+ KEY "RITENUTE FISCALI"
+ PROMPT 28 11 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD RITECC
+ MESSAGE ADD,FL->40
+END
+
+NUMERO 41
+BEGIN
+ KEY "QUOTA SPETTANTE"
+ PROMPT 45 11 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD QUOTASPET
+END
+
+NUMERO 42
+BEGIN
+ KEY "INDENNITA' SPETTANTE"
+ PROMPT 62 11 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD INDSPETT
+ MESSAGE ADD,FL->42
+END
+
+NUMERO 43
+BEGIN
+ KEY "RITENUTE OPERATE"
+ PROMPT 79 11 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD ROPE
+ MESSAGE ADD,FL->43
+END
+
+NUMERO 44
+BEGIN
+ KEY "IMPONIBILE C.S.S.N."
+ PROMPT 96 11 ""
+ PICTURE "###.###.###.###^^^"
+ FIELD IMPOCSSN
+ MESSAGE ADD,FL->44
+END
+
+END
+
+SECTION FOOTER LAST 8
+
+NUMERO 16
+BEGIN
+ KEY "QUOTA ECCEDENTE"
+ PROMPT 90 1 "" 
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 20
+BEGIN
+ KEY "AMMONTARE NETTO"
+ PROMPT 119 1 ""
+ PICTURE "#.###.###.###^^^"
+END
+
+NUMERO 24
+BEGIN
+ KEY "AMMONTARE NETTO"
+ PROMPT 35 3 ""
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 25
+BEGIN
+ KEY "CONTRIBUTI OBBLIGATORI LAVORATORE"
+ PROMPT 50 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 26
+BEGIN
+ KEY "T.F.R."
+ PROMPT 67 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 27
+BEGIN
+ KEY "ALTRE INDENNITA'"
+ PROMPT 84 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 28
+BEGIN
+ KEY "TOTALE INDENNITA'"
+ PROMPT 103 3 ""
+ PICTURE "###.###.###^^^"
+END
+
+NUMERO 29
+BEGIN
+ KEY "TOTALE INDENNITA'"
+ PROMPT 117 3 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 30
+BEGIN
+ KEY "T.F.R. PER REDDITO DI RIFERIMENTO"
+ PROMPT 11 5 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 34
+BEGIN
+ KEY "IMPONIBILE T.F.R."
+ PROMPT 57 5 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 35
+BEGIN
+ KEY "IMPONIBILE ALTRE INDENNITA'"
+ PROMPT 73 5 ""
+ PICTURE "#.###.###.###^^^"
+END
+
+NUMERO 36
+BEGIN
+ KEY "IMPONIBILE DELL'ANNO"
+ PROMPT 88 5 ""
+ PICTURE "#.###.###.###^^^"
+END
+
+NUMERO 37
+BEGIN
+ KEY "TOTALE REDDITO IMPONIBILE"
+ PROMPT 103 5 ""
+ PICTURE "#.###.###.###^^^"
+END
+
+NUMERO 38
+BEGIN
+ KEY "RITENUTE OPERATE"
+ PROMPT 128 5 ""
+ PICTURE "#.###.###.###^^^"
+END
+
+NUMERO 39
+BEGIN
+ KEY "IMPOSTA DOVUTA"
+ PROMPT 11 7 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 40
+BEGIN
+ KEY "RITENUTE FISCALI"
+ PROMPT 28 7 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 42
+BEGIN
+ KEY "INDENNITA' SPETTANTE"
+ PROMPT 62 7 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 43
+BEGIN
+ KEY "RITENUTE OPERATE"
+ PROMPT 79 7 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+NUMERO 44
+BEGIN
+ KEY "IMPONIBILE C.S.S.N."
+ PROMPT 96 7 ""
+ PICTURE "###.###.###.###^^^"
+END
+
+STRINGA 2
+BEGIN
+ KEY "FIRMA"
+ PROMPT 83 23 ""
+ FIELD 106@->RAGSOC
+END
+
+END
+
 END
\ No newline at end of file
diff --git a/m770/77qc.frm b/m770/77qc.frm
index 2a92ee8bd..58c22b52f 100755
--- a/m770/77qc.frm
+++ b/m770/77qc.frm
@@ -1,399 +1,399 @@
-USE 61
-JOIN %CA7 TO 61 ALIAS 14 INTO CODTAB=CODCAUS
-JOIN 9 INTO CODDITTA=CODDITTA
-JOIN  6 TO   9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN  8 TO   6 ALIAS 118 INTO CODANAGR=CODANAGR
-JOIN 13 TO   8 ALIAS 113 INTO COM=COMNASC
-JOIN 13 TO   6 ALIAS 213 INTO COM=COMRF(COMRES)
-JOIN  6 TO  61  ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN  8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
-JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
-JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES
-JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
-END
-
-DESCRIPTION
-BEGIN
-  61->* "Quadro C 770"
-  9->* "Ditte"
-  6->* "Anagrafica persone fisiche e giuridiche"
-  8->* "Anagrafica persone fisiche"
-  113@->* "Comuni"
-  213@->* "Comuni"
-  216@->* "Anagrafica persone fisiche e giuridiche"
-  218@->* "Anagrafica persone giuridiche"
-  313@->* "Comuni"
-  413@->* "Comuni"
-END
-
-GENERAL
-BEGIN
-  OFFSET 0 0
-  FONT "Courier 17cpi"
-  SIZE 11
-  CA "X"           
-  IN 3 2
-  FI 131
-END
-
-SECTION HEADER FIRST 22
-
-LISTA 9
-BEGIN
- KEY "Tipo anagrafica"
- FLAGS "H"
- FIELD 116@->TIPOA
- ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
- ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
-END
-
-STRINGA 1 
-BEGIN
-  KEY "CODICE FISCALE"
-  PROMPT 3 10  ""
-  FIELD 116@->COFI
-END
-
-STRINGA 2
-BEGIN
-  KEY "RAGIONE SOCIALE"
-  PROMPT 39 10  ""
-  FIELD 116@->RAGSOC
-  GROUP 2
-END
-
-STRINGA 3
-BEGIN
-  KEY "COGNOME"
-  PROMPT 39 10 ""
-  FIELD 116@->RAGSOC[1,30]
-  GROUP 1
-END  
-
-STRINGA 4
-BEGIN
-  KEY "NOME"
-  PROMPT 17 12 ""
-  FIELD 116@->RAGSOC[31,50]
-  GROUP 1
-END  
-
-STRINGA 5
-BEGIN
-  KEY "SESSO"
-  PROMPT 59 12 ""
-  FIELD 118@->SESSO
-  GROUP 1
-END  
-  
-STRINGA 6
-BEGIN
-  KEY "DATA DI NASCITA"
-  PROMPT 63 12 ""
-  FIELD 118@->DATANASC
-  GROUP 1
-END  
-  
-STRINGA 7
-BEGIN
-  KEY "COMUNE DI NASCITA"
-  PROMPT 83 12 ""
-  FIELD 113@->DENCOM
-  GROUP 1
-END  
-  
-STRINGA 8
-BEGIN
-  KEY "PROV. DI NASCITA"
-  PROMPT 125 12 ""
-  FIELD 113@->PROVCOM
-  GROUP 1
-END  
-  
-STRINGA 10
-BEGIN
-  KEY "COMUNE DI RES.FISCALE"
-  PROMPT 17 14 ""
-  FIELD 213@->DENCOM
-END  
-  
-STRINGA 11
-BEGIN
-  KEY "PROV DI RES.FISCALE"
-  PROMPT 59 14 ""
-  FIELD 213@->PROVCOM
-END  
-  
-STRINGA 12
-BEGIN
-  KEY "VIA di RES."
-  PROMPT 67 14  ""
-  FIELD 116@->INDRF  
-  FIELD 116@->INDRES
-  FLAGS "H"
-  MESSAGE COPY,17
-END  
-  
-STRINGA 15
-BEGIN
-  KEY "NUM. CIVICO di RES."
-  PROMPT 103 14 ""
-  FIELD 116@->CIVRF 
-  FIELD 116@->CIVRES 
-  FLAGS "H"
-  MESSAGE APPEND,17
-END  
-
-STRINGA 17
-BEGIN
-  KEY "VIA + NUM CIV. DI RES."
-  PROMPT 67 14 ""
-END
-  
-STRINGA 16
-BEGIN
-  KEY "CAP"
-  PROMPT 124 14 ""
-  FIELD 116@->CAPRF 
-  FIELD 116@->CAPRES
-END  
-
-STRINGA 13
-BEGIN
-  KEY "CODICE FISCALE DICHIARANTE"
-  PROMPT 105 17  ""
-END
-
-NUMBER 14
-BEGIN
-  KEY "NUM. FOGLIO"
-  PROMPT 125 20  ""
-END
-
-END
-
-SECTION BODY ODD 6
-
-LISTA 100
-BEGIN
- KEY "Tipo anagrafica"
- FIELD 216@->TIPOA
- ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
- ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
-END
-
-STRINGA 1
-BEGIN
-  KEY "COD.FIS"
-  PROMPT 10 1 ""
-  FIELD 216@->COFI
-END
-
-STRING 2
-BEGIN   
-  KEY "COGNOME"
-  PROMPT 42 1 ""
-  FIELD 216@->RAGSOC[1,30]
-  GROUP 1
-END
-
-STRING 3
-BEGIN   
-  KEY "NOME"
-  PROMPT 81 1 ""
-  FIELD 216@->RAGSOC[31,50]
-  GROUP 1
-END
-
-STRING 4
-BEGIN   
-  KEY "DATA NASCITA"
-  PROMPT 114 1 ""
-  FIELD 218@->DATANASC
-END
-
-STRING 5
-BEGIN   
-  KEY "SESSO"
-  PROMPT 129 1 ""
-  FIELD 218@->SESSO
-END
-
-STRING 6
-BEGIN
-  KEY "COMUNE DI NASCITA"
-  PROMPT 10 3 ""
-  FIELD 313@->DENCOM
-  GROUP 1
-END
-
-STRING 7
-BEGIN
-  KEY "PROV DI NASCITA"
-  PROMPT 47 3 ""
-  FIELD 313@->PROVCOM
-  GROUP 1
-END
-
-STRING 8
-BEGIN
-  KEY "COMUNE DI RESIDENZA"
-  PROMPT 53 3 ""
-  FIELD 413@->DENCOM
-  GROUP 1
-END
-
-STRING 9
-BEGIN
-  KEY "PROV. RESIDENZA"
-  PROMPT 88 3 ""
-  FIELD 413@->PROVCOM
-END
-
-STRING 101
-BEGIN
-  KEY "VIA RES."
-  PROMPT 94 3 ""
-  FIELD 216@->INDRES[1,20]
-  FLAGS "H" 
-  MESSAGE COPY,10
-END
-
-STRING 102
-BEGIN
-  KEY "NUM.CIV"
-  PROMPT 93 3 ""
-  FLAGS "H"
-  FIELD 216@->CIVRES
-  MESSAGE APPEND,10
-END
-
-STRING 10
-BEGIN
-  KEY "VIA RES. + numcivres"
-  PROMPT 95 3 ""
-  GROUP 1
-END
-
-STRING 11
-BEGIN
-  KEY "DESCR. CAUSALE"
-  PROMPT 10 5 ""
-  FIELD 14@->S0[1,20]
-END
-
-STRING 12
-BEGIN
-  KEY "FLAG C.T."
-  PROMPT 34 5 ""
-  FIELD 14@->B2
-END
-
-STRING 13
-BEGIN
-  KEY "FLAG T.S."
-  PROMPT 39 5 ""
-  FIELD 14@->B3
-END
-
-NUMBER 14
-BEGIN
-  KEY "AMMONTARE CORRISPOSTO"
-  PROMPT 45 5 ""  
-  PICTURE "###.###.###^^^"    
-  MESSAGE ADD,FL->14
-//  FIELD 61->TOTALE
-END
-
-NUMBER 15
-BEGIN
-  KEY "CONTRIBUTI S.S.N."
-  PROMPT 60 5 ""    
-  PICTURE "###.###.###^^^"  
-  MESSAGE ADD,FL->15
-//  FIELD 61->CONTSSN         
-END
-
-NUMBER 16
-BEGIN
-  KEY "SOMME NON SOGGETTE A RITENUTA"
-  PROMPT 76 5 ""    
-  PICTURE "###.###.###^^^"    
-  MESSAGE ADD,FL->16
-//  FIELD 61->SOMME    
-END
-
-NUMBER 17
-BEGIN
-  KEY "IMPONIBILE"
-  PROMPT 91 5 ""  
-  PICTURE "###.###.###^^^"    
-  MESSAGE ADD,FL->17
-  FIELD 61->IMPONIBILE
-END
-
-NUMBER 18
-BEGIN
-  KEY "RITENUTE OPERATE"
-  PROMPT 105 5 ""  
-  PICTURE "###.###.###^^^"   
-  MESSAGE ADD,FL->18
-  FIELD 61->RITENUTE       
-END
-
-NUMBER 19
-BEGIN
-  KEY "NETTO CORRISPOSTO"
-  PROMPT 120 5 ""  
-  PICTURE "###.###.###^^^"   
-  MESSAGE ADD,FL->19
-  FIELD 61->NETTO         
-END
-
-END
-
-SECTION FOOTER LAST 2
-
-NUMBER 14
-BEGIN
-  KEY "TOTALE AMMONTARE CORRISPOSTO"
-  PROMPT 45 1 ""            
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 15
-BEGIN
-  KEY "TOTALE CONTRIBUTI S.S.N."
-  PROMPT 61 1 ""            
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 16
-BEGIN
-  KEY "TOTALE SOMME NON SOGGETTE A RITENUTA"
-  PROMPT 76 1 ""            
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 17
-BEGIN
-  KEY "TOTALE IMPONIBILE"
-  PROMPT 91 1 ""            
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 18
-BEGIN
-  KEY "TOTALE RITENUTE OPERATE"
-  PROMPT 105 1 ""           
-  PICTURE "###.###.###^^^"    
-END
-                              
-NUMBER 19
-BEGIN
-  KEY "TOTALE NETTO CORRISPOSTO"
-  PROMPT 120 1 ""           
-  PICTURE "###.###.###^^^"    
-END
-                              
-END
+USE 61
+JOIN %CA7 TO 61 ALIAS 14 INTO CODTAB=CODCAUS
+JOIN 9 INTO CODDITTA=CODDITTA
+JOIN  6 TO   9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN  8 TO   6 ALIAS 118 INTO CODANAGR=CODANAGR
+JOIN 13 TO   8 ALIAS 113 INTO COM=COMNASC
+JOIN 13 TO   6 ALIAS 213 INTO COM=COMRF(COMRES)
+JOIN  6 TO  61  ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN  8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
+JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
+JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES
+JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
+END
+
+DESCRIPTION
+BEGIN
+  61->* "Quadro C 770"
+  9->* "Ditte"
+  6->* "Anagrafica persone fisiche e giuridiche"
+  8->* "Anagrafica persone fisiche"
+  113@->* "Comuni"
+  213@->* "Comuni"
+  216@->* "Anagrafica persone fisiche e giuridiche"
+  218@->* "Anagrafica persone giuridiche"
+  313@->* "Comuni"
+  413@->* "Comuni"
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Courier 17cpi"
+  SIZE 11
+  CA "X"           
+  IN 3 2
+  FI 131
+END
+
+SECTION HEADER FIRST 22
+
+LISTA 9
+BEGIN
+ KEY "Tipo anagrafica"
+ FLAGS "H"
+ FIELD 116@->TIPOA
+ ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
+ ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
+END
+
+STRINGA 1 
+BEGIN
+  KEY "CODICE FISCALE"
+  PROMPT 3 10  ""
+  FIELD 116@->COFI
+END
+
+STRINGA 2
+BEGIN
+  KEY "RAGIONE SOCIALE"
+  PROMPT 39 10  ""
+  FIELD 116@->RAGSOC
+  GROUP 2
+END
+
+STRINGA 3
+BEGIN
+  KEY "COGNOME"
+  PROMPT 39 10 ""
+  FIELD 116@->RAGSOC[1,30]
+  GROUP 1
+END  
+
+STRINGA 4
+BEGIN
+  KEY "NOME"
+  PROMPT 17 12 ""
+  FIELD 116@->RAGSOC[31,50]
+  GROUP 1
+END  
+
+STRINGA 5
+BEGIN
+  KEY "SESSO"
+  PROMPT 59 12 ""
+  FIELD 118@->SESSO
+  GROUP 1
+END  
+  
+STRINGA 6
+BEGIN
+  KEY "DATA DI NASCITA"
+  PROMPT 63 12 ""
+  FIELD 118@->DATANASC
+  GROUP 1
+END  
+  
+STRINGA 7
+BEGIN
+  KEY "COMUNE DI NASCITA"
+  PROMPT 83 12 ""
+  FIELD 113@->DENCOM
+  GROUP 1
+END  
+  
+STRINGA 8
+BEGIN
+  KEY "PROV. DI NASCITA"
+  PROMPT 125 12 ""
+  FIELD 113@->PROVCOM
+  GROUP 1
+END  
+  
+STRINGA 10
+BEGIN
+  KEY "COMUNE DI RES.FISCALE"
+  PROMPT 17 14 ""
+  FIELD 213@->DENCOM
+END  
+  
+STRINGA 11
+BEGIN
+  KEY "PROV DI RES.FISCALE"
+  PROMPT 59 14 ""
+  FIELD 213@->PROVCOM
+END  
+  
+STRINGA 12
+BEGIN
+  KEY "VIA di RES."
+  PROMPT 67 14  ""
+  FIELD 116@->INDRF  
+  FIELD 116@->INDRES
+  FLAGS "H"
+  MESSAGE COPY,17
+END  
+  
+STRINGA 15
+BEGIN
+  KEY "NUM. CIVICO di RES."
+  PROMPT 103 14 ""
+  FIELD 116@->CIVRF 
+  FIELD 116@->CIVRES 
+  FLAGS "H"
+  MESSAGE APPEND,17
+END  
+
+STRINGA 17
+BEGIN
+  KEY "VIA + NUM CIV. DI RES."
+  PROMPT 67 14 ""
+END
+  
+STRINGA 16
+BEGIN
+  KEY "CAP"
+  PROMPT 124 14 ""
+  FIELD 116@->CAPRF 
+  FIELD 116@->CAPRES
+END  
+
+STRINGA 13
+BEGIN
+  KEY "CODICE FISCALE DICHIARANTE"
+  PROMPT 105 17  ""
+END
+
+NUMBER 14
+BEGIN
+  KEY "NUM. FOGLIO"
+  PROMPT 125 20  ""
+END
+
+END
+
+SECTION BODY ODD 6
+
+LISTA 100
+BEGIN
+ KEY "Tipo anagrafica"
+ FIELD 216@->TIPOA
+ ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
+ ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
+END
+
+STRINGA 1
+BEGIN
+  KEY "COD.FIS"
+  PROMPT 10 1 ""
+  FIELD 216@->COFI
+END
+
+STRING 2
+BEGIN   
+  KEY "COGNOME"
+  PROMPT 42 1 ""
+  FIELD 216@->RAGSOC[1,30]
+  GROUP 1
+END
+
+STRING 3
+BEGIN   
+  KEY "NOME"
+  PROMPT 81 1 ""
+  FIELD 216@->RAGSOC[31,50]
+  GROUP 1
+END
+
+STRING 4
+BEGIN   
+  KEY "DATA NASCITA"
+  PROMPT 114 1 ""
+  FIELD 218@->DATANASC
+END
+
+STRING 5
+BEGIN   
+  KEY "SESSO"
+  PROMPT 129 1 ""
+  FIELD 218@->SESSO
+END
+
+STRING 6
+BEGIN
+  KEY "COMUNE DI NASCITA"
+  PROMPT 10 3 ""
+  FIELD 313@->DENCOM
+  GROUP 1
+END
+
+STRING 7
+BEGIN
+  KEY "PROV DI NASCITA"
+  PROMPT 47 3 ""
+  FIELD 313@->PROVCOM
+  GROUP 1
+END
+
+STRING 8
+BEGIN
+  KEY "COMUNE DI RESIDENZA"
+  PROMPT 53 3 ""
+  FIELD 413@->DENCOM
+  GROUP 1
+END
+
+STRING 9
+BEGIN
+  KEY "PROV. RESIDENZA"
+  PROMPT 88 3 ""
+  FIELD 413@->PROVCOM
+END
+
+STRING 101
+BEGIN
+  KEY "VIA RES."
+  PROMPT 94 3 ""
+  FIELD 216@->INDRES[1,20]
+  FLAGS "H" 
+  MESSAGE COPY,10
+END
+
+STRING 102
+BEGIN
+  KEY "NUM.CIV"
+  PROMPT 93 3 ""
+  FLAGS "H"
+  FIELD 216@->CIVRES
+  MESSAGE APPEND,10
+END
+
+STRING 10
+BEGIN
+  KEY "VIA RES. + numcivres"
+  PROMPT 95 3 ""
+  GROUP 1
+END
+
+STRING 11
+BEGIN
+  KEY "DESCR. CAUSALE"
+  PROMPT 10 5 ""
+  FIELD 14@->S0[1,20]
+END
+
+STRING 12
+BEGIN
+  KEY "FLAG C.T."
+  PROMPT 34 5 ""
+  FIELD 14@->B2
+END
+
+STRING 13
+BEGIN
+  KEY "FLAG T.S."
+  PROMPT 39 5 ""
+  FIELD 14@->B3
+END
+
+NUMBER 14
+BEGIN
+  KEY "AMMONTARE CORRISPOSTO"
+  PROMPT 45 5 ""  
+  PICTURE "###.###.###^^^"    
+  MESSAGE ADD,FL->14
+//  FIELD 61->TOTALE
+END
+
+NUMBER 15
+BEGIN
+  KEY "CONTRIBUTI S.S.N."
+  PROMPT 60 5 ""    
+  PICTURE "###.###.###^^^"  
+  MESSAGE ADD,FL->15
+//  FIELD 61->CONTSSN         
+END
+
+NUMBER 16
+BEGIN
+  KEY "SOMME NON SOGGETTE A RITENUTA"
+  PROMPT 76 5 ""    
+  PICTURE "###.###.###^^^"    
+  MESSAGE ADD,FL->16
+//  FIELD 61->SOMME    
+END
+
+NUMBER 17
+BEGIN
+  KEY "IMPONIBILE"
+  PROMPT 91 5 ""  
+  PICTURE "###.###.###^^^"    
+  MESSAGE ADD,FL->17
+  FIELD 61->IMPONIBILE
+END
+
+NUMBER 18
+BEGIN
+  KEY "RITENUTE OPERATE"
+  PROMPT 105 5 ""  
+  PICTURE "###.###.###^^^"   
+  MESSAGE ADD,FL->18
+  FIELD 61->RITENUTE       
+END
+
+NUMBER 19
+BEGIN
+  KEY "NETTO CORRISPOSTO"
+  PROMPT 120 5 ""  
+  PICTURE "###.###.###^^^"   
+  MESSAGE ADD,FL->19
+  FIELD 61->NETTO         
+END
+
+END
+
+SECTION FOOTER LAST 2
+
+NUMBER 14
+BEGIN
+  KEY "TOTALE AMMONTARE CORRISPOSTO"
+  PROMPT 45 1 ""            
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 15
+BEGIN
+  KEY "TOTALE CONTRIBUTI S.S.N."
+  PROMPT 61 1 ""            
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 16
+BEGIN
+  KEY "TOTALE SOMME NON SOGGETTE A RITENUTA"
+  PROMPT 76 1 ""            
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 17
+BEGIN
+  KEY "TOTALE IMPONIBILE"
+  PROMPT 91 1 ""            
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 18
+BEGIN
+  KEY "TOTALE RITENUTE OPERATE"
+  PROMPT 105 1 ""           
+  PICTURE "###.###.###^^^"    
+END
+                              
+NUMBER 19
+BEGIN
+  KEY "TOTALE NETTO CORRISPOSTO"
+  PROMPT 120 1 ""           
+  PICTURE "###.###.###^^^"    
+END
+                              
+END
diff --git a/m770/77qd.frm b/m770/77qd.frm
index 4d817c840..1fda0c3f1 100755
--- a/m770/77qd.frm
+++ b/m770/77qd.frm
@@ -1,447 +1,447 @@
-USE 62
-JOIN %CA7 TO 62 ALIAS 14 INTO CODTAB=CODCAUS
-JOIN 9 INTO CODDITTA=CODDITTA
-JOIN  6 TO   9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN  8 TO   6 ALIAS 118 INTO CODANAGR=CODANAGR
-JOIN 13 TO   8 ALIAS 113 INTO COM=COMNASC
-JOIN 13 TO   6 ALIAS 213 INTO COM=COMRF(COMRES)
-JOIN  6 TO  62  ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN  8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
-JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
-JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES 
-JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
-JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
-END
-
-DESCRIPTION
-BEGIN
-  62->* "Quadro D 770"
-  9->* "Ditte"
-  6->* "Anagrafica persone fisiche e giuridiche"
-  8->* "Anagrafica persone fisiche"
-  113@->* "Comuni"
-  213@->* "Comuni"
-  216@->* "Anagrafica persone fisiche e giuridiche"
-  218@->* "Anagrafica persone giuridiche"
-  313@->* "Comuni"
-  413@->* "Comuni"
-END
-
-GENERAL
-BEGIN
-  OFFSET 0 0
-  FONT "Courier 17cpi"
-  SIZE 10
-  CA "X"           
-  IN 3 2
-  FI 131
-END
-
-SECTION HEADER FIRST 19
-
-LISTA 9
-BEGIN
- KEY "Tipo anagrafica"
- FIELD 116@->TIPOA
- ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
- ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
-END
-
-STRINGA 1 
-BEGIN
-  KEY "CODICE FISCALE"
-  PROMPT 4 1  ""
-  FIELD 116@->COFI
-END
-
-STRINGA 2
-BEGIN
-  KEY "RAGIONE SOCIALE"
-  PROMPT 39 1  ""
-  FIELD 116@->RAGSOC
-  GROUP 2
-END
-
-STRINGA 3
-BEGIN
-  KEY "COGNOME"
-  PROMPT 39 1 ""
-  FIELD 116@->RAGSOC[1,30]
-  GROUP 1
-END  
-
-STRINGA 4
-BEGIN
-  KEY "NOME"
-  PROMPT 17 3 ""
-  FIELD 116@->RAGSOC[31,50]
-  GROUP 1
-END  
-
-STRINGA 5
-BEGIN
-  KEY "SESSO"
-  PROMPT 58 3 ""
-  FIELD 118@->SESSO
-  GROUP 1
-END  
-  
-STRINGA 6
-BEGIN
-  KEY "DATA DI NASCITA"
-  PROMPT 66 3 ""
-  FIELD 118@->DATANASC
-  GROUP 1
-END  
-  
-STRINGA 7
-BEGIN
-  KEY "COMUNE DI NASCITA"
-  PROMPT 84 3 ""
-  FIELD 113@->DENCOM
-  GROUP 1
-END  
-  
-STRINGA 8
-BEGIN
-  KEY "PROV. DI NASCITA"
-  PROMPT 126 3 ""
-  FIELD 113@->PROVCOM
-  GROUP 1
-END  
-  
-STRINGA 10
-BEGIN
-  KEY "COMUNE DI RES.FISCALE"
-  PROMPT 17 5 ""
-  FIELD 213@->DENCOM
-END  
-  
-STRINGA 11
-BEGIN
-  KEY "PROV DI RES.FISCALE"
-  PROMPT 59 5 ""
-  FIELD 213@->PROVCOM
-END  
-  
-STRINGA 12
-BEGIN
-  KEY "VIA di RES."
-  PROMPT 66 5  ""
-  FIELD 116@->INDRF
-  FIELD 116@->INDRES
-END  
-  
-STRINGA 15
-BEGIN
-  KEY "NUM. CIVICO di RES."
-  PROMPT 102 5 ""
-  FIELD 116@->CIVRF 
-  FIELD 116@->CIVRES
-END  
-  
-STRINGA 16
-BEGIN
-  KEY "CAP"
-  PROMPT 122 5 ""
-  FIELD 116@->CAPRF 
-  FIELD 116@->CAPRES
-END  
-
-STRINGA 13
-BEGIN
-  KEY "CODICE FISCALE DICHIARANTE"
-  PROMPT 118 8  ""
-END
-
-NUMBER 14
-BEGIN
-  KEY "NUM. FOGLIO"
-  PROMPT 123 11  ""
-END
-
-END
-
-SECTION BODY ODD 8
-
-LISTA 100
-BEGIN
- KEY "Tipo anagrafica"
- FIELD 216@->TIPOA
- ITEM "F| " MESSAGE SHOW,1@|HIDE,2@
- ITEM "G| " MESSAGE SHOW,2@|HIDE,1@
-END
-
-STRINGA 1
-BEGIN
-  KEY "COD.FIS"
-  PROMPT 10 1 ""
-  FIELD 216@->COFI
-END
-
-STRING 2
-BEGIN   
-  KEY "COGNOME"
-  PROMPT 42 1 ""
-  FIELD 216@->RAGSOC[1,30]
-  GROUP 1
-END          
-
-STRING 3
-BEGIN   
-  KEY "NOME"
-  PROMPT 81 1 ""
-  FIELD 216@->RAGSOC[31,50]
-  GROUP 1
-END
-
-STRING 102
-BEGIN
-  KEY "RAGSOC GIURIDICHE"
-  PROMPT 54 1 ""
-  FIELD 216@->RAGSOC
-  GROUP 2
-END
-
-STRING 4
-BEGIN   
-  KEY "DATA NASCITA"
-  PROMPT 114 1 ""
-  FIELD 218@->DATANASC
-END
-
-STRING 5
-BEGIN   
-  KEY "SESSO"
-  PROMPT 129 1 ""
-  FIELD 218@->SESSO
-END
-
-STRING 6
-BEGIN
-  KEY "COMUNE DI NASCITA"
-  PROMPT 10 3 ""
-  FIELD 313@->DENCOM
-  GROUP 1
-END
-
-STRING 7
-BEGIN
-  KEY "PROV DI NASCITA"
-  PROMPT 47 3 ""
-  FIELD 313@->PROVCOM
-  GROUP 1
-END
-
-STRING 8
-BEGIN
-  KEY "COMUNE DI RESIDENZA FISICHE"
-  PROMPT 53 3 ""
-  FIELD 413@->DENCOM
-  GROUP 1
-END
-
-STRING 9
-BEGIN
-  KEY "PROV. RESIDENZA FISICHE"
-  PROMPT 88 3 ""
-  FIELD 413@->PROVCOM  
-  GROUP 1
-END
-
-STRING 101
-BEGIN
-  KEY "COMUNE RF/RES. GIURIDICHE"
-  PROMPT 10 3 ""
-  FIELD 513@->DENCOM
-  GROUP 2
-END
-
-STRING 106
-BEGIN
-  KEY "PROV. RF/RES GIURIDICHE"
-  PROMPT 61 3 ""
-  FIELD 513@->PROVCOM
-  GROUP 2
-END
-
-STRING 108
-BEGIN
-  KEY "VIA RES. FISICHE"
-  FIELD 216@->INDRES[1,18]
-  FLAGS "H"
-  MESSAGE COPY,10 
-  GROUP 1
-END
-
-STRING 109
-BEGIN
-  KEY "NUM.CIV DI RESIDENZA FISICHE"
-  FLAGS "H"
-  FIELD 216@->CIVRES
-  MESSAGE APPEND,10     
-  GROUP 1
-END
-
-STRING 10
-BEGIN
-  KEY "VIA RES. + NUMCIVRES FISICHE"
-  PROMPT 95 3 ""
-  GROUP 1
-END
-
-STRING 110
-BEGIN
-  KEY "VIA RF/RES. GIURIDICHE"
-  FIELD 216@->INDRF[1,18]
-  FIELD 216@->INDRES[1,18]
-  FLAGS "H"
-  MESSAGE COPY,107 
-  GROUP 2
-END
-
-STRING 111
-BEGIN
-  KEY "NUM.CIV RF/RES GIURIDICHE"
-  FLAGS "H"   
-  FIELD 216@->CIVRF
-  FIELD 216@->CIVRES
-  MESSAGE APPEND,107     
-  GROUP 2
-END
-
-STRING 107
-BEGIN
-  KEY "VIA RES GIURIDICHE"
-  PROMPT 69 3 ""
-  GROUP 2
-END
-
-STRING 11
-BEGIN
-  KEY "FLAG DI NON RESIDENTE"
-  PROMPT 12 5 ""
-  FIELD 216@->SOGGNRES
-END
-
-STRING 12
-BEGIN
-  KEY "STATO ESTERO DI RES."
-  PROMPT 16 5 "" 
-  FIELD 24@->S0
-END
-
-STRING 13
-BEGIN
-  KEY "CODICE STATO ESTERO DI RES."
-  PROMPT 79 5 "" 
-  FIELD 216@->STATORES
-END
-
-STRING 14
-BEGIN
-  KEY "CODICE FISCALE ESTERO"
-  PROMPT 89 5 ""      
-  FIELD 216@->COFIEST
-END
-
-STRING 15
-BEGIN
-  KEY "DESCR. CAUSALE"
-  PROMPT 11 7 ""
-  FIELD 14@->S0[1,20]
-END
-
-NUMBER 16
-BEGIN
-  KEY "TOTALE"
-  PROMPT 42 7 ""
-//  FIELD 62->TOTALE
-  PICTURE "###.###.###^^^" 
-  MESSAGE ADD,FL->16
-END
-
-NUMBER 17
-BEGIN
-  KEY "SOMME NON SOGGETTE A RITENUTA"
-  PROMPT 61 7 ""
-//  FIELD 62->SOMME         
-  PICTURE "###.###.###^^^" 
-  MESSAGE ADD,FL->17   
-END
-
-NUMBER 18
-BEGIN
-  KEY "IMPONIBILE"
-  PROMPT 82 7 ""
-//  FIELD 62->IMPONIBILE    
-  PICTURE "###.###.###^^^" 
-  MESSAGE ADD,FL->18   
-END
-
-STRING 19
-BEGIN
-  KEY "ALIQUOTA"
-  PROMPT 93 7 ""
-  FIELD 62->PERC
-  PICTURE "###@@"
-END
-
-NUMBER 20
-BEGIN
-  KEY "IMPORTO"
-  PROMPT 106 7 ""
-//  FIELD 62->IMPORTO       
-  PICTURE "###.###.###^^^"  
-  MESSAGE ADD,FL->20  
-END
-
-NUMBER 21
-BEGIN
-  KEY "NETTO"
-  PROMPT 126 7 ""
-//  FIELD 62->NETTO         
-  PICTURE "###.###.###^^^" 
-  MESSAGE ADD,FL->21   
-END
-
-END
-
-SECTION FOOTER LAST 1
-
-NUMBER 16
-BEGIN
-  KEY "TOTALE TOTALE"
-  PROMPT 36 1 ""           
-  PICTURE "###.###.###^^^"   
-END
-
-NUMBER 17
-BEGIN
-  KEY "TOTALE SOMME NON SOGGETTE"
-  PROMPT 55 1 ""   
-  PICTURE "###.###.###^^^"   
-END
-
-NUMBER 18
-BEGIN
-  KEY "TOTALE IMPONIBILE"
-  PROMPT 75 1 ""
-  PICTURE "###.###.###^^^"   
-END
-
-NUMBER 20
-BEGIN
-  KEY "TOTALE IMPORTO"
-  PROMPT 101 1 ""
-  PICTURE "###.###.###^^^"   
-END
-
-NUMBER 21
-BEGIN
-  KEY "TOTALE NETTO"
-  PROMPT 120 1 ""
-  PICTURE "###.###.###^^^"   
-END
-
-END
+USE 62
+JOIN %CA7 TO 62 ALIAS 14 INTO CODTAB=CODCAUS
+JOIN 9 INTO CODDITTA=CODDITTA
+JOIN  6 TO   9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN  8 TO   6 ALIAS 118 INTO CODANAGR=CODANAGR
+JOIN 13 TO   8 ALIAS 113 INTO COM=COMNASC
+JOIN 13 TO   6 ALIAS 213 INTO COM=COMRF(COMRES)
+JOIN  6 TO  62  ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN  8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
+JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
+JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES 
+JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
+JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
+END
+
+DESCRIPTION
+BEGIN
+  62->* "Quadro D 770"
+  9->* "Ditte"
+  6->* "Anagrafica persone fisiche e giuridiche"
+  8->* "Anagrafica persone fisiche"
+  113@->* "Comuni"
+  213@->* "Comuni"
+  216@->* "Anagrafica persone fisiche e giuridiche"
+  218@->* "Anagrafica persone giuridiche"
+  313@->* "Comuni"
+  413@->* "Comuni"
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Courier 17cpi"
+  SIZE 10
+  CA "X"           
+  IN 3 2
+  FI 131
+END
+
+SECTION HEADER FIRST 19
+
+LISTA 9
+BEGIN
+ KEY "Tipo anagrafica"
+ FIELD 116@->TIPOA
+ ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
+ ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
+END
+
+STRINGA 1 
+BEGIN
+  KEY "CODICE FISCALE"
+  PROMPT 4 1  ""
+  FIELD 116@->COFI
+END
+
+STRINGA 2
+BEGIN
+  KEY "RAGIONE SOCIALE"
+  PROMPT 39 1  ""
+  FIELD 116@->RAGSOC
+  GROUP 2
+END
+
+STRINGA 3
+BEGIN
+  KEY "COGNOME"
+  PROMPT 39 1 ""
+  FIELD 116@->RAGSOC[1,30]
+  GROUP 1
+END  
+
+STRINGA 4
+BEGIN
+  KEY "NOME"
+  PROMPT 17 3 ""
+  FIELD 116@->RAGSOC[31,50]
+  GROUP 1
+END  
+
+STRINGA 5
+BEGIN
+  KEY "SESSO"
+  PROMPT 58 3 ""
+  FIELD 118@->SESSO
+  GROUP 1
+END  
+  
+STRINGA 6
+BEGIN
+  KEY "DATA DI NASCITA"
+  PROMPT 66 3 ""
+  FIELD 118@->DATANASC
+  GROUP 1
+END  
+  
+STRINGA 7
+BEGIN
+  KEY "COMUNE DI NASCITA"
+  PROMPT 84 3 ""
+  FIELD 113@->DENCOM
+  GROUP 1
+END  
+  
+STRINGA 8
+BEGIN
+  KEY "PROV. DI NASCITA"
+  PROMPT 126 3 ""
+  FIELD 113@->PROVCOM
+  GROUP 1
+END  
+  
+STRINGA 10
+BEGIN
+  KEY "COMUNE DI RES.FISCALE"
+  PROMPT 17 5 ""
+  FIELD 213@->DENCOM
+END  
+  
+STRINGA 11
+BEGIN
+  KEY "PROV DI RES.FISCALE"
+  PROMPT 59 5 ""
+  FIELD 213@->PROVCOM
+END  
+  
+STRINGA 12
+BEGIN
+  KEY "VIA di RES."
+  PROMPT 66 5  ""
+  FIELD 116@->INDRF
+  FIELD 116@->INDRES
+END  
+  
+STRINGA 15
+BEGIN
+  KEY "NUM. CIVICO di RES."
+  PROMPT 102 5 ""
+  FIELD 116@->CIVRF 
+  FIELD 116@->CIVRES
+END  
+  
+STRINGA 16
+BEGIN
+  KEY "CAP"
+  PROMPT 122 5 ""
+  FIELD 116@->CAPRF 
+  FIELD 116@->CAPRES
+END  
+
+STRINGA 13
+BEGIN
+  KEY "CODICE FISCALE DICHIARANTE"
+  PROMPT 118 8  ""
+END
+
+NUMBER 14
+BEGIN
+  KEY "NUM. FOGLIO"
+  PROMPT 123 11  ""
+END
+
+END
+
+SECTION BODY ODD 8
+
+LISTA 100
+BEGIN
+ KEY "Tipo anagrafica"
+ FIELD 216@->TIPOA
+ ITEM "F| " MESSAGE SHOW,1@|HIDE,2@
+ ITEM "G| " MESSAGE SHOW,2@|HIDE,1@
+END
+
+STRINGA 1
+BEGIN
+  KEY "COD.FIS"
+  PROMPT 10 1 ""
+  FIELD 216@->COFI
+END
+
+STRING 2
+BEGIN   
+  KEY "COGNOME"
+  PROMPT 42 1 ""
+  FIELD 216@->RAGSOC[1,30]
+  GROUP 1
+END          
+
+STRING 3
+BEGIN   
+  KEY "NOME"
+  PROMPT 81 1 ""
+  FIELD 216@->RAGSOC[31,50]
+  GROUP 1
+END
+
+STRING 102
+BEGIN
+  KEY "RAGSOC GIURIDICHE"
+  PROMPT 54 1 ""
+  FIELD 216@->RAGSOC
+  GROUP 2
+END
+
+STRING 4
+BEGIN   
+  KEY "DATA NASCITA"
+  PROMPT 114 1 ""
+  FIELD 218@->DATANASC
+END
+
+STRING 5
+BEGIN   
+  KEY "SESSO"
+  PROMPT 129 1 ""
+  FIELD 218@->SESSO
+END
+
+STRING 6
+BEGIN
+  KEY "COMUNE DI NASCITA"
+  PROMPT 10 3 ""
+  FIELD 313@->DENCOM
+  GROUP 1
+END
+
+STRING 7
+BEGIN
+  KEY "PROV DI NASCITA"
+  PROMPT 47 3 ""
+  FIELD 313@->PROVCOM
+  GROUP 1
+END
+
+STRING 8
+BEGIN
+  KEY "COMUNE DI RESIDENZA FISICHE"
+  PROMPT 53 3 ""
+  FIELD 413@->DENCOM
+  GROUP 1
+END
+
+STRING 9
+BEGIN
+  KEY "PROV. RESIDENZA FISICHE"
+  PROMPT 88 3 ""
+  FIELD 413@->PROVCOM  
+  GROUP 1
+END
+
+STRING 101
+BEGIN
+  KEY "COMUNE RF/RES. GIURIDICHE"
+  PROMPT 10 3 ""
+  FIELD 513@->DENCOM
+  GROUP 2
+END
+
+STRING 106
+BEGIN
+  KEY "PROV. RF/RES GIURIDICHE"
+  PROMPT 61 3 ""
+  FIELD 513@->PROVCOM
+  GROUP 2
+END
+
+STRING 108
+BEGIN
+  KEY "VIA RES. FISICHE"
+  FIELD 216@->INDRES[1,18]
+  FLAGS "H"
+  MESSAGE COPY,10 
+  GROUP 1
+END
+
+STRING 109
+BEGIN
+  KEY "NUM.CIV DI RESIDENZA FISICHE"
+  FLAGS "H"
+  FIELD 216@->CIVRES
+  MESSAGE APPEND,10     
+  GROUP 1
+END
+
+STRING 10
+BEGIN
+  KEY "VIA RES. + NUMCIVRES FISICHE"
+  PROMPT 95 3 ""
+  GROUP 1
+END
+
+STRING 110
+BEGIN
+  KEY "VIA RF/RES. GIURIDICHE"
+  FIELD 216@->INDRF[1,18]
+  FIELD 216@->INDRES[1,18]
+  FLAGS "H"
+  MESSAGE COPY,107 
+  GROUP 2
+END
+
+STRING 111
+BEGIN
+  KEY "NUM.CIV RF/RES GIURIDICHE"
+  FLAGS "H"   
+  FIELD 216@->CIVRF
+  FIELD 216@->CIVRES
+  MESSAGE APPEND,107     
+  GROUP 2
+END
+
+STRING 107
+BEGIN
+  KEY "VIA RES GIURIDICHE"
+  PROMPT 69 3 ""
+  GROUP 2
+END
+
+STRING 11
+BEGIN
+  KEY "FLAG DI NON RESIDENTE"
+  PROMPT 12 5 ""
+  FIELD 216@->SOGGNRES
+END
+
+STRING 12
+BEGIN
+  KEY "STATO ESTERO DI RES."
+  PROMPT 16 5 "" 
+  FIELD 24@->S0
+END
+
+STRING 13
+BEGIN
+  KEY "CODICE STATO ESTERO DI RES."
+  PROMPT 79 5 "" 
+  FIELD 216@->STATORES
+END
+
+STRING 14
+BEGIN
+  KEY "CODICE FISCALE ESTERO"
+  PROMPT 89 5 ""      
+  FIELD 216@->COFIEST
+END
+
+STRING 15
+BEGIN
+  KEY "DESCR. CAUSALE"
+  PROMPT 11 7 ""
+  FIELD 14@->S0[1,20]
+END
+
+NUMBER 16
+BEGIN
+  KEY "TOTALE"
+  PROMPT 42 7 ""
+//  FIELD 62->TOTALE
+  PICTURE "###.###.###^^^" 
+  MESSAGE ADD,FL->16
+END
+
+NUMBER 17
+BEGIN
+  KEY "SOMME NON SOGGETTE A RITENUTA"
+  PROMPT 61 7 ""
+//  FIELD 62->SOMME         
+  PICTURE "###.###.###^^^" 
+  MESSAGE ADD,FL->17   
+END
+
+NUMBER 18
+BEGIN
+  KEY "IMPONIBILE"
+  PROMPT 82 7 ""
+//  FIELD 62->IMPONIBILE    
+  PICTURE "###.###.###^^^" 
+  MESSAGE ADD,FL->18   
+END
+
+STRING 19
+BEGIN
+  KEY "ALIQUOTA"
+  PROMPT 93 7 ""
+  FIELD 62->PERC
+  PICTURE "###@@"
+END
+
+NUMBER 20
+BEGIN
+  KEY "IMPORTO"
+  PROMPT 106 7 ""
+//  FIELD 62->IMPORTO       
+  PICTURE "###.###.###^^^"  
+  MESSAGE ADD,FL->20  
+END
+
+NUMBER 21
+BEGIN
+  KEY "NETTO"
+  PROMPT 126 7 ""
+//  FIELD 62->NETTO         
+  PICTURE "###.###.###^^^" 
+  MESSAGE ADD,FL->21   
+END
+
+END
+
+SECTION FOOTER LAST 1
+
+NUMBER 16
+BEGIN
+  KEY "TOTALE TOTALE"
+  PROMPT 36 1 ""           
+  PICTURE "###.###.###^^^"   
+END
+
+NUMBER 17
+BEGIN
+  KEY "TOTALE SOMME NON SOGGETTE"
+  PROMPT 55 1 ""   
+  PICTURE "###.###.###^^^"   
+END
+
+NUMBER 18
+BEGIN
+  KEY "TOTALE IMPONIBILE"
+  PROMPT 75 1 ""
+  PICTURE "###.###.###^^^"   
+END
+
+NUMBER 20
+BEGIN
+  KEY "TOTALE IMPORTO"
+  PROMPT 101 1 ""
+  PICTURE "###.###.###^^^"   
+END
+
+NUMBER 21
+BEGIN
+  KEY "TOTALE NETTO"
+  PROMPT 120 1 ""
+  PICTURE "###.###.###^^^"   
+END
+
+END
diff --git a/m770/77qd1.frm b/m770/77qd1.frm
index 78707a69a..775c3eb7a 100755
--- a/m770/77qd1.frm
+++ b/m770/77qd1.frm
@@ -1,447 +1,447 @@
-USE 63
-JOIN %CA7 TO 63 ALIAS 14 INTO CODTAB=CODCAUS
-JOIN 9 INTO CODDITTA=CODDITTA
-JOIN  6 TO   9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN  8 TO   6 ALIAS 118 INTO CODANAGR=CODANAGR
-JOIN 13 TO   8 ALIAS 113 INTO COM=COMNASC
-JOIN 13 TO   6 ALIAS 213 INTO COM=COMRF(COMRES)
-JOIN  6 TO  63 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN  8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
-JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
-JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES
-JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
-JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
-END
-
-DESCRIPTION
-BEGIN
-  63->* "Quadro D1 770"
-  9->* "Ditte"
-  6->* "Anagrafica persone fisiche e giuridiche"
-  8->* "Anagrafica persone fisiche"
-  113@->* "Comuni"
-  213@->* "Comuni"
-  216@->* "Anagrafica persone fisiche e giuridiche"
-  218@->* "Anagrafica persone giuridiche"
-  313@->* "Comuni"
-  413@->* "Comuni"
-END
-
-GENERAL
-BEGIN
-  OFFSET 0 0
-  FONT "Courier 17cpi"
-  SIZE 10
-  CA "X"           
-  IN 3 2
-  FI 131
-END
-
-SECTION HEADER FIRST 29
-
-LISTA 9
-BEGIN
- KEY "Tipo anagrafica"
- FIELD 116@->TIPOA
- ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
- ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
-END
-
-STRINGA 1 
-BEGIN
-  KEY "CODICE FISCALE"
-  PROMPT 3 12  ""
-  FIELD 116@->COFI
-END
-
-STRINGA 2
-BEGIN
-  KEY "RAGIONE SOCIALE"
-  PROMPT 39 12  ""
-  FIELD 116@->RAGSOC
-  GROUP 2
-END
-
-STRINGA 3
-BEGIN
-  KEY "COGNOME"
-  PROMPT 39 12 ""
-  FIELD 116@->RAGSOC[1,30]
-  GROUP 1
-END  
-
-STRINGA 4
-BEGIN
-  KEY "NOME"
-  PROMPT 17 14 ""
-  FIELD 116@->RAGSOC[31,50]
-  GROUP 1
-END  
-
-STRINGA 5
-BEGIN
-  KEY "SESSO"
-  PROMPT 58 14 ""
-  FIELD 118@->SESSO
-  GROUP 1
-END  
-  
-STRINGA 6
-BEGIN
-  KEY "DATA DI NASCITA"
-  PROMPT 63 14 ""
-  FIELD 118@->DATANASC
-  GROUP 1
-END  
-  
-STRINGA 7
-BEGIN
-  KEY "COMUNE DI NASCITA"
-  PROMPT 84 14 ""
-  FIELD 113@->DENCOM
-  GROUP 1
-END  
-  
-STRINGA 8
-BEGIN
-  KEY "PROV. DI NASCITA"
-  PROMPT 125 14 ""
-  FIELD 113@->PROVCOM
-  GROUP 1
-END  
-  
-STRINGA 10
-BEGIN
-  KEY "COMUNE DI RES.FISCALE"
-  PROMPT 17 16 ""
-  FIELD 213@->DENCOM
-END  
-  
-STRINGA 11
-BEGIN
-  KEY "PROV DI RES.FISCALE"
-  PROMPT 59 16 ""
-  FIELD 213@->PROVCOM
-END  
-  
-STRINGA 12
-BEGIN
-  KEY "VIA di RES."
-  PROMPT 67 16  ""
-  FIELD 116@->INDRF
-  FIELD 116@->INDRES 
-  FLAGS "H"
-  MESSAGE COPY,17
-END  
-  
-STRINGA 15
-BEGIN
-  KEY "NUM. CIVICO di RES."
-  PROMPT 103 16 ""
-  FIELD 116@->CIVRF 
-  FIELD 116@->CIVRES 
-  FLAGS "H"
-  MESSAGE APPEND,17
-END  
-
-STRINGA 17
-BEGIN
-  KEY "VIA RES. + NUM. RES."
-  PROMPT 67 16 ""
-END
-  
-STRINGA 16
-BEGIN
-  KEY "CAP"
-  PROMPT 124 16 ""
-  FIELD 116@->CAPRF
-  FIELD 116@->CAPRES
-END  
-
-STRINGA 13
-BEGIN
-  KEY "CODICE FISCALE DICHIARANTE"
-  PROMPT 105 19  ""
-END
-
-NUMBER 14
-BEGIN
-  KEY "NUM. FOGLIO"
-  PROMPT 125 22  ""
-END
-
-END
-
-SECTION BODY ODD 6
-
-LISTA 100
-BEGIN
- KEY "Tipo anagrafica"
- FIELD 216@->TIPOA
- ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
- ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
-END
-
-STRINGA 1
-BEGIN
-  KEY "COD.FIS"
-  PROMPT 10 1 ""
-  FIELD 216@->COFI
-END
-
-STRING 2
-BEGIN   
-  KEY "COGNOME"
-  PROMPT 42 1 ""
-  FIELD 216@->RAGSOC[1,30]
-  GROUP 1
-END
-
-STRING 3
-BEGIN   
-  KEY "NOME"
-  PROMPT 80 1 ""
-  FIELD 216@->RAGSOC[31,50]
-  GROUP 1
-END
-
-STRING 101
-BEGIN
-  KEY "RAGSOC GIURIDICHE"
-  PROMPT 54 1 ""
-  FIELD 216@->RAGSOC
-  GROUP 2
-END
-
-STRING 4
-BEGIN   
-  KEY "DATA NASCITA"
-  PROMPT 114 1 ""
-  FIELD 218@->DATANASC  
-  GROUP 1
-END
-
-STRING 5
-BEGIN   
-  KEY "SESSO"
-  PROMPT 128 1 ""
-  FIELD 218@->SESSO  
-  GROUP 1
-END
-
-STRING 6
-BEGIN
-  KEY "COMUNE DI NASCITA"
-  PROMPT 10 3 ""
-  FIELD 313@->DENCOM
-  GROUP 1
-END
-
-STRING 7
-BEGIN
-  KEY "PROV DI NASCITA"
-  PROMPT 48 3 ""
-  FIELD 313@->PROVCOM
-  GROUP 1
-END
-
-STRING 8
-BEGIN
-  KEY "COMUNE DI RESIDENZA FISICHE"
-  PROMPT 53 3 ""
-  FIELD 413@->DENCOM
-  GROUP 1
-END
-
-STRING 9
-BEGIN
-  KEY "PROV. RESIDENZA FISICHE"
-  PROMPT 89 3 ""
-  FIELD 413@->PROVCOM  
-  GROUP 1
-END
-
-STRING 102
-BEGIN
-  KEY "COMUNE RF/RES. GIURIDICHE"
-  PROMPT 10 3 ""
-  FIELD 513@->DENCOM
-  GROUP 2
-END
-
-STRING 103
-BEGIN
-  KEY "PROVINCIA RF/RES. GIURIDICHE"
-  PROMPT 51 3 ""
-  FIELD 513@->PROVCOM        
-  GROUP 2
-END
-
-STRING 105
-BEGIN
-  KEY "VIA RESIDENZA FISICHE"
-  FIELD 216@->INDRES[1,18]
-  FLAGS "H"
-  MESSAGE COPY,10  
-  GROUP 1
-END
-
-STRING 106
-BEGIN
-  KEY "NUMERO CIVICO RES. FISICHE"
-  FLAGS "H"
-  FIELD 216@->CIVRES
-  MESSAGE APPEND,10
-  GROUP 1
-END
-
-STRING 10
-BEGIN
-  KEY "VIA + NUMERO CIVICO RESIDENZA FISICHE"
-  PROMPT 95 3 ""
-  GROUP 1
-END
-
-STRING 105
-BEGIN
-  KEY "VIA RF/RES. GIURIDICHE"    
-  FIELD 216@->INDRF[1,18]
-  FIELD 216@->INDRES[1,18]
-  FLAGS "H"
-  MESSAGE COPY,104
-  GROUP 2
-END
-
-STRING 106
-BEGIN
-  KEY "NUMERO CIVICO RF/RES. GIURIDICHE"
-  FLAGS "H"          
-  FIELD 216@->CIVRF
-  FIELD 216@->CIVRES
-  MESSAGE APPEND,104
-  GROUP 2
-END
-
-STRING 104
-BEGIN
-  KEY "VIA + NUMERO CIVICO RF/RES. GIURIDICHE"
-  PROMPT 75 3 ""
-  GROUP 2
-END
-
-STRING 11
-BEGIN
-  KEY "CAUSALE DEL QUADRO D1"
-  PROMPT 13 5 ""
-  FIELD 14@->S3
-END
-
-NUMBER 12
-BEGIN
-  KEY "TOTALE"
-  PROMPT 23 5 ""
-//  FIELD 63->TOTALE
-  PICTURE "###.###.###^^^"  
-  MESSAGE ADD,FL->12
-END
-
-NUMBER 13
-BEGIN
-  KEY "QUOTA PROVVIGIONI"
-  PROMPT 40 5 ""
-//  FIELD 63->QUOTAPRO         
-  PICTURE "###.###.###^^^"   
-  MESSAGE ADD,FL->13  
-END
-
-NUMBER 14
-BEGIN
-  KEY "SPESE ANTICIPATE"
-  PROMPT 57 5 ""
-//  FIELD 63->SPESEANT    
-  PICTURE "###.###.###^^^" 
-  MESSAGE ADD,FL->14   
-END
-
-NUMBER 15
-BEGIN
-  KEY "IMPONIBILE"
-  PROMPT 75 5 ""
-//  FIELD 63->IMPONIBILE
-  PICTURE "###.###.###^^^" 
-  MESSAGE ADD,FL->15   
-END
-
-STRING 16
-BEGIN
-  KEY "ALIQUOTA"
-  PROMPT 90 5 ""
-  FIELD 63->PERC
-  PICTURE "###@@"
-END
-
-NUMBER 17
-BEGIN
-  KEY "IMPORTO"
-  PROMPT 104 5 ""
-//  FIELD 63->IMPORTO       
-  PICTURE "###.###.###^^^"  
-  MESSAGE ADD,FL->17  
-END
-
-NUMBER 18
-BEGIN
-  KEY "NETTO"
-  PROMPT 120 5 ""
-//  FIELD 63->NETTO         
-  PICTURE "###.###.###^^^" 
-  MESSAGE ADD,FL->18   
-END
-
-END
-
-SECTION FOOTER LAST 2
-
-NUMBER 12
-BEGIN
-  KEY "TOTALE TOTALE"
-  PROMPT 19 1 ""           
-  PICTURE "###.###.###^^^"   
-END
-
-NUMBER 13
-BEGIN
-  KEY "TOTALE QUOTA PROVVIGIONI"
-  PROMPT 36 1 ""           
-  PICTURE "###.###.###^^^"   
-END
-
-NUMBER 14
-BEGIN
-  KEY "TOTALE SPESE ANTICIPATE"
-  PROMPT 53 1 ""           
-  PICTURE "###.###.###^^^"   
-END
-
-NUMBER 15
-BEGIN
-  KEY "TOTALE IMPONIBILE"
-  PROMPT 70 1 ""           
-  PICTURE "###.###.###^^^"   
-END
-
-NUMBER 17
-BEGIN
-  KEY "TOTALE IMPORTO"
-  PROMPT 99 1 ""          
-  PICTURE "###.###.###^^^"   
-END
-
-NUMBER 18
-BEGIN
-  KEY "TOTALE NETTO"
-  PROMPT 115 1 ""          
-  PICTURE "###.###.###^^^"   
-END
-
-END
+USE 63
+JOIN %CA7 TO 63 ALIAS 14 INTO CODTAB=CODCAUS
+JOIN 9 INTO CODDITTA=CODDITTA
+JOIN  6 TO   9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN  8 TO   6 ALIAS 118 INTO CODANAGR=CODANAGR
+JOIN 13 TO   8 ALIAS 113 INTO COM=COMNASC
+JOIN 13 TO   6 ALIAS 213 INTO COM=COMRF(COMRES)
+JOIN  6 TO  63 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN  8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
+JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
+JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES
+JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
+JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
+END
+
+DESCRIPTION
+BEGIN
+  63->* "Quadro D1 770"
+  9->* "Ditte"
+  6->* "Anagrafica persone fisiche e giuridiche"
+  8->* "Anagrafica persone fisiche"
+  113@->* "Comuni"
+  213@->* "Comuni"
+  216@->* "Anagrafica persone fisiche e giuridiche"
+  218@->* "Anagrafica persone giuridiche"
+  313@->* "Comuni"
+  413@->* "Comuni"
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Courier 17cpi"
+  SIZE 10
+  CA "X"           
+  IN 3 2
+  FI 131
+END
+
+SECTION HEADER FIRST 29
+
+LISTA 9
+BEGIN
+ KEY "Tipo anagrafica"
+ FIELD 116@->TIPOA
+ ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
+ ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
+END
+
+STRINGA 1 
+BEGIN
+  KEY "CODICE FISCALE"
+  PROMPT 3 12  ""
+  FIELD 116@->COFI
+END
+
+STRINGA 2
+BEGIN
+  KEY "RAGIONE SOCIALE"
+  PROMPT 39 12  ""
+  FIELD 116@->RAGSOC
+  GROUP 2
+END
+
+STRINGA 3
+BEGIN
+  KEY "COGNOME"
+  PROMPT 39 12 ""
+  FIELD 116@->RAGSOC[1,30]
+  GROUP 1
+END  
+
+STRINGA 4
+BEGIN
+  KEY "NOME"
+  PROMPT 17 14 ""
+  FIELD 116@->RAGSOC[31,50]
+  GROUP 1
+END  
+
+STRINGA 5
+BEGIN
+  KEY "SESSO"
+  PROMPT 58 14 ""
+  FIELD 118@->SESSO
+  GROUP 1
+END  
+  
+STRINGA 6
+BEGIN
+  KEY "DATA DI NASCITA"
+  PROMPT 63 14 ""
+  FIELD 118@->DATANASC
+  GROUP 1
+END  
+  
+STRINGA 7
+BEGIN
+  KEY "COMUNE DI NASCITA"
+  PROMPT 84 14 ""
+  FIELD 113@->DENCOM
+  GROUP 1
+END  
+  
+STRINGA 8
+BEGIN
+  KEY "PROV. DI NASCITA"
+  PROMPT 125 14 ""
+  FIELD 113@->PROVCOM
+  GROUP 1
+END  
+  
+STRINGA 10
+BEGIN
+  KEY "COMUNE DI RES.FISCALE"
+  PROMPT 17 16 ""
+  FIELD 213@->DENCOM
+END  
+  
+STRINGA 11
+BEGIN
+  KEY "PROV DI RES.FISCALE"
+  PROMPT 59 16 ""
+  FIELD 213@->PROVCOM
+END  
+  
+STRINGA 12
+BEGIN
+  KEY "VIA di RES."
+  PROMPT 67 16  ""
+  FIELD 116@->INDRF
+  FIELD 116@->INDRES 
+  FLAGS "H"
+  MESSAGE COPY,17
+END  
+  
+STRINGA 15
+BEGIN
+  KEY "NUM. CIVICO di RES."
+  PROMPT 103 16 ""
+  FIELD 116@->CIVRF 
+  FIELD 116@->CIVRES 
+  FLAGS "H"
+  MESSAGE APPEND,17
+END  
+
+STRINGA 17
+BEGIN
+  KEY "VIA RES. + NUM. RES."
+  PROMPT 67 16 ""
+END
+  
+STRINGA 16
+BEGIN
+  KEY "CAP"
+  PROMPT 124 16 ""
+  FIELD 116@->CAPRF
+  FIELD 116@->CAPRES
+END  
+
+STRINGA 13
+BEGIN
+  KEY "CODICE FISCALE DICHIARANTE"
+  PROMPT 105 19  ""
+END
+
+NUMBER 14
+BEGIN
+  KEY "NUM. FOGLIO"
+  PROMPT 125 22  ""
+END
+
+END
+
+SECTION BODY ODD 6
+
+LISTA 100
+BEGIN
+ KEY "Tipo anagrafica"
+ FIELD 216@->TIPOA
+ ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
+ ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
+END
+
+STRINGA 1
+BEGIN
+  KEY "COD.FIS"
+  PROMPT 10 1 ""
+  FIELD 216@->COFI
+END
+
+STRING 2
+BEGIN   
+  KEY "COGNOME"
+  PROMPT 42 1 ""
+  FIELD 216@->RAGSOC[1,30]
+  GROUP 1
+END
+
+STRING 3
+BEGIN   
+  KEY "NOME"
+  PROMPT 80 1 ""
+  FIELD 216@->RAGSOC[31,50]
+  GROUP 1
+END
+
+STRING 101
+BEGIN
+  KEY "RAGSOC GIURIDICHE"
+  PROMPT 54 1 ""
+  FIELD 216@->RAGSOC
+  GROUP 2
+END
+
+STRING 4
+BEGIN   
+  KEY "DATA NASCITA"
+  PROMPT 114 1 ""
+  FIELD 218@->DATANASC  
+  GROUP 1
+END
+
+STRING 5
+BEGIN   
+  KEY "SESSO"
+  PROMPT 128 1 ""
+  FIELD 218@->SESSO  
+  GROUP 1
+END
+
+STRING 6
+BEGIN
+  KEY "COMUNE DI NASCITA"
+  PROMPT 10 3 ""
+  FIELD 313@->DENCOM
+  GROUP 1
+END
+
+STRING 7
+BEGIN
+  KEY "PROV DI NASCITA"
+  PROMPT 48 3 ""
+  FIELD 313@->PROVCOM
+  GROUP 1
+END
+
+STRING 8
+BEGIN
+  KEY "COMUNE DI RESIDENZA FISICHE"
+  PROMPT 53 3 ""
+  FIELD 413@->DENCOM
+  GROUP 1
+END
+
+STRING 9
+BEGIN
+  KEY "PROV. RESIDENZA FISICHE"
+  PROMPT 89 3 ""
+  FIELD 413@->PROVCOM  
+  GROUP 1
+END
+
+STRING 102
+BEGIN
+  KEY "COMUNE RF/RES. GIURIDICHE"
+  PROMPT 10 3 ""
+  FIELD 513@->DENCOM
+  GROUP 2
+END
+
+STRING 103
+BEGIN
+  KEY "PROVINCIA RF/RES. GIURIDICHE"
+  PROMPT 51 3 ""
+  FIELD 513@->PROVCOM        
+  GROUP 2
+END
+
+STRING 105
+BEGIN
+  KEY "VIA RESIDENZA FISICHE"
+  FIELD 216@->INDRES[1,18]
+  FLAGS "H"
+  MESSAGE COPY,10  
+  GROUP 1
+END
+
+STRING 106
+BEGIN
+  KEY "NUMERO CIVICO RES. FISICHE"
+  FLAGS "H"
+  FIELD 216@->CIVRES
+  MESSAGE APPEND,10
+  GROUP 1
+END
+
+STRING 10
+BEGIN
+  KEY "VIA + NUMERO CIVICO RESIDENZA FISICHE"
+  PROMPT 95 3 ""
+  GROUP 1
+END
+
+STRING 105
+BEGIN
+  KEY "VIA RF/RES. GIURIDICHE"    
+  FIELD 216@->INDRF[1,18]
+  FIELD 216@->INDRES[1,18]
+  FLAGS "H"
+  MESSAGE COPY,104
+  GROUP 2
+END
+
+STRING 106
+BEGIN
+  KEY "NUMERO CIVICO RF/RES. GIURIDICHE"
+  FLAGS "H"          
+  FIELD 216@->CIVRF
+  FIELD 216@->CIVRES
+  MESSAGE APPEND,104
+  GROUP 2
+END
+
+STRING 104
+BEGIN
+  KEY "VIA + NUMERO CIVICO RF/RES. GIURIDICHE"
+  PROMPT 75 3 ""
+  GROUP 2
+END
+
+STRING 11
+BEGIN
+  KEY "CAUSALE DEL QUADRO D1"
+  PROMPT 13 5 ""
+  FIELD 14@->S3
+END
+
+NUMBER 12
+BEGIN
+  KEY "TOTALE"
+  PROMPT 23 5 ""
+//  FIELD 63->TOTALE
+  PICTURE "###.###.###^^^"  
+  MESSAGE ADD,FL->12
+END
+
+NUMBER 13
+BEGIN
+  KEY "QUOTA PROVVIGIONI"
+  PROMPT 40 5 ""
+//  FIELD 63->QUOTAPRO         
+  PICTURE "###.###.###^^^"   
+  MESSAGE ADD,FL->13  
+END
+
+NUMBER 14
+BEGIN
+  KEY "SPESE ANTICIPATE"
+  PROMPT 57 5 ""
+//  FIELD 63->SPESEANT    
+  PICTURE "###.###.###^^^" 
+  MESSAGE ADD,FL->14   
+END
+
+NUMBER 15
+BEGIN
+  KEY "IMPONIBILE"
+  PROMPT 75 5 ""
+//  FIELD 63->IMPONIBILE
+  PICTURE "###.###.###^^^" 
+  MESSAGE ADD,FL->15   
+END
+
+STRING 16
+BEGIN
+  KEY "ALIQUOTA"
+  PROMPT 90 5 ""
+  FIELD 63->PERC
+  PICTURE "###@@"
+END
+
+NUMBER 17
+BEGIN
+  KEY "IMPORTO"
+  PROMPT 104 5 ""
+//  FIELD 63->IMPORTO       
+  PICTURE "###.###.###^^^"  
+  MESSAGE ADD,FL->17  
+END
+
+NUMBER 18
+BEGIN
+  KEY "NETTO"
+  PROMPT 120 5 ""
+//  FIELD 63->NETTO         
+  PICTURE "###.###.###^^^" 
+  MESSAGE ADD,FL->18   
+END
+
+END
+
+SECTION FOOTER LAST 2
+
+NUMBER 12
+BEGIN
+  KEY "TOTALE TOTALE"
+  PROMPT 19 1 ""           
+  PICTURE "###.###.###^^^"   
+END
+
+NUMBER 13
+BEGIN
+  KEY "TOTALE QUOTA PROVVIGIONI"
+  PROMPT 36 1 ""           
+  PICTURE "###.###.###^^^"   
+END
+
+NUMBER 14
+BEGIN
+  KEY "TOTALE SPESE ANTICIPATE"
+  PROMPT 53 1 ""           
+  PICTURE "###.###.###^^^"   
+END
+
+NUMBER 15
+BEGIN
+  KEY "TOTALE IMPONIBILE"
+  PROMPT 70 1 ""           
+  PICTURE "###.###.###^^^"   
+END
+
+NUMBER 17
+BEGIN
+  KEY "TOTALE IMPORTO"
+  PROMPT 99 1 ""          
+  PICTURE "###.###.###^^^"   
+END
+
+NUMBER 18
+BEGIN
+  KEY "TOTALE NETTO"
+  PROMPT 115 1 ""          
+  PICTURE "###.###.###^^^"   
+END
+
+END
diff --git a/m770/77qg.frm b/m770/77qg.frm
index 210eb89ea..d007b8f6b 100755
--- a/m770/77qg.frm
+++ b/m770/77qg.frm
@@ -1,1178 +1,1178 @@
-USE 70
-JOIN 9 INTO CODDITTA=CODDITTA
-JOIN  6 TO   9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN  8 TO   6 ALIAS 118 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
-  70->* "Quadro G 770"
-  9->* "Ditte"
-  6->* "Anagrafica persone fisiche e giuridiche"
-  8->* "Anagrafica persone fisiche"
-  113@->* "Comuni"
-  213@->* "Comuni"
-  216@->* "Anagrafica persone fisiche e giuridiche"
-  218@->* "Anagrafica persone giuridiche"
-  313@->* "Comuni"
-  413@->* "Comuni"
-END
-
-GENERAL
-BEGIN
-  OFFSET 0 0
-  FONT "Courier 17cpi"
-  SIZE 10
-  CA "X"
-  IN 3 2
-  FI 131
-END
-
-SECTION HEADER FIRST 65
-
-STRINGA 1
-BEGIN
-  KEY "CODICE FISCALE"
-  PROMPT 4 12  ""
-  FIELD 116@->COFI
-END
-
-STRINGA 2
-BEGIN
-  KEY "RAGIONE SOCIALE"
-  PROMPT 39 12  ""
-  FIELD 116@->RAGSOC
-END
-
-STRINGA 3
-BEGIN
-  KEY "COGNOME"
-  PROMPT 39 12 ""
-  FIELD 116@->RAGSOC[1,30]
-  GROUP 1   
-  FLAGS "H"
-END
-
-STRINGA 4
-BEGIN
-  KEY "NOME"
-  PROMPT 17 14 ""
-  FIELD 116@->RAGSOC[31,50]
-  GROUP 1  
-  FLAGS "H"
-END
-
-STRINGA 5
-BEGIN
-  KEY "COMUNE DI RES."
-  PROMPT 17 14 ""
-  FIELD 213@->DENCOM
-END
-
-STRINGA 6
-BEGIN
-  KEY "PROV DI RES."
-  PROMPT 58 14 ""
-  FIELD 213@->PROVCOM
-END
-
-STRINGA 7
-BEGIN
-  KEY "VIA di RES."
-  PROMPT 65 14  ""    
-  FIELD 116@->INDRES
-  GROUP 4  
-END
-
-STRINGA 8
-BEGIN
-  KEY "NUM. CIVICO di RES."
-  PROMPT 101 14 "" 
-  FIELD 116@->CIVRES
-  GROUP 4  
-END
-
-STRINGA 9
-BEGIN
-  KEY "CAP"
-  PROMPT 122 14 "" 
-  FIELD 116@->CAPRES
-  GROUP 4
-END
-
-STRINGA 10
-BEGIN
-  KEY "VIA di RES. RF"
-  PROMPT 65 14  ""
-  FIELD 116@->INDRF
-  MESSAGE EMPTY HIDE,5@
-  GROUP 5
-END
-
-STRINGA 11
-BEGIN
-  KEY "NUM. CIVICO di RES. RF"
-  PROMPT 101 14 ""
-  FIELD 116@->CIVRF
-  GROUP 5
-END
-
-STRINGA 12
-BEGIN
-  KEY "CAP"
-  PROMPT 122 14 ""
-  FIELD 116@->CAPRF
-  GROUP 5
-END
-
-STRINGA 13
-BEGIN
-  KEY "CODICE FISCALE DICHIARANTE"
-  PROMPT 118 17  ""
-END
-
-STRINGA 14
-BEGIN
-  KEY "NUM. FOGLIO"
-  PROMPT 120 18  ""  
-  FLAGS "H"
-END
-
-STRINGA 15
-BEGIN
-  KEY "Prospetto 1 data delib.1"
-  PROMPT 6 26 ""
-  FIELD 70->P1DATAD1
-  GROUP 3
-END
-
-STRINGA 16
-BEGIN
-  KEY "Titolo 1"
-  PROMPT 20 26 ""
-  FIELD 70->P1TITOLO1
-  GROUP 3
-END
-
-STRINGA 17
-BEGIN
-  KEY "Data ut.1"
-  PROMPT 53 26 ""
-  FIELD 70->P1DATAP1
-  GROUP 3
-END
-
-NUMBER 20
-BEGIN
-  KEY "Amm.1"
-  PROMPT 68 26 ""
-  FIELD 70->P1AMMQ1   
-  PICTURE "###.###.###.###"    
-  GROUP 3
-END
-
-STRINGA 21
-BEGIN
-  KEY "Num.az.1"
-  PROMPT 93 26 ""
-  FIELD 70->P1NUMQ1
-  GROUP 3
-END
-
-NUMBER 22
-BEGIN
-  KEY "Amm.Compless.1"
-  PROMPT 124 26 ""
-  FIELD 70->P1AMM1
-  PICTURE "###.###.###^^^"    
-  GROUP 3
-END
-
-STRINGA 23
-BEGIN
-  KEY "Prospetto 1 data delib.2"
-  PROMPT 6 28 ""
-  FIELD 70->P1DATAD2
-  GROUP 3
-END
-
-STRINGA 24
-BEGIN
-  KEY "Titolo 2"
-  PROMPT 20 28 ""
-  FIELD 70->P1TITOLO2
-  GROUP 3
-END
-
-STRINGA 25
-BEGIN
-  KEY "Data ut.2"
-  PROMPT 53 28 ""
-  FIELD 70->P1DATAP2
-  GROUP 3
-END
-
-NUMBER 26
-BEGIN
-  KEY "Amm.2"
-  PROMPT 68 28 ""
-  FIELD 70->P1AMMQ2
-  PICTURE "###.###.###.###"    
-  GROUP 3
-END
-
-STRINGA 27
-BEGIN
-  KEY "Num.az.2"
-  PROMPT 93 28 ""
-  FIELD 70->P1NUMQ2
-  GROUP 3
-END
-
-NUMBER 28
-BEGIN
-  KEY "Amm.Compless.2"
-  PROMPT 124 28 ""
-  FIELD 70->P1AMM2
-  PICTURE "###.###.###^^^"    
-  GROUP 3
-END
-
-STRINGA 29
-BEGIN
-  KEY "Prospetto 1 data delib.3"
-  PROMPT 6 30 ""
-  FIELD 70->P1DATAD3
-  GROUP 3
-END
-
-STRINGA 30
-BEGIN
-  KEY "Titolo 3"
-  PROMPT 20 30 ""
-  FIELD 70->P1TITOLO3
-  GROUP 3
-END
-
-STRINGA 31
-BEGIN
-  KEY "Data ut.3"
-  PROMPT 53 30 ""
-  FIELD 70->P1DATAP3
-  GROUP 3
-END
-
-NUMBER 32
-BEGIN
-  KEY "Amm.3"
-  PROMPT 68 30 ""
-  FIELD 70->P1AMMQ3
-  PICTURE "###.###.###.###"    
-  GROUP 3
-END
-
-STRINGA 33
-BEGIN
-  KEY "Num.az.3"
-  PROMPT 93 30 ""
-  FIELD 70->P1NUMQ3
-  GROUP 3
-END
-
-NUMBER 34
-BEGIN
-  KEY "Amm.Compless.3"
-  PROMPT 124 30 ""
-  FIELD 70->P1AMM3
-  PICTURE "###.###.###^^^"    
-  GROUP 3
-END
-
-STRINGA 35
-BEGIN
-  KEY "Prospetto 1 data delib.4"
-  FIELD 70->P1DATAD4
-  PROMPT 6 32 ""
-  GROUP 3
-END
-
-STRINGA 36
-BEGIN
-  KEY "Titolo 4"
-  PROMPT 20 32 ""
-  FIELD 70->P1TITOLO4
-  GROUP 3
-END
-
-STRINGA 37
-BEGIN
-  KEY "Data ut.4"
-  PROMPT 53 32 ""
-  FIELD 70->P1DATAP4
-  GROUP 3
-END
-
-NUMBER 38
-BEGIN
-  KEY "Amm.4"
-  PROMPT 68 32 ""
-  FIELD 70->P1AMMQ4
-  PICTURE "###.###.###.###"    
-  GROUP 3
-END
-
-STRINGA 39
-BEGIN
-  KEY "Num.az.4"
-  PROMPT 93 32 ""
-  FIELD 70->P1NUMQ4
-  GROUP 3
-END
-
-NUMBER 40
-BEGIN
-  KEY "Amm.Compless.4"
-  PROMPT 124 32 ""
-  FIELD 70->P1AMM4
-  PICTURE "###.###.###^^^"    
-  GROUP 3
-END
-
-STRING 41
-BEGIN
-  KEY "Totale num.az"
-  FIELD 70->P1NUMQT
-  PROMPT 93 34 ""    
-END
-
-STRINGA 42
-BEGIN
-  KEY "Totale amm.compl."
-  FIELD 70->P1AMMT
-  PROMPT 124 34 ""            
-  PICTURE "###.###.###^^^"      
-END
-
-STRINGA 43
-BEGIN
-  KEY "Data delibera"
-  PROMPT 27 37 ""
-  FIELD 70->P2DATADE
-END
-
-STRINGA 44
-BEGIN
-  KEY "Data distribuzione"
-  PROMPT 100 37 ""
-  FIELD 70->P2DATADI
-END
-
-STRINGA 45
-BEGIN
-  KEY "DESC.BENI DISTR.1"
-  PROMPT 4 41 ""
-  FIELD 70->P2DESC1
-END
-
-STRINGA 46
-BEGIN
-  KEY "DATA 1"
-  PROMPT 78 41 ""
-  FIELD 70->P2DATA1
-END
-
-NUMBER 47
-BEGIN
-  KEY "VALORE ULT. BIL. 1"
-  PROMPT 120 41 ""
-  FIELD 70->P2VAL1
-  PICTURE "###.###.###^^^"    
-END
-
-STRINGA 48
-BEGIN
-  KEY "DESC.BENI DISTR.2"
-  PROMPT 4 43 ""
-  FIELD 70->P2DESC2
-END
-
-STRINGA 49
-BEGIN
-  KEY "DATA 2"
-  PROMPT 78 43 ""
-  FIELD 70->P2DATA2
-END
-
-NUMBER 50
-BEGIN
-  KEY "VALORE ULT. BIL. 2"
-  PROMPT 120 43 ""
-  FIELD 70->P2VAL2
-  PICTURE "###.###.###^^^"    
-END
-
-STRINGA 51
-BEGIN
-  KEY "DESC.BENI DISTR.3"
-  PROMPT 4 45 ""
-  FIELD 70->P2DESC3
-END
-
-STRINGA 52
-BEGIN
-  KEY "DATA 3"
-  PROMPT 78 45 ""
-  FIELD 70->P2DATA3
-END
-
-NUMBER 53
-BEGIN
-  KEY "VALORE ULT. BIL. 3"
-  PROMPT 120 45 ""
-  FIELD 70->P2VAL3
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 54
-BEGIN
-  KEY "TOT.UT.NATURA"
-  PROMPT 120 47 ""
-  FIELD 70->P2VALT
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 55
-BEGIN
-  KEY "IMP.IMPUT.AZ.QUOT"
-  PROMPT 120 49 ""
-  FIELD 70->P2IMPQ
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 56
-BEGIN
-  KEY "P221"
-  PROMPT 44 56 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 57
-BEGIN
-  KEY "P231"
-  PROMPT 63 56 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 58
-BEGIN
-  KEY "P241"
-  PROMPT 81 56 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 59
-BEGIN
-  KEY "P251"
-  PROMPT 100 56 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 60
-BEGIN
-  KEY "P261"
-  PROMPT 119 56 ""            
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 61
-BEGIN
-  KEY "P222"
-  PROMPT 44 57 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 62
-BEGIN
-  KEY "P232"
-  PROMPT 63 57 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 63
-BEGIN
-  KEY "P242"
-  PROMPT 81 57 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 64
-BEGIN
-  KEY "P252"
-  PROMPT 100 57 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 65
-BEGIN
-  KEY "P262"
-  PROMPT 119 57 ""            
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 66
-BEGIN
-  KEY "P223"
-  PROMPT 44 58 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 67
-BEGIN
-  KEY "P233"
-  PROMPT 63 58 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 68
-BEGIN
-  KEY "P243"
-  PROMPT 81 58 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 69
-BEGIN
-  KEY "P253"
-  PROMPT 100 58 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 70
-BEGIN
-  KEY "P263"
-  PROMPT 119 58 ""            
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 71
-BEGIN
-  KEY "P224"
-  PROMPT 44 59 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 72
-BEGIN
-  KEY "P234"
-  PROMPT 63 59 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 73
-BEGIN
-  KEY "P244"
-  PROMPT 81 59 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 74
-BEGIN
-  KEY "P254"
-  PROMPT 100 59 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 75
-BEGIN
-  KEY "P264"
-  PROMPT 119 59 ""            
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 76
-BEGIN
-  KEY "P225"
-  PROMPT 44 60 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 77
-BEGIN
-  KEY "P235"
-  PROMPT 63 60 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 78
-BEGIN
-  KEY "P245"
-  PROMPT 81 60 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 79
-BEGIN
-  KEY "P255"
-  PROMPT 100 60 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 80
-BEGIN
-  KEY "P265"
-  PROMPT 119 60 ""            
-  PICTURE "###.###.###^^^"    
-END
-
-
-NUMBER 81
-BEGIN
-  KEY "P22TOT"
-  PROMPT 44 61 ""             
-  PICTURE "###.###.###^^^"    
-  FIELD 70->P22TOT
-END
-
-NUMBER 82
-BEGIN
-  KEY "P23TOT"
-  PROMPT 63 61 ""             
-  PICTURE "###.###.###^^^"    
-  FIELD 70->P23TOT
-END
-
-NUMBER 83
-BEGIN
-  KEY "P24TOT"
-  PROMPT 81 61 ""             
-  PICTURE "###.###.###^^^"    
-  FIELD 70->P24TOT
-END
-
-NUMBER 84
-BEGIN
-  KEY "P25TOT"
-  PROMPT 100 61 ""             
-  PICTURE "###.###.###^^^"    
-  FIELD 70->P25TOT
-END
-
-NUMBER 85
-BEGIN
-  KEY "P26TOT"
-  PROMPT 119 61 ""            
-  PICTURE "###.###.###^^^"    
-  FIELD 70->P26TOT
-END
-
-END
-                              
-SECTION BODY ODD 60
-
-NUMBER 1
-BEGIN
-  KEY "P3 COL 2 - CINQUE SOLE RIGHE -"
-  PROMPT 36 7 ""
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 2
-BEGIN
-  KEY "P3 COL2 - 2"
-  PROMPT 36 12 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 3
-BEGIN
-  KEY "P3 COL2 - 3"
-  PROMPT 36 15 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 4
-BEGIN
-  KEY "P3 COL2 - 4"
-  PROMPT 36 17 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 5
-BEGIN
-  KEY "P3 COL2 - 5"
-  PROMPT 36 19 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 6
-BEGIN
-  KEY "P3 COL2 TOTALI"
-  PROMPT 36 20 ""
-  PICTURE "###.###.###^^^"
-END 
-
-NUMBER 7
-BEGIN
-  KEY "P3 COL3 1"
-  PROMPT 57 5 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 8
-BEGIN
-  KEY "P3 COL3 2"
-  PROMPT 57 6 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 9
-BEGIN
-  KEY "P3 COL3 3"
-  PROMPT 57 7 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 10
-BEGIN
-  KEY "P3 COL3 4"
-  PROMPT 57 8 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 11
-BEGIN
-  KEY "P3 COL3 5"
-  PROMPT 57 9 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 12
-BEGIN
-  KEY "P3 COL3 6"
-  PROMPT 57 10 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 13
-BEGIN
-  KEY "P3 COL3 7"
-  PROMPT 57 11 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 14
-BEGIN
-  KEY "P3 COL3 8"
-  PROMPT 57 12 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 15
-BEGIN
-  KEY "P3 COL3 9"
-  PROMPT 57 13 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 16
-BEGIN
-  KEY "P3 COL3 10"
-  PROMPT 57 14 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 17
-BEGIN
-  KEY "P3 COL3 11"
-  PROMPT 57 15 ""             
-  PICTURE "###.###.###^^^"    
-END
-          
-NUMBER 18
-BEGIN
-  KEY "P3 COL3 12"
-  PROMPT 57 16 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 19
-BEGIN
-  KEY "P3 COL3 13"
-  PROMPT 57 17 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 20
-BEGIN
-  KEY "P3 COL3 14"
-  PROMPT 57 18 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 21
-BEGIN
-  KEY "P3 COL3 15"
-  PROMPT 57 19 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 22
-BEGIN
-  KEY "P3 COL3 TOTALI"
-  PROMPT 57 20 ""             
-  PICTURE "###.###.###^^^"  
-END
-
-NUMBER 23
-BEGIN
-  KEY "P3 COL5 1"
-  PROMPT 80 5 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 24
-BEGIN
-  KEY "P3 COL5 2"
-  PROMPT 80 6 ""             
-  PICTURE "###.###.###^^^"    
-END       
-
-NUMBER 25
-BEGIN
-  KEY "P3 COL5 3"
-  PROMPT 80 7 ""             
-  PICTURE "###.###.###^^^"    
-END
-        
-NUMBER 26
-BEGIN
-  KEY "P3 COL5 4"
-  PROMPT 80 8 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 27
-BEGIN
-  KEY "P3 COL5 5"
-  PROMPT 80 9 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 28
-BEGIN
-  KEY "P3 COL5 6"
-  PROMPT 80 10 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 29
-BEGIN
-  KEY "P3 COL5 7"
-  PROMPT 80 11 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 30
-BEGIN
-  KEY "P3 COL5 8"
-  PROMPT 80 12 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 31
-BEGIN
-  KEY "P3 COL5 9"
-  PROMPT 80 13 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 32
-BEGIN
-  KEY "P3 COL5 10"
-  PROMPT 80 14 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 33
-BEGIN
-  KEY "P3 COL5 11"
-  PROMPT 80 15 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 34
-BEGIN
-  KEY "P3 COL5 12"
-  PROMPT 80 16 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 35
-BEGIN
-  KEY "P3 COL5 13"
-  PROMPT 80 17 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 36
-BEGIN
-  KEY "P3 COL5 14"
-  PROMPT 80 18 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 37
-BEGIN
-  KEY "P3 COL5 15"
-  PROMPT 80 19 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 38
-BEGIN
-  KEY "P3 COL5 TOTALI"
-  PROMPT 80 20 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 39
-BEGIN
-  KEY "P3 COL6 1"
-  PROMPT 97 5 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 40
-BEGIN
-  KEY "P3 COL6 2"
-  PROMPT 97 6 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 41
-BEGIN
-  KEY "P3 COL6 3"
-  PROMPT 97 7 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 42
-BEGIN
-  KEY "P3 COL6 4"
-  PROMPT 97 8 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 43
-BEGIN
-  KEY "P3 COL6 5"
-  PROMPT 97 9 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 44
-BEGIN
-  KEY "P3 COL6 6"
-  PROMPT 97 10 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 45
-BEGIN
-  KEY "P3 COL6 7"
-  PROMPT 97 11 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 46
-BEGIN
-  KEY "P3 COL6 8"
-  PROMPT 97 12 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 47
-BEGIN
-  KEY "P3 COL6 9"
-  PROMPT 97 13 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 48
-BEGIN
-  KEY "P3 COL6 10"
-  PROMPT 97 14 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 49
-BEGIN
-  KEY "P3 COL6 11"
-  PROMPT 97 15 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 50
-BEGIN
-  KEY "P3 COL6 12"
-  PROMPT 97 16 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 51
-BEGIN
-  KEY "P3 COL6 13"
-  PROMPT 97 17 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 52
-BEGIN
-  KEY "P3 COL6 14"
-  PROMPT 97 18 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 53
-BEGIN
-  KEY "P3 COL6 15"
-  PROMPT 97 19 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 54
-BEGIN
-  KEY "P3 COL6 TOTALI"
-  PROMPT 97 20 ""             
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 55
-BEGIN
-  KEY "P3 COL7 1/5"
-  PROMPT 119 7 ""            
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 56
-BEGIN
-  KEY "P3 COL7 2/5"
-  PROMPT 119 12 ""            
-  PICTURE "###.###.###^^^"    
-END
-         
-NUMBER 57
-BEGIN
-  KEY "P3 COL7 3/5"
-  PROMPT 119 15 ""            
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 58
-BEGIN
-  KEY "P3 COL7 4/5"
-  PROMPT 119 17 ""            
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 59
-BEGIN
-  KEY "P3 COL7 5/5"
-  PROMPT 119 19 ""            
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 60
-BEGIN
-  KEY "P3 COL7 TOTALI"
-  PROMPT 119 20 ""            
-  PICTURE "###.###.###^^^"    
-END
-         
-NUMBER 61
-BEGIN
-  KEY "P4 IMP.1"
-  PROMPT 117 33 ""
-  FIELD 70->P421 
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 62
-BEGIN
-  KEY "P4 IMP.2"
-  PROMPT 117 37 ""
-  FIELD 70->P422              
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 63
-BEGIN
-  KEY "P4 IMP.3"
-  PROMPT 117 38 ""
-  FIELD 70->P423              
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 64
-BEGIN
-  KEY "P4 IMP.4 "
-  PROMPT 117 41 ""
-  FIELD 70->P424              
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 65
-BEGIN
-  KEY "P4 IMP.5"
-  PROMPT 117 42 ""
-  FIELD 70->P425              
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 66
-BEGIN
-  KEY "P4 IMP.6"
-  PROMPT 117 43 ""
-  FIELD 70->P426              
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 67
-BEGIN
-  KEY "P4 IMP.7"
-  PROMPT 117 44 ""
-  FIELD 70->P427              
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 68
-BEGIN
-  KEY "P4 IMP.8"
-  PROMPT 117 48 ""
-  FIELD 70->P428              
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 69
-BEGIN
-  KEY "P4 IMP.9"
-  PROMPT 117 49 ""
-  FIELD 70->P429              
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 70
-BEGIN
-  KEY "P4 TOTALE"
-  PROMPT 117 50 ""
-  FIELD 70->P42TOT            
-  PICTURE "###.###.###^^^"    
-END
-
-END
-
-END
-
-
+USE 70
+JOIN 9 INTO CODDITTA=CODDITTA
+JOIN  6 TO   9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN  8 TO   6 ALIAS 118 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
+  70->* "Quadro G 770"
+  9->* "Ditte"
+  6->* "Anagrafica persone fisiche e giuridiche"
+  8->* "Anagrafica persone fisiche"
+  113@->* "Comuni"
+  213@->* "Comuni"
+  216@->* "Anagrafica persone fisiche e giuridiche"
+  218@->* "Anagrafica persone giuridiche"
+  313@->* "Comuni"
+  413@->* "Comuni"
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Courier 17cpi"
+  SIZE 10
+  CA "X"
+  IN 3 2
+  FI 131
+END
+
+SECTION HEADER FIRST 65
+
+STRINGA 1
+BEGIN
+  KEY "CODICE FISCALE"
+  PROMPT 4 12  ""
+  FIELD 116@->COFI
+END
+
+STRINGA 2
+BEGIN
+  KEY "RAGIONE SOCIALE"
+  PROMPT 39 12  ""
+  FIELD 116@->RAGSOC
+END
+
+STRINGA 3
+BEGIN
+  KEY "COGNOME"
+  PROMPT 39 12 ""
+  FIELD 116@->RAGSOC[1,30]
+  GROUP 1   
+  FLAGS "H"
+END
+
+STRINGA 4
+BEGIN
+  KEY "NOME"
+  PROMPT 17 14 ""
+  FIELD 116@->RAGSOC[31,50]
+  GROUP 1  
+  FLAGS "H"
+END
+
+STRINGA 5
+BEGIN
+  KEY "COMUNE DI RES."
+  PROMPT 17 14 ""
+  FIELD 213@->DENCOM
+END
+
+STRINGA 6
+BEGIN
+  KEY "PROV DI RES."
+  PROMPT 58 14 ""
+  FIELD 213@->PROVCOM
+END
+
+STRINGA 7
+BEGIN
+  KEY "VIA di RES."
+  PROMPT 65 14  ""    
+  FIELD 116@->INDRES
+  GROUP 4  
+END
+
+STRINGA 8
+BEGIN
+  KEY "NUM. CIVICO di RES."
+  PROMPT 101 14 "" 
+  FIELD 116@->CIVRES
+  GROUP 4  
+END
+
+STRINGA 9
+BEGIN
+  KEY "CAP"
+  PROMPT 122 14 "" 
+  FIELD 116@->CAPRES
+  GROUP 4
+END
+
+STRINGA 10
+BEGIN
+  KEY "VIA di RES. RF"
+  PROMPT 65 14  ""
+  FIELD 116@->INDRF
+  MESSAGE EMPTY HIDE,5@
+  GROUP 5
+END
+
+STRINGA 11
+BEGIN
+  KEY "NUM. CIVICO di RES. RF"
+  PROMPT 101 14 ""
+  FIELD 116@->CIVRF
+  GROUP 5
+END
+
+STRINGA 12
+BEGIN
+  KEY "CAP"
+  PROMPT 122 14 ""
+  FIELD 116@->CAPRF
+  GROUP 5
+END
+
+STRINGA 13
+BEGIN
+  KEY "CODICE FISCALE DICHIARANTE"
+  PROMPT 118 17  ""
+END
+
+STRINGA 14
+BEGIN
+  KEY "NUM. FOGLIO"
+  PROMPT 120 18  ""  
+  FLAGS "H"
+END
+
+STRINGA 15
+BEGIN
+  KEY "Prospetto 1 data delib.1"
+  PROMPT 6 26 ""
+  FIELD 70->P1DATAD1
+  GROUP 3
+END
+
+STRINGA 16
+BEGIN
+  KEY "Titolo 1"
+  PROMPT 20 26 ""
+  FIELD 70->P1TITOLO1
+  GROUP 3
+END
+
+STRINGA 17
+BEGIN
+  KEY "Data ut.1"
+  PROMPT 53 26 ""
+  FIELD 70->P1DATAP1
+  GROUP 3
+END
+
+NUMBER 20
+BEGIN
+  KEY "Amm.1"
+  PROMPT 68 26 ""
+  FIELD 70->P1AMMQ1   
+  PICTURE "###.###.###.###"    
+  GROUP 3
+END
+
+STRINGA 21
+BEGIN
+  KEY "Num.az.1"
+  PROMPT 93 26 ""
+  FIELD 70->P1NUMQ1
+  GROUP 3
+END
+
+NUMBER 22
+BEGIN
+  KEY "Amm.Compless.1"
+  PROMPT 124 26 ""
+  FIELD 70->P1AMM1
+  PICTURE "###.###.###^^^"    
+  GROUP 3
+END
+
+STRINGA 23
+BEGIN
+  KEY "Prospetto 1 data delib.2"
+  PROMPT 6 28 ""
+  FIELD 70->P1DATAD2
+  GROUP 3
+END
+
+STRINGA 24
+BEGIN
+  KEY "Titolo 2"
+  PROMPT 20 28 ""
+  FIELD 70->P1TITOLO2
+  GROUP 3
+END
+
+STRINGA 25
+BEGIN
+  KEY "Data ut.2"
+  PROMPT 53 28 ""
+  FIELD 70->P1DATAP2
+  GROUP 3
+END
+
+NUMBER 26
+BEGIN
+  KEY "Amm.2"
+  PROMPT 68 28 ""
+  FIELD 70->P1AMMQ2
+  PICTURE "###.###.###.###"    
+  GROUP 3
+END
+
+STRINGA 27
+BEGIN
+  KEY "Num.az.2"
+  PROMPT 93 28 ""
+  FIELD 70->P1NUMQ2
+  GROUP 3
+END
+
+NUMBER 28
+BEGIN
+  KEY "Amm.Compless.2"
+  PROMPT 124 28 ""
+  FIELD 70->P1AMM2
+  PICTURE "###.###.###^^^"    
+  GROUP 3
+END
+
+STRINGA 29
+BEGIN
+  KEY "Prospetto 1 data delib.3"
+  PROMPT 6 30 ""
+  FIELD 70->P1DATAD3
+  GROUP 3
+END
+
+STRINGA 30
+BEGIN
+  KEY "Titolo 3"
+  PROMPT 20 30 ""
+  FIELD 70->P1TITOLO3
+  GROUP 3
+END
+
+STRINGA 31
+BEGIN
+  KEY "Data ut.3"
+  PROMPT 53 30 ""
+  FIELD 70->P1DATAP3
+  GROUP 3
+END
+
+NUMBER 32
+BEGIN
+  KEY "Amm.3"
+  PROMPT 68 30 ""
+  FIELD 70->P1AMMQ3
+  PICTURE "###.###.###.###"    
+  GROUP 3
+END
+
+STRINGA 33
+BEGIN
+  KEY "Num.az.3"
+  PROMPT 93 30 ""
+  FIELD 70->P1NUMQ3
+  GROUP 3
+END
+
+NUMBER 34
+BEGIN
+  KEY "Amm.Compless.3"
+  PROMPT 124 30 ""
+  FIELD 70->P1AMM3
+  PICTURE "###.###.###^^^"    
+  GROUP 3
+END
+
+STRINGA 35
+BEGIN
+  KEY "Prospetto 1 data delib.4"
+  FIELD 70->P1DATAD4
+  PROMPT 6 32 ""
+  GROUP 3
+END
+
+STRINGA 36
+BEGIN
+  KEY "Titolo 4"
+  PROMPT 20 32 ""
+  FIELD 70->P1TITOLO4
+  GROUP 3
+END
+
+STRINGA 37
+BEGIN
+  KEY "Data ut.4"
+  PROMPT 53 32 ""
+  FIELD 70->P1DATAP4
+  GROUP 3
+END
+
+NUMBER 38
+BEGIN
+  KEY "Amm.4"
+  PROMPT 68 32 ""
+  FIELD 70->P1AMMQ4
+  PICTURE "###.###.###.###"    
+  GROUP 3
+END
+
+STRINGA 39
+BEGIN
+  KEY "Num.az.4"
+  PROMPT 93 32 ""
+  FIELD 70->P1NUMQ4
+  GROUP 3
+END
+
+NUMBER 40
+BEGIN
+  KEY "Amm.Compless.4"
+  PROMPT 124 32 ""
+  FIELD 70->P1AMM4
+  PICTURE "###.###.###^^^"    
+  GROUP 3
+END
+
+STRING 41
+BEGIN
+  KEY "Totale num.az"
+  FIELD 70->P1NUMQT
+  PROMPT 93 34 ""    
+END
+
+STRINGA 42
+BEGIN
+  KEY "Totale amm.compl."
+  FIELD 70->P1AMMT
+  PROMPT 124 34 ""            
+  PICTURE "###.###.###^^^"      
+END
+
+STRINGA 43
+BEGIN
+  KEY "Data delibera"
+  PROMPT 27 37 ""
+  FIELD 70->P2DATADE
+END
+
+STRINGA 44
+BEGIN
+  KEY "Data distribuzione"
+  PROMPT 100 37 ""
+  FIELD 70->P2DATADI
+END
+
+STRINGA 45
+BEGIN
+  KEY "DESC.BENI DISTR.1"
+  PROMPT 4 41 ""
+  FIELD 70->P2DESC1
+END
+
+STRINGA 46
+BEGIN
+  KEY "DATA 1"
+  PROMPT 78 41 ""
+  FIELD 70->P2DATA1
+END
+
+NUMBER 47
+BEGIN
+  KEY "VALORE ULT. BIL. 1"
+  PROMPT 120 41 ""
+  FIELD 70->P2VAL1
+  PICTURE "###.###.###^^^"    
+END
+
+STRINGA 48
+BEGIN
+  KEY "DESC.BENI DISTR.2"
+  PROMPT 4 43 ""
+  FIELD 70->P2DESC2
+END
+
+STRINGA 49
+BEGIN
+  KEY "DATA 2"
+  PROMPT 78 43 ""
+  FIELD 70->P2DATA2
+END
+
+NUMBER 50
+BEGIN
+  KEY "VALORE ULT. BIL. 2"
+  PROMPT 120 43 ""
+  FIELD 70->P2VAL2
+  PICTURE "###.###.###^^^"    
+END
+
+STRINGA 51
+BEGIN
+  KEY "DESC.BENI DISTR.3"
+  PROMPT 4 45 ""
+  FIELD 70->P2DESC3
+END
+
+STRINGA 52
+BEGIN
+  KEY "DATA 3"
+  PROMPT 78 45 ""
+  FIELD 70->P2DATA3
+END
+
+NUMBER 53
+BEGIN
+  KEY "VALORE ULT. BIL. 3"
+  PROMPT 120 45 ""
+  FIELD 70->P2VAL3
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 54
+BEGIN
+  KEY "TOT.UT.NATURA"
+  PROMPT 120 47 ""
+  FIELD 70->P2VALT
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 55
+BEGIN
+  KEY "IMP.IMPUT.AZ.QUOT"
+  PROMPT 120 49 ""
+  FIELD 70->P2IMPQ
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 56
+BEGIN
+  KEY "P221"
+  PROMPT 44 56 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 57
+BEGIN
+  KEY "P231"
+  PROMPT 63 56 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 58
+BEGIN
+  KEY "P241"
+  PROMPT 81 56 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 59
+BEGIN
+  KEY "P251"
+  PROMPT 100 56 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 60
+BEGIN
+  KEY "P261"
+  PROMPT 119 56 ""            
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 61
+BEGIN
+  KEY "P222"
+  PROMPT 44 57 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 62
+BEGIN
+  KEY "P232"
+  PROMPT 63 57 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 63
+BEGIN
+  KEY "P242"
+  PROMPT 81 57 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 64
+BEGIN
+  KEY "P252"
+  PROMPT 100 57 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 65
+BEGIN
+  KEY "P262"
+  PROMPT 119 57 ""            
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 66
+BEGIN
+  KEY "P223"
+  PROMPT 44 58 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 67
+BEGIN
+  KEY "P233"
+  PROMPT 63 58 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 68
+BEGIN
+  KEY "P243"
+  PROMPT 81 58 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 69
+BEGIN
+  KEY "P253"
+  PROMPT 100 58 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 70
+BEGIN
+  KEY "P263"
+  PROMPT 119 58 ""            
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 71
+BEGIN
+  KEY "P224"
+  PROMPT 44 59 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 72
+BEGIN
+  KEY "P234"
+  PROMPT 63 59 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 73
+BEGIN
+  KEY "P244"
+  PROMPT 81 59 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 74
+BEGIN
+  KEY "P254"
+  PROMPT 100 59 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 75
+BEGIN
+  KEY "P264"
+  PROMPT 119 59 ""            
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 76
+BEGIN
+  KEY "P225"
+  PROMPT 44 60 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 77
+BEGIN
+  KEY "P235"
+  PROMPT 63 60 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 78
+BEGIN
+  KEY "P245"
+  PROMPT 81 60 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 79
+BEGIN
+  KEY "P255"
+  PROMPT 100 60 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 80
+BEGIN
+  KEY "P265"
+  PROMPT 119 60 ""            
+  PICTURE "###.###.###^^^"    
+END
+
+
+NUMBER 81
+BEGIN
+  KEY "P22TOT"
+  PROMPT 44 61 ""             
+  PICTURE "###.###.###^^^"    
+  FIELD 70->P22TOT
+END
+
+NUMBER 82
+BEGIN
+  KEY "P23TOT"
+  PROMPT 63 61 ""             
+  PICTURE "###.###.###^^^"    
+  FIELD 70->P23TOT
+END
+
+NUMBER 83
+BEGIN
+  KEY "P24TOT"
+  PROMPT 81 61 ""             
+  PICTURE "###.###.###^^^"    
+  FIELD 70->P24TOT
+END
+
+NUMBER 84
+BEGIN
+  KEY "P25TOT"
+  PROMPT 100 61 ""             
+  PICTURE "###.###.###^^^"    
+  FIELD 70->P25TOT
+END
+
+NUMBER 85
+BEGIN
+  KEY "P26TOT"
+  PROMPT 119 61 ""            
+  PICTURE "###.###.###^^^"    
+  FIELD 70->P26TOT
+END
+
+END
+                              
+SECTION BODY ODD 60
+
+NUMBER 1
+BEGIN
+  KEY "P3 COL 2 - CINQUE SOLE RIGHE -"
+  PROMPT 36 7 ""
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 2
+BEGIN
+  KEY "P3 COL2 - 2"
+  PROMPT 36 12 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 3
+BEGIN
+  KEY "P3 COL2 - 3"
+  PROMPT 36 15 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 4
+BEGIN
+  KEY "P3 COL2 - 4"
+  PROMPT 36 17 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 5
+BEGIN
+  KEY "P3 COL2 - 5"
+  PROMPT 36 19 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 6
+BEGIN
+  KEY "P3 COL2 TOTALI"
+  PROMPT 36 20 ""
+  PICTURE "###.###.###^^^"
+END 
+
+NUMBER 7
+BEGIN
+  KEY "P3 COL3 1"
+  PROMPT 57 5 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 8
+BEGIN
+  KEY "P3 COL3 2"
+  PROMPT 57 6 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 9
+BEGIN
+  KEY "P3 COL3 3"
+  PROMPT 57 7 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 10
+BEGIN
+  KEY "P3 COL3 4"
+  PROMPT 57 8 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 11
+BEGIN
+  KEY "P3 COL3 5"
+  PROMPT 57 9 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 12
+BEGIN
+  KEY "P3 COL3 6"
+  PROMPT 57 10 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 13
+BEGIN
+  KEY "P3 COL3 7"
+  PROMPT 57 11 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 14
+BEGIN
+  KEY "P3 COL3 8"
+  PROMPT 57 12 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 15
+BEGIN
+  KEY "P3 COL3 9"
+  PROMPT 57 13 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 16
+BEGIN
+  KEY "P3 COL3 10"
+  PROMPT 57 14 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 17
+BEGIN
+  KEY "P3 COL3 11"
+  PROMPT 57 15 ""             
+  PICTURE "###.###.###^^^"    
+END
+          
+NUMBER 18
+BEGIN
+  KEY "P3 COL3 12"
+  PROMPT 57 16 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 19
+BEGIN
+  KEY "P3 COL3 13"
+  PROMPT 57 17 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 20
+BEGIN
+  KEY "P3 COL3 14"
+  PROMPT 57 18 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 21
+BEGIN
+  KEY "P3 COL3 15"
+  PROMPT 57 19 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 22
+BEGIN
+  KEY "P3 COL3 TOTALI"
+  PROMPT 57 20 ""             
+  PICTURE "###.###.###^^^"  
+END
+
+NUMBER 23
+BEGIN
+  KEY "P3 COL5 1"
+  PROMPT 80 5 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 24
+BEGIN
+  KEY "P3 COL5 2"
+  PROMPT 80 6 ""             
+  PICTURE "###.###.###^^^"    
+END       
+
+NUMBER 25
+BEGIN
+  KEY "P3 COL5 3"
+  PROMPT 80 7 ""             
+  PICTURE "###.###.###^^^"    
+END
+        
+NUMBER 26
+BEGIN
+  KEY "P3 COL5 4"
+  PROMPT 80 8 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 27
+BEGIN
+  KEY "P3 COL5 5"
+  PROMPT 80 9 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 28
+BEGIN
+  KEY "P3 COL5 6"
+  PROMPT 80 10 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 29
+BEGIN
+  KEY "P3 COL5 7"
+  PROMPT 80 11 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 30
+BEGIN
+  KEY "P3 COL5 8"
+  PROMPT 80 12 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 31
+BEGIN
+  KEY "P3 COL5 9"
+  PROMPT 80 13 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 32
+BEGIN
+  KEY "P3 COL5 10"
+  PROMPT 80 14 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 33
+BEGIN
+  KEY "P3 COL5 11"
+  PROMPT 80 15 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 34
+BEGIN
+  KEY "P3 COL5 12"
+  PROMPT 80 16 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 35
+BEGIN
+  KEY "P3 COL5 13"
+  PROMPT 80 17 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 36
+BEGIN
+  KEY "P3 COL5 14"
+  PROMPT 80 18 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 37
+BEGIN
+  KEY "P3 COL5 15"
+  PROMPT 80 19 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 38
+BEGIN
+  KEY "P3 COL5 TOTALI"
+  PROMPT 80 20 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 39
+BEGIN
+  KEY "P3 COL6 1"
+  PROMPT 97 5 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 40
+BEGIN
+  KEY "P3 COL6 2"
+  PROMPT 97 6 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 41
+BEGIN
+  KEY "P3 COL6 3"
+  PROMPT 97 7 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 42
+BEGIN
+  KEY "P3 COL6 4"
+  PROMPT 97 8 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 43
+BEGIN
+  KEY "P3 COL6 5"
+  PROMPT 97 9 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 44
+BEGIN
+  KEY "P3 COL6 6"
+  PROMPT 97 10 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 45
+BEGIN
+  KEY "P3 COL6 7"
+  PROMPT 97 11 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 46
+BEGIN
+  KEY "P3 COL6 8"
+  PROMPT 97 12 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 47
+BEGIN
+  KEY "P3 COL6 9"
+  PROMPT 97 13 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 48
+BEGIN
+  KEY "P3 COL6 10"
+  PROMPT 97 14 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 49
+BEGIN
+  KEY "P3 COL6 11"
+  PROMPT 97 15 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 50
+BEGIN
+  KEY "P3 COL6 12"
+  PROMPT 97 16 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 51
+BEGIN
+  KEY "P3 COL6 13"
+  PROMPT 97 17 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 52
+BEGIN
+  KEY "P3 COL6 14"
+  PROMPT 97 18 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 53
+BEGIN
+  KEY "P3 COL6 15"
+  PROMPT 97 19 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 54
+BEGIN
+  KEY "P3 COL6 TOTALI"
+  PROMPT 97 20 ""             
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 55
+BEGIN
+  KEY "P3 COL7 1/5"
+  PROMPT 119 7 ""            
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 56
+BEGIN
+  KEY "P3 COL7 2/5"
+  PROMPT 119 12 ""            
+  PICTURE "###.###.###^^^"    
+END
+         
+NUMBER 57
+BEGIN
+  KEY "P3 COL7 3/5"
+  PROMPT 119 15 ""            
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 58
+BEGIN
+  KEY "P3 COL7 4/5"
+  PROMPT 119 17 ""            
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 59
+BEGIN
+  KEY "P3 COL7 5/5"
+  PROMPT 119 19 ""            
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 60
+BEGIN
+  KEY "P3 COL7 TOTALI"
+  PROMPT 119 20 ""            
+  PICTURE "###.###.###^^^"    
+END
+         
+NUMBER 61
+BEGIN
+  KEY "P4 IMP.1"
+  PROMPT 117 33 ""
+  FIELD 70->P421 
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 62
+BEGIN
+  KEY "P4 IMP.2"
+  PROMPT 117 37 ""
+  FIELD 70->P422              
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 63
+BEGIN
+  KEY "P4 IMP.3"
+  PROMPT 117 38 ""
+  FIELD 70->P423              
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 64
+BEGIN
+  KEY "P4 IMP.4 "
+  PROMPT 117 41 ""
+  FIELD 70->P424              
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 65
+BEGIN
+  KEY "P4 IMP.5"
+  PROMPT 117 42 ""
+  FIELD 70->P425              
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 66
+BEGIN
+  KEY "P4 IMP.6"
+  PROMPT 117 43 ""
+  FIELD 70->P426              
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 67
+BEGIN
+  KEY "P4 IMP.7"
+  PROMPT 117 44 ""
+  FIELD 70->P427              
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 68
+BEGIN
+  KEY "P4 IMP.8"
+  PROMPT 117 48 ""
+  FIELD 70->P428              
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 69
+BEGIN
+  KEY "P4 IMP.9"
+  PROMPT 117 49 ""
+  FIELD 70->P429              
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 70
+BEGIN
+  KEY "P4 TOTALE"
+  PROMPT 117 50 ""
+  FIELD 70->P42TOT            
+  PICTURE "###.###.###^^^"    
+END
+
+END
+
+END
+
+
diff --git a/m770/77qgd.frm b/m770/77qgd.frm
index f37e42c98..a9f3c495f 100755
--- a/m770/77qgd.frm
+++ b/m770/77qgd.frm
@@ -1,350 +1,350 @@
-USE 101
-JOIN  6 TO  101 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN  8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
-JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
-JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES 
-JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES) 
-JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
-END
-
-DESCRIPTION
-BEGIN
-  62->* "770 Quadro G distinta"
-  9->* "Ditte"
-  6->* "Anagrafica persone fisiche e giuridiche"
-  8->* "Anagrafica persone fisiche"
-  113@->* "Comuni"
-  213@->* "Comuni"
-  216@->* "Anagrafica persone fisiche e giuridiche"
-  218@->* "Anagrafica persone giuridiche"
-  313@->* "Comuni"
-  413@->* "Comuni"
-END
-
-GENERAL
-BEGIN
-  OFFSET 0 0
-  FONT "Courier 17cpi"
-  SIZE 10
-  CA "X"           
-  IN 3 2
-  FI 131
-END
-
-SECTION HEADER FIRST 17
-
-STRINGA 13
-BEGIN
-  KEY "CODICE FISCALE DICHIARANTE"
-  PROMPT 105 19  "" 
-  FLAGS "H"
-END
-
-NUMBER 14
-BEGIN
-  KEY "NUM. FOGLIO"
-  PROMPT 123 5  ""
-END
-
-END
-
-SECTION BODY ODD 8
-
-STRINGA 1
-BEGIN
-  KEY "COD.FIS"
-  PROMPT 10 1 ""
-  FIELD 216@->COFI
-END
-
-STRING 2
-BEGIN   
-  KEY "COGNOME"
-  PROMPT 43 1 ""
-  FIELD 216@->RAGSOC[1,30]
-END
-
-STRING 3
-BEGIN   
-  KEY "NOME"
-  PROMPT 98 1 ""
-  FIELD 216@->RAGSOC[31,50]
-END
-
-STRING 4
-BEGIN   
-  KEY "DATA NASCITA"
-  PROMPT 10 3 ""
-  FIELD 218@->DATANASC
-END
-
-STRING 5
-BEGIN   
-  KEY "SESSO"
-  PROMPT 36 3 ""
-  FIELD 218@->SESSO
-END
-
-STRING 6
-BEGIN
-  KEY "COMUNE DI NASCITA"
-  PROMPT 44 3 ""
-  FIELD 313@->DENCOM
-END
-
-STRING 7
-BEGIN
-  KEY "PROV DI NASCITA"
-  PROMPT 117 3 ""
-  FIELD 313@->PROVCOM
-END
-
-STRING 8
-BEGIN
-  KEY "COMUNE DI RESIDENZA"
-  PROMPT 10 5 ""
-  FIELD 413@->DENCOM
-END
-
-STRING 9
-BEGIN
-  KEY "PROV. RESIDENZA"
-  PROMPT 58 5 ""
-  FIELD 413@->PROVCOM
-END
-
-STRING 101
-BEGIN
-  KEY "VIA RES."
-  PROMPT 94 5 ""
-  FIELD 216@->INDRES[1,18]
-  FLAGS "H"
-  MESSAGE COPY,10
-END
-
-STRING 102
-BEGIN
-  KEY "NUM.CIV"
-  PROMPT 93 5 ""
-  FLAGS "H"
-  FIELD 216@->CIVRES
-  MESSAGE APPEND,10
-END
-
-STRING 10
-BEGIN
-  KEY "VIA RES. + numcivres"
-  PROMPT 66 5 ""
-END
-
-NUMBER 11
-BEGIN
-  KEY "NUMERO QUOTE"
-  PROMPT 125 5 ""
-  FIELD 101->NUMQUOTE   
-  PICTURE ".2"
-END
-
-NUMBER 12
-BEGIN
-  KEY "UTILI SPETTANTI"
-  PROMPT 31 7 ""
-  FIELD 101->UTSPETT
-  PICTURE "###.###.###^^^"   
-  MESSAGE ADD,FO->12
-END
-
-NUMBER 13
-BEGIN
-  KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
-  PROMPT 59 7 ""
-  FIELD 101->ROPESPET
-  PICTURE "###.###.###^^^"  
-  MESSAGE ADD,FO->13
-END
-
-NUMBER 14
-BEGIN
-  KEY "UTILI PAGATI"
-  PROMPT 93 7 ""
-  FIELD 101->UTPAG
-  PICTURE "###.###.###^^^"   
-  MESSAGE ADD,FO->14
-END
-
-NUMBER 15
-BEGIN
-  KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
-  PROMPT 120 7 ""
-  FIELD 101->ROPE
-  PICTURE "###.###.###^^^"   
-  MESSAGE ADD,FO->15
-END
-
-END
-
-SECTION BODY EVEN 6
-
-STRINGA 1
-BEGIN
-  KEY "COD.FIS"
-  PROMPT 10 1 ""
-  FIELD 216@->COFI
-END
-
-STRING 2
-BEGIN
-  KEY "RAGSOC GIURIDICHE"
-  PROMPT 44 1 ""
-  FIELD 216@->RAGSOC
-END
-
-STRING 3
-BEGIN
-  KEY "COMUNE DI RF/RES. GIURIDICHE"
-  PROMPT 10 3 ""
-  FIELD 513@->DENCOM
-END
-
-STRING 4
-BEGIN
-  KEY "PROV. RF/RES. GIURIDICHE"
-  PROMPT 61 3 ""
-  FIELD 513@->PROVCOM
-END
-
-STRING 5
-BEGIN
-  KEY "VIA RF/RES. GIURIDICHE"
-  PROMPT 94 3 ""   
-  FIELD 216@->INDRF[1,18]
-  FIELD 216@->INDRES[1,18]
-  FLAGS "H"
-  MESSAGE COPY,7
-END
-
-STRING 6
-BEGIN
-  KEY "NUM.CIV RF/RES. GIURIDICHE"
-  PROMPT 93 3 ""
-  FLAGS "H"            
-  FIELD 216@->CIVRF
-  FIELD 216@->CIVRES
-  MESSAGE APPEND,7
-END
-
-STRING 7
-BEGIN
-  KEY "VIA RF/RES. + numcivres"
-  PROMPT 69 3 ""
-END
-
-NUMBER 11
-BEGIN
-  KEY "NUMERO QUOTE"
-  PROMPT 128 3 ""
-  FIELD 101->NUMQUOTE 
-  PICTURE ".2"   
-END
-
-NUMBER 12
-BEGIN
-  KEY "UTILI SPETTANTI"
-  PROMPT 31 5 ""
-  FIELD 101->UTSPETT
-  PICTURE "###.###.###^^^"   
-  MESSAGE ADD,FE->12
-END
-
-NUMBER 13
-BEGIN
-  KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
-  PROMPT 59 5 ""
-  FIELD 101->ROPESPET
-  PICTURE "###.###.###^^^"  
-  MESSAGE ADD,FE->13
-END
-
-NUMBER 14
-BEGIN
-  KEY "UTILI PAGATI"
-  PROMPT 93 5 ""
-  FIELD 101->UTPAG
-  PICTURE "###.###.###^^^"   
-  MESSAGE ADD,FE->14
-END
-
-NUMBER 15
-BEGIN
-  KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
-  PROMPT 120 5 ""
-  FIELD 101->ROPE
-  PICTURE "###.###.###^^^"   
-  MESSAGE ADD,FE->15
-END
-
-END
-
-SECTION FOOTER ODD 2
-
-NUMBER 12
-BEGIN
-  KEY "TOTALE UT.SPETT."
-  PROMPT 31 1 ""  
-  PICTURE "###.###.###^^^"
-END
-
-NUMBER 13
-BEGIN
-  KEY "TOTALE R.OPE.SU UT.SPETT."
-  PROMPT 59 1 ""          
-  PICTURE "###.###.###^^^"
-END
-
-NUMBER 14
-BEGIN
-  KEY "TOTALE UTILI PAGATI"
-  PROMPT 93 1 ""  
-  PICTURE "###.###.###^^^"
-END
-
-NUMBER 15
-BEGIN
-  KEY "TOTALE R.OPE.SU UT.PAGATI"
-  PROMPT 120 1 ""         
-  PICTURE "###.###.###^^^"
-END
-
-END
-
-SECTION FOOTER EVEN 2
-
-NUMBER 12
-BEGIN
-  KEY "TOTALE UT.SPETT."
-  PROMPT 31 1 ""  
-  PICTURE "###.###.###^^^"
-END
-
-NUMBER 13
-BEGIN
-  KEY "TOTALE R.OPE.SU UT.SPETT."
-  PROMPT 59 1 ""          
-  PICTURE "###.###.###^^^"
-END
-
-NUMBER 14
-BEGIN
-  KEY "TOTALE UTILI PAGATI"
-  PROMPT 93 1 ""  
-  PICTURE "###.###.###^^^"
-END
-
-NUMBER 15
-BEGIN
-  KEY "TOTALE R.OPE.SU UT.PAGAI"
-  PROMPT 120 1 ""         
-  PICTURE "###.###.###^^^"
-END
-
-END
+USE 101
+JOIN  6 TO  101 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN  8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
+JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
+JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES 
+JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES) 
+JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
+END
+
+DESCRIPTION
+BEGIN
+  62->* "770 Quadro G distinta"
+  9->* "Ditte"
+  6->* "Anagrafica persone fisiche e giuridiche"
+  8->* "Anagrafica persone fisiche"
+  113@->* "Comuni"
+  213@->* "Comuni"
+  216@->* "Anagrafica persone fisiche e giuridiche"
+  218@->* "Anagrafica persone giuridiche"
+  313@->* "Comuni"
+  413@->* "Comuni"
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Courier 17cpi"
+  SIZE 10
+  CA "X"           
+  IN 3 2
+  FI 131
+END
+
+SECTION HEADER FIRST 17
+
+STRINGA 13
+BEGIN
+  KEY "CODICE FISCALE DICHIARANTE"
+  PROMPT 105 19  "" 
+  FLAGS "H"
+END
+
+NUMBER 14
+BEGIN
+  KEY "NUM. FOGLIO"
+  PROMPT 123 5  ""
+END
+
+END
+
+SECTION BODY ODD 8
+
+STRINGA 1
+BEGIN
+  KEY "COD.FIS"
+  PROMPT 10 1 ""
+  FIELD 216@->COFI
+END
+
+STRING 2
+BEGIN   
+  KEY "COGNOME"
+  PROMPT 43 1 ""
+  FIELD 216@->RAGSOC[1,30]
+END
+
+STRING 3
+BEGIN   
+  KEY "NOME"
+  PROMPT 98 1 ""
+  FIELD 216@->RAGSOC[31,50]
+END
+
+STRING 4
+BEGIN   
+  KEY "DATA NASCITA"
+  PROMPT 10 3 ""
+  FIELD 218@->DATANASC
+END
+
+STRING 5
+BEGIN   
+  KEY "SESSO"
+  PROMPT 36 3 ""
+  FIELD 218@->SESSO
+END
+
+STRING 6
+BEGIN
+  KEY "COMUNE DI NASCITA"
+  PROMPT 44 3 ""
+  FIELD 313@->DENCOM
+END
+
+STRING 7
+BEGIN
+  KEY "PROV DI NASCITA"
+  PROMPT 117 3 ""
+  FIELD 313@->PROVCOM
+END
+
+STRING 8
+BEGIN
+  KEY "COMUNE DI RESIDENZA"
+  PROMPT 10 5 ""
+  FIELD 413@->DENCOM
+END
+
+STRING 9
+BEGIN
+  KEY "PROV. RESIDENZA"
+  PROMPT 58 5 ""
+  FIELD 413@->PROVCOM
+END
+
+STRING 101
+BEGIN
+  KEY "VIA RES."
+  PROMPT 94 5 ""
+  FIELD 216@->INDRES[1,18]
+  FLAGS "H"
+  MESSAGE COPY,10
+END
+
+STRING 102
+BEGIN
+  KEY "NUM.CIV"
+  PROMPT 93 5 ""
+  FLAGS "H"
+  FIELD 216@->CIVRES
+  MESSAGE APPEND,10
+END
+
+STRING 10
+BEGIN
+  KEY "VIA RES. + numcivres"
+  PROMPT 66 5 ""
+END
+
+NUMBER 11
+BEGIN
+  KEY "NUMERO QUOTE"
+  PROMPT 125 5 ""
+  FIELD 101->NUMQUOTE   
+  PICTURE ".2"
+END
+
+NUMBER 12
+BEGIN
+  KEY "UTILI SPETTANTI"
+  PROMPT 31 7 ""
+  FIELD 101->UTSPETT
+  PICTURE "###.###.###^^^"   
+  MESSAGE ADD,FO->12
+END
+
+NUMBER 13
+BEGIN
+  KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
+  PROMPT 59 7 ""
+  FIELD 101->ROPESPET
+  PICTURE "###.###.###^^^"  
+  MESSAGE ADD,FO->13
+END
+
+NUMBER 14
+BEGIN
+  KEY "UTILI PAGATI"
+  PROMPT 93 7 ""
+  FIELD 101->UTPAG
+  PICTURE "###.###.###^^^"   
+  MESSAGE ADD,FO->14
+END
+
+NUMBER 15
+BEGIN
+  KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
+  PROMPT 120 7 ""
+  FIELD 101->ROPE
+  PICTURE "###.###.###^^^"   
+  MESSAGE ADD,FO->15
+END
+
+END
+
+SECTION BODY EVEN 6
+
+STRINGA 1
+BEGIN
+  KEY "COD.FIS"
+  PROMPT 10 1 ""
+  FIELD 216@->COFI
+END
+
+STRING 2
+BEGIN
+  KEY "RAGSOC GIURIDICHE"
+  PROMPT 44 1 ""
+  FIELD 216@->RAGSOC
+END
+
+STRING 3
+BEGIN
+  KEY "COMUNE DI RF/RES. GIURIDICHE"
+  PROMPT 10 3 ""
+  FIELD 513@->DENCOM
+END
+
+STRING 4
+BEGIN
+  KEY "PROV. RF/RES. GIURIDICHE"
+  PROMPT 61 3 ""
+  FIELD 513@->PROVCOM
+END
+
+STRING 5
+BEGIN
+  KEY "VIA RF/RES. GIURIDICHE"
+  PROMPT 94 3 ""   
+  FIELD 216@->INDRF[1,18]
+  FIELD 216@->INDRES[1,18]
+  FLAGS "H"
+  MESSAGE COPY,7
+END
+
+STRING 6
+BEGIN
+  KEY "NUM.CIV RF/RES. GIURIDICHE"
+  PROMPT 93 3 ""
+  FLAGS "H"            
+  FIELD 216@->CIVRF
+  FIELD 216@->CIVRES
+  MESSAGE APPEND,7
+END
+
+STRING 7
+BEGIN
+  KEY "VIA RF/RES. + numcivres"
+  PROMPT 69 3 ""
+END
+
+NUMBER 11
+BEGIN
+  KEY "NUMERO QUOTE"
+  PROMPT 128 3 ""
+  FIELD 101->NUMQUOTE 
+  PICTURE ".2"   
+END
+
+NUMBER 12
+BEGIN
+  KEY "UTILI SPETTANTI"
+  PROMPT 31 5 ""
+  FIELD 101->UTSPETT
+  PICTURE "###.###.###^^^"   
+  MESSAGE ADD,FE->12
+END
+
+NUMBER 13
+BEGIN
+  KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
+  PROMPT 59 5 ""
+  FIELD 101->ROPESPET
+  PICTURE "###.###.###^^^"  
+  MESSAGE ADD,FE->13
+END
+
+NUMBER 14
+BEGIN
+  KEY "UTILI PAGATI"
+  PROMPT 93 5 ""
+  FIELD 101->UTPAG
+  PICTURE "###.###.###^^^"   
+  MESSAGE ADD,FE->14
+END
+
+NUMBER 15
+BEGIN
+  KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
+  PROMPT 120 5 ""
+  FIELD 101->ROPE
+  PICTURE "###.###.###^^^"   
+  MESSAGE ADD,FE->15
+END
+
+END
+
+SECTION FOOTER ODD 2
+
+NUMBER 12
+BEGIN
+  KEY "TOTALE UT.SPETT."
+  PROMPT 31 1 ""  
+  PICTURE "###.###.###^^^"
+END
+
+NUMBER 13
+BEGIN
+  KEY "TOTALE R.OPE.SU UT.SPETT."
+  PROMPT 59 1 ""          
+  PICTURE "###.###.###^^^"
+END
+
+NUMBER 14
+BEGIN
+  KEY "TOTALE UTILI PAGATI"
+  PROMPT 93 1 ""  
+  PICTURE "###.###.###^^^"
+END
+
+NUMBER 15
+BEGIN
+  KEY "TOTALE R.OPE.SU UT.PAGATI"
+  PROMPT 120 1 ""         
+  PICTURE "###.###.###^^^"
+END
+
+END
+
+SECTION FOOTER EVEN 2
+
+NUMBER 12
+BEGIN
+  KEY "TOTALE UT.SPETT."
+  PROMPT 31 1 ""  
+  PICTURE "###.###.###^^^"
+END
+
+NUMBER 13
+BEGIN
+  KEY "TOTALE R.OPE.SU UT.SPETT."
+  PROMPT 59 1 ""          
+  PICTURE "###.###.###^^^"
+END
+
+NUMBER 14
+BEGIN
+  KEY "TOTALE UTILI PAGATI"
+  PROMPT 93 1 ""  
+  PICTURE "###.###.###^^^"
+END
+
+NUMBER 15
+BEGIN
+  KEY "TOTALE R.OPE.SU UT.PAGAI"
+  PROMPT 120 1 ""         
+  PICTURE "###.###.###^^^"
+END
+
+END
diff --git a/m770/77qh.frm b/m770/77qh.frm
index f6fe8bcfe..6325e739f 100755
--- a/m770/77qh.frm
+++ b/m770/77qh.frm
@@ -1,212 +1,212 @@
-USE 43
-JOIN  9 TO  43 INTO CODDITTA=CODDITTA
-JOIN  6 TO   9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN  8 TO   6 ALIAS 118 INTO CODANAGR=CODANAGR
-JOIN 13 TO   8 ALIAS 113 INTO COM=COMNASC
-JOIN 13 TO   6 ALIAS 213 INTO COM=COMRF(COMRES)
-JOIN %ENT TO 43 ALIAS 214 INTO CODTAB=H1ENTE
-END
-
-DESCRIPTION
-BEGIN
-  61->* "Quadro H 770"
-  9->* "Ditte"
-  6->* "Anagrafica persone fisiche e giuridiche"
-  8->* "Anagrafica persone fisiche"
-  113@->* "Comuni"
-  213@->* "Comuni"
-END
-
-GENERAL
-BEGIN
-  OFFSET 0 0
-  FONT "Courier 17cpi"
-  SIZE 11
-  CA "X"           
-  IN 3 2
-  FI 131
-END
-
-SECTION HEADER FIRST 22
-
-LISTA 9
-BEGIN
- KEY "Tipo anagrafica"
- FLAGS "H"
- FIELD 116@->TIPOA
- ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
- ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
-END
-
-STRINGA 1 
-BEGIN
-  KEY "CODICE FISCALE"
-  PROMPT 3 10  ""
-  FIELD 116@->COFI
-END
-
-STRINGA 2
-BEGIN
-  KEY "RAGIONE SOCIALE"
-  PROMPT 39 10  ""
-  FIELD 116@->RAGSOC
-  GROUP 2
-END
-
-STRINGA 3
-BEGIN
-  KEY "COGNOME"
-  PROMPT 39 10 ""
-  FIELD 116@->RAGSOC[1,30]
-  GROUP 1
-END  
-
-STRINGA 4
-BEGIN
-  KEY "NOME"
-  PROMPT 17 12 ""
-  FIELD 116@->RAGSOC[31,50]
-  GROUP 1
-END  
-
-STRINGA 5
-BEGIN
-  KEY "SESSO"
-  PROMPT 58 12 ""
-  FIELD 118@->SESSO
-  GROUP 1
-END  
-  
-STRINGA 6
-BEGIN
-  KEY "DATA DI NASCITA"
-  PROMPT 66 12 ""
-  FIELD 118@->DATANASC
-  GROUP 1
-END  
-  
-STRINGA 7
-BEGIN
-  KEY "COMUNE DI NASCITA"
-  PROMPT 83 12 ""
-  FIELD 113@->DENCOM
-  GROUP 1
-END  
-  
-STRINGA 8
-BEGIN
-  KEY "PROV. DI NASCITA"
-  PROMPT 125 12 ""
-  FIELD 113@->PROVCOM
-  GROUP 1
-END  
-  
-STRINGA 10
-BEGIN
-  KEY "COMUNE DI RES.FISCALE"
-  PROMPT 17 14 ""
-  FIELD 213@->DENCOM
-END  
-  
-STRINGA 11
-BEGIN
-  KEY "PROV DI RES.FISCALE"
-  PROMPT 59 14 ""
-  FIELD 213@->PROVCOM
-END  
-  
-STRINGA 12
-BEGIN
-  KEY "VIA di RES."
-  PROMPT 67 14  ""
-  FIELD 116@->INDRF  
-  FIELD 116@->INDRES
-  FLAGS "H"
-  MESSAGE COPY,17
-END  
-  
-STRINGA 15
-BEGIN
-  KEY "NUM. CIVICO di RES."
-  PROMPT 103 14 ""
-  FIELD 116@->CIVRF 
-  FIELD 116@->CIVRES 
-  FLAGS "H"
-  MESSAGE APPEND,17
-END  
-
-STRINGA 17
-BEGIN
-  KEY "VIA + NUM CIV. DI RES."
-  PROMPT 67 14 ""
-END
-  
-STRINGA 16
-BEGIN
-  KEY "CAP"
-  PROMPT 124 14 ""
-  FIELD 116@->CAPRF 
-  FIELD 116@->CAPRES
-END  
-
-STRINGA 13
-BEGIN
-  KEY "CODICE FISCALE DICHIARANTE"
-  PROMPT 105 17  ""
-END
-
-NUMBER 14
-BEGIN
-  KEY "NUM. FOGLIO"
-  PROMPT 125 19  ""
-  FLAGS "H"
-END
-
-END
-
-SECTION BODY ODD 2
-
-STRINGA 1
-BEGIN
-  KEY "ENTE PREVIDENZIALE"
-  PROMPT 8 1 ""
-  FIELD 214@->S0
-END
-
-NUMBER 2
-BEGIN
-  KEY "CONTR.OBB. CARICO DATORE LAVORO"
-  PROMPT 88 1 ""  
-  PICTURE "###.###.###^^^"    
-  MESSAGE ADD,FL->2
-  FIELD 43->H1DAT
-END
-
-NUMBER 3
-BEGIN
-  KEY "CONTR.OBB. CARICO DIPENDENTE"
-  PROMPT 119 1 ""    
-  PICTURE "###.###.###^^^"  
-  MESSAGE ADD,FL->3
-  FIELD 43->H1LAV         
-END
-
-END
-
-SECTION FOOTER LAST 2
-
-NUMBER 2
-BEGIN
-  KEY "TOTALE CONTR.OBB. DATORE LAVORO"
-  PROMPT 88 1 ""            
-  PICTURE "###.###.###^^^"    
-END
-
-NUMBER 3
-BEGIN
-  KEY "TOTALE CONTR.OBB DIPENDENTE."
-  PROMPT 119 1 ""            
-  PICTURE "###.###.###^^^"    
-END
-
-END
+USE 43
+JOIN  9 TO  43 INTO CODDITTA=CODDITTA
+JOIN  6 TO   9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN  8 TO   6 ALIAS 118 INTO CODANAGR=CODANAGR
+JOIN 13 TO   8 ALIAS 113 INTO COM=COMNASC
+JOIN 13 TO   6 ALIAS 213 INTO COM=COMRF(COMRES)
+JOIN %ENT TO 43 ALIAS 214 INTO CODTAB=H1ENTE
+END
+
+DESCRIPTION
+BEGIN
+  61->* "Quadro H 770"
+  9->* "Ditte"
+  6->* "Anagrafica persone fisiche e giuridiche"
+  8->* "Anagrafica persone fisiche"
+  113@->* "Comuni"
+  213@->* "Comuni"
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Courier 17cpi"
+  SIZE 11
+  CA "X"           
+  IN 3 2
+  FI 131
+END
+
+SECTION HEADER FIRST 22
+
+LISTA 9
+BEGIN
+ KEY "Tipo anagrafica"
+ FLAGS "H"
+ FIELD 116@->TIPOA
+ ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
+ ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
+END
+
+STRINGA 1 
+BEGIN
+  KEY "CODICE FISCALE"
+  PROMPT 3 10  ""
+  FIELD 116@->COFI
+END
+
+STRINGA 2
+BEGIN
+  KEY "RAGIONE SOCIALE"
+  PROMPT 39 10  ""
+  FIELD 116@->RAGSOC
+  GROUP 2
+END
+
+STRINGA 3
+BEGIN
+  KEY "COGNOME"
+  PROMPT 39 10 ""
+  FIELD 116@->RAGSOC[1,30]
+  GROUP 1
+END  
+
+STRINGA 4
+BEGIN
+  KEY "NOME"
+  PROMPT 17 12 ""
+  FIELD 116@->RAGSOC[31,50]
+  GROUP 1
+END  
+
+STRINGA 5
+BEGIN
+  KEY "SESSO"
+  PROMPT 58 12 ""
+  FIELD 118@->SESSO
+  GROUP 1
+END  
+  
+STRINGA 6
+BEGIN
+  KEY "DATA DI NASCITA"
+  PROMPT 66 12 ""
+  FIELD 118@->DATANASC
+  GROUP 1
+END  
+  
+STRINGA 7
+BEGIN
+  KEY "COMUNE DI NASCITA"
+  PROMPT 83 12 ""
+  FIELD 113@->DENCOM
+  GROUP 1
+END  
+  
+STRINGA 8
+BEGIN
+  KEY "PROV. DI NASCITA"
+  PROMPT 125 12 ""
+  FIELD 113@->PROVCOM
+  GROUP 1
+END  
+  
+STRINGA 10
+BEGIN
+  KEY "COMUNE DI RES.FISCALE"
+  PROMPT 17 14 ""
+  FIELD 213@->DENCOM
+END  
+  
+STRINGA 11
+BEGIN
+  KEY "PROV DI RES.FISCALE"
+  PROMPT 59 14 ""
+  FIELD 213@->PROVCOM
+END  
+  
+STRINGA 12
+BEGIN
+  KEY "VIA di RES."
+  PROMPT 67 14  ""
+  FIELD 116@->INDRF  
+  FIELD 116@->INDRES
+  FLAGS "H"
+  MESSAGE COPY,17
+END  
+  
+STRINGA 15
+BEGIN
+  KEY "NUM. CIVICO di RES."
+  PROMPT 103 14 ""
+  FIELD 116@->CIVRF 
+  FIELD 116@->CIVRES 
+  FLAGS "H"
+  MESSAGE APPEND,17
+END  
+
+STRINGA 17
+BEGIN
+  KEY "VIA + NUM CIV. DI RES."
+  PROMPT 67 14 ""
+END
+  
+STRINGA 16
+BEGIN
+  KEY "CAP"
+  PROMPT 124 14 ""
+  FIELD 116@->CAPRF 
+  FIELD 116@->CAPRES
+END  
+
+STRINGA 13
+BEGIN
+  KEY "CODICE FISCALE DICHIARANTE"
+  PROMPT 105 17  ""
+END
+
+NUMBER 14
+BEGIN
+  KEY "NUM. FOGLIO"
+  PROMPT 125 19  ""
+  FLAGS "H"
+END
+
+END
+
+SECTION BODY ODD 2
+
+STRINGA 1
+BEGIN
+  KEY "ENTE PREVIDENZIALE"
+  PROMPT 8 1 ""
+  FIELD 214@->S0
+END
+
+NUMBER 2
+BEGIN
+  KEY "CONTR.OBB. CARICO DATORE LAVORO"
+  PROMPT 88 1 ""  
+  PICTURE "###.###.###^^^"    
+  MESSAGE ADD,FL->2
+  FIELD 43->H1DAT
+END
+
+NUMBER 3
+BEGIN
+  KEY "CONTR.OBB. CARICO DIPENDENTE"
+  PROMPT 119 1 ""    
+  PICTURE "###.###.###^^^"  
+  MESSAGE ADD,FL->3
+  FIELD 43->H1LAV         
+END
+
+END
+
+SECTION FOOTER LAST 2
+
+NUMBER 2
+BEGIN
+  KEY "TOTALE CONTR.OBB. DATORE LAVORO"
+  PROMPT 88 1 ""            
+  PICTURE "###.###.###^^^"    
+END
+
+NUMBER 3
+BEGIN
+  KEY "TOTALE CONTR.OBB DIPENDENTE."
+  PROMPT 119 1 ""            
+  PICTURE "###.###.###^^^"    
+END
+
+END
diff --git a/m770/77ql.frm b/m770/77ql.frm
index fb399f564..89f99a00e 100755
--- a/m770/77ql.frm
+++ b/m770/77ql.frm
@@ -1,302 +1,302 @@
-USE 42
-JOIN 37 INTO CODDITTA=CODDITTA
-JOIN 9 INTO CODDITTA=CODDITTA
-JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
-JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
-JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
-END
-
-DESCRIPTION
-BEGIN
-  36->* "Base 770"
-  37->* "Basebis 770"
-END
-
-GENERAL
-BEGIN
-  OFFSET 0 0
-  FONT "Courier 17cpi"
-  SIZE 10
-  CA "X"           
-  IN 3 2
-  FI 131
-END
-
-SECTION HEADER FIRST 10
-
-LISTA 1
-BEGIN
- KEY "Tipo anagrafica"
- FLAGS "H"
- FIELD 106@->TIPOA
- ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
- ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
-END
-
-STRINGA 2
-BEGIN
- KEY "CODICE FISCALE"
- PROMPT 21 1 ""
- FIELD 106@->COFI
-END
-
-STRINGA 3
-BEGIN
- KEY "RAGIONE SOCIALE (o cognome)"
- PROMPT 51 1 ""
- GROUP  2
- FIELD 106@->RAGSOC
-END
-
-STRINGA 4
-BEGIN
- KEY "COGNOME (o ragsoc)"
- PROMPT 51 1 ""
- GROUP  1
- FIELD 106@->RAGSOC[1,30]
-END
-
-STRINGA 5
-BEGIN
- KEY "NOME"
- PROMPT 21 4 ""
- GROUP  1
- FIELD 106@->RAGSOC[31,50]
-END
-
-LISTA 6
-BEGIN
-  KEY "SESSO M"
-  PROMPT 53 4 ""  
-  ITEM " | "
-  ITEM "M|X"
-  ITEM "F|"
-  FIELD 108@->SESSO
-  GROUP 1
-END  
-
-LISTA 7
-BEGIN
-  KEY "SESSO F"
-  PROMPT 62 4 ""
-  ITEM " | "  
-  ITEM "M|"
-  ITEM "F|X"
-  FIELD 108@->SESSO
-  GROUP 1
-END  
-  
-STRINGA 8
-BEGIN
-  KEY "DATA DI NASCITA"
-  PROMPT 68 4 ""
-  GROUP  1
-  FIELD 108@->DATANASC
-  PICTURE "## ^ ##  ^^###"  
-END
-
-STRINGA 9
-BEGIN
- KEY "COMUNE DI NASCITA"
- PROMPT 85 4 ""
- GROUP  1
- FIELD 113@->DENCOM
-END
-
-STRINGA 10
-BEGIN
- KEY "PROV. DI NASCITA"
- PROMPT 129 4 ""
- GROUP  1
- FIELD 113@->PROVCOM
-END
-           
-STRINGA 11
-BEGIN
- KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
- PROMPT 56 6 ""
-END
-
-STRINGA 12
-BEGIN
-  KEY "Cod.Conc.1"
-  PROMPT 41 9 ""
-  FIELD 37->L0CCONC1
-END
-
-STRINGA 13
-BEGIN
-  KEY "Cod.Conc.2"
-  PROMPT 53 9 ""
-  FIELD 37->L0CCONC2
-END
-
-STRINGA 14
-BEGIN
-  KEY "Cod.Conc.3"
-  PROMPT 63 9 ""
-  FIELD 37->L0CCONC3
-END
-
-NUMERO 15
-BEGIN
-  KEY "Cod.Tes.1"
-  PROMPT 102 9 ""
-  FIELD 37->L0CTES1
-END
-
-NUMERO 16
-BEGIN
-  KEY "Cod.Tes.2"
-  PROMPT 114 9 ""
-  FIELD 37->L0CTES2
-END
-
-NUMERO 17
-BEGIN
-  KEY "Cod.Tes.3"
-  PROMPT 126 9 ""
-  FIELD 37->L0CTES3
-END
-
-END
-
-SECTION BODY ODD 4
-
-NUMERO 1
-BEGIN
-  KEY "Mese rif."
-  PROMPT 26 1 ""
-  FIELD 42->QLMP
-END
-
-NUMERO 2
-BEGIN
-  KEY "Anno rif."
-  PROMPT 29 1 ""
-  FIELD 42->QLAP
-END
-
-NUMERO 3
-BEGIN
-  KEY "Rit.eff"
-  PROMPT 48 1 ""
-  FIELD 42->QLRITEFF
-  PICTURE "###.###.###.###^^^"  
-  MESSAGE ADD,FL->1
-END
-
-NUMERO 4
-BEGIN
-  KEY "Rit.ver"
-  PROMPT 79 1 ""
-  FIELD 42->QLRITVER
-  PICTURE "###.###.###.###^^^"  
-  MESSAGE ADD,FL->2  
-END
-
-LISTA 5
-BEGIN
-  KEY "RSS"
-  PROMPT 100 1 ""      
-  ITEM " | "
-  ITEM "1|VA" 
-  ITEM "2|SA"
-  ITEM "3|SI"    
-  FIELD 42->QLRSS
-END
-
-STRINGA 6
-BEGIN
-  KEY "Note"
-  PROMPT 111 1 ""
-  FIELD 42->QLNOTE
-END
-
-STRINGA 7
-BEGIN
-  KEY "Luogo Vers."
-  PROMPT 28 3 ""
-  FIELD 42->QLLV
-END
-
-STRINGA 8
-BEGIN
-  KEY "Tipo Vers."
-  PROMPT 36 3 ""
-  FIELD 42->QLTV
-END
-
-STRINGA 9
-BEGIN
-  KEY "CodTrib"
-  PROMPT 47 3 ""
-  FIELD 42->QLCT
-END
-
-STRINGA 10
-BEGIN
-  KEY "Art.Bil."
-  PROMPT 54 3 ""
-  FIELD 42->QLAB
-END
-
-STRINGA 11
-BEGIN
-  KEY "DATA VERS."
-  PROMPT 63 3 ""
-  FIELD 42->QLDV
-  PICTURE "## ^ ##  ^####" 
-END  
-  
-STRINGA 12
-BEGIN
-  KEY "SERIE"
-  PROMPT 84 3 ""
-  FIELD 42->QLSERIE
-END
-
-STRINGA 13
-BEGIN
-  KEY "NUMERO"
-  PROMPT 99 3 ""
-  FIELD 42->QLNUMERO[1,5]  
-END
-
-END
-
-SECTION FOOTER LAST 2
-
-NUMERO 1
-BEGIN
-  KEY "Tot.rit.eff"
-  PROMPT 51 1 ""
-  PICTURE "###.###.###.###^^^"    
-END
-
-NUMERO 2
-BEGIN
-  KEY "Tot.rit.ver"
-  PROMPT 102 1 ""               
-  PICTURE "###.###.###.###^^^"    
-END
-
-STRINGA 3
-BEGIN
-  KEY "DATA"
-  PROMPT 50 5 ""
-END
-
-STRINGA 4
-BEGIN
-  KEY "FIRMA"
-  PROMPT 120 5 ""
-END
-
-END
-
-END
-
-
-
+USE 42
+JOIN 37 INTO CODDITTA=CODDITTA
+JOIN 9 INTO CODDITTA=CODDITTA
+JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
+JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
+JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
+END
+
+DESCRIPTION
+BEGIN
+  36->* "Base 770"
+  37->* "Basebis 770"
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Courier 17cpi"
+  SIZE 10
+  CA "X"           
+  IN 3 2
+  FI 131
+END
+
+SECTION HEADER FIRST 10
+
+LISTA 1
+BEGIN
+ KEY "Tipo anagrafica"
+ FLAGS "H"
+ FIELD 106@->TIPOA
+ ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
+ ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
+END
+
+STRINGA 2
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 21 1 ""
+ FIELD 106@->COFI
+END
+
+STRINGA 3
+BEGIN
+ KEY "RAGIONE SOCIALE (o cognome)"
+ PROMPT 51 1 ""
+ GROUP  2
+ FIELD 106@->RAGSOC
+END
+
+STRINGA 4
+BEGIN
+ KEY "COGNOME (o ragsoc)"
+ PROMPT 51 1 ""
+ GROUP  1
+ FIELD 106@->RAGSOC[1,30]
+END
+
+STRINGA 5
+BEGIN
+ KEY "NOME"
+ PROMPT 21 4 ""
+ GROUP  1
+ FIELD 106@->RAGSOC[31,50]
+END
+
+LISTA 6
+BEGIN
+  KEY "SESSO M"
+  PROMPT 53 4 ""  
+  ITEM " | "
+  ITEM "M|X"
+  ITEM "F|"
+  FIELD 108@->SESSO
+  GROUP 1
+END  
+
+LISTA 7
+BEGIN
+  KEY "SESSO F"
+  PROMPT 62 4 ""
+  ITEM " | "  
+  ITEM "M|"
+  ITEM "F|X"
+  FIELD 108@->SESSO
+  GROUP 1
+END  
+  
+STRINGA 8
+BEGIN
+  KEY "DATA DI NASCITA"
+  PROMPT 68 4 ""
+  GROUP  1
+  FIELD 108@->DATANASC
+  PICTURE "## ^ ##  ^^###"  
+END
+
+STRINGA 9
+BEGIN
+ KEY "COMUNE DI NASCITA"
+ PROMPT 85 4 ""
+ GROUP  1
+ FIELD 113@->DENCOM
+END
+
+STRINGA 10
+BEGIN
+ KEY "PROV. DI NASCITA"
+ PROMPT 129 4 ""
+ GROUP  1
+ FIELD 113@->PROVCOM
+END
+           
+STRINGA 11
+BEGIN
+ KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
+ PROMPT 56 6 ""
+END
+
+STRINGA 12
+BEGIN
+  KEY "Cod.Conc.1"
+  PROMPT 41 9 ""
+  FIELD 37->L0CCONC1
+END
+
+STRINGA 13
+BEGIN
+  KEY "Cod.Conc.2"
+  PROMPT 53 9 ""
+  FIELD 37->L0CCONC2
+END
+
+STRINGA 14
+BEGIN
+  KEY "Cod.Conc.3"
+  PROMPT 63 9 ""
+  FIELD 37->L0CCONC3
+END
+
+NUMERO 15
+BEGIN
+  KEY "Cod.Tes.1"
+  PROMPT 102 9 ""
+  FIELD 37->L0CTES1
+END
+
+NUMERO 16
+BEGIN
+  KEY "Cod.Tes.2"
+  PROMPT 114 9 ""
+  FIELD 37->L0CTES2
+END
+
+NUMERO 17
+BEGIN
+  KEY "Cod.Tes.3"
+  PROMPT 126 9 ""
+  FIELD 37->L0CTES3
+END
+
+END
+
+SECTION BODY ODD 4
+
+NUMERO 1
+BEGIN
+  KEY "Mese rif."
+  PROMPT 26 1 ""
+  FIELD 42->QLMP
+END
+
+NUMERO 2
+BEGIN
+  KEY "Anno rif."
+  PROMPT 29 1 ""
+  FIELD 42->QLAP
+END
+
+NUMERO 3
+BEGIN
+  KEY "Rit.eff"
+  PROMPT 48 1 ""
+  FIELD 42->QLRITEFF
+  PICTURE "###.###.###.###^^^"  
+  MESSAGE ADD,FL->1
+END
+
+NUMERO 4
+BEGIN
+  KEY "Rit.ver"
+  PROMPT 79 1 ""
+  FIELD 42->QLRITVER
+  PICTURE "###.###.###.###^^^"  
+  MESSAGE ADD,FL->2  
+END
+
+LISTA 5
+BEGIN
+  KEY "RSS"
+  PROMPT 100 1 ""      
+  ITEM " | "
+  ITEM "1|VA" 
+  ITEM "2|SA"
+  ITEM "3|SI"    
+  FIELD 42->QLRSS
+END
+
+STRINGA 6
+BEGIN
+  KEY "Note"
+  PROMPT 111 1 ""
+  FIELD 42->QLNOTE
+END
+
+STRINGA 7
+BEGIN
+  KEY "Luogo Vers."
+  PROMPT 28 3 ""
+  FIELD 42->QLLV
+END
+
+STRINGA 8
+BEGIN
+  KEY "Tipo Vers."
+  PROMPT 36 3 ""
+  FIELD 42->QLTV
+END
+
+STRINGA 9
+BEGIN
+  KEY "CodTrib"
+  PROMPT 47 3 ""
+  FIELD 42->QLCT
+END
+
+STRINGA 10
+BEGIN
+  KEY "Art.Bil."
+  PROMPT 54 3 ""
+  FIELD 42->QLAB
+END
+
+STRINGA 11
+BEGIN
+  KEY "DATA VERS."
+  PROMPT 63 3 ""
+  FIELD 42->QLDV
+  PICTURE "## ^ ##  ^####" 
+END  
+  
+STRINGA 12
+BEGIN
+  KEY "SERIE"
+  PROMPT 84 3 ""
+  FIELD 42->QLSERIE
+END
+
+STRINGA 13
+BEGIN
+  KEY "NUMERO"
+  PROMPT 99 3 ""
+  FIELD 42->QLNUMERO[1,5]  
+END
+
+END
+
+SECTION FOOTER LAST 2
+
+NUMERO 1
+BEGIN
+  KEY "Tot.rit.eff"
+  PROMPT 51 1 ""
+  PICTURE "###.###.###.###^^^"    
+END
+
+NUMERO 2
+BEGIN
+  KEY "Tot.rit.ver"
+  PROMPT 102 1 ""               
+  PICTURE "###.###.###.###^^^"    
+END
+
+STRINGA 3
+BEGIN
+  KEY "DATA"
+  PROMPT 50 5 ""
+END
+
+STRINGA 4
+BEGIN
+  KEY "FIRMA"
+  PROMPT 120 5 ""
+END
+
+END
+
+END
+
+
+
diff --git a/m770/77qn.frm b/m770/77qn.frm
index ad53fd9d2..abdaca0cc 100755
--- a/m770/77qn.frm
+++ b/m770/77qn.frm
@@ -1,688 +1,443 @@
-USE 37                         
-JOIN 72 INTO CODDITTA=CODDITTA 
-JOIN 73 TO 37 INTO CODDITTA=CODDITTA
-JOIN 74 TO 37 INTO CODDITTA=CODDITTA
-JOIN 75 TO 37 INTO CODDITTA=CODDITTA
-JOIN 76 TO 37 INTO CODDITTA=CODDITTA
-JOIN 77 TO 37 INTO CODDITTA=CODDITTA
-JOIN 36 TO 37 INTO CODDITTA=CODDITTA 
-JOIN %CAF TO 36 ALIAS 104 INTO CODTAB==CODCAAF
-JOIN 9 TO 36 INTO CODDITTA=CODDITTA
-JOIN 6 TO  9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
-JOIN 8 TO 36 ALIAS 108 INTO CODANAGR==CODPRO
-JOIN 6 TO  8 ALIAS 106 INTO TIPOA="F" CODANAGR=CODANAGR 
-END
-
-DESCRIPTION
-BEGIN
-  36->* "Base 770"
-  37->* "Basebis 770" 
-  72->* "Quadro N"   
-  73->* "Quadro P"  
-  74->* "Quadro Q"  
-  75->* "Quadro R"  
-  76->* "Quadro S"          
-  77->* "Quadro T"  
-END
-
-GENERAL
-BEGIN
-  OFFSET 0 0
-  FONT "Courier 17cpi"
-  SIZE 10
-  CA "X"           
-  IN 3 2
-  FI 131
-END
-
-SECTION HEADER FIRST 7
-
-NUMERO 1
-BEGIN
-  KEY "M1"
-  PROMPT 61 1 ""
-  FIELD 37->ECCRIT12
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 2
-BEGIN
-  KEY "M2"
-  PROMPT 117 1 ""
-  FIELD 37->ECCRIT23              
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 3
-BEGIN
-  KEY "M3"
-  PROMPT 61 3 ""                  
-  FIELD 37->CRIMPDL
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 4
-BEGIN
-  KEY "M4"
-  PROMPT 61 5 ""
-  FIELD 37->CRIMPIVA    
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 5
-BEGIN
-  KEY "M5"
-  PROMPT 117 3 ""
-  FIELD 37->CRIMPRIT
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 6
-BEGIN
-  KEY "M6"
-  PROMPT 117 5 ""
-  FIELD 37->CRIMPRES
-  PICTURE "###.###.###.###^^^"      
-END
-
-END
-
-SECTION BODY ODD 1
-
-NUMERO 1
-BEGIN
-  KEY "MeseRif"
-  PROMPT 27 1 ""
-  FIELD 72->MESERIF
-END
-
-NUMERO 2
-BEGIN
-  KEY "AnnoRif"
-  PROMPT 31 1 ""
-  FIELD 72->ANNORIF
-END
-
-NUMERO 3
-BEGIN
-  KEY "imp. rimb"
-  PROMPT 39 1 ""
-  FIELD 72->IMPOSTA
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 4
-BEGIN
-  KEY "Compensi"
-  PROMPT 60 1 ""
-  FIELD 72->COMPENSI
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 5
-BEGIN
-  KEY "MeseRif"
-  PROMPT 85 1 ""
-  FIELD 72->MESERIF
-END
-
-NUMERO 6
-BEGIN
-  KEY "AnnoRif"
-  PROMPT 89 1 ""
-  FIELD 72->ANNORIF
-END
-
-NUMERO 7
-BEGIN
-  KEY "imp. rimb"
-  PROMPT 99 1 ""
-  FIELD 72->IMPOSTA
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 8
-BEGIN
-  KEY "Compensi"
-  PROMPT 119 1 ""
-  FIELD 72->COMPENSI
-  PICTURE "###.###.###.###^^^"      
-END
-
-END
-
-SECTION BODY EVEN 1
-
-NUMERO 1
-BEGIN
-  KEY "R - MeseRif"
-  PROMPT 27 1 ""
-  FIELD 75->MESERIF
-END
-
-NUMERO 2
-BEGIN
-  KEY "R - AnnoRif"
-  PROMPT 31 1 ""
-  FIELD 75->ANNORIF
-END
-
-NUMERO 3
-BEGIN
-  KEY "R - imp. rimb"
-  PROMPT 41 1 ""
-  FIELD 75->IMPRIMB
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 4
-BEGIN
-  KEY "R - Compensi"
-  PROMPT 62 1 ""
-  FIELD 75->COMPENSI
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 5
-BEGIN
-  KEY "R - MeseRif"
-  PROMPT 85 1 ""
-  FIELD 75->MESERIF
-END
-
-NUMERO 6
-BEGIN
-  KEY "R - AnnoRif"
-  PROMPT 89 1 ""
-  FIELD 75->ANNORIF
-END
-
-NUMERO 7
-BEGIN
-  KEY "R - imp. rimb"
-  PROMPT 99 1 ""
-  FIELD 75->IMPRIMB
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 8
-BEGIN
-  KEY "R - Compensi"
-  PROMPT 120 1 ""
-  FIELD 75->COMPENSI
-  PICTURE "###.###.###.###^^^"      
-END
-
-END
-
-SECTION HEADER EVEN 1
-
-NUMERO 1
-BEGIN
-  KEY "P Imp.versata"
-  PROMPT 24 1 ""
-  FIELD 73->IMPOSTA                 
-  PICTURE "###.###.###.###^^^"        
-END
-
-NUMERO 2
-BEGIN
-  KEY "P Inter.lav.dip"
-  PROMPT 41 1 ""
-  FIELD 73->INTERDIP
-  PICTURE "###.###.###.###^^^"        
-END
-
-NUMERO 3
-BEGIN
-  KEY "P Inter.dat.lav."
-  PROMPT 56 1 ""
-  FIELD 73->INTERDAT
-  PICTURE "###.###.###.###^^^"        
-END
-
-STRINGA 4
-BEGIN
-  KEY "P Modalita' vers"
-  PROMPT 76 1 ""
-  FIELD 73->TIPOVERS
-END
-
-STRINGA 5
-BEGIN
-  KEY "P Cod.trib"
-  PROMPT 82 1 ""
-  FIELD 73->CODTRIB
-END
-
-STRINGA 6
-BEGIN
-  KEY "P DATA VERS."
-  PROMPT 89 1 ""
-  FIELD 73->DATAVERS
-  PICTURE "## ^ ##  ^####" 
-END  
-
-STRINGA 7
-BEGIN
-  KEY "P Serie"
-  PROMPT 108 1 ""
-  FIELD 73->SERIE
-END
-  
-STRINGA 8
-BEGIN
-  KEY "P Numero"
-  PROMPT 117 1 ""
-  FIELD 73->NUMERO
-END
-
-END
-
-SECTION HEADER ODD 1
-
-NUMERO 1
-BEGIN
-  KEY "S Imp.versata"
-  PROMPT 24 1 ""
-  FIELD 76->IMPOSTA                 
-  PICTURE "###.###.###.###^^^"        
-END
-
-NUMERO 2
-BEGIN
-  KEY "S Inter.lav.dip"
-  PROMPT 41 1 ""
-  FIELD 76->INTERDIP
-  PICTURE "###.###.###.###^^^"        
-END
-
-NUMERO 3
-BEGIN
-  KEY "S Inter.dat.lav."
-  PROMPT 56 1 ""
-  FIELD 76->INTERDAT
-  PICTURE "###.###.###.###^^^"        
-END
-
-STRINGA 4
-BEGIN
-  KEY "S Modalita' vers"
-  PROMPT 76 1 ""
-  FIELD 73->TIPOVERS
-END
-
-STRINGA 5
-BEGIN
-  KEY "S Cod.trib"
-  PROMPT 82 1 ""
-  FIELD 76->CODTRIB
-END
-
-STRINGA 6
-BEGIN
-  KEY "S DATA VERS."
-  PROMPT 89 1 ""
-  FIELD 76->DATAVERS
-  PICTURE "## ^ ##  ^####" 
-END  
-
-STRINGA 7
-BEGIN
-  KEY "S Serie"
-  PROMPT 108 1 ""
-  FIELD 76->SERIE
-END
-  
-STRINGA 8
-BEGIN
-  KEY "S Numero"
-  PROMPT 117 1 ""
-  FIELD 76->NUMERO
-END
-
-END
-
-SECTION FOOTER EVEN 1
-
-NUMERO 1
-BEGIN
-  KEY "Q Mese paga"
-  PROMPT 27 1 ""
-  FIELD 74->MESEPAG
-END
-
-NUMERO 2
-BEGIN
-  KEY "Q Anno paga"
-  PROMPT 32 1 ""
-  FIELD 74->ANNOPAG
-END
-
-NUMERO 3
-BEGIN
-  KEY "Q Contr.versato"
-  PROMPT 41 1 ""
-  FIELD 74->CONTVERS
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 4
-BEGIN
-  KEY "Q Contr.rimborsati"
-  PROMPT 65 1 ""
-  FIELD 74->CONTRIMB
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 5
-BEGIN
-  KEY "Q Interes.e/o soprattasse"
-  PROMPT 94 1 ""
-  FIELD 74->INTERESSI
-  PICTURE "###.###.###.###^^^"      
-END
-
-STRINGA 6
-BEGIN
-  KEY "Q Cod.Reg"
-  PROMPT 123 1 ""
-  FIELD 74->CODREG
-END
-
-END
-
-SECTION FOOTER ODD 1
-
-NUMERO 1
-BEGIN
-  KEY "T Mese paga"
-  PROMPT 27 1 ""
-  FIELD 77->MESEPAG
-END
-
-NUMERO 2
-BEGIN
-  KEY "T Anno paga"
-  PROMPT 32 1 ""
-  FIELD 77->ANNOPAG
-END
-
-NUMERO 3
-BEGIN
-  KEY "T Contr.versato"
-  PROMPT 41 1 ""
-  FIELD 77->CONTVERS
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 4
-BEGIN
-  KEY "T Contr.rimborsati"
-  PROMPT 65 1 ""
-  FIELD 77->CONTRIMB
-  PICTURE "###.###.###.###^^^"      
-END
-
-NUMERO 5
-BEGIN
-  KEY "T Interes.e/o soprattasse"
-  PROMPT 94 1 ""
-  FIELD 77->INTERESSI
-  PICTURE "###.###.###.###^^^"      
-END
-
-STRINGA 6
-BEGIN
-  KEY "T Cod.Reg"
-  PROMPT 123 1 ""
-  FIELD 77->CODREG
-END
-
-END
-
-SECTION FOOTER FIRST 25
-
-STRINGA 650
-BEGIN
- KEY "Quadro A" 
- PROMPT 19 3 ""
- FIELD 37->QCOMP[1,1]
-END
-
-STRINGA 653
-BEGIN
- KEY "Quadro A3" 
- PROMPT 24 3 ""
- FIELD 37->QCOMP[4,4]
-END
-
-STRINGA 660
-BEGIN
- KEY "Quadro B" 
- PROMPT 29 3 ""
- FIELD 37->QCOMP[5,5]
-END
-
-STRINGA 661
-BEGIN
- KEY "Quadro B1" 
- PROMPT 34 3 ""
- FIELD 37->QCOMP[6,6]
-END
-
-STRINGA 670
-BEGIN
- KEY "Quadro C" 
- PROMPT 39 3 ""
- FIELD 37->QCOMP[7,7]
-END
-
-STRINGA 680
-BEGIN
- KEY "Quadro D" 
- PROMPT 44 3 ""
- FIELD 37->QCOMP[8,8]
-END
-
-STRINGA 681
-BEGIN
- KEY "Quadro D1" 
- PROMPT 49 3 ""
- FIELD 37->QCOMP[9,9]
-END
-
-STRINGA 690
-BEGIN
- KEY "Quadro E" 
- PROMPT 54 3 ""
- FIELD 37->QCOMP[10,10]
-END
-
-STRINGA 691
-BEGIN
- KEY "Quadro E1" 
- PROMPT 60 3 ""
- FIELD 37->QCOMP[11,11]
-END
-
-STRINGA 692
-BEGIN
- KEY "Quadro E2" 
- PROMPT 65 3 ""
- FIELD 37->QCOMP[12,12]
-END
-
-STRINGA 700
-BEGIN
- KEY "Quadro F" 
- PROMPT 70 3 ""
- FIELD 37->QCOMP[13,13]
-END
-
-STRINGA 701
-BEGIN
- KEY "Quadro F1" 
- PROMPT 75 3 ""
- FIELD 37->QCOMP[14,14]
-END
-
-STRINGA 702
-BEGIN
- KEY "Quadro F2" 
- PROMPT 80 3 ""
- FIELD 37->QCOMP[15,15]
-END
-
-STRINGA 710
-BEGIN
- KEY "Quadro G" 
- PROMPT 85 3 ""
- FIELD 37->QCOMP[16,16]
-END
-
-STRINGA 711
-BEGIN
- KEY "Quadro G1" 
- PROMPT 90 3 ""
- FIELD 37->QCOMP[17,17]
-END
-
-STRINGA 720
-BEGIN
- KEY "Quadro H" 
- PROMPT 95 3 ""
- FIELD 37->QCOMP[18,18]
-END
-
-STRINGA 730
-BEGIN
- KEY "Quadro I" 
- PROMPT 100 3 ""
- FIELD 37->QCOMP[19,19]
-END
-
-STRINGA 651
-BEGIN
- KEY "Quadro A1" 
- PROMPT 19 7 ""
- FIELD 37->QCOMP[2,2]
-END
-
-STRINGA 652
-BEGIN
- KEY "Quadro A2" 
- PROMPT 24 7 ""
- FIELD 37->QCOMP[3,3]
-END
-
-STRINGA 760
-BEGIN
- KEY "Quadro N" 
- PROMPT 29 7 ""
- FIELD 37->QCOMP[20,20]
-END
-
-STRINGA 780
-BEGIN
- KEY "Quadro P" 
- PROMPT 35 7 ""
- FIELD 37->QCOMP[21,21]
-END
-
-STRINGA 790
-BEGIN
- KEY "Quadro Q" 
- PROMPT 40 7 ""
- FIELD 37->QCOMP[22,22]
-END
-
-STRINGA 800
-BEGIN
- KEY "Quadro R" 
- PROMPT 45 7 ""
- FIELD 37->QCOMP[23,23]
-END
-
-STRINGA 810
-BEGIN
- KEY "Quadro S" 
- PROMPT 50 7 ""
- FIELD 37->QCOMP[24,24]
-END
-
-STRINGA 820
-BEGIN
- KEY "Quadro T" 
- PROMPT 55 7 ""
- FIELD 37->QCOMP[25,25]
-END
-
-STRINGA 821
-BEGIN                    
-  PROMPT 80 9 ""
-  KEY "Numero quadri aggiuntivi"
-  FIELD 37->H0NQLAGG
-END
-
-STRINGA 822
-BEGIN        
-  PROMPT 72 11 ""
-  KEY "Numero quadri su supporto magnetico"
-  FIELD 37->NSUPPM
-END
-
-DATA 823
-BEGIN
-  KEY "Data"
-  PROMPT 29 16 ""
-END
-
-STRINGA 824
-BEGIN         
-  KEY "Presidente"
-  PROMPT 51 15 ""
-END
-
-STRINGA 825 
-BEGIN
-  KEY "Dichiarante"
-  PROMPT 95 15 ""
-  FIELD 6->RAGSOC
-END
-
-STRINGA 826
-BEGIN
- KEY "CODICE FISCALE CAAF"
- PROMPT 48 18 ""
- FIELD 104@->S1
-END
-
-NUMERO 827
-BEGIN
- KEY "NUMERO ISCRIZIONE ALBO"
- PROMPT 122 18 ""
- FIELD 104@->I1
- PICTURE "#####"
-END
-
-STRINGA 828
-BEGIN
- KEY "CODICE FISCALE PROF."
- PROMPT 92 20 ""
- FIELD 106@->COFI
-END
-
-STRINGA 829
-BEGIN
-  KEY "FIRMA"
-  PROMPT 84 25 ""
-  FIELD 106@->RAGSOC
-END
-
-END
-
-END
-
-
-
+USE 37                         
+JOIN 9 INTO CODDITTA=CODDITTA
+JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
+JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
+JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
+JOIN 72 TO 37 INTO CODDITTA=CODDITTA 
+JOIN 73 TO 37 INTO CODDITTA=CODDITTA
+JOIN 74 TO 37 INTO CODDITTA=CODDITTA
+JOIN 75 TO 37 INTO CODDITTA=CODDITTA
+JOIN 76 TO 37 INTO CODDITTA=CODDITTA
+JOIN 77 TO 37 INTO CODDITTA=CODDITTA
+JOIN 36 TO 37 INTO CODDITTA=CODDITTA 
+JOIN %CAF TO 36 ALIAS 104 INTO CODTAB==CODCAAF
+JOIN 9 TO 36 INTO CODDITTA=CODDITTA
+JOIN 6 TO  9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
+JOIN 8 TO 36 ALIAS 108 INTO CODANAGR==CODPRO
+JOIN 6 TO  8 ALIAS 106 INTO TIPOA="F" CODANAGR=CODANAGR 
+END
+
+DESCRIPTION
+BEGIN
+  36->* "Base 770"
+  37->* "Basebis 770" 
+  72->* "Quadro N"   
+  73->* "Quadro P"  
+  74->* "Quadro Q"  
+  75->* "Quadro R"  
+  76->* "Quadro S"          
+  77->* "Quadro T"  
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Courier 17cpi"
+  SIZE 10
+  CA "X"           
+  IN 3 2
+  FI 131
+END
+
+SECTION HEADER FIRST 7
+
+LISTA 1
+BEGIN
+ KEY "Tipo anagrafica"
+ FLAGS "H"
+ FIELD 106@->TIPOA
+ ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
+ ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
+END
+
+STRINGA 2
+BEGIN
+ KEY "CODICE FISCALE"
+ PROMPT 21 1 ""
+ FIELD 106@->COFI
+END
+
+STRINGA 3
+BEGIN
+ KEY "RAGIONE SOCIALE (o cognome)"
+ PROMPT 51 1 ""
+ GROUP  2
+ FIELD 106@->RAGSOC
+END
+
+STRINGA 4
+BEGIN
+ KEY "COGNOME (o ragsoc)"
+ PROMPT 51 1 ""
+ GROUP  1
+ FIELD 106@->RAGSOC[1,30]
+END
+
+STRINGA 5
+BEGIN
+ KEY "NOME"
+ PROMPT 21 4 ""
+ GROUP  1
+ FIELD 106@->RAGSOC[31,50]
+END
+
+LISTA 6
+BEGIN
+  KEY "SESSO M"
+  PROMPT 53 4 ""  
+  ITEM " | "
+  ITEM "M|X"
+  ITEM "F|"
+  FIELD 108@->SESSO
+  GROUP 1
+END  
+
+LISTA 7
+BEGIN
+  KEY "SESSO F"
+  PROMPT 62 4 ""
+  ITEM " | "  
+  ITEM "M|"
+  ITEM "F|X"
+  FIELD 108@->SESSO
+  GROUP 1
+END  
+  
+STRINGA 8
+BEGIN
+  KEY "DATA DI NASCITA"
+  PROMPT 68 4 ""
+  GROUP  1
+  FIELD 108@->DATANASC
+  PICTURE "## ^ ##  ^^###"  
+END
+
+STRINGA 9
+BEGIN
+ KEY "COMUNE DI NASCITA"
+ PROMPT 85 4 ""
+ GROUP  1
+ FIELD 113@->DENCOM
+END
+
+STRINGA 10
+BEGIN
+ KEY "PROV. DI NASCITA"
+ PROMPT 129 4 ""
+ GROUP  1
+ FIELD 113@->PROVCOM
+END
+           
+STRINGA 11
+BEGIN
+ KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
+ PROMPT 56 6 ""
+END
+
+END
+
+SECTION BODY ODD 1
+
+NUMERO 1
+BEGIN
+  KEY "MeseRif"
+  PROMPT 25 1 ""
+  FIELD 72->MESERIF
+END
+
+NUMERO 2
+BEGIN
+  KEY "AnnoRif"
+  PROMPT 28 1 ""
+  FIELD 72->ANNORIF
+END
+
+NUMERO 3
+BEGIN
+  KEY "imp. rimb"
+  PROMPT 37 1 ""
+  FIELD 72->IMPOSTA
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 4
+BEGIN
+  KEY "Compensi"
+  PROMPT 58 1 ""
+  FIELD 72->COMPENSI
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 5
+BEGIN
+  KEY "MeseRif"
+  PROMPT 83 1 ""
+  FIELD 72->MESERIF
+END
+
+NUMERO 6
+BEGIN
+  KEY "AnnoRif"
+  PROMPT 86 1 ""
+  FIELD 72->ANNORIF
+END
+
+NUMERO 7
+BEGIN
+  KEY "imp. rimb"
+  PROMPT 96 1 ""
+  FIELD 72->IMPOSTA
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 8
+BEGIN
+  KEY "Compensi"
+  PROMPT 116 1 ""
+  FIELD 72->COMPENSI
+  PICTURE "###.###.###.###^^^"      
+END
+
+END
+
+SECTION BODY EVEN 1
+
+NUMERO 1
+BEGIN
+  KEY "R - MeseRif"
+  PROMPT 25 1 ""
+  FIELD 75->MESERIF
+END
+
+NUMERO 2
+BEGIN
+  KEY "R - AnnoRif"
+  PROMPT 28 1 ""
+  FIELD 75->ANNORIF
+END
+
+NUMERO 3
+BEGIN
+  KEY "R - imp. rimb"
+  PROMPT 37 1 ""
+  FIELD 75->IMPRIMB
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 4
+BEGIN
+  KEY "R - Compensi"
+  PROMPT 58 1 ""
+  FIELD 75->COMPENSI
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 5
+BEGIN
+  KEY "R - MeseRif"
+  PROMPT 83 1 ""
+  FIELD 75->MESERIF
+END
+
+NUMERO 6
+BEGIN
+  KEY "R - AnnoRif"
+  PROMPT 86 1 ""
+  FIELD 75->ANNORIF
+END
+
+NUMERO 7
+BEGIN
+  KEY "R - imp. rimb"
+  PROMPT 96 1 ""
+  FIELD 75->IMPRIMB
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 8
+BEGIN
+  KEY "R - Compensi"
+  PROMPT 116 1 ""
+  FIELD 75->COMPENSI
+  PICTURE "###.###.###.###^^^"      
+END
+
+END
+
+SECTION HEADER EVEN 1
+
+NUMERO 1
+BEGIN
+  KEY "PS Imp.versata"
+  PROMPT 22 1 ""
+  PICTURE "###.###.###.###^^^"        
+END
+
+NUMERO 2
+BEGIN
+  KEY "PS Inter.lav.dip"
+  PROMPT 38 1 ""
+  PICTURE "###.###.###.###^^^"        
+END
+
+NUMERO 3
+BEGIN
+  KEY "PS Inter.dat.lav."
+  PROMPT 53 1 ""
+  PICTURE "###.###.###.###^^^"        
+END
+
+STRINGA 4
+BEGIN
+  KEY "PS Modalita' vers"
+  PROMPT 73 1 ""
+END
+
+STRINGA 5
+BEGIN
+  KEY "PS Cod.trib"
+  PROMPT 80 1 ""
+END
+
+DATA 6
+BEGIN
+  KEY "PS DATA VERS."
+  PROMPT 89 1 ""
+  PICTURE "## ^ ## ^####" 
+END  
+
+STRINGA 7
+BEGIN
+  KEY "PS Serie"
+  PROMPT 107 1 ""
+END
+  
+STRINGA 8
+BEGIN
+  KEY "PS Numero"
+  PROMPT 117 1 ""
+END
+
+END
+
+SECTION FOOTER EVEN 1
+
+NUMERO 1
+BEGIN
+  KEY "Q Mese paga"
+  PROMPT 25 1 ""
+  FIELD 74->MESEPAG
+END
+
+NUMERO 2
+BEGIN
+  KEY "Q Anno paga"
+  PROMPT 28 1 ""
+  FIELD 74->ANNOPAG
+END
+
+NUMERO 3
+BEGIN
+  KEY "Q Contr.versato"
+  PROMPT 46 1 ""
+  FIELD 74->CONTVERS
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 4
+BEGIN
+  KEY "Q Contr.rimborsati"
+  PROMPT 75 1 ""
+  FIELD 74->CONTRIMB
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 5
+BEGIN
+  KEY "Q Interes.e/o soprattasse"
+  PROMPT 104 1 ""
+  FIELD 74->INTERESSI
+  PICTURE "###.###.###.###^^^"      
+END
+
+STRINGA 6
+BEGIN
+  KEY "Q Cod.Reg"
+  PROMPT 126 1 ""
+  FIELD 74->CODREG
+END
+
+END
+
+SECTION FOOTER ODD 1
+
+NUMERO 1
+BEGIN
+  KEY "T Mese paga"
+  PROMPT 25 1 ""
+  FIELD 77->MESEPAG
+END
+
+NUMERO 2
+BEGIN
+  KEY "T Anno paga"
+  PROMPT 28 1 ""
+  FIELD 77->ANNOPAG
+END
+
+NUMERO 3
+BEGIN
+  KEY "T Contr.versato"
+  PROMPT 46 1 ""
+  FIELD 77->CONTVERS
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 4
+BEGIN
+  KEY "T Contr.rimborsati"
+  PROMPT 75 1 ""
+  FIELD 77->CONTRIMB
+  PICTURE "###.###.###.###^^^"      
+END
+
+NUMERO 5
+BEGIN
+  KEY "T Interes.e/o soprattasse"
+  PROMPT 104 1 ""
+  FIELD 77->INTERESSI
+  PICTURE "###.###.###.###^^^"      
+END
+
+STRINGA 6
+BEGIN
+  KEY "T Cod.Reg"
+  PROMPT 126 1 ""
+  FIELD 77->CODREG
+END
+
+END
+
+SECTION FOOTER FIRST 4
+
+DATA 1
+BEGIN
+  KEY "Data"
+  PROMPT 29 1 ""
+  FLAGS "A"
+END
+
+STRINGA 2
+BEGIN
+  KEY "FIRMA"
+  PROMPT 90 1 ""
+  FIELD 106@->RAGSOC
+END
+
+END
+
+END
+
+
+
diff --git a/m770/77stba.cpp b/m770/77stba.cpp
index 41d1bfeae..9eeabc2c3 100755
--- a/m770/77stba.cpp
+++ b/m770/77stba.cpp
@@ -1,1089 +1,1455 @@
-// Stampa base
-#include "77stba.h"
-
-int TBase1::dic_form_len() const
-{
-  if (curr_page()==PRIMA && _PaginaPosizionamento)
-    return BASE_FORMLEN-HEADER_PRIMA_NOPOS;
-  else
-    return BASE_FORMLEN;
-}
-
-int TBase1::prima_riga(PaginaQuadro p) const
-{
-  if (p==PRIMA && _PaginaPosizionamento)
-    return 11;
-  else
-    return 11+HEADER_PRIMA_NOPOS;
-}
-
-TBase1::TBase1(const char* sNomeForm, const char* quadro)  : TDicForm(sNomeForm, quadro) 
-{
-  r = new TRelation(LF_SOCI);
-  r->add(LF_ANAG,    "TIPOA=TIPOASOC|CODANAGR=CODANAGRSO");
-  r->add(LF_ANAGFIS, "CODANAGR=CODANAGR",1, LF_ANAG);    
-  r->add(LF_COMUNI,  "COM=COMNASC",1,LF_ANAGFIS);
-  c = new TCursor(r);       
-  _bAllegSoci=FALSE;
-}
-
-TBase1::~TBase1()
-{
-  delete r;
-  delete c;
-}
-
-void TBase1::stampa_corpo(TPrinter& pr)
-{
-  TPrint_section& body = section('B', first_page);
-  body.reset();
-  body.update();       
-  const int body_righe = body.height();
-  for (int i = 0; i < body_righe; i++)
-  {
-    pr.print(body.row(i));
-    _RigaCorr++;
-  }
-  if (usa_progind())
-    progind()->addstatus(1);
-}
-
-// accetta solo quelli con qualifica=A,B o C
-bool bFiltraSoci(const TRelation* rel)
-{ 
-  TString sQual(3);
-  sQual = rel->lfile().get("RICQUAL"); 
-  return sQual=="A" || sQual=="B" || sQual=="C";
-}
-
-long TBase1::iContaSoci()
-{                  
-  TString filtro(20);
-  filtro.format("CODDITTA=%d",_codditta);
-  c->setfilter(filtro);
-  c->set_filterfunction(bFiltraSoci);
-  (*c)=0L;
-  return c->items();
-}
-
-const int _INIZIO_SOCI=53;
-void TBase1::stampa_soci(TPrinter& pr)
-{                                  
-  TPrint_section& fut = section('F', first_page);
-  fut.reset();
-  jump_to_line(pr,_INIZIO_SOCI);
-  const long iSoci = iContaSoci();
-  if (iSoci > 11)
-  {
-    _bAllegSoci=TRUE;
-    TPrintrow& rg=fut.row(0);    
-    rg.put("VEDERE ALLEGATO", 25);
-    pr.print(rg);      
-    _RigaCorr++;
-    if (usa_progind()) progind()->addstatus(1);
-  }
-  else
-  {    
-    int i=0;                             
-    TString sRagsoc,sSesso,sComuneNa,sProvNa,sDataNa,sCodFis,sCodQua;
-    for ((*c)=0L; c->pos() < c->items(); ++(*c))
-    {                         
-      TString sNome,sCognome;
-      TPrintrow& rg=fut.row(i++);
-      sCodQua=c->file().get("RICQUAL");       
-      sRagsoc=c->file(LF_ANAG).get("RAGSOC");
-      sCodFis=c->file(LF_ANAG).get("COFI");       
-      sDataNa=c->file(LF_ANAGFIS).get("DATANASC"); 
-      sSesso=c->file(LF_ANAGFIS).get("SESSO");
-      sComuneNa=c->file(LF_COMUNI).get("DENCOM");      
-      sComuneNa.cut(28);
-      sProvNa=c->file(LF_COMUNI).get("PROVCOM");      
-      fut.field(0).set(sRagsoc);  
-      sCognome=sRagsoc.left(30);
-      sCognome.trim();
-      sNome=sRagsoc.mid(30,0);
-      sNome.trim();
-      sRagsoc = sCognome;
-      sRagsoc << " " << sNome;
-      rg.put(sRagsoc,fut.field(0).x()-1);
-      fut.field(1).set(sSesso);          
-      rg.put(sSesso,fut.field(1).x()-1);      
-      fut.field(2).set(sComuneNa);       
-      rg.put(sComuneNa,fut.field(2).x()-1);      
-      fut.field(3).set(sProvNa);         
-      rg.put(sProvNa,fut.field(3).x()-1);      
-      fut.field(4).set(sDataNa);         
-      rg.put(sDataNa,fut.field(4).x()-1);      
-      fut.field(5).set(sCodFis);         
-      rg.put(sCodFis,fut.field(5).x()-1);      
-      fut.field(6).set(sCodQua);         
-      rg.put(sCodQua,fut.field(6).x()-1);      
-      pr.print(rg);      
-      _RigaCorr++;
-      if (usa_progind()) progind()->addstatus(1);
-    }
-  }
-}
-
-bool TBase1::print(const long codditta, const long NumFis, const long NumNoFis)
-{  
-  TCursor* cur = cursor();
-  TPrinter& pr = printer();
-  _codditta=codditta;
-      
-  if (!InitPrint(codditta))
-    return FALSE;
-  pr.formlen(BASE_FORMLEN);             
-
-  (*cur)=0L;  
-  if (_modulaser) 
-  {
-    ClearFlagModulaser();
-    TPrintrow r;
-    if (!_GiaMessoStartDoc)
-      put_modulaser(r, STARTDOC);     
-    put_modulaser(r, STARTDITTA);
-    put_modulaser(r, STARTPAGE, 1);
-    pr.print(r);
-    _RigaCorr++;
-  }
-  jump_to_line(pr, prima_riga(PRIMA));
-  stampa_corpo(pr);       
-  stampa_soci(pr);
-  next_page(pr);
-  close_print();
-  return TRUE;
-}
-
-void TBase2::stampa_corpo(TPrinter& pr)
-{
-  TPrint_section& body = section('B', even_page);
-  body.reset();
-  body.update();       
-  const int body_righe = body.height();
-  for (int i = 0; i < body_righe; i++)
-  {
-    pr.print(body.row(i));
-    _RigaCorr++;
-  }
-  if (usa_progind())
-    progind()->addstatus(1);
-}
-
-bool TBase2::print(const long codditta, const long NumFis, const long NumNoFis)
-{  
-  TCursor* cur = cursor();
-  TPrinter& pr = printer();
-  _codditta=codditta;
-  filtra(codditta);      
-  _RigaCorr=0;
-  (*cur)=0L;  
-  jump_to_line(pr, prima_riga(PRIMA));
-  stampa_corpo(pr);       
-  next_page(pr);
-  close_print();                                      
-  return TRUE;
-}
-
-long TBase3::filtra(const long codditta)
-{
-  TString filtr(24); 
-  _codditta=codditta;
-  filtr.format("(CODDITTA==%ld)&&(QLAP==%d)", codditta, anno_770());
-  cursor()->setfilter(filtr, TRUE);   
-  const long items = cursor()->items();
-  return items;
-}
-
-void TBase3::stampa_testata(TPrinter& pr)
-{
-  TPrint_section& hh = section('H', first_page);
-  hh.reset();
-  hh.update();       
-  const int hhr = hh.height();
-  for (int i = 0; i < hhr; i++)
-  {
-    pr.print(hh.row(i));
-    _RigaCorr++;
-  }
-  if (usa_progind())
-    progind()->addstatus(1);
-}
-
-int TBase3::stampa_L(TPrinter& pr,const int iChiaveL)
-{
-  long codit=0L;
-  TPrint_section& body = section('B', odd_page);
-  body.reset();               
-  
-  TCursor& cur = *cursor();
-// Le chiavi nel file e nel .ini sono saggiamente scambiate  
-  if (iChiaveL==2) 
-    cur.setkey(1);
-  else 
-    cur.setkey(2);
-
-//  filtra(_codditta);
-  
-  bool finito=FALSE;
-  int righe=0;
-  while (!finito)
-  {
-    body.update();
-	  const int body_righe = body.height();
-	  for (int i = 0; i < body_righe; i++)
-	  {
-	    TPrintrow& rr=body.row(i);
-	    pr.print(rr);
-	    rr.reset();
-	    _RigaCorr++;
-	  }
-	  if (usa_progind())
-	    progind()->addstatus(1);
-	  righe++;                           
-	  ++cur;
-	  codit=cur.file().get_long("CODDITTA");
-	  bool buono=codit==_codditta;
-// Guarda se e' necessario stampare l'aggiuntivo
-	  _bAggiuntivoL = buono && righe>14;
-	  finito=righe>14 || codit!=_codditta;
-  }
-  return righe;
-}
-
-void TBase3::stampa_totali_L(TPrinter& pr)
-{ 
-// La sezione f last contiene solo due totali aggiornati con add nel form
-  TPrint_section& hh = section('F', last_page);
-//  hh.reset();
-  hh.update();       
-  const int hhr = hh.height();
-  for (int i = 0; i < hhr; i++)
-  {
-    pr.print(hh.row(i));
-    _RigaCorr++;
-  }
-  if (usa_progind())
-    progind()->addstatus(1);
-}
-
-bool TBase3::print(const long codditta, const long NumFis, const long NumNoFis)
-{                          
-  _bAggiuntivoL=TRUE;
-  TCursor* cur = cursor();
-  TPrinter& pr = printer();
-  _codditta=codditta;
-  filtra(codditta);      
-  _RigaCorr=0;               
-  (*cur)=0L;  
-  jump_to_line(pr, prima_riga(PRIMA));
-// Stampa i codici concessione e tesoreria
-  stampa_testata(pr);         
-// Legge dai par.studio l'ordinamento da usare per L
-  TConfig conf(CONFIG_STUDIO);
-  const int iChiaveL = (int)conf.get_long("FlStQl", "77"); 
-  const int righe_stampate=stampa_L(pr,iChiaveL);                 
-// Se la stampa prosegue i totali vanno sull'aggiuntivo NON qui
-  if (!_bAggiuntivoL)                            
-  {
-    jump_to_line(pr,_RIGA_TOTALI_L);
-    stampa_totali_L(pr);
-  }
-  next_page(pr);
-  close_print();  
-  return TRUE;
-}
-
-const char* TRigaN::sMeseRif() const
-{           
-  __dep16="";
-  __dep16 << _MeseRif;
-  return __dep16;
-}
-
-const char* TRigaN::sAnnoRif() const
-{           
-  __dep16="";
-  __dep16 << _AnnoRif;
-  return __dep16;
-}
-
-// Ordina le righe N per periodo di riferimento
-int TRigaN::compare(const TSortable& s) const
-{
-  const TRigaN& rec = (const TRigaN&)s;
-  const int da = _AnnoRif - rec._AnnoRif;
-  const int dm = _MeseRif - rec._MeseRif;
-  if (da==0)
-    return dm;
-  else
-    return da;                                           
-}
-
-TRigaN::TRigaN(const TLocalisamfile& qn)
-{                   
-  _pos = qn.recno();
-  
-  const TRectype& rec = qn.curr();
-  
-  _MeseRif = rec.get_int("MESERIF"); 
-  _AnnoRif = rec.get_int("ANNORIF");  
-// Nel quadro R si chiama diversamente @!#@!!!  
-  if (qn.num() == LF_QUAN)
-    _ImpRimb = rec.get_real("IMPOSTA");
-  else                               
-    _ImpRimb = rec.get_real("IMPRIMB");  
-  _CompAss = rec.get_real("COMPENSI");
-}
-
-int TRigheNR::fill(const long codditta,TLocalisamfile& qnr)
-{
-  long ditta=0L;  
-  _data.destroy();
-// Si posiziona sul primo della ditta corrente
-  qnr.zero();
-  qnr.put("CODDITTA",codditta);
-  qnr.read()==NOERR;
-  ditta=qnr.get_long("CODDITTA");
-  if (ditta!=codditta) return 0;
-
-// Legge tutti quelli della ditta corrente
-  for (; !qnr.eof(); qnr.next())
-  {                          
-    ditta=qnr.get_long("CODDITTA");
-    if (ditta!=codditta) break;
-    
-    TRigaN* n = new TRigaN(qnr);
-    if (n->pos() >= 0)
-      _data.add(n);
-    else
-      delete n;  
-  } 
-  _data.sort();
-  const int i = _data.items();
-  return i;
-}
-
-const char* TRigaQT::sMesePag() const
-{           
-  __dep16="";
-  __dep16 << _MesePag;
-  return __dep16;
-}
-
-const char* TRigaQT::sAnnoPag() const
-{           
-  __dep16="";
-  __dep16 << _AnnoPag;
-  return __dep16;
-}
-
-// Ordina le righe N per periodo di riferimento
-int TRigaQT::compare(const TSortable& s) const
-{
-  const TRigaQT& rec = (const TRigaQT&)s;
-  const int da = _AnnoPag - rec._AnnoPag;
-  const int dm = _MesePag - rec._MesePag;
-  if (da==0)
-    return dm;
-  else
-    return da;                                           
-}
-
-TRigaQT::TRigaQT(const TLocalisamfile& qt)
-{                   
-  const TRectype& rec = qt.curr();
-  
-  _MesePag = rec.get_int("MESEPAG"); 
-  _AnnoPag = rec.get_int("ANNOPAG");  
-  _ContVers = rec.get_real("CONTVERS");
-  _ContRimb = rec.get_real("CONTRIMB");
-  _Interessi=rec.get_real("INTERESSI");
-  _sCodReg=rec.get("CODREG");
-}
-
-int TRigheQT::fill(const long codditta,TLocalisamfile& qt)
-{
-  long ditta=0L;
-// Si posiziona sul primo della ditta corrente
-  _data.destroy();
-  qt.zero();
-  qt.put("CODDITTA",codditta);
-  qt.read()==NOERR;
-  ditta=qt.get_long("CODDITTA");
-  if (ditta!=codditta) return 0;
-
-// Legge tutti quelli della ditta corrente
-  for (; !qt.eof(); qt.next())
-  {                          
-    ditta=qt.get_long("CODDITTA");
-    if (ditta!=codditta) break;
-    
-    TRigaQT* n = new TRigaQT(qt);
-    if (n->pos() >= 0)
-      _data.add(n);
-    else
-      delete n;  
-  } 
-  _data.sort();
-  const int i = _data.items();
-  return i;
-}
-
-// Ordina le righe N per periodo di riferimento
-int TRigaPS::compare(const TSortable& s) const
-{
-  const TRigaPS& rec = (const TRigaPS&)s;
-  TDate dtDataS = rec.dDataVers();
-  const int month=_dDv.month();
-  const int year=_dDv.year();
-  const int da = year  - dtDataS.year();
-  const int dm = month - dtDataS.month();
-  if (da==0)
-    return dm;
-  else
-    return da;                                           
-  
-  return _dDv<rec.dDataVers();
-}
-
-TRigaPS::TRigaPS(const TLocalisamfile& qt)
-{                   
-  const TRectype& rec = qt.curr();
-  
-  _dDv     = rec.get_date("DATAVERS"); 
-  _rImp    = rec.get_real("IMPOSTA");  
-  _rIntDip = rec.get_real("INTERDIP");
-  _rIntDat = rec.get_real("INTERDAT");           
-	_sTipoV  = rec.get("TIPOVERS");
-	_sCodTrib= rec.get("CODTRIB");
-	_sSerie  = rec.get("SERIE");
-	_sNumero = rec.get("NUMERO");  
-}
-
-int TRighePS::fill(const long codditta,TLocalisamfile& ps)
-{
-  long ditta=0L;
-// Si posiziona sul primo della ditta corrente
-  _data.destroy();
-  ps.zero();
-  ps.put("CODDITTA",codditta);
-  ps.read()==NOERR;
-  ditta=ps.get_long("CODDITTA");
-  if (ditta!=codditta) return 0;
-
-// Legge tutti quelli della ditta corrente
-  for (; !ps.eof(); ps.next())
-  {                          
-    ditta=ps.get_long("CODDITTA");
-    if (ditta!=codditta) break;
-    
-    TRigaPS* n = new TRigaPS(ps);
-    if (n->pos() >= 0)
-      _data.add(n);
-    else
-      delete n;  
-  } 
-  _data.sort();
-  const int i = _data.items();
-  return i;
-}
-
-int TBase4::calcola_firma()
-{
-  TPrint_section& totali = section('F', first_page);
-  TForm_item& signature = totali.find_field(829);
-  const int y = signature.y();
-  
-  TString cognome = signature.get();
-  if (cognome.len() > 30 && cognome[29] == ' ')
-  {
-    TString nome = cognome.mid(30, -1);
-    cognome.cut(30); cognome.trim();
-    cognome << ' ' << nome;
-    signature.set(cognome);
-    
-    totali.row(y-1).reset();
-    totali.row(y-1).put(cognome, signature.x()-1);
-  }   
-  return y;
-}
-
-void TBase4::stampa_testata(TPrinter& pr)
-{
-  TPrint_section& hh = section('H', first_page);
-  hh.reset();
-  hh.update();       
-  const int hhr = hh.height();
-  for (int i = 0; i < hhr; i++)
-  {
-    pr.print(hh.row(i));
-    _RigaCorr++;
-  }
-  if (usa_progind())
-    progind()->addstatus(1);
-}                                  
-
-void TBase4::fill_riga_QT(TPrint_section& sec,const int num)
-{              
-  TString sVal;
-  int start=1,end=6;
-  for (int i = start; i <= end; i++)
-  {
-    TForm_item& fi = sec.find_field(i);
-    if (num < _righeQT.items())
-    {
-      const TRigaQT& rN = _righeQT[num];	    
-	    if (i==start)
-  	    sVal=rN.sMesePag();
-  	  else if (i==start+1)
-  	    sVal=rN.sAnnoPag();
-  	  else if (i==start+2)  
-  	    sVal=rN.ContVers(fi.picture());
-  	  else if (i==start+3)
-  	    sVal=rN.ContRimb(fi.picture());
-  	  else if (i==start+4)
-  	    sVal=rN.Interessi(fi.picture());
-  	  else if (i==start+5)
-  	    sVal=rN.CodReg();
-	  }  
-	  else 
-	    sVal="";
-	  fi.set(sVal); 
-	  TPrintrow& row=sec.row(0);
-	  row.put(sVal,fi.x()-1);
-  }       
-} 
-
-void TBase4::stampa_Q(TPrinter& pr)
-{
-  TPrint_section& body = section('F', even_page);
-  body.reset();                                     
-  TLocalisamfile qp(LF_QUAQ);
-  _righeQT.fill(_codditta,qp);
-  _bAggQ = _righeQT.items() > _RIGHE_Q;
-
-  int riga=0;
-  bool FinitaSezione=FALSE;
-  while (!FinitaSezione)
-  {
-// Stampa la parte sinistra (primi 4 campi)  
-    fill_riga_QT(body,riga);                   
-	  TPrintrow& rr=body.row(0);
-	  pr.print(rr);
-	  rr.reset();
-	  riga++;
-	  _RigaCorr++;
-    if (usa_progind())
-      progind()->addstatus(1);
-    FinitaSezione=riga>_RIGHE_Q-1;
-  }
-// Salta due righe alla fine  
-  stampa_righe_vuote(pr,2);
-}
-
-void TBase4::stampa_T(TPrinter& pr)
-{
-  TPrint_section& body = section('F', odd_page);
-  body.reset();                                     
-  TLocalisamfile qp(LF_QUAT);
-  _righeQT.fill(_codditta,qp);
-  _bAggT = _righeQT.items() > _RIGHE_T;
-
-  int riga=0;
-  bool FinitaSezione=FALSE;
-  while (!FinitaSezione)
-  {
-// Stampa la parte sinistra (primi 4 campi)  
-    fill_riga_QT(body,riga);                   
-	  TPrintrow& rr=body.row(0);
-	  pr.print(rr);
-	  rr.reset();
-	  riga++;
-	  _RigaCorr++;
-    if (usa_progind())
-      progind()->addstatus(1);
-    FinitaSezione=riga>_RIGHE_T-1;
-  }
-}
-
-void TBase4::fill_riga_PS(TPrint_section& sec,const int num)
-{              
-  TString sVal;
-  int start=1,end=8;
-  for (int i = start; i <= end; i++)
-  {
-    TForm_item& fi = sec.find_field(i);
-    if (num < _righePS.items())
-    {
-      const TRigaPS& rN = _righePS[num];	    
-	    if (i==start)
-  	    sVal=rN.sImposta(fi.picture());
-  	  else if (i==start+1)
-  	    sVal=rN.sIntDip(fi.picture());
-  	  else if (i==start+2)  
-  	    sVal=rN.sIntDat(fi.picture());
-  	  else if (i==start+3)
-  	    sVal=rN.sTipoVers();
-  	  else if (i==start+4)
-  	    sVal=rN.sCodTrib();
-  	  else if (i==start+5)
-  	    sVal=rN.sDataVers();
-  	  else if (i==start+6)
-  	    sVal=rN.sSerie();
-  	  else if (i==start+7)
-  	    sVal=rN.sNumero();
-	  }  
-	  else 
-	    sVal="";
-	  fi.set(sVal); 
-	  TPrintrow& row=sec.row(0);
-	  row.put(sVal,fi.x()-1);
-  }       
-} 
-
-void TBase4::stampa_P(TPrinter& pr)
-{
-  TPrint_section& body = section('H', even_page);
-  body.reset();                                     
-  TLocalisamfile qp(LF_QUAP);
-  _righePS.fill(_codditta,qp);
-  const int items=_righePS.items();
-  _bAggP = items > _RIGHE_P;
-
-  int riga=0;
-  bool FinitaSezione=FALSE;
-  while (!FinitaSezione)
-  {
-// Stampa la parte sinistra (primi 4 campi)  
-    fill_riga_PS(body,riga);                   
-	  TPrintrow& rr=body.row(0);
-	  pr.print(rr);
-	  rr.reset();
-	  riga++;
-	  _RigaCorr++;
-    if (usa_progind())
-      progind()->addstatus(1);
-    FinitaSezione=riga>_RIGHE_P-1;
-  }
-// Salta due righe alla fine  
-  stampa_righe_vuote(pr,2);
-}
-
-void TBase4::stampa_S(TPrinter& pr)
-{
-  TPrint_section& body = section('H', even_page);
-  body.reset();                                     
-  TLocalisamfile qp(LF_QUAS);
-  _righePS.fill(_codditta,qp);
-  _bAggS = _righePS.items() > _RIGHE_S;
-
-  int riga=0;
-  bool FinitaSezione=FALSE;
-  while (!FinitaSezione)
-  {
-// Stampa la parte sinistra (primi 4 campi)  
-    fill_riga_PS(body,riga);                   
-	  TPrintrow& rr=body.row(0);
-	  pr.print(rr);
-	  rr.reset();
-	  riga++;
-	  _RigaCorr++;
-    if (usa_progind())
-      progind()->addstatus(1);
-    FinitaSezione=riga>_RIGHE_S-1;
-  }
-// Salta due righe alla fine  
-  stampa_righe_vuote(pr,2);
-}
-
-void TBase4::stampa_R(TPrinter& pr)
-{
-  TPrint_section& body = section('B', even_page);
-  body.reset();                                     
-  TLocalisamfile qr(LF_QUAR);
-  _righeNR.fill(_codditta,qr);
-  const int items=_righeNR.items();
-// se iRigheNR > 2 => bisogna stampare anche l'allegato
-  _bAggR = items > _RIGHE_R;
-  fill_riga_NR(body,0,0);                   
-  fill_riga_NR(body,1,1); 
-  TPrintrow& rr=body.row(0);
-  pr.print(rr);
-	rr.reset();
-	_RigaCorr++;
-  if (usa_progind())
-    progind()->addstatus(1);
-// Salta due righe alla fine  
-  stampa_righe_vuote(pr,2);
-}
-
-void TBase4::fill_riga_NR(TPrint_section& sec,const int num, const int side)
-{              
-  TString sVal;
-  int start,end;
-  if (side==0)
-  {
-    start=0;
-    end=4;
-  }
-  else
-  {
-    start=4;
-    end=8;
-  }
-  for (int i = start; i < end; i++)
-  {
-    TForm_item& fi = sec.field(i);
-    if (num < _righeNR.items())
-    {
-      const TRigaN& rN = _righeNR[num];	    
-	    if (i==start)
-  	    sVal=rN.sMeseRif();
-  	  else if (i==start+1)
-  	    sVal=rN.sAnnoRif();
-  	  else if (i==start+2)  
-  	    sVal=rN.ImpRimb(fi.picture());
-  	  else if (i==start+3)
-  	    sVal=rN.CompAss(fi.picture());
-	  }  
-	  else 
-	    sVal="";
-	  fi.set(sVal); 
-	  TPrintrow& row=sec.row(0);
-	  row.put(sVal,fi.x()-1);
-  }       
-} 
-
-void TBase4::stampa_righe_vuote(TPrinter& pr,const int righe)
-{
-	TPrintrow rr;
-  for (int i=0; i<righe; i++)
-  {
-	  pr.print(rr);
-	  rr.reset();
-	  _RigaCorr++;
-    if (usa_progind())
-      progind()->addstatus(1);
-  }
-}
-
-void TBase4::stampa_N(TPrinter& pr)
-{ 
-  TPrint_section& body = section('B', odd_page);
-  body.reset();                                     
-  TLocalisamfile qn(LF_QUAN);
-  _righeNR.fill(_codditta,qn);
-// se iRigheN > 6 => bisogna stampare anche l'allegato
-  _bAggN = _righeNR.items() > _RIGHE_N;
-
-  int num=0;                
-  int riga=0;
-  bool FinitaSezione=FALSE;
-  while (!FinitaSezione)
-  {
-// Stampa la parte sinistra (primi 4 campi)  
-    fill_riga_NR(body,num,0);                   
-    num+=3;
-    fill_riga_NR(body,num,1); 
-	  TPrintrow& rr=body.row(0);
-	  pr.print(rr);
-	  rr.reset();
-	  riga++;
-	  _RigaCorr++;
-    if (usa_progind())
-      progind()->addstatus(1);
-    num-=2;
-    FinitaSezione=riga>2;               
-  }
-// Salta due righe alla fine  
-  stampa_righe_vuote(pr,2);
-}
-
-void TBase4::stampa_fine(TPrinter& pr)
-{
-  TPrint_section& sec = section('F', first_page);
-  const int hhr = sec.height();
-  sec.reset();                  
-  sec.update();                   
-  const int lasty = calcola_firma();
-  for (int i = 0; i < hhr; i++)
-  {
-    pr.print(sec.row(i));
-    _RigaCorr++;
-  }
-  if (usa_progind())
-    progind()->addstatus(1);
-}
-
-bool TBase4::print(const long codditta, const long NumFis, const long NumNoFis)
-{  
-  _bAggN=_bAggP=_bAggR=_bAggQ=_bAggS=_bAggT=FALSE;
-  TCursor* cur = cursor();
-  TPrinter& pr = printer();
-  _codditta=codditta;
-  filtra(codditta);      
-  _RigaCorr=0;
-  (*cur)=0L;                              
-  jump_to_line(pr, prima_riga(PRIMA));
-// Stampa da M1 a M6  
-  stampa_testata(pr);
-  stampa_N(pr);          
-  stampa_P(pr); 
-  stampa_Q(pr);
-  stampa_R(pr);
-  stampa_S(pr);
-  stampa_T(pr);        
-  stampa_fine(pr);
-  next_page(pr);
-  close_print();
-  return TRUE;
-}
-
-bool TStampaBase::user_create()
-{
-  _fBase1 = new TBase1("77base1", "Base");
-  _fBase2 = new TBase2("77base2", "Base");   
-  _fBase3 = new TBase3("77base3", "Base");     
-  _fBase4 = new TBase4("77base4", "Base");      
-// Adesso bisogna chiamare set_cursor per impostare il cursore dentro
-// al form. Sarebbe meglio fare in modo che il form usi sempre il cursore
-// letto dal .frm, senza bisogno di passarglielo dall'applicazione
-  _fBase1->set_cursor(_fBase1->TForm::cursor());         
-  _fBase2->set_cursor(_fBase2->TForm::cursor());    
-  _fBase3->set_cursor(_fBase3->TForm::cursor());    
-  _fBase4->set_cursor(_fBase4->TForm::cursor());    
-  return TRUE;
-}
-
-bool TStampaBase::user_destroy()
-{
-  delete _fBase1; 
-  delete _fBase2;  
-  delete _fBase3;  
-  delete _fBase4;      
-  return TRUE;
-}          
-
-bool TStampaBase::print_quadro(const int OffsetDitta, const bool modulaser)
-{
-  int start=0, last=0;                
-
-// Setta formlen prima di printer.open per avere la lunghezza giusta nel caso di 
-// stampa a video
-  printer().formlen(BASE_FORMLEN);               
-  bool ok = printer().open();
-
-  _fBase1->set_modulaser(modulaser);
-  _fBase2->set_modulaser(modulaser);      
-  _fBase3->set_modulaser(modulaser);      
-  _fBase4->set_modulaser(modulaser);      
-      
-// Dice se deve eseguire il posizionamento del foglio.
-// Se stampa piu' ditte va eseguito solo sulla prima
-// Occhio a non spostarlo nel ciclo.
-  _fBase1->set_posiziona(TRUE);
-    
-  if (OffsetDitta >= 0)
-  {
-    start = OffsetDitta;
-    last = OffsetDitta;  
-  }
-  else
-    last = ditte().items() - 1;
-    
-  for (int i = start; i <= last; i++)
-  {
-    TString CoFiDic(20);
-    TToken_string riga(ditte()[i]);
-    const long codditta = atol(riga.get(0));
-    const TipoDitta  tipo = (TipoDitta)riga.get_int(1);
-    const long fis      = riga.get_long(2);
-    const long nofis    = riga.get_long(3);
-    const bool LastFis  = (bool)riga.get_int(4);
-    const bool LastNoFis = (bool)riga.get_int(5);
-
-// I gruppi dich-estinti hanno totali comuni  
-// Si presume che nell'array vengano messi nell'ordine dich-estinti
-    if (tipo == normale || tipo == dichiarante)
-      _fBase1->azzera_totali();
-
-    if (tipo == estinto)
-      CoFiDic = riga.get(6);
-      
-// Dice al form che tipo di ditta si stampa
-    _fBase1->set_tipo_ditta(tipo);
-
-// Numera i fogli a partire da 1 per ogni ditta normale e da 1 e di seguito negli estinti
-// per i sogg. dichiaranti
-    if (tipo == normale || tipo == dichiarante)
-      _fBase1->set_num_foglio(1);
-      
-// Se la ditta e' estinta dice al form il cod.fis. del dichiarante
-    if (tipo == estinto)
-      _fBase1->set_cofi_dic(CoFiDic);
-
-// Dice al form che e' l'ultima ditta
-    if (i == last)
-      _fBase1->set_last_ditta(TRUE);
-
-    _fBase1->print(codditta, fis, nofis); 
-    _fBase2->print(codditta, fis, nofis);    
-    _fBase3->print(codditta, fis, nofis);    
-    _fBase4->print(codditta, fis, nofis);            
-  }                       
-  printer().close();
-  return ok;
-}
-
-int TQuadroL::prima_riga(PaginaQuadro p) const
-{
-  if (p==PRIMA)
-  {
-    if (_PaginaPosizionamento)
-      return 8;
-    else
-      return 8+HEADER_PRIMA_NOPOS;
-  }
-  else
-    return 4;
-}
-
-
-long TQuadroL::filtra(const long codditta)
-{
-  TString filtr(24); 
-  _codditta=codditta;
-  filtr.format("(CODDITTA==%ld)&&(QLAP==%d)", codditta,anno_770());
-  cursor()->setfilter(filtr, TRUE);   
-  const long items = cursor()->items();
-  return items;
-}
-
-
-void TQuadroL::stampa_testata(TPrinter& pr)
-{
-  TPrint_section& hh = section('H', first_page);
-  hh.reset();
-  hh.update();       
-  const int hhr = hh.height();
-  for (int i = 0; i < hhr; i++)
-  {
-    pr.print(hh.row(i));
-    _RigaCorr++;
-  }
-  if (usa_progind())
-    progind()->addstatus(1);
-}
-
-bool TQuadroL::stampa_L(TPrinter& pr,const long lStartRec,const int iRecL)
-{
-  long codit=0L;
-  bool eof=FALSE;
-  TPrint_section& body = section('B', odd_page);
-  body.reset();               
-  TCursor& cur = *cursor();
-  if (lStartRec > cur.items())
-    return TRUE;
-  else
-    cur=lStartRec;
-  bool finito=FALSE;
-  int righe=0;
-
-  while (!finito)
-  {
-    body.update();
-	  const int body_righe = body.height();
-	  for (int i = 0; i < body_righe; i++)
-	  {
-	    TPrintrow& rr=body.row(i);
-	    pr.print(rr);
-	    rr.reset();
-	    _RigaCorr++;
-	  }
-	  if (usa_progind())
-	    progind()->addstatus(1);
-	  righe++;                           
-	  ++cur;  
-	  eof=cur.pos()==cur.items()-1;
-	  finito = (righe==iRecL-1) || eof;
-  }
-  return eof;
-}
-
-void TQuadroL::stampa_totali_L(TPrinter& pr)
-{ 
-// La sezione f last contiene solo due totali aggiornati con add nel form
-  TPrint_section& hh = section('F', last_page);
-//  hh.reset();
-  hh.update();       
-  const int hhr = hh.height();
-  for (int i = 0; i < hhr; i++)
-  {
-    pr.print(hh.row(i));
-    _RigaCorr++;
-  }
-  if (usa_progind())
-    progind()->addstatus(1);
-}
-
-const int _START_AGG_L=17;
-const int _REC_PRIMA_AGG_L=12;
-const int _REC_SECONDA_AGG_L=14;
-const int _RIGA_TOTALI_AGG_L=60;
-
-bool TQuadroL::print(const long codditta, const long NumFis, const long NumNoFis)
-{                          
-  TCursor* cur = cursor();
-  TPrinter& pr = printer();
-  if (!InitPrint(codditta))
-    return FALSE;
-
-// Legge dai par.studio l'ordinamento da usare per L
-  TConfig conf(CONFIG_STUDIO);
-  const int iChiaveL = (int)conf.get_long("FlStQl", "77"); 
-  if (iChiaveL==2) 
-    cur->setkey(1);
-  else 
-    cur->setkey(2);
-
-  int lOffsetL=_START_AGG_L;
-  bool finito=FALSE;
-  while (!finito)
-  {  
-	  jump_to_line(pr, prima_riga(PRIMA));
-	  stampa_testata(pr);         
-	  finito=stampa_L(pr,lOffsetL,_REC_PRIMA_AGG_L);
-    next_page(pr);
-	  if (!finito)         
-	  {
-	    lOffsetL+=_REC_PRIMA_AGG_L;
-	    jump_to_line(pr, prima_riga(SECONDA));
-	    finito=stampa_L(pr,lOffsetL,_REC_SECONDA_AGG_L);
-	  }
-	  if (finito)
-	  {
-	    jump_to_line(pr,_RIGA_TOTALI_AGG_L);
-	    stampa_totali_L(pr);
-	  }
-    next_page(pr);
-  }
-  close_print();  
-  return TRUE;
-}
-
-bool TStampaQuadroAggL::user_create()
-{   
-  _form = new TQuadroL("77QL", quadro());
-  _form->set_cursor(_form->TForm::cursor());
-// init anche di _cur nell'applicazione  
-  _cur = _form->cursor();
-  return TRUE;  
-}
-
-bool TStampaQuadroAggL::user_destroy()
-{
-  delete _form;
-  return TRUE;
-}
-
+// Stampa base
+#include "77stba.h"
+const int _RIGHE_N = 6;
+const int _RIGHE_R = 2;
+const int _RIGHE_P = 4;
+const int _RIGHE_Q = 4;
+const int _RIGHE_S = 4;
+const int _RIGHE_T = 4;
+const int _RIGHE_NA = 8;
+const int _RIGHE_RA = 4;
+const int _RIGHE_PA = 10;
+const int _RIGHE_QA = 4;
+const int _RIGHE_SA = 6;
+const int _RIGHE_TA = 4;
+
+int TBase1::dic_form_len() const
+{
+  if (curr_page()==PRIMA && _PaginaPosizionamento)
+    return BASE_FORMLEN-HEADER_PRIMA_NOPOS;
+  else
+    return BASE_FORMLEN;
+}
+
+int TBase1::prima_riga(PaginaQuadro p) const
+{
+  if (p==PRIMA && _PaginaPosizionamento)
+    return 11;
+  else
+    return 11+HEADER_PRIMA_NOPOS;
+}
+
+TBase1::TBase1(const char* sNomeForm, const char* quadro)  : TDicForm(sNomeForm, quadro) 
+{
+  r = new TRelation(LF_SOCI);
+  r->add(LF_ANAG,    "TIPOA=TIPOASOC|CODANAGR=CODANAGRSO");
+  r->add(LF_ANAGFIS, "CODANAGR=CODANAGR",1, LF_ANAG);    
+  r->add(LF_COMUNI,  "COM=COMNASC",1,LF_ANAGFIS);
+  c = new TCursor(r);       
+  _bAllegSoci=FALSE;
+}
+
+TBase1::~TBase1()
+{
+  delete r;
+  delete c;
+}
+
+void TBase1::stampa_corpo(TPrinter& pr)
+{
+  TPrint_section& body = section('B', first_page);
+  body.reset();
+  body.update();       
+  const int body_righe = body.height();
+  for (int i = 0; i < body_righe; i++)
+  {
+    pr.print(body.row(i));
+    _RigaCorr++;
+  }
+  if (usa_progind())
+    progind()->addstatus(1);
+}
+
+// accetta solo quelli con qualifica=A,B o C
+bool bFiltraSoci(const TRelation* rel)
+{ 
+  TString sQual(3);
+  sQual = rel->lfile().get("RICQUAL"); 
+  return sQual=="A" || sQual=="B" || sQual=="C";
+}
+
+long TBase1::iContaSoci()
+{                  
+  TString filtro(20);
+  filtro.format("CODDITTA=%d",_codditta);
+  c->setfilter(filtro);
+  c->set_filterfunction(bFiltraSoci);
+  (*c)=0L;
+  return c->items();
+}
+
+const int _INIZIO_SOCI=53;
+void TBase1::stampa_soci(TPrinter& pr)
+{                                  
+  TPrint_section& fut = section('F', first_page);
+  fut.reset();
+  jump_to_line(pr,_INIZIO_SOCI);
+  const long iSoci = iContaSoci();
+  if (iSoci > 11)
+  {
+    _bAllegSoci=TRUE;
+    TPrintrow& rg=fut.row(0);    
+    rg.put("VEDERE ALLEGATO", 25);
+    pr.print(rg);      
+    _RigaCorr++;
+    if (usa_progind()) progind()->addstatus(1);
+  }
+  else
+  {    
+    int i=0;                             
+    TString sRagsoc,sSesso,sComuneNa,sProvNa,sDataNa,sCodFis,sCodQua;
+    for ((*c)=0L; c->pos() < c->items(); ++(*c))
+    {                         
+      TString sNome,sCognome;
+      TPrintrow& rg=fut.row(i++);
+      sCodQua=c->file().get("RICQUAL");       
+      sRagsoc=c->file(LF_ANAG).get("RAGSOC");
+      sCodFis=c->file(LF_ANAG).get("COFI");       
+      sDataNa=c->file(LF_ANAGFIS).get("DATANASC"); 
+      sSesso=c->file(LF_ANAGFIS).get("SESSO");
+      sComuneNa=c->file(LF_COMUNI).get("DENCOM");      
+      sComuneNa.cut(28);
+      sProvNa=c->file(LF_COMUNI).get("PROVCOM");      
+      fut.field(0).set(sRagsoc);  
+      sCognome=sRagsoc.left(30);
+      sCognome.trim();
+      sNome=sRagsoc.mid(30,0);
+      sNome.trim();
+      sRagsoc = sCognome;
+      sRagsoc << " " << sNome;
+      rg.put(sRagsoc,fut.field(0).x()-1);
+      fut.field(1).set(sSesso);          
+      rg.put(sSesso,fut.field(1).x()-1);      
+      fut.field(2).set(sComuneNa);       
+      rg.put(sComuneNa,fut.field(2).x()-1);      
+      fut.field(3).set(sProvNa);         
+      rg.put(sProvNa,fut.field(3).x()-1);      
+      fut.field(4).set(sDataNa);         
+      rg.put(sDataNa,fut.field(4).x()-1);      
+      fut.field(5).set(sCodFis);         
+      rg.put(sCodFis,fut.field(5).x()-1);      
+      fut.field(6).set(sCodQua);         
+      rg.put(sCodQua,fut.field(6).x()-1);      
+      pr.print(rg);      
+      _RigaCorr++;
+      if (usa_progind()) progind()->addstatus(1);
+    }
+  }
+}
+
+bool TBase1::print(const long codditta, const long NumFis, const long NumNoFis)
+{  
+  TCursor* cur = cursor();
+  TPrinter& pr = printer();
+  _codditta=codditta;
+      
+  if (!InitPrint(codditta))
+    return FALSE;
+  pr.formlen(BASE_FORMLEN);             
+
+  (*cur)=0L;  
+  if (_modulaser) 
+  {
+    ClearFlagModulaser();
+    TPrintrow r;
+    if (!_GiaMessoStartDoc)
+      put_modulaser(r, STARTDOC);     
+    put_modulaser(r, STARTDITTA);
+    put_modulaser(r, STARTPAGE, 1);
+    pr.print(r);
+    _RigaCorr++;
+  }
+  jump_to_line(pr, prima_riga(PRIMA));
+  stampa_corpo(pr);       
+  stampa_soci(pr);
+  next_page(pr);
+  close_print();
+  return TRUE;
+}
+
+void TBase2::stampa_corpo(TPrinter& pr)
+{
+  TPrint_section& body = section('B', even_page);
+  body.reset();
+  body.update();       
+  const int body_righe = body.height();
+  for (int i = 0; i < body_righe; i++)
+  {
+    pr.print(body.row(i));
+    _RigaCorr++;
+  }
+  if (usa_progind())
+    progind()->addstatus(1);
+}
+
+bool TBase2::print(const long codditta, const long NumFis, const long NumNoFis)
+{  
+  TCursor* cur = cursor();
+  TPrinter& pr = printer();
+  _codditta=codditta;
+  filtra(codditta);      
+  _RigaCorr=0;
+  (*cur)=0L;  
+  jump_to_line(pr, prima_riga(PRIMA));
+  stampa_corpo(pr);       
+  next_page(pr);
+  close_print();                                      
+  return TRUE;
+}
+
+long TBase3::filtra(const long codditta)
+{
+  TString filtr(24); 
+  _codditta=codditta;
+  filtr.format("(CODDITTA==%ld)&&(QLAP==%d)", codditta, anno_770());
+  cursor()->setfilter(filtr, TRUE);   
+  const long items = cursor()->items();
+  return items;
+}
+
+void TBase3::stampa_testata(TPrinter& pr)
+{
+  TPrint_section& hh = section('H', first_page);
+  hh.reset();
+  hh.update();       
+  const int hhr = hh.height();
+  for (int i = 0; i < hhr; i++)
+  {
+    pr.print(hh.row(i));
+    _RigaCorr++;
+  }
+  if (usa_progind())
+    progind()->addstatus(1);
+}
+
+int TBase3::stampa_L(TPrinter& pr,const int iChiaveL)
+{
+  long codit=0L;
+  TPrint_section& body = section('B', odd_page);
+  body.reset();               
+  
+  TCursor& cur = *cursor();
+// Le chiavi nel file e nel .ini sono saggiamente scambiate  
+  if (iChiaveL==2) 
+    cur.setkey(1);
+  else 
+    cur.setkey(2);
+
+//  filtra(_codditta);
+  
+  bool finito=FALSE;
+  int righe=0;
+  while (!finito)
+  {
+    body.update();
+	  const int body_righe = body.height();
+	  for (int i = 0; i < body_righe; i++)
+	  {
+	    TPrintrow& rr=body.row(i);
+	    pr.print(rr);
+	    rr.reset();
+	    _RigaCorr++;
+	  }
+	  if (usa_progind())
+	    progind()->addstatus(1);
+	  righe++;                           
+	  ++cur;
+	  codit=cur.file().get_long("CODDITTA");
+	  bool buono=codit==_codditta;
+// Guarda se e' necessario stampare l'aggiuntivo
+	  _bAggiuntivoL = buono && righe>14;
+	  finito=righe>14 || codit!=_codditta;
+  }
+  return righe;
+}
+
+void TBase3::stampa_totali_L(TPrinter& pr)
+{ 
+// La sezione f last contiene solo due totali aggiornati con add nel form
+  TPrint_section& hh = section('F', last_page);
+//  hh.reset();
+  hh.update();       
+  const int hhr = hh.height();
+  for (int i = 0; i < hhr; i++)
+  {
+    pr.print(hh.row(i));
+    _RigaCorr++;
+  }
+  if (usa_progind())
+    progind()->addstatus(1);
+}
+
+bool TBase3::print(const long codditta, const long NumFis, const long NumNoFis)
+{                          
+  _bAggiuntivoL=TRUE;
+  TCursor* cur = cursor();
+  TPrinter& pr = printer();
+  _codditta=codditta;
+  filtra(codditta);      
+  _RigaCorr=0;               
+  (*cur)=0L;  
+  jump_to_line(pr, prima_riga(PRIMA));
+// Stampa i codici concessione e tesoreria
+  stampa_testata(pr);         
+// Legge dai par.studio l'ordinamento da usare per L
+  TConfig conf(CONFIG_STUDIO);
+  const int iChiaveL = (int)conf.get_long("FlStQl", "77"); 
+  const int righe_stampate=stampa_L(pr,iChiaveL);                 
+// Se la stampa prosegue i totali vanno sull'aggiuntivo NON qui
+  if (!_bAggiuntivoL)                            
+  {
+    jump_to_line(pr,_RIGA_TOTALI_L);
+    stampa_totali_L(pr);
+  }
+  next_page(pr);
+  close_print();  
+  return TRUE;
+}
+
+const char* TRigaN::sMeseRif() const
+{           
+  __dep16="";
+  __dep16 << _MeseRif;
+  return __dep16;
+}
+
+const char* TRigaN::sAnnoRif() const
+{           
+  __dep16="";
+  __dep16 << _AnnoRif;
+  return __dep16;
+}
+
+// Ordina le righe N per periodo di riferimento
+int TRigaN::compare(const TSortable& s) const
+{
+  const TRigaN& rec = (const TRigaN&)s;
+  const int da = _AnnoRif - rec._AnnoRif;
+  const int dm = _MeseRif - rec._MeseRif;
+  if (da==0)
+    return dm;
+  else
+    return da;                                           
+}
+
+TRigaN::TRigaN(const TLocalisamfile& qn)
+{                   
+  _pos = qn.recno();
+  
+  const TRectype& rec = qn.curr();
+  
+  _MeseRif = rec.get_int("MESERIF"); 
+  _AnnoRif = rec.get_int("ANNORIF");  
+// Nel quadro R si chiama diversamente @!#@!!!  
+  if (qn.num() == LF_QUAN)
+    _ImpRimb = rec.get_real("IMPOSTA");
+  else                               
+    _ImpRimb = rec.get_real("IMPRIMB");  
+  _CompAss = rec.get_real("COMPENSI");
+}
+
+int TRigheNR::fill(const long codditta,TLocalisamfile& qnr)
+{
+  long ditta=0L;  
+  _data.destroy();
+// Si posiziona sul primo della ditta corrente
+  qnr.zero();
+  qnr.put("CODDITTA",codditta);
+  qnr.read()==NOERR;
+  ditta=qnr.get_long("CODDITTA");
+  if (ditta!=codditta) return 0;
+
+// Legge tutti quelli della ditta corrente
+  for (; !qnr.eof(); qnr.next())
+  {                          
+    ditta=qnr.get_long("CODDITTA");
+    if (ditta!=codditta) break;
+    
+    TRigaN* n = new TRigaN(qnr);
+    if (n->pos() >= 0)
+      _data.add(n);
+    else
+      delete n;  
+  } 
+  _data.sort();
+  const int i = _data.items();
+  return i;
+}
+
+const char* TRigaQT::sMesePag() const
+{           
+  __dep16="";
+  __dep16 << _MesePag;
+  return __dep16;
+}
+
+const char* TRigaQT::sAnnoPag() const
+{           
+  __dep16="";
+  __dep16 << _AnnoPag;
+  return __dep16;
+}
+
+// Ordina le righe N per periodo di riferimento
+int TRigaQT::compare(const TSortable& s) const
+{
+  const TRigaQT& rec = (const TRigaQT&)s;
+  const int da = _AnnoPag - rec._AnnoPag;
+  const int dm = _MesePag - rec._MesePag;
+  if (da==0)
+    return dm;
+  else
+    return da;                                           
+}
+
+TRigaQT::TRigaQT(const TLocalisamfile& qt)
+{                   
+  const TRectype& rec = qt.curr();
+  
+  _MesePag = rec.get_int("MESEPAG"); 
+  _AnnoPag = rec.get_int("ANNOPAG");  
+  _ContVers = rec.get_real("CONTVERS");
+  _ContRimb = rec.get_real("CONTRIMB");
+  _Interessi=rec.get_real("INTERESSI");
+  _sCodReg=rec.get("CODREG");
+}
+
+int TRigheQT::fill(const long codditta,TLocalisamfile& qt)
+{
+  long ditta=0L;
+// Si posiziona sul primo della ditta corrente
+  _data.destroy();
+  qt.zero();
+  qt.put("CODDITTA",codditta);
+  qt.read()==NOERR;
+  ditta=qt.get_long("CODDITTA");
+  if (ditta!=codditta) return 0;
+
+// Legge tutti quelli della ditta corrente
+  for (; !qt.eof(); qt.next())
+  {                          
+    ditta=qt.get_long("CODDITTA");
+    if (ditta!=codditta) break;
+    
+    TRigaQT* n = new TRigaQT(qt);
+    if (n->pos() >= 0)
+      _data.add(n);
+    else
+      delete n;  
+  } 
+  _data.sort();
+  const int i = _data.items();
+  return i;
+}
+
+// Ordina le righe N per periodo di riferimento
+int TRigaPS::compare(const TSortable& s) const
+{
+  const TRigaPS& rec = (const TRigaPS&)s;
+  TDate dtDataS = rec.dDataVers();
+  const int month=_dDv.month();
+  const int year=_dDv.year();
+  const int da = year  - dtDataS.year();
+  const int dm = month - dtDataS.month();
+  if (da==0)
+    return dm;
+  else
+    return da;                                           
+  
+  return _dDv<rec.dDataVers();
+}
+
+TRigaPS::TRigaPS(const TLocalisamfile& qt)
+{                   
+  const TRectype& rec = qt.curr();
+  
+  _dDv     = rec.get_date("DATAVERS"); 
+  _rImp    = rec.get_real("IMPOSTA");  
+  _rIntDip = rec.get_real("INTERDIP");
+  _rIntDat = rec.get_real("INTERDAT");           
+	_sTipoV  = rec.get("TIPOVERS");
+	_sCodTrib= rec.get("CODTRIB");
+	_sSerie  = rec.get("SERIE");
+	_sNumero = rec.get("NUMERO");  
+}
+
+int TRighePS::fill(const long codditta,TLocalisamfile& ps)
+{
+  long ditta=0L;
+// Si posiziona sul primo della ditta corrente
+  _data.destroy();
+  ps.zero();
+  ps.put("CODDITTA",codditta);
+  ps.read()==NOERR;
+  ditta=ps.get_long("CODDITTA");
+  if (ditta!=codditta) return 0;
+
+// Legge tutti quelli della ditta corrente
+  for (; !ps.eof(); ps.next())
+  {                          
+    ditta=ps.get_long("CODDITTA");
+    if (ditta!=codditta) break;
+    
+    TRigaPS* n = new TRigaPS(ps);
+    if (n->pos() >= 0)
+      _data.add(n);
+    else
+      delete n;  
+  } 
+  _data.sort();
+  const int i = _data.items();
+  return i;
+}
+
+int TBase4::calcola_firma()
+{
+  TPrint_section& totali = section('F', first_page);
+  TForm_item& signature = totali.find_field(_IdFirma);
+  const int y = signature.y();
+  TString spazi(50); spazi.fill(' ');  
+  TString cognome = signature.get();
+  if (cognome.len() > 30 && cognome[29] == ' ')
+  {
+    TString nome = cognome.mid(30, -1);
+    cognome.cut(30); cognome.trim();
+    cognome << ' ' << nome;
+    signature.set(cognome);
+    
+    totali.row(y-1).put(spazi, signature.x()-1);
+    totali.row(y-1).put(cognome, signature.x()-1);
+  }   
+  return y;
+}
+
+void TBase4::stampa_testata(TPrinter& pr)
+{
+  TPrint_section& hh = section('H', first_page);
+  hh.reset();
+  hh.update();       
+  const int hhr = hh.height();
+  for (int i = 0; i < hhr; i++)
+  {
+    pr.print(hh.row(i));
+    _RigaCorr++;
+  }
+  if (usa_progind())
+    progind()->addstatus(1);
+}                                  
+
+void TBase4::fill_riga_QT(TPrint_section& sec,const int num)
+{              
+  TString sVal;
+  int start=1,end=6;
+  for (int i = start; i <= end; i++)
+  {
+    TForm_item& fi = sec.find_field(i);
+    if (num < _righeQT.items())
+    {
+      const TRigaQT& rN = _righeQT[num];	    
+	    if (i==start)
+  	    sVal=rN.sMesePag();
+  	  else if (i==start+1)
+  	    sVal=rN.sAnnoPag();
+  	  else if (i==start+2)  
+  	    sVal=rN.ContVers(fi.picture());
+  	  else if (i==start+3)
+  	    sVal=rN.ContRimb(fi.picture());
+  	  else if (i==start+4)
+  	    sVal=rN.Interessi(fi.picture());
+  	  else if (i==start+5)
+  	    sVal=rN.CodReg();
+	  }  
+	  else 
+	    sVal="";
+	  fi.set(sVal); 
+	  TPrintrow& row=sec.row(0);
+	  row.put(sVal,fi.x()-1);
+  }       
+} 
+
+void TBase4::stampa_Q(TPrinter& pr)
+{
+  TPrint_section& body = section('F', even_page);
+  body.reset();                                     
+  TLocalisamfile qp(LF_QUAQ);
+  _righeQT.fill(_codditta,qp);
+  _bAggQ = _righeQT.items() > _RIGHE_Q;
+
+  int riga=0;
+  bool FinitaSezione=FALSE;
+  while (!FinitaSezione)
+  {
+// Stampa la parte sinistra (primi 4 campi)  
+    fill_riga_QT(body,riga);                   
+	  TPrintrow& rr=body.row(0);
+	  pr.print(rr);
+	  rr.reset();
+	  riga++;
+	  _RigaCorr++;
+    if (usa_progind())
+      progind()->addstatus(1);
+    FinitaSezione=riga>_RIGHE_Q-1;
+  }
+// Salta due righe alla fine  
+  stampa_righe_vuote(pr,2);
+}
+
+void TBase4::stampa_T(TPrinter& pr)
+{
+  TPrint_section& body = section('F', odd_page);
+  body.reset();                                     
+  TLocalisamfile qp(LF_QUAT);
+  _righeQT.fill(_codditta,qp);
+  _bAggT = _righeQT.items() > _RIGHE_T;
+
+  int riga=0;
+  bool FinitaSezione=FALSE;
+  while (!FinitaSezione)
+  {
+// Stampa la parte sinistra (primi 4 campi)  
+    fill_riga_QT(body,riga);                   
+	  TPrintrow& rr=body.row(0);
+	  pr.print(rr);
+	  rr.reset();
+	  riga++;
+	  _RigaCorr++;
+    if (usa_progind())
+      progind()->addstatus(1);
+    FinitaSezione=riga>_RIGHE_T-1;
+  }
+}
+
+void TBase4::fill_riga_PS(TPrint_section& sec,const int num)
+{              
+  TString sVal,sDep;
+  int start=1,end=8;
+  for (int i = start; i <= end; i++)
+  {
+    TForm_item& fi = sec.find_field(i);
+    if (num < _righePS.items())
+    {
+      const TRigaPS& rN = _righePS[num];	    
+	    if (i==start)
+  	    sVal=rN.sImposta(fi.picture());
+  	  else if (i==start+1)
+  	    sVal=rN.sIntDip(fi.picture());
+  	  else if (i==start+2)  
+  	    sVal=rN.sIntDat(fi.picture());
+  	  else if (i==start+3)
+  	    sVal=rN.sTipoVers();
+  	  else if (i==start+4)
+  	    sVal=rN.sCodTrib();
+  	  else if (i==start+5)  
+      {
+  	    sDep=rN.sDataVers();
+  	    sVal.picture(fi.picture(),sDep);
+  	  }
+  	  else if (i==start+6)
+  	    sVal=rN.sSerie();
+  	  else if (i==start+7)
+  	    sVal=rN.sNumero();
+	  }  
+	  else 
+	    sVal="";
+	  fi.set(sVal); 
+	  TPrintrow& row=sec.row(0);
+	  row.put(sVal,fi.x()-1);
+  }       
+} 
+
+void TBase4::stampa_P(TPrinter& pr)
+{
+  TPrint_section& body = section('H', even_page);
+  body.reset();                                     
+  TLocalisamfile qp(LF_QUAP);
+  _righePS.fill(_codditta,qp);
+  const int items=_righePS.items();
+  _bAggP = items > _RIGHE_P;
+
+  int riga=0;
+  bool FinitaSezione=FALSE;
+  while (!FinitaSezione)
+  {
+// Stampa la parte sinistra (primi 4 campi)  
+    fill_riga_PS(body,riga);                   
+	  TPrintrow& rr=body.row(0);
+	  pr.print(rr);
+	  rr.reset();
+	  riga++;
+	  _RigaCorr++;
+    if (usa_progind())
+      progind()->addstatus(1);
+    FinitaSezione=riga>_RIGHE_P-1;
+  }
+// Salta due righe alla fine  
+  stampa_righe_vuote(pr,2);
+}
+
+void TBase4::stampa_S(TPrinter& pr)
+{
+  TPrint_section& body = section('H', even_page);
+  body.reset();                                     
+  TLocalisamfile qp(LF_QUAS);
+  _righePS.fill(_codditta,qp);
+  _bAggS = _righePS.items() > _RIGHE_S;
+
+  int riga=0;
+  bool FinitaSezione=FALSE;
+  while (!FinitaSezione)
+  {
+// Stampa la parte sinistra (primi 4 campi)  
+    fill_riga_PS(body,riga);                   
+	  TPrintrow& rr=body.row(0);
+	  pr.print(rr);
+	  rr.reset();
+	  riga++;
+	  _RigaCorr++;
+    if (usa_progind())
+      progind()->addstatus(1);
+    FinitaSezione=riga>_RIGHE_S-1;
+  }
+// Salta due righe alla fine  
+  stampa_righe_vuote(pr,2);
+}
+
+void TBase4::stampa_R(TPrinter& pr)
+{
+  TPrint_section& body = section('B', even_page);
+  body.reset();                                     
+  TLocalisamfile qr(LF_QUAR);
+  _righeNR.fill(_codditta,qr);
+  const int items=_righeNR.items();
+// se iRigheNR > 2 => bisogna stampare anche l'allegato
+  _bAggR = items > _RIGHE_R;
+  fill_riga_NR(body,0,0);                   
+  fill_riga_NR(body,1,1); 
+  TPrintrow& rr=body.row(0);
+  pr.print(rr);
+	rr.reset();
+	_RigaCorr++;
+  if (usa_progind())
+    progind()->addstatus(1);
+// Salta due righe alla fine  
+  stampa_righe_vuote(pr,2);
+}
+
+void TBase4::fill_riga_NR(TPrint_section& sec,const int num, const int side)
+{              
+  TString sVal;
+  int start,end;
+  if (side==0)
+  {
+    start=1;
+    end=5;
+  }
+  else
+  {
+    start=5;
+    end=9;
+  }
+  for (int i = start; i < end; i++)
+  {
+    TForm_item& fi = sec.find_field(i);
+    if (num < _righeNR.items())
+    {
+      const TRigaN& rN = _righeNR[num];	    
+	    if (i==start)
+  	    sVal=rN.sMeseRif();
+  	  else if (i==start+1)
+  	    sVal=rN.sAnnoRif();
+  	  else if (i==start+2)  
+  	    sVal=rN.ImpRimb(fi.picture());
+  	  else if (i==start+3)
+  	    sVal=rN.CompAss(fi.picture());
+	  }  
+	  else 
+	    sVal="";
+	  fi.set(sVal); 
+	  TPrintrow& row=sec.row(0);
+	  row.put(sVal,fi.x()-1);
+  }       
+} 
+
+void TBase4::stampa_righe_vuote(TPrinter& pr,const int righe)
+{
+	TPrintrow rr;
+  for (int i=0; i<righe; i++)
+  {
+	  pr.print(rr);
+	  rr.reset();
+	  _RigaCorr++;
+    if (usa_progind())
+      progind()->addstatus(1);
+  }
+}
+
+void TBase4::stampa_N(TPrinter& pr)
+{ 
+  TPrint_section& body = section('B', odd_page);
+  body.reset();                                     
+  TLocalisamfile qn(LF_QUAN);
+  _righeNR.fill(_codditta,qn);
+// se iRigheN > 6 => bisogna stampare anche l'allegato
+  _bAggN = _righeNR.items() > _RIGHE_N;
+
+  int num=0;                
+  int riga=0;
+  bool FinitaSezione=FALSE;
+  while (!FinitaSezione)
+  {
+// Stampa la parte sinistra (primi 4 campi)  
+    fill_riga_NR(body,num,0);                   
+    num+=3;
+    fill_riga_NR(body,num,1); 
+	  TPrintrow& rr=body.row(0);
+	  pr.print(rr);
+	  rr.reset();
+	  riga++;
+	  _RigaCorr++;
+    if (usa_progind())
+      progind()->addstatus(1);
+    num-=2;
+    FinitaSezione=riga>2;               
+  }
+// Salta due righe alla fine  
+  stampa_righe_vuote(pr,2);
+}
+
+void TBase4::stampa_fine(TPrinter& pr)
+{
+  TPrint_section& sec = section('F', first_page);
+  const int hhr = sec.height();
+  sec.reset();                  
+  sec.update();                 
+  const int lasty = calcola_firma();
+  for (int i = 0; i < hhr; i++)
+  {
+    pr.print(sec.row(i));
+    _RigaCorr++;
+  }
+  if (usa_progind())
+    progind()->addstatus(1);
+}
+
+bool TBase4::print(const long codditta, const long NumFis, const long NumNoFis)
+{  
+  _bAggN=_bAggP=_bAggR=_bAggQ=_bAggS=_bAggT=FALSE;
+  TCursor* cur = cursor();
+  TPrinter& pr = printer();
+  _codditta=codditta;
+  filtra(codditta);      
+  _RigaCorr=0;
+  (*cur)=0L;                              
+  jump_to_line(pr, prima_riga(PRIMA));
+// Stampa da M1 a M6  
+  stampa_testata(pr);
+  stampa_N(pr);          
+  stampa_P(pr); 
+  stampa_Q(pr);
+  stampa_R(pr);
+  stampa_S(pr);
+  stampa_T(pr);        
+  stampa_fine(pr);
+  next_page(pr);
+  close_print();
+  return TRUE;
+}
+
+bool TStampaBase::user_create()
+{
+  _fBase1 = new TBase1("77base1", "Base");
+  _fBase2 = new TBase2("77base2", "Base");   
+  _fBase3 = new TBase3("77base3", "Base");     
+  _fBase4 = new TBase4("77base4", "Base");      
+// Adesso bisogna chiamare set_cursor per impostare il cursore dentro
+// al form. Sarebbe meglio fare in modo che il form usi sempre il cursore
+// letto dal .frm, senza bisogno di passarglielo dall'applicazione
+  _fBase1->set_cursor(_fBase1->TForm::cursor());         
+  _fBase2->set_cursor(_fBase2->TForm::cursor());    
+  _fBase3->set_cursor(_fBase3->TForm::cursor());    
+  _fBase4->set_cursor(_fBase4->TForm::cursor());    
+  return TRUE;
+}
+
+bool TStampaBase::user_destroy()
+{
+  delete _fBase1; 
+  delete _fBase2;  
+  delete _fBase3;  
+  delete _fBase4;      
+  return TRUE;
+}          
+
+bool TStampaBase::print_quadro(const int OffsetDitta, const bool modulaser)
+{
+  int start=0, last=0;                
+
+// Setta formlen prima di printer.open per avere la lunghezza giusta nel caso di 
+// stampa a video
+  printer().formlen(BASE_FORMLEN);               
+  bool ok = printer().open();
+
+  _fBase1->set_modulaser(modulaser);
+  _fBase2->set_modulaser(modulaser);      
+  _fBase3->set_modulaser(modulaser);      
+  _fBase4->set_modulaser(modulaser);      
+      
+// Dice se deve eseguire il posizionamento del foglio.
+// Se stampa piu' ditte va eseguito solo sulla prima
+// Occhio a non spostarlo nel ciclo.
+  _fBase1->set_posiziona(TRUE);
+    
+  if (OffsetDitta >= 0)
+  {
+    start = OffsetDitta;
+    last = OffsetDitta;  
+  }
+  else
+    last = ditte().items() - 1;
+    
+  for (int i = start; i <= last; i++)
+  {
+    TString CoFiDic(20);
+    TToken_string riga(ditte()[i]);
+    const long codditta = atol(riga.get(0));
+    const TipoDitta  tipo = (TipoDitta)riga.get_int(1);
+    const long fis      = riga.get_long(2);
+    const long nofis    = riga.get_long(3);
+    const bool LastFis  = (bool)riga.get_int(4);
+    const bool LastNoFis = (bool)riga.get_int(5);
+
+// I gruppi dich-estinti hanno totali comuni  
+// Si presume che nell'array vengano messi nell'ordine dich-estinti
+    if (tipo == normale || tipo == dichiarante)
+      _fBase1->azzera_totali();
+
+    if (tipo == estinto)
+      CoFiDic = riga.get(6);
+      
+// Dice al form che tipo di ditta si stampa
+    _fBase1->set_tipo_ditta(tipo);
+
+// Numera i fogli a partire da 1 per ogni ditta normale e da 1 e di seguito negli estinti
+// per i sogg. dichiaranti
+    if (tipo == normale || tipo == dichiarante)
+      _fBase1->set_num_foglio(1);
+      
+// Se la ditta e' estinta dice al form il cod.fis. del dichiarante
+    if (tipo == estinto)
+      _fBase1->set_cofi_dic(CoFiDic);
+
+// Dice al form che e' l'ultima ditta
+    if (i == last)
+      _fBase1->set_last_ditta(TRUE);
+
+    _fBase1->print(codditta, fis, nofis); 
+    _fBase2->print(codditta, fis, nofis);    
+    _fBase3->print(codditta, fis, nofis);    
+    _fBase4->print(codditta, fis, nofis);            
+  }                       
+  printer().close();
+  return ok;
+}
+
+int TQuadroL::prima_riga(PaginaQuadro p) const
+{
+  if (p==PRIMA)
+  {
+    if (_PaginaPosizionamento)
+      return 8;
+    else
+      return 8+HEADER_PRIMA_NOPOS;
+  }
+  else
+    return 4;
+}
+
+
+long TQuadroL::filtra(const long codditta)
+{
+  TString filtr(24); 
+  _codditta=codditta;
+  filtr.format("(CODDITTA==%ld)&&(QLAP==%d)", codditta,anno_770());
+  cursor()->setfilter(filtr, TRUE);   
+  const long items = cursor()->items();
+  return items;
+}
+
+
+void TQuadroL::stampa_testata(TPrinter& pr)
+{
+  TPrint_section& hh = section('H', first_page);
+  hh.reset();
+  hh.update();       
+  const int hhr = hh.height();
+  for (int i = 0; i < hhr; i++)
+  {
+    pr.print(hh.row(i));
+    _RigaCorr++;
+  }
+  if (usa_progind())
+    progind()->addstatus(1);
+}
+
+bool TQuadroL::stampa_L(TPrinter& pr,const long lStartRec,const int iRecL)
+{
+  long codit=0L;
+  bool eof=FALSE;
+  TPrint_section& body = section('B', odd_page);
+  body.reset();               
+  TCursor& cur = *cursor();
+  if (lStartRec > cur.items())
+    return TRUE;
+  else
+    cur=lStartRec;
+  bool finito=FALSE;
+  int righe=0;
+
+  while (!finito)
+  {
+    body.update();
+	  const int body_righe = body.height();
+	  for (int i = 0; i < body_righe; i++)
+	  {
+	    TPrintrow& rr=body.row(i);
+	    pr.print(rr);
+	    rr.reset();
+	    _RigaCorr++;
+	  }
+	  if (usa_progind())
+	    progind()->addstatus(1);
+	  righe++;                           
+	  ++cur;  
+	  eof=cur.pos()==cur.items()-1;
+	  finito = (righe==iRecL-1) || eof;
+  }
+  return eof;
+}
+
+void TQuadroL::stampa_totali_L(TPrinter& pr)
+{ 
+// La sezione f last contiene solo due totali aggiornati con add nel form
+  TPrint_section& hh = section('F', last_page);
+//  hh.reset();
+  hh.update();       
+  const int hhr = hh.height();
+  for (int i = 0; i < hhr; i++)
+  {
+    pr.print(hh.row(i));
+    _RigaCorr++;
+  }
+  if (usa_progind())
+    progind()->addstatus(1);
+}
+
+const int _START_AGG_L=17;
+const int _REC_PRIMA_AGG_L=12;
+const int _REC_SECONDA_AGG_L=14;
+const int _RIGA_TOTALI_AGG_L=60;
+
+bool TQuadroL::print(const long codditta, const long NumFis, const long NumNoFis)
+{                          
+  TCursor* cur = cursor();
+  TPrinter& pr = printer();
+  if (!InitPrint(codditta))
+    return FALSE;
+
+// Legge dai par.studio l'ordinamento da usare per L
+  TConfig conf(CONFIG_STUDIO);
+  const int iChiaveL = (int)conf.get_long("FlStQl", "77"); 
+  if (iChiaveL==2) 
+    cur->setkey(1);
+  else 
+    cur->setkey(2);
+
+  int lOffsetL=_START_AGG_L;
+  bool finito=FALSE;
+  while (!finito)
+  {  
+	  jump_to_line(pr, prima_riga(PRIMA));
+	  stampa_testata(pr);         
+	  finito=stampa_L(pr,lOffsetL,_REC_PRIMA_AGG_L);
+    next_page(pr);
+	  if (!finito)         
+	  {
+	    lOffsetL+=_REC_PRIMA_AGG_L;
+	    jump_to_line(pr, prima_riga(SECONDA));
+	    finito=stampa_L(pr,lOffsetL,_REC_SECONDA_AGG_L);
+	  }
+	  if (finito)
+	  {
+	    jump_to_line(pr,_RIGA_TOTALI_AGG_L);
+	    stampa_totali_L(pr);
+	  }
+    next_page(pr);
+  }
+  close_print();  
+  return TRUE;
+}
+
+bool TStampaQuadroAggL::user_create()
+{   
+  _form = new TQuadroL("77QL", quadro());
+  _form->set_cursor(_form->TForm::cursor());
+// init anche di _cur nell'applicazione  
+  _cur = _form->cursor();
+  return TRUE;  
+}
+
+bool TStampaQuadroAggL::user_destroy()
+{
+  delete _form;
+  return TRUE;
+}
+
+void TQuadroN::stampa_fine(TPrinter& pr)
+{
+  TPrint_section& sec = section('F', first_page);
+  const int hhr = sec.height();
+  sec.reset();                  
+  sec.update();                   
+  const int lasty = calcola_firma();
+  for (int i = 0; i < hhr; i++)
+  {
+    pr.print(sec.row(i));
+    _RigaCorr++;
+  }
+  if (usa_progind())
+    progind()->addstatus(1);
+}
+
+void TQuadroN::stampa_testata(TPrinter& pr)
+{
+  TPrint_section& hh = section('H', first_page);
+  hh.reset();
+  hh.update();       
+  const int hhr = hh.height();
+  for (int i = 0; i < hhr; i++)
+  {
+    pr.print(hh.row(i));
+    _RigaCorr++;
+  }
+  if (usa_progind())
+    progind()->addstatus(1);
+}
+
+int TQuadroN::prima_riga(PaginaQuadro p) const
+{
+  if (_PaginaPosizionamento)
+    return 8;
+  else
+    return 8+HEADER_PRIMA_NOPOS;
+}
+
+/*void TBase4::fill_riga_QT(TPrint_section& sec,const int num)
+{              
+  TString sVal;
+  int start=1,end=6;
+  for (int i = start; i <= end; i++)
+  {
+    TForm_item& fi = sec.find_field(i);
+    if (num < _righeQT.items())
+    {
+      const TRigaQT& rN = _righeQT[num];	    
+	    if (i==start)
+  	    sVal=rN.sMesePag();
+  	  else if (i==start+1)
+  	    sVal=rN.sAnnoPag();
+  	  else if (i==start+2)  
+  	    sVal=rN.ContVers(fi.picture());
+  	  else if (i==start+3)
+  	    sVal=rN.ContRimb(fi.picture());
+  	  else if (i==start+4)
+  	    sVal=rN.Interessi(fi.picture());
+  	  else if (i==start+5)
+  	    sVal=rN.CodReg();
+	  }  
+	  else 
+	    sVal="";
+	  fi.set(sVal); 
+	  TPrintrow& row=sec.row(0);
+	  row.put(sVal,fi.x()-1);
+  }       
+} */
+
+/*
+void TBase4::fill_riga_PS(TPrint_section& sec,const int num)
+{              
+  TString sVal;
+  int start=1,end=8;
+  for (int i = start; i <= end; i++)
+  {
+    TForm_item& fi = sec.find_field(i);
+    if (num < _righePS.items())
+    {
+      const TRigaPS& rN = _righePS[num];	    
+	    if (i==start)
+  	    sVal=rN.sImposta(fi.picture());
+  	  else if (i==start+1)
+  	    sVal=rN.sIntDip(fi.picture());
+  	  else if (i==start+2)  
+  	    sVal=rN.sIntDat(fi.picture());
+  	  else if (i==start+3)
+  	    sVal=rN.sTipoVers();
+  	  else if (i==start+4)
+  	    sVal=rN.sCodTrib();
+  	  else if (i==start+5)
+  	    sVal=rN.sDataVers();
+  	  else if (i==start+6)
+  	    sVal=rN.sSerie();
+  	  else if (i==start+7)
+  	    sVal=rN.sNumero();
+	  }  
+	  else 
+	    sVal="";
+	  fi.set(sVal); 
+	  TPrintrow& row=sec.row(0);
+	  row.put(sVal,fi.x()-1);
+  }       
+} */                              
+
+void TQuadroN::stampa_N(TPrinter& pr)
+{ 
+  TPrint_section& body = section('B', odd_page);
+  body.reset();                                     
+  TLocalisamfile qn(LF_QUAN);
+  _righeNR.fill(_codditta,qn);
+// Nell'aggiuntivo parto dal record n.7
+  int num=6;                
+  int riga=0;
+  bool FinitaSezione=FALSE;
+  while (!FinitaSezione)
+  {
+// Stampa la parte sinistra (primi 4 campi)  
+    fill_riga_NR(body,num,0);                   
+    num+=3;
+    fill_riga_NR(body,num,1); 
+	  TPrintrow& rr=body.row(0);
+	  pr.print(rr);
+	  rr.reset();
+	  riga++;
+	  _RigaCorr++;
+    if (usa_progind())
+      progind()->addstatus(1);
+    num-=2;
+    FinitaSezione=riga>4;               
+  }
+}
+
+void TQuadroN::stampa_P(TPrinter& pr)
+{
+  TPrint_section& body = section('H', even_page);
+  body.reset();                                     
+  TLocalisamfile qp(LF_QUAP);
+  _righePS.fill(_codditta,qp);
+  const int items=_righePS.items();
+// Parte da rec.n.5
+  int riga=4;
+  bool FinitaSezione=FALSE;
+  while (!FinitaSezione)
+  {
+// Stampa la parte sinistra (primi 4 campi)  
+    fill_riga_PS(body,riga);                   
+	  TPrintrow& rr=body.row(0);
+	  pr.print(rr);
+	  rr.reset();
+	  riga++;
+	  _RigaCorr++;
+    if (usa_progind())
+      progind()->addstatus(1);
+    FinitaSezione=riga>_RIGHE_PA-1;
+  }
+}
+
+void TQuadroN::stampa_Q(TPrinter& pr)
+{
+  TPrint_section& body = section('F', even_page);
+  body.reset();                                     
+  TLocalisamfile qp(LF_QUAQ);
+  _righeQT.fill(_codditta,qp);
+// parte da rec.n.5
+  int riga=4;
+  bool FinitaSezione=FALSE;
+  while (!FinitaSezione)
+  {
+// Stampa la parte sinistra (primi 4 campi)  
+    fill_riga_QT(body,riga);                   
+	  TPrintrow& rr=body.row(0);
+	  pr.print(rr);
+	  rr.reset();
+	  riga++;
+	  _RigaCorr++;
+    if (usa_progind())
+      progind()->addstatus(1);
+    FinitaSezione=riga>_RIGHE_QA-1;
+  }
+// Salta due righe alla fine  
+  stampa_righe_vuote(pr,2);
+}
+
+void TQuadroN::stampa_R(TPrinter& pr)
+{
+  TPrint_section& body = section('B', even_page);
+  body.reset();                                     
+  TLocalisamfile qr(LF_QUAR);
+  _righeNR.fill(_codditta,qr);
+  const int items=_righeNR.items();
+  int RecNum=2;       
+  int RigheStampate=0;
+  bool FinitaSezione=FALSE;
+  while (!FinitaSezione)
+  {
+	  fill_riga_NR(body,RecNum,0);                   
+	  RecNum+=3;
+	  fill_riga_NR(body,RecNum,1);
+	  TPrintrow& rr=body.row(0);
+	  pr.print(rr);
+		rr.reset();
+		RigheStampate++;
+		_RigaCorr++;
+	  if (usa_progind())
+	    progind()->addstatus(1); 
+	  RecNum-=2;    
+    FinitaSezione=RigheStampate>_RIGHE_RA-1;	    
+  }
+}
+
+void TQuadroN::stampa_S(TPrinter& pr)
+{
+  TPrint_section& body = section('H', even_page);
+  body.reset();                                     
+  TLocalisamfile qp(LF_QUAS);
+  _righePS.fill(_codditta,qp);
+
+  int riga=4;
+  bool FinitaSezione=FALSE;
+  while (!FinitaSezione)
+  {
+// Stampa la parte sinistra (primi 4 campi)  
+    fill_riga_PS(body,riga);                   
+	  TPrintrow& rr=body.row(0);
+	  pr.print(rr);
+	  rr.reset();
+	  riga++;
+	  _RigaCorr++;
+    if (usa_progind())
+      progind()->addstatus(1);
+    FinitaSezione=riga>_RIGHE_SA-1;
+  }
+}
+
+void TQuadroN::stampa_T(TPrinter& pr)
+{
+  TPrint_section& body = section('F', odd_page);
+  body.reset();                                     
+  TLocalisamfile qp(LF_QUAT);
+  _righeQT.fill(_codditta,qp);
+  int riga=4;
+  bool FinitaSezione=FALSE;
+  while (!FinitaSezione)
+  {
+// Stampa la parte sinistra (primi 4 campi)  
+    fill_riga_QT(body,riga);                   
+	  TPrintrow& rr=body.row(0);
+	  pr.print(rr);
+	  rr.reset();
+	  riga++;
+	  _RigaCorr++;
+    if (usa_progind())
+      progind()->addstatus(1);
+    FinitaSezione=riga>_RIGHE_TA-1;
+  }
+}
+
+/*
+void TBase4::fill_riga_NR(TPrint_section& sec,const int num, const int side)
+{              
+  TString sVal;
+  int start,end;
+  if (side==0)
+  {
+    start=0;
+    end=4;
+  }
+  else
+  {
+    start=4;
+    end=8;
+  }
+  for (int i = start; i < end; i++)
+  {
+    TForm_item& fi = sec.field(i);
+    if (num < _righeNR.items())
+    {
+      const TRigaN& rN = _righeNR[num];	    
+	    if (i==start)
+  	    sVal=rN.sMeseRif();
+  	  else if (i==start+1)
+  	    sVal=rN.sAnnoRif();
+  	  else if (i==start+2)  
+  	    sVal=rN.ImpRimb(fi.picture());
+  	  else if (i==start+3)
+  	    sVal=rN.CompAss(fi.picture());
+	  }  
+	  else 
+	    sVal="";
+	  fi.set(sVal); 
+	  TPrintrow& row=sec.row(0);
+	  row.put(sVal,fi.x()-1);
+  }       
+} */
+
+bool TQuadroN::print(const long codditta, const long NumFis, const long NumNoFis)
+{  
+  TCursor* cur = cursor();
+  TPrinter& pr = printer();
+  _codditta=codditta;
+  if (!InitPrint(codditta))
+    return FALSE;
+  pr.formlen(TDicForm::dic_form_len());
+  _RigaCorr=0;
+  (*cur)=0L;                              
+  bool done=FALSE;
+  while (!done)
+  {
+	  jump_to_line(pr, prima_riga(PRIMA));             
+	  int skip=HEADER_PRIMA_NOPOS;
+	  stampa_testata(pr);
+    jump_to_line(pr, _PaginaPosizionamento ? 20-skip : 20);
+	  stampa_N(pr); 
+    jump_to_line(pr, _PaginaPosizionamento ? 26-skip : 26);	           
+	  stampa_P(pr); 
+    jump_to_line(pr, _PaginaPosizionamento ? 38-skip : 38);	  
+	  stampa_Q(pr);
+    jump_to_line(pr, _PaginaPosizionamento ? 44-skip : 44);	  
+	  stampa_R(pr);
+    jump_to_line(pr, _PaginaPosizionamento ? 48-skip : 48);	  
+	  stampa_S(pr);
+    jump_to_line(pr, _PaginaPosizionamento ? 56-skip : 56);	  
+	  stampa_T(pr);        
+    jump_to_line(pr, _PaginaPosizionamento ? 63-skip : 63);	  
+	  stampa_fine(pr);
+	  _PaginaPosizionamento=FALSE;
+	  next_page(pr);           
+    pr.formlen(TDicForm::dic_form_len());	  
+	  ++(*cur);
+	  done = cur->pos() >= cur->items()-1;
+  }
+  close_print();
+  return TRUE;
+}
+
+bool TStampaQuadroAggN::user_create()
+{   
+  _form = new TQuadroN("77QN", quadro());
+  _form->set_cursor(_form->TForm::cursor());
+  _cur = _form->cursor();
+  return TRUE;  
+}
+
+bool TStampaQuadroAggN::user_destroy()
+{
+  delete _form;
+  return TRUE;
+}
+
diff --git a/m770/77stba.h b/m770/77stba.h
index 92c55f411..41b20b8f7 100755
--- a/m770/77stba.h
+++ b/m770/77stba.h
@@ -5,12 +5,6 @@
 
 HIDDEN const int BASE_FORMLEN = 73;
 HIDDEN const int BASE_PAGINE  = 4;
-const int _RIGHE_N = 6;
-const int _RIGHE_R = 2;
-const int _RIGHE_P = 4;
-const int _RIGHE_Q = 4;
-const int _RIGHE_S = 4;
-const int _RIGHE_T = 4;
 
 class TBase1 : public TDicForm
 {
@@ -194,11 +188,12 @@ class TBase4 : public TDicForm
 {
   private:  
     long   	_codditta; 
+    bool		_bAggN,_bAggP,_bAggR,_bAggQ,_bAggS,_bAggT;
+  protected:                               
+    int		_IdFirma;
     TRigheNR	_righeNR;  // array dei record N e R
     TRigheQT	_righeQT;
     TRighePS	_righePS;
-    bool		_bAggN,_bAggP,_bAggR,_bAggQ,_bAggS,_bAggT;
-  protected:                               
     void stampa_righe_vuote(TPrinter& pr,const int righe);
     void fill_riga_QT(TPrint_section& sec,const int num);     
     void fill_riga_PS(TPrint_section& sec,const int num);
@@ -218,7 +213,7 @@ class TBase4 : public TDicForm
     int calcola_firma();
   public:                 
     virtual bool  print(const long codditta, const long NumFis, const long NumNoFis);
-    TBase4(const char* sNomeForm, const char* quadro) : TDicForm(sNomeForm, quadro)  {}
+    TBase4(const char* sNomeForm, const char* quadro) : _IdFirma(824), TDicForm(sNomeForm, quadro)  {}
     virtual ~TBase4() {}
 };      
 
@@ -283,5 +278,38 @@ class TStampaQuadroAggL : public TStampaQuadro
     virtual ~TStampaQuadroAggL() { }
 };
 
+class TQuadroN : public TBase4
+{
+    long	_codditta;
+  public:                             
+    void stampa_fine(TPrinter& pr);
+    void stampa_N(TPrinter& pr);   
+    void stampa_P(TPrinter& pr);       
+    void stampa_Q(TPrinter& pr);      
+    void stampa_R(TPrinter& pr);      
+    void stampa_S(TPrinter& pr);                  
+    void stampa_T(TPrinter& pr);          
+    void stampa_testata(TPrinter& pr);
+    virtual int   prima_riga(PaginaQuadro p) const;
+    virtual bool  print(const long codditta, const long NumFis, const long NumNoFis);
+    TQuadroN(const char* sNomeForm, const char* quadro) : TBase4(sNomeForm, quadro) { _IdFirma=2; }
+    virtual ~TQuadroN() {}
+};
+
+class TStampaQuadroAggN : public TStampaQuadro
+{
+    TQuadroN* _form;                                 
+    TCursor*  _cur;       
+  protected:   
+    virtual bool  user_create();
+    virtual bool  user_destroy();
+    virtual TDicForm* get_form() const   { return _form; }
+    virtual TCursor* get_cursor() const { return _cur; }            
+    virtual bool conta_tipi_per() const { return FALSE; }      
+  public:
+    TStampaQuadroAggN(const char* quadro, char liv):TStampaQuadro(quadro, liv) {}
+    virtual ~TStampaQuadroAggN() { }
+};
+
 
 #endif
diff --git a/m770/77stq.cpp b/m770/77stq.cpp
index 04c327f3b..5d77b267d 100755
--- a/m770/77stq.cpp
+++ b/m770/77stq.cpp
@@ -50,11 +50,6 @@ void TDicForm::set_cofi_dic(const char* cofi)
   _codditta_dic = sogg_estinto(_codditta);  
 }
 
-/*TCursor& TDicForm::cur() 
-{ 
-  return *_cur; 
-} */
-
 void TDicForm::set_cursor(TCursor* cur) 
 {  
   CHECK(cur, "NULL cursor in TDicForm");
@@ -3950,6 +3945,10 @@ int stampa_quadro(int argc, char* argv[])
     {
       app = new TStampaQuadroAggL(quadro, livello);    
     }
+    else if (quadro == "N")
+    {
+      app = new TStampaQuadroAggN(quadro, livello);    
+    }
 
     if (app != NULL)
     {
diff --git a/m770/menustq.uml b/m770/menustq.uml
index 52efec909..84e2aa965 100755
--- a/m770/menustq.uml
+++ b/m770/menustq.uml
@@ -60,7 +60,7 @@ END
 BUTTON B_NAGG 1 1
 BEGIN
   PROMPT 1 ROW3 ""
-//  MESSAGE RUN,771MOD,-7,2|K_TAB,RILEGGI_QUADRI
+  MESSAGE RUN,772MOD,-4,N,D
   PICTURE 123
   FLAGS MYFLAGS
   GROUP GRUPPO