diff --git a/m770/77base4.frm b/m770/77base4.frm
index 3b6b0465d..1f3c9a547 100755
--- a/m770/77base4.frm
+++ b/m770/77base4.frm
@@ -1,616 +1,617 @@
-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 ""
-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 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
+
+
+
diff --git a/m770/77stba.cpp b/m770/77stba.cpp
index 27f39019c..8fdea46bc 100755
--- a/m770/77stba.cpp
+++ b/m770/77stba.cpp
@@ -672,7 +672,7 @@ void TBase4::stampa_P(TPrinter& pr)
 
 void TBase4::stampa_S(TPrinter& pr)
 {
-  TPrint_section& body = section('H', odd_page);
+  TPrint_section& body = section('H', even_page);
   body.reset();                                     
   TLocalisamfile qp(LF_QUAS);
   _righePS.fill(_codditta,qp);
@@ -803,10 +803,10 @@ void TBase4::stampa_N(TPrinter& pr)
 void TBase4::stampa_fine(TPrinter& pr)
 {
   TPrint_section& sec = section('F', first_page);
-  const int lasty = calcola_firma();
+  const int hhr = sec.height();
   sec.reset();                  
   sec.update();                   
-  const int hhr = sec.height();
+  const int lasty = calcola_firma();
   for (int i = 0; i < hhr; i++)
   {
     pr.print(sec.row(i));