diff --git a/m770/772.cpp b/m770/772.cpp
index 18df47252..a1adc79cf 100755
--- a/m770/772.cpp
+++ b/m770/772.cpp
@@ -3,7 +3,7 @@
 #include "770.h"
 #include "772.h"
 
-#define usage   "Error - usage : %s -{0|1|2|3}"
+#define usage   "Error - usage : %s -{0|1|2|3|4}"
 
 int main(int argc,char** argv)
 {
diff --git a/m770/77qaall.uml b/m770/77qaall.uml
index 5f5c108c0..b7d8fdce8 100755
--- a/m770/77qaall.uml
+++ b/m770/77qaall.uml
@@ -1,48 +1,48 @@
-// 77qaall.uml - A,A2 - allegati 730
-#include "77qaall.h"
-
-PAGE "Allegati 730 " -1 -1 60 7
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT 2 2 "Il sottoscritto allega n. " 
-END
-
-NUMBER QA_NUM_ALL 5
-BEGIN
-  PROMPT 28 2 ""        
-END
-
-NUMBER QA2_NUM_ALL 5
-BEGIN
-  PROMPT 28 2 ""        
-END
-
-TEXT QA2_ANNO_ALL
-BEGIN
-  PROMPT 35 2 "mod.730/95 completi"
-END
-
-TEXT QA_ANNO_ALL
-BEGIN
-  PROMPT 35 2 "mod.730/96 completi"
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT  2 3 "dei mod.730-3 e un ugual numero di buste mod.730-1" 
-END
-
-BUTTON DLG_OK 9 2
-BEGIN
-    PROMPT -12 -1 ""
-END
-
-BUTTON DLG_CANCEL 9 2
-BEGIN
-    PROMPT -22 -1 ""
-END
-
-ENDPAGE
-
-ENDMASK
+// 77qaall.uml - A,A2 - allegati 730
+#include "77qaall.h"
+
+PAGE "Allegati 730 " -1 -1 60 7
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 2 2 "Il sottoscritto allega n. " 
+END
+
+NUMBER QA_NUM_ALL 5
+BEGIN
+  PROMPT 28 2 ""        
+END
+
+NUMBER QA2_NUM_ALL 5
+BEGIN
+  PROMPT 28 2 ""        
+END
+
+TEXT QA2_ANNO_ALL
+BEGIN
+  PROMPT 35 2 "mod.730/95 completi"
+END
+
+TEXT QA_ANNO_ALL
+BEGIN
+  PROMPT 35 2 "mod.730/96 completi"
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT  2 3 "dei mod.730-3 e un ugual numero di buste mod.730-1" 
+END
+
+BUTTON DLG_OK 9 2
+BEGIN
+    PROMPT -12 -1 ""
+END
+
+BUTTON DLG_CANCEL 9 2
+BEGIN
+    PROMPT -22 -1 ""
+END
+
+ENDPAGE
+
+ENDMASK
diff --git a/m770/77qbb.uml b/m770/77qbb.uml
index cfea5430a..fd69bda1f 100755
--- a/m770/77qbb.uml
+++ b/m770/77qbb.uml
@@ -1,710 +1,710 @@
-// Quadro B
-#include "77qb.h"
-TOOLBAR "" 0 20 0 2
-#include <toolbar.h>
-ENDPAGE
-
-PAGE "MODULO 770 - QUADRO B" -1 -1 78 18
-
-NUMBER QBF_CODDITTA 5
-BEGIN
-  PROMPT 3 1 "Ditta  "
-  FLAGS "H"
-  USE LF_NDITTE KEY 1
-  INPUT CODDITTA QBF_CODDITTA
-  FIELD LF_QUAB->CODDITTA
-  CHECKTYPE REQUIRED             
-  KEY 1
-END
-
-TEXT DLG_NULL 
-BEGIN
-  PROMPT 1 1 "@bDipendente"
-END
-
-NUMBER QBF_CODDIP 6
-BEGIN   
-  PROMPT 17 1 ""
-  USE LF_DIPEND KEY 1
-  FIELD LF_QUAB->CODDIP
-  INPUT CODDITTA 	QBF_CODDITTA 
-  INPUT CODDIP 		QBF_CODDIP
-  DISPLAY "Cognome@24" 	COGNOME
-  DISPLAY "Nome@20" 	NOME
-  OUTPUT QBF_COGNOME 	COGNOME
-  OUTPUT QBF_NOME 		NOME
-  CHECKTYPE REQUIRED
-  FLAGS "DG"  
-  KEY 1
-END  
-
-STRING QBF_COGNOME 24
-BEGIN
-  PROMPT 25 1 ""
-  FLAGS "DG"      
-END
-
-STRING QBF_NOME 20
-BEGIN
-  PROMPT 49 1 ""
-  FLAGS "DG"      
-END
-
-NUMBER QBF_NPROG 4
-BEGIN
-  PROMPT 72 1 ""
-  FIELD LF_QUAB->NPROG
-  FLAGS "DG"
-  KEY 1          
-END
-
-GROUPBOX DLG_NULL 25 4
-BEGIN
-  PROMPT 0 4 "Rapporto di lavoro "
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT 1 5 "11 Inizio"
-END
-
-DATE QBF_DATAINI
-BEGIN
-  PROMPT 1 6 ""
-  FIELD LF_QUAB->DATAINI
-  GROUP GROUP_ALL
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT 13 5 "12 Cessaz."
-END
-
-DATE QBF_DATAFIN
-BEGIN
-  PROMPT 13 6 ""
-  FIELD LF_QUAB->DATAFIN
-  GROUP GROUP_ALL
-END
-
-#define	COLCOMM	27
-#define	COLCOMM1	28
-#define	COLCOMM6	34
-
-TEXT DLG_NULL 
-BEGIN
-  PROMPT COLCOMM 3 "13 Periodo "
-END
-
-GROUPBOX DLG_NULL 14 4
-BEGIN
-  PROMPT COLCOMM 4 "commisurazione "
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLCOMM1 5 "Anni"
-END
-
-NUMBER QBF_ANNICOMM 2
-BEGIN         
-  PROMPT COLCOMM1 6 ""  
-  FIELD LF_QUAB->ANNICOMM
-  GROUP GROUP_ALL
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLCOMM6 5 "Mesi"
-END
-
-NUMBER QBF_MESICOMM 2
-BEGIN                    
-  PROMPT COLCOMM6 6 ""
-  FIELD LF_QUAB->MESICOMM
-  GROUP GROUP_ALL
-END
-
-#define	COLCONV	43
-#define	COLCONV1	44
-#define	COLCONV6	51
-
-TEXT DLG_NULL 
-BEGIN
-  PROMPT COLCONV 3 "14 Periodo "
-END
-
-GROUPBOX DLG_NULL 14 4
-BEGIN
-  PROMPT COLCONV 4 "convenzionale "
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLCONV1 5 "Anni"
-END
-
-NUMBER QBF_ANNICONV 2
-BEGIN         
-  PROMPT COLCONV1 6 ""  
-  FIELD LF_QUAB->ANNICONV
-  GROUP GROUP_ALL
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLCONV6 5 "Mesi"
-END
-
-NUMBER QBF_MESICONV 2
-BEGIN                    
-  PROMPT COLCONV6 6 ""
-  FIELD LF_QUAB->MESICONV
-  GROUP GROUP_ALL
-END
-
-#define	COLPAR0	58
-#define	COLPAR1	59
-#define	COLPAR2	64
-#define	COLPAR3	69
-
-GROUPBOX DLG_NULL 20 4
-BEGIN
-  PROMPT COLPAR0 4 "15 Tempo parziale"
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLPAR1 5 "Anni"
-END
-
-NUMBER QBF_ANNIPARZ 2
-BEGIN                    
-  PROMPT COLPAR1 6 ""
-  FIELD LF_QUAB->ANNIPARZ
-  GROUP GROUP_ALL
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLPAR2 5 "Mesi"
-END
-
-NUMBER QBF_MESIPARZ 2
-BEGIN                    
-  PROMPT COLPAR2 6 ""
-  FIELD LF_QUAB->MESIPARZ
-  GROUP GROUP_ALL
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLPAR3 5 "  %"
-END
-
-NUMBER QBF_PERCPARZ 6
-BEGIN                    
-  PROMPT COLPAR3 6 ""
-  FIELD LF_QUAB->PERCPARZ
-  PICTURE ".2"
-  GROUP GROUP_ALL
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT 1 8 "16 Quota eccedente"
-END
-
-NUMBER QBF_QUOTAECC 15
-BEGIN
-  PROMPT 1 9 ""
-  FIELD LF_QUAB->QUOTAECC
-  FLAGS "R"
-  PICTURE "."
-  GROUP GROUP_ALL
-END
-
-#define	COLTFR0 25
-#define	COLTFR1 26
-#define	COLTFR2 35 //27
-#define	COLTFR3 49 //33
-#define COLTFR4	59 //40      
-
-#define RIGTFR1	9
-#define	RIGTFR2	10
-
-GROUPBOX DLG_NULL 53 4
-BEGIN
-  PROMPT COLTFR0 8 "TFR o ind.equip. corrisposti nel 1995  "
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLTFR1 RIGTFR1 "17 Mese"
-END
-
-NUMBER QBF_MESEEROG 2
-BEGIN
-  PROMPT 28 RIGTFR2 ""   
-  NUM_EXPR {(#THIS>=0) && (#THIS<13)}
-  WARNING "Mese non valido"       
-  FIELD LF_QUAB->MESEEROG
-  GROUP GROUP_ALL
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLTFR2 RIGTFR1 "18 Titolo"
-END
-
-STRING QBF_TITEROG 1 
-BEGIN
-  PROMPT 39 RIGTFR2 ""
-  SHEET "Codice|Descrizione@15"
-  INPUT QBF_TITEROG     
-  ITEM "|"  
-  ITEM "A|Anticipazione"
-  ITEM "B|Saldo"
-  ITEM "C|Acconto"
-  OUTPUT QBF_TITEROG
-  FIELD LF_QUAB->TITEROG
-  FLAGS "U"
-  GROUP GROUP_ALL
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLTFR3 RIGTFR1 "19 % abb."
-END
-
-NUMBER QBF_PERCABB 6
-BEGIN                    
-  PROMPT COLTFR3 RIGTFR2 ""
-  FIELD LF_QUAB->PERCABB
-  PICTURE ".2"   
-  GROUP GROUP_ALL  
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLTFR4 RIGTFR1 "20 Ammontare netto"
-END
-
-NUMBER QBF_AMMNETTO 15
-BEGIN
-  PROMPT COLTFR4 RIGTFR2 ""
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->AMMNETTO
-  GROUP GROUP_ALL
-END
-
-#define	COLTFRB0 2
-#define	COLTFRB1 2
-#define	COLTFRB2 7
-#define	COLTFRB3 14
-#define COLTFRB4	31
-
-#define RIGTFRB0	14
-#define RIGTFRB1	15
-#define	RIGTFRB2	16
-
-GROUPBOX DLG_NULL 48 6
-BEGIN
-  PROMPT 1 13 "Altre indennità corrisposte nel 1995"
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLTFRB1 RIGTFRB0 "21"
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLTFRB1 RIGTFRB1 "Mese"
-END
-
-
-NUMBER QBF_MESEEROG2 2
-BEGIN
-  PROMPT COLTFRB1 RIGTFRB2 ""
-  FIELD LF_QUAB->MESEEROG2
-  NUM_EXPR {(#THIS>=0) && (#THIS<13)}
-  WARNING "Mese non valido"       
-  GROUP GROUP_ALL
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLTFRB2 RIGTFRB0 "22"
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLTFRB2 RIGTFRB1 "Titolo"
-END
-
-STRING QBF_TITEROG2 1
-BEGIN
-  PROMPT /*COLTFR2*/ 8 RIGTFRB2 ""
-  SHEET "Codice|Descrizione@15"
-  INPUT QBF_TITEROG2
-  ITEM "|"
-  ITEM "A|Anticipazione"
-  ITEM "B|Saldo"
-  ITEM "C|Acconto"
-  OUTPUT QBF_TITEROG2
-  FIELD LF_QUAB->TITEROG2
-  FLAGS "U"
-  GROUP GROUP_ALL  
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLTFRB3 RIGTFRB0 "23"
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLTFRB3 RIGTFRB1 "Abbattimento"
-END
-
-NUMBER QBF_PERCABB2 15
-BEGIN                    
-  PROMPT COLTFRB3 RIGTFRB2 ""
-  FIELD LF_QUAB->ABBATT
-  PICTURE "."
-  GROUP GROUP_ALL  
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLTFRB4 RIGTFRB0 "24"
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT COLTFRB4 RIGTFRB1 "Ammontare netto"
-END
-
-NUMBER QBF_AMMNETTO2 15
-BEGIN
-  PROMPT COLTFRB4 RIGTFRB2 ""
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->AMMNETTO2
-  GROUP GROUP_ALL  
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT 57 RIGTFRB1 "25 Cont.obblig.lav."
-END                               
-
-NUMBER QBF_CONTLAV 15
-BEGIN
-  PROMPT 59 RIGTFRB2 ""
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->CONTLAV
-  GROUP GROUP_ALL  
-END        
-
-ENDPAGE
-
-PAGE "MODULO 770 - QUADRO B" -1 -1 78 18
-
-#define	C1	2
-#define	C2	22
-#define	C3  57
-
-GROUPBOX DLG_NULL 41 4
-BEGIN
-  PROMPT 1 1 "Acconti e anticipazioni erogati dal 74 al 94"
-END
-
-TEXT DLG_NULL 
-BEGIN
-  PROMPT C1 2 "26 TFR ind.equi."
-END
-
-NUMBER QBF_TFR7494 15
-BEGIN
-  PROMPT C1 3 ""
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->TFR7494
-  GROUP GROUP_ALL  
-END
-
-TEXT DLG_NULL 
-BEGIN
-  PROMPT C2 2 "27 Altre inden."
-END
-
-NUMBER QBF_INDEN7494 15
-BEGIN
-  PROMPT C2 3 ""
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->INDEN7494
-  GROUP GROUP_ALL  
-END
-
-TEXT DLG_NULL 
-BEGIN
-  PROMPT C3 2 "28 Tot.indennità"
-END
-
-NUMBER QBF_TIND7494 15 
-BEGIN
-  PROMPT C3 3 ""
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->TIND7494
-  GROUP GROUP_ALL  
-END
-
-TEXT DLG_NULL 
-BEGIN
-  PROMPT C1 5 "29 Tot.riduzioni"
-END
-
-NUMBER QBF_TRID 15 
-BEGIN
-  PROMPT C1 6 ""
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->TRID
-  GROUP GROUP_ALL  
-END
-
-TEXT DLG_NULL 
-BEGIN
-  PROMPT 30 5 "30 TFR o inden. equipollenti"
-END
-
-NUMBER QBF_TFRIND 15 
-BEGIN
-  PROMPT 30 6 "per reddito di riferimento "
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->TFRIND
-  GROUP GROUP_ALL  
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT C1 7 "31 Aliq."
-END
-
-NUMBER QBF_ALIQUOTA 6
-BEGIN                    
-  PROMPT C1 8 ""
-  FIELD LF_QUAB->ALIQUOTA
-  PICTURE ".2"   
-  GROUP GROUP_ALL  
-END
-
-#define	GD0	24 //11
-#define	GD1	25 //12
-#define GD2	64 //51
-
-GROUPBOX DLG_NULL 49 4
-BEGIN
-  PROMPT GD0 7 "Art.4 3° comma L.482/1985"
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT GD1 8 "32 Retrib. media  "
-END
-
-NUMBER QBF_RETRMEDIA 15
-BEGIN
-  PROMPT GD1 9 "biennio precedente "
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->RETRMEDIA
-  GROUP GROUP_ALL  
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT GD2 8 "33 Aliq."
-END
-
-NUMBER QBF_ALIQUOTA2 6
-BEGIN                    
-  PROMPT GD2 9 ""
-  FIELD LF_QUAB->ALIQUOTA2
-  PICTURE ".2"   
-  GROUP GROUP_ALL  
-END
-
-// QUARTA RIGA
-TEXT DLG_NULL
-BEGIN
-  PROMPT 1 11 "34 Impon. TFR "
-END
-
-NUMBER QBF_IMPTFR 15
-BEGIN
-  PROMPT 1 12 ""
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->IMPTFR
-  GROUP GROUP_ALL  
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT 19 11 "35 Imp.altre ind."
-END
-
-NUMBER QBF_IMPIND 15
-BEGIN
-  PROMPT 19 12 ""
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->IMPIND
-  GROUP GROUP_ALL  
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT 37 11 "36 Impon. anno "
-END
-
-NUMBER QBF_IMPANNO 15
-BEGIN
-  PROMPT 37 12 ""
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->IMPANNO
-  GROUP GROUP_ALL  
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT 54 11 "37 Totale reddito impon. "
-END
-
-NUMBER QBF_TOTIMP 15
-BEGIN
-  PROMPT 57 12 ""
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->TOTIMP
-  GROUP GROUP_ALL  
-END
-
-// QUINTA RIGA
-TEXT DLG_NULL
-BEGIN
-  PROMPT 1 13 "38 Rit. operate su acc.ant. erogati "
-END
-
-NUMBER QBF_ROPEACC 15
-BEGIN
-  PROMPT 1 14 "dal 74 al 93      "
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->ROPEACC 
-  GROUP GROUP_ALL  
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT 37 13 "39 Impos. dov."
-END
-
-NUMBER QBF_IMPDOV 15
-BEGIN
-  PROMPT 37 14 ""
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->IMPDOV
-  GROUP GROUP_ALL  
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT 57 13 "40 Ritenute in ecced."
-END
-
-NUMBER QBF_RITECC 15
-BEGIN
-  PROMPT 57 14 ""
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->RITECC
-  GROUP GROUP_ALL  
-END
-
-// SESTA RIGA
-GROUPBOX DLG_NULL 38 4
-BEGIN
-  PROMPT 1 15 "Art.2122 COD. CIV."
-END
-
-TEXT DLG_NULL 
-BEGIN
-  PROMPT 2 16 "41 Quota spett."
-END
-
-NUMBER QBF_QUOTASPET 15
-BEGIN
-  PROMPT 2 17 ""
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->QUOTASPET
-  GROUP GROUP_DIPDEC GROUP_EREDE
-END
-
-TEXT DLG_NULL 
-BEGIN
-  PROMPT 19 16 "42 Indennità spett."
-END
-
-NUMBER QBF_INDSPETT 15
-BEGIN
-  PROMPT 19 17 ""
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->INDSPETT
-  GROUP GROUP_DIPDEC GROUP_EREDE  
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT 40 16 "43 Rit. operate "
-END
-
-NUMBER QBF_ROPE 15
-BEGIN
-  PROMPT 40 17 ""
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->ROPE           
-  GROUP GROUP_EREDE  
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT 57 16 "44 Impon. CSSN "
-END
-
-NUMBER QBF_IMPOCSSN 15
-BEGIN
-  PROMPT 57 17 ""
-  PICTURE "."
-  FLAGS "R"
-  FIELD LF_QUAB->IMPOCSSN
-  GROUP GROUP_ALL  
-END
-
-ENDPAGE
-
-ENDMASK
-
+// Quadro B
+#include "77qb.h"
+TOOLBAR "" 0 20 0 2
+#include <toolbar.h>
+ENDPAGE
+
+PAGE "MODULO 770 - QUADRO B" -1 -1 78 18
+
+NUMBER QBF_CODDITTA 5
+BEGIN
+  PROMPT 3 1 "Ditta  "
+  FLAGS "H"
+  USE LF_NDITTE KEY 1
+  INPUT CODDITTA QBF_CODDITTA
+  FIELD LF_QUAB->CODDITTA
+  CHECKTYPE REQUIRED             
+  KEY 1
+END
+
+TEXT DLG_NULL 
+BEGIN
+  PROMPT 1 1 "@bDipendente"
+END
+
+NUMBER QBF_CODDIP 6
+BEGIN   
+  PROMPT 17 1 ""
+  USE LF_DIPEND KEY 1
+  FIELD LF_QUAB->CODDIP
+  INPUT CODDITTA 	QBF_CODDITTA 
+  INPUT CODDIP 		QBF_CODDIP
+  DISPLAY "Cognome@24" 	COGNOME
+  DISPLAY "Nome@20" 	NOME
+  OUTPUT QBF_COGNOME 	COGNOME
+  OUTPUT QBF_NOME 		NOME
+  CHECKTYPE REQUIRED
+  FLAGS "DG"  
+  KEY 1
+END  
+
+STRING QBF_COGNOME 24
+BEGIN
+  PROMPT 25 1 ""
+  FLAGS "DG"      
+END
+
+STRING QBF_NOME 20
+BEGIN
+  PROMPT 49 1 ""
+  FLAGS "DG"      
+END
+
+NUMBER QBF_NPROG 4
+BEGIN
+  PROMPT 72 1 ""
+  FIELD LF_QUAB->NPROG
+  FLAGS "DG"
+  KEY 1          
+END
+
+GROUPBOX DLG_NULL 25 4
+BEGIN
+  PROMPT 0 4 "Rapporto di lavoro "
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 1 5 "11 Inizio"
+END
+
+DATE QBF_DATAINI
+BEGIN
+  PROMPT 1 6 ""
+  FIELD LF_QUAB->DATAINI
+  GROUP GROUP_ALL
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 13 5 "12 Cessaz."
+END
+
+DATE QBF_DATAFIN
+BEGIN
+  PROMPT 13 6 ""
+  FIELD LF_QUAB->DATAFIN
+  GROUP GROUP_ALL
+END
+
+#define	COLCOMM	27
+#define	COLCOMM1	28
+#define	COLCOMM6	34
+
+TEXT DLG_NULL 
+BEGIN
+  PROMPT COLCOMM 3 "13 Periodo "
+END
+
+GROUPBOX DLG_NULL 14 4
+BEGIN
+  PROMPT COLCOMM 4 "commisurazione "
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLCOMM1 5 "Anni"
+END
+
+NUMBER QBF_ANNICOMM 2
+BEGIN         
+  PROMPT COLCOMM1 6 ""  
+  FIELD LF_QUAB->ANNICOMM
+  GROUP GROUP_ALL
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLCOMM6 5 "Mesi"
+END
+
+NUMBER QBF_MESICOMM 2
+BEGIN                    
+  PROMPT COLCOMM6 6 ""
+  FIELD LF_QUAB->MESICOMM
+  GROUP GROUP_ALL
+END
+
+#define	COLCONV	43
+#define	COLCONV1	44
+#define	COLCONV6	51
+
+TEXT DLG_NULL 
+BEGIN
+  PROMPT COLCONV 3 "14 Periodo "
+END
+
+GROUPBOX DLG_NULL 14 4
+BEGIN
+  PROMPT COLCONV 4 "convenzionale "
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLCONV1 5 "Anni"
+END
+
+NUMBER QBF_ANNICONV 2
+BEGIN         
+  PROMPT COLCONV1 6 ""  
+  FIELD LF_QUAB->ANNICONV
+  GROUP GROUP_ALL
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLCONV6 5 "Mesi"
+END
+
+NUMBER QBF_MESICONV 2
+BEGIN                    
+  PROMPT COLCONV6 6 ""
+  FIELD LF_QUAB->MESICONV
+  GROUP GROUP_ALL
+END
+
+#define	COLPAR0	58
+#define	COLPAR1	59
+#define	COLPAR2	64
+#define	COLPAR3	69
+
+GROUPBOX DLG_NULL 20 4
+BEGIN
+  PROMPT COLPAR0 4 "15 Tempo parziale"
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLPAR1 5 "Anni"
+END
+
+NUMBER QBF_ANNIPARZ 2
+BEGIN                    
+  PROMPT COLPAR1 6 ""
+  FIELD LF_QUAB->ANNIPARZ
+  GROUP GROUP_ALL
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLPAR2 5 "Mesi"
+END
+
+NUMBER QBF_MESIPARZ 2
+BEGIN                    
+  PROMPT COLPAR2 6 ""
+  FIELD LF_QUAB->MESIPARZ
+  GROUP GROUP_ALL
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLPAR3 5 "  %"
+END
+
+NUMBER QBF_PERCPARZ 6
+BEGIN                    
+  PROMPT COLPAR3 6 ""
+  FIELD LF_QUAB->PERCPARZ
+  PICTURE ".2"
+  GROUP GROUP_ALL
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 1 8 "16 Quota eccedente"
+END
+
+NUMBER QBF_QUOTAECC 15
+BEGIN
+  PROMPT 1 9 ""
+  FIELD LF_QUAB->QUOTAECC
+  FLAGS "R"
+  PICTURE "."
+  GROUP GROUP_ALL
+END
+
+#define	COLTFR0 25
+#define	COLTFR1 26
+#define	COLTFR2 35 //27
+#define	COLTFR3 49 //33
+#define COLTFR4	59 //40      
+
+#define RIGTFR1	9
+#define	RIGTFR2	10
+
+GROUPBOX DLG_NULL 53 4
+BEGIN
+  PROMPT COLTFR0 8 "TFR o ind.equip. corrisposti nel 1995  "
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLTFR1 RIGTFR1 "17 Mese"
+END
+
+NUMBER QBF_MESEEROG 2
+BEGIN
+  PROMPT 28 RIGTFR2 ""   
+  NUM_EXPR {(#THIS>=0) && (#THIS<13)}
+  WARNING "Mese non valido"       
+  FIELD LF_QUAB->MESEEROG
+  GROUP GROUP_ALL
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLTFR2 RIGTFR1 "18 Titolo"
+END
+
+STRING QBF_TITEROG 1 
+BEGIN
+  PROMPT 39 RIGTFR2 ""
+  SHEET "Codice|Descrizione@15"
+  INPUT QBF_TITEROG     
+  ITEM "|"  
+  ITEM "A|Anticipazione"
+  ITEM "B|Saldo"
+  ITEM "C|Acconto"
+  OUTPUT QBF_TITEROG
+  FIELD LF_QUAB->TITEROG
+  FLAGS "U"
+  GROUP GROUP_ALL
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLTFR3 RIGTFR1 "19 % abb."
+END
+
+NUMBER QBF_PERCABB 6
+BEGIN                    
+  PROMPT COLTFR3 RIGTFR2 ""
+  FIELD LF_QUAB->PERCABB
+  PICTURE ".2"   
+  GROUP GROUP_ALL  
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLTFR4 RIGTFR1 "20 Ammontare netto"
+END
+
+NUMBER QBF_AMMNETTO 15
+BEGIN
+  PROMPT COLTFR4 RIGTFR2 ""
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->AMMNETTO
+  GROUP GROUP_ALL
+END
+
+#define	COLTFRB0 2
+#define	COLTFRB1 2
+#define	COLTFRB2 7
+#define	COLTFRB3 14
+#define COLTFRB4	31
+
+#define RIGTFRB0	14
+#define RIGTFRB1	15
+#define	RIGTFRB2	16
+
+GROUPBOX DLG_NULL 48 6
+BEGIN
+  PROMPT 1 13 "Altre indennità corrisposte nel 1995"
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLTFRB1 RIGTFRB0 "21"
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLTFRB1 RIGTFRB1 "Mese"
+END
+
+
+NUMBER QBF_MESEEROG2 2
+BEGIN
+  PROMPT COLTFRB1 RIGTFRB2 ""
+  FIELD LF_QUAB->MESEEROG2
+  NUM_EXPR {(#THIS>=0) && (#THIS<13)}
+  WARNING "Mese non valido"       
+  GROUP GROUP_ALL
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLTFRB2 RIGTFRB0 "22"
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLTFRB2 RIGTFRB1 "Titolo"
+END
+
+STRING QBF_TITEROG2 1
+BEGIN
+  PROMPT /*COLTFR2*/ 8 RIGTFRB2 ""
+  SHEET "Codice|Descrizione@15"
+  INPUT QBF_TITEROG2
+  ITEM "|"
+  ITEM "A|Anticipazione"
+  ITEM "B|Saldo"
+  ITEM "C|Acconto"
+  OUTPUT QBF_TITEROG2
+  FIELD LF_QUAB->TITEROG2
+  FLAGS "U"
+  GROUP GROUP_ALL  
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLTFRB3 RIGTFRB0 "23"
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLTFRB3 RIGTFRB1 "Abbattimento"
+END
+
+NUMBER QBF_PERCABB2 15
+BEGIN                    
+  PROMPT COLTFRB3 RIGTFRB2 ""
+  FIELD LF_QUAB->ABBATT
+  PICTURE "."
+  GROUP GROUP_ALL  
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLTFRB4 RIGTFRB0 "24"
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT COLTFRB4 RIGTFRB1 "Ammontare netto"
+END
+
+NUMBER QBF_AMMNETTO2 15
+BEGIN
+  PROMPT COLTFRB4 RIGTFRB2 ""
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->AMMNETTO2
+  GROUP GROUP_ALL  
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 57 RIGTFRB1 "25 Cont.obblig.lav."
+END                               
+
+NUMBER QBF_CONTLAV 15
+BEGIN
+  PROMPT 59 RIGTFRB2 ""
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->CONTLAV
+  GROUP GROUP_ALL  
+END        
+
+ENDPAGE
+
+PAGE "MODULO 770 - QUADRO B" -1 -1 78 18
+
+#define	C1	2
+#define	C2	22
+#define	C3  57
+
+GROUPBOX DLG_NULL 41 4
+BEGIN
+  PROMPT 1 1 "Acconti e anticipazioni erogati dal 74 al 94"
+END
+
+TEXT DLG_NULL 
+BEGIN
+  PROMPT C1 2 "26 TFR ind.equi."
+END
+
+NUMBER QBF_TFR7494 15
+BEGIN
+  PROMPT C1 3 ""
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->TFR7494
+  GROUP GROUP_ALL  
+END
+
+TEXT DLG_NULL 
+BEGIN
+  PROMPT C2 2 "27 Altre inden."
+END
+
+NUMBER QBF_INDEN7494 15
+BEGIN
+  PROMPT C2 3 ""
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->INDEN7494
+  GROUP GROUP_ALL  
+END
+
+TEXT DLG_NULL 
+BEGIN
+  PROMPT C3 2 "28 Tot.indennità"
+END
+
+NUMBER QBF_TIND7494 15 
+BEGIN
+  PROMPT C3 3 ""
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->TIND7494
+  GROUP GROUP_ALL  
+END
+
+TEXT DLG_NULL 
+BEGIN
+  PROMPT C1 5 "29 Tot.riduzioni"
+END
+
+NUMBER QBF_TRID 15 
+BEGIN
+  PROMPT C1 6 ""
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->TRID
+  GROUP GROUP_ALL  
+END
+
+TEXT DLG_NULL 
+BEGIN
+  PROMPT 30 5 "30 TFR o inden. equipollenti"
+END
+
+NUMBER QBF_TFRIND 15 
+BEGIN
+  PROMPT 30 6 "per reddito di riferimento "
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->TFRIND
+  GROUP GROUP_ALL  
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT C1 7 "31 Aliq."
+END
+
+NUMBER QBF_ALIQUOTA 6
+BEGIN                    
+  PROMPT C1 8 ""
+  FIELD LF_QUAB->ALIQUOTA
+  PICTURE ".2"   
+  GROUP GROUP_ALL  
+END
+
+#define	GD0	24 //11
+#define	GD1	25 //12
+#define GD2	64 //51
+
+GROUPBOX DLG_NULL 49 4
+BEGIN
+  PROMPT GD0 7 "Art.4 3° comma L.482/1985"
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT GD1 8 "32 Retrib. media  "
+END
+
+NUMBER QBF_RETRMEDIA 15
+BEGIN
+  PROMPT GD1 9 "biennio precedente "
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->RETRMEDIA
+  GROUP GROUP_ALL  
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT GD2 8 "33 Aliq."
+END
+
+NUMBER QBF_ALIQUOTA2 6
+BEGIN                    
+  PROMPT GD2 9 ""
+  FIELD LF_QUAB->ALIQUOTA2
+  PICTURE ".2"   
+  GROUP GROUP_ALL  
+END
+
+// QUARTA RIGA
+TEXT DLG_NULL
+BEGIN
+  PROMPT 1 11 "34 Impon. TFR "
+END
+
+NUMBER QBF_IMPTFR 15
+BEGIN
+  PROMPT 1 12 ""
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->IMPTFR
+  GROUP GROUP_ALL  
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 19 11 "35 Imp.altre ind."
+END
+
+NUMBER QBF_IMPIND 15
+BEGIN
+  PROMPT 19 12 ""
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->IMPIND
+  GROUP GROUP_ALL  
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 37 11 "36 Impon. anno "
+END
+
+NUMBER QBF_IMPANNO 15
+BEGIN
+  PROMPT 37 12 ""
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->IMPANNO
+  GROUP GROUP_ALL  
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 54 11 "37 Totale reddito impon. "
+END
+
+NUMBER QBF_TOTIMP 15
+BEGIN
+  PROMPT 57 12 ""
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->TOTIMP
+  GROUP GROUP_ALL  
+END
+
+// QUINTA RIGA
+TEXT DLG_NULL
+BEGIN
+  PROMPT 1 13 "38 Rit. operate su acc.ant. erogati "
+END
+
+NUMBER QBF_ROPEACC 15
+BEGIN
+  PROMPT 1 14 "dal 74 al 93      "
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->ROPEACC 
+  GROUP GROUP_ALL  
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 37 13 "39 Impos. dov."
+END
+
+NUMBER QBF_IMPDOV 15
+BEGIN
+  PROMPT 37 14 ""
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->IMPDOV
+  GROUP GROUP_ALL  
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 57 13 "40 Ritenute in ecced."
+END
+
+NUMBER QBF_RITECC 15
+BEGIN
+  PROMPT 57 14 ""
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->RITECC
+  GROUP GROUP_ALL  
+END
+
+// SESTA RIGA
+GROUPBOX DLG_NULL 38 4
+BEGIN
+  PROMPT 1 15 "Art.2122 COD. CIV."
+END
+
+TEXT DLG_NULL 
+BEGIN
+  PROMPT 2 16 "41 Quota spett."
+END
+
+NUMBER QBF_QUOTASPET 15
+BEGIN
+  PROMPT 2 17 ""
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->QUOTASPET
+  GROUP GROUP_DIPDEC GROUP_EREDE
+END
+
+TEXT DLG_NULL 
+BEGIN
+  PROMPT 19 16 "42 Indennità spett."
+END
+
+NUMBER QBF_INDSPETT 15
+BEGIN
+  PROMPT 19 17 ""
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->INDSPETT
+  GROUP GROUP_DIPDEC GROUP_EREDE  
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 40 16 "43 Rit. operate "
+END
+
+NUMBER QBF_ROPE 15
+BEGIN
+  PROMPT 40 17 ""
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->ROPE           
+  GROUP GROUP_EREDE  
+END
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 57 16 "44 Impon. CSSN "
+END
+
+NUMBER QBF_IMPOCSSN 15
+BEGIN
+  PROMPT 57 17 ""
+  PICTURE "."
+  FLAGS "R"
+  FIELD LF_QUAB->IMPOCSSN
+  GROUP GROUP_ALL  
+END
+
+ENDPAGE
+
+ENDMASK
+
diff --git a/m770/77qd1.frm b/m770/77qd1.frm
index 6e069ff1b..0fa473de3 100755
--- a/m770/77qd1.frm
+++ b/m770/77qd1.frm
@@ -1,5 +1,5 @@
 USE 63
-JOIN %CA7 TO 63 ALIAS 14 INTO CODTAB=CODCAUS
+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
diff --git a/m770/77qg.frm b/m770/77qg.frm
index d007b8f6b..00e435d3b 100755
--- a/m770/77qg.frm
+++ b/m770/77qg.frm
@@ -35,21 +35,21 @@ SECTION HEADER FIRST 65
 STRINGA 1
 BEGIN
   KEY "CODICE FISCALE"
-  PROMPT 4 12  ""
+  PROMPT 4 11  ""
   FIELD 116@->COFI
 END
 
 STRINGA 2
 BEGIN
   KEY "RAGIONE SOCIALE"
-  PROMPT 39 12  ""
+  PROMPT 39 11  ""
   FIELD 116@->RAGSOC
 END
 
 STRINGA 3
 BEGIN
   KEY "COGNOME"
-  PROMPT 39 12 ""
+  PROMPT 39 11 ""
   FIELD 116@->RAGSOC[1,30]
   GROUP 1   
   FLAGS "H"
@@ -58,7 +58,7 @@ END
 STRINGA 4
 BEGIN
   KEY "NOME"
-  PROMPT 17 14 ""
+  PROMPT 17 13 ""
   FIELD 116@->RAGSOC[31,50]
   GROUP 1  
   FLAGS "H"
@@ -67,21 +67,21 @@ END
 STRINGA 5
 BEGIN
   KEY "COMUNE DI RES."
-  PROMPT 17 14 ""
+  PROMPT 17 13 ""
   FIELD 213@->DENCOM
 END
 
 STRINGA 6
 BEGIN
   KEY "PROV DI RES."
-  PROMPT 58 14 ""
+  PROMPT 58 13 ""
   FIELD 213@->PROVCOM
 END
 
 STRINGA 7
 BEGIN
   KEY "VIA di RES."
-  PROMPT 65 14  ""    
+  PROMPT 65 13  ""    
   FIELD 116@->INDRES
   GROUP 4  
 END
@@ -89,7 +89,7 @@ END
 STRINGA 8
 BEGIN
   KEY "NUM. CIVICO di RES."
-  PROMPT 101 14 "" 
+  PROMPT 101 13 "" 
   FIELD 116@->CIVRES
   GROUP 4  
 END
@@ -97,7 +97,7 @@ END
 STRINGA 9
 BEGIN
   KEY "CAP"
-  PROMPT 122 14 "" 
+  PROMPT 122 13 "" 
   FIELD 116@->CAPRES
   GROUP 4
 END
@@ -105,7 +105,7 @@ END
 STRINGA 10
 BEGIN
   KEY "VIA di RES. RF"
-  PROMPT 65 14  ""
+  PROMPT 65 13  ""
   FIELD 116@->INDRF
   MESSAGE EMPTY HIDE,5@
   GROUP 5
@@ -114,7 +114,7 @@ END
 STRINGA 11
 BEGIN
   KEY "NUM. CIVICO di RES. RF"
-  PROMPT 101 14 ""
+  PROMPT 101 13 ""
   FIELD 116@->CIVRF
   GROUP 5
 END
@@ -122,7 +122,7 @@ END
 STRINGA 12
 BEGIN
   KEY "CAP"
-  PROMPT 122 14 ""
+  PROMPT 122 13 ""
   FIELD 116@->CAPRF
   GROUP 5
 END
@@ -130,20 +130,20 @@ END
 STRINGA 13
 BEGIN
   KEY "CODICE FISCALE DICHIARANTE"
-  PROMPT 118 17  ""
+  PROMPT 118 16  ""
 END
 
 STRINGA 14
 BEGIN
   KEY "NUM. FOGLIO"
-  PROMPT 120 18  ""  
+  PROMPT 120 17  ""  
   FLAGS "H"
 END
 
 STRINGA 15
 BEGIN
   KEY "Prospetto 1 data delib.1"
-  PROMPT 6 26 ""
+  PROMPT 6 25 ""
   FIELD 70->P1DATAD1
   GROUP 3
 END
@@ -151,7 +151,7 @@ END
 STRINGA 16
 BEGIN
   KEY "Titolo 1"
-  PROMPT 20 26 ""
+  PROMPT 20 25 ""
   FIELD 70->P1TITOLO1
   GROUP 3
 END
@@ -159,7 +159,7 @@ END
 STRINGA 17
 BEGIN
   KEY "Data ut.1"
-  PROMPT 53 26 ""
+  PROMPT 53 25 ""
   FIELD 70->P1DATAP1
   GROUP 3
 END
@@ -167,16 +167,16 @@ END
 NUMBER 20
 BEGIN
   KEY "Amm.1"
-  PROMPT 68 26 ""
+  PROMPT 65 25 ""
   FIELD 70->P1AMMQ1   
   PICTURE "###.###.###.###"    
   GROUP 3
 END
 
-STRINGA 21
+NUMBER 21
 BEGIN
   KEY "Num.az.1"
-  PROMPT 93 26 ""
+  PROMPT 87 25 ""
   FIELD 70->P1NUMQ1
   GROUP 3
 END
@@ -184,7 +184,7 @@ END
 NUMBER 22
 BEGIN
   KEY "Amm.Compless.1"
-  PROMPT 124 26 ""
+  PROMPT 121 25 ""
   FIELD 70->P1AMM1
   PICTURE "###.###.###^^^"    
   GROUP 3
@@ -193,7 +193,7 @@ END
 STRINGA 23
 BEGIN
   KEY "Prospetto 1 data delib.2"
-  PROMPT 6 28 ""
+  PROMPT 6 27 ""
   FIELD 70->P1DATAD2
   GROUP 3
 END
@@ -201,7 +201,7 @@ END
 STRINGA 24
 BEGIN
   KEY "Titolo 2"
-  PROMPT 20 28 ""
+  PROMPT 20 27 ""
   FIELD 70->P1TITOLO2
   GROUP 3
 END
@@ -209,7 +209,7 @@ END
 STRINGA 25
 BEGIN
   KEY "Data ut.2"
-  PROMPT 53 28 ""
+  PROMPT 53 27 ""
   FIELD 70->P1DATAP2
   GROUP 3
 END
@@ -217,16 +217,16 @@ END
 NUMBER 26
 BEGIN
   KEY "Amm.2"
-  PROMPT 68 28 ""
+  PROMPT 65 27 ""
   FIELD 70->P1AMMQ2
   PICTURE "###.###.###.###"    
   GROUP 3
 END
 
-STRINGA 27
+NUMBER 27
 BEGIN
   KEY "Num.az.2"
-  PROMPT 93 28 ""
+  PROMPT 87 27 ""
   FIELD 70->P1NUMQ2
   GROUP 3
 END
@@ -234,7 +234,7 @@ END
 NUMBER 28
 BEGIN
   KEY "Amm.Compless.2"
-  PROMPT 124 28 ""
+  PROMPT 121 27 ""
   FIELD 70->P1AMM2
   PICTURE "###.###.###^^^"    
   GROUP 3
@@ -243,7 +243,7 @@ END
 STRINGA 29
 BEGIN
   KEY "Prospetto 1 data delib.3"
-  PROMPT 6 30 ""
+  PROMPT 6 29 ""
   FIELD 70->P1DATAD3
   GROUP 3
 END
@@ -251,7 +251,7 @@ END
 STRINGA 30
 BEGIN
   KEY "Titolo 3"
-  PROMPT 20 30 ""
+  PROMPT 20 29 ""
   FIELD 70->P1TITOLO3
   GROUP 3
 END
@@ -259,7 +259,7 @@ END
 STRINGA 31
 BEGIN
   KEY "Data ut.3"
-  PROMPT 53 30 ""
+  PROMPT 53 29 ""
   FIELD 70->P1DATAP3
   GROUP 3
 END
@@ -267,16 +267,16 @@ END
 NUMBER 32
 BEGIN
   KEY "Amm.3"
-  PROMPT 68 30 ""
+  PROMPT 65 29 ""
   FIELD 70->P1AMMQ3
   PICTURE "###.###.###.###"    
   GROUP 3
 END
 
-STRINGA 33
+NUMBER 33
 BEGIN
   KEY "Num.az.3"
-  PROMPT 93 30 ""
+  PROMPT 87 29 ""
   FIELD 70->P1NUMQ3
   GROUP 3
 END
@@ -284,7 +284,7 @@ END
 NUMBER 34
 BEGIN
   KEY "Amm.Compless.3"
-  PROMPT 124 30 ""
+  PROMPT 121 29 ""
   FIELD 70->P1AMM3
   PICTURE "###.###.###^^^"    
   GROUP 3
@@ -294,14 +294,14 @@ STRINGA 35
 BEGIN
   KEY "Prospetto 1 data delib.4"
   FIELD 70->P1DATAD4
-  PROMPT 6 32 ""
+  PROMPT 6 31 ""
   GROUP 3
 END
 
 STRINGA 36
 BEGIN
   KEY "Titolo 4"
-  PROMPT 20 32 ""
+  PROMPT 20 31 ""
   FIELD 70->P1TITOLO4
   GROUP 3
 END
@@ -309,7 +309,7 @@ END
 STRINGA 37
 BEGIN
   KEY "Data ut.4"
-  PROMPT 53 32 ""
+  PROMPT 53 31 ""
   FIELD 70->P1DATAP4
   GROUP 3
 END
@@ -317,16 +317,16 @@ END
 NUMBER 38
 BEGIN
   KEY "Amm.4"
-  PROMPT 68 32 ""
+  PROMPT 65 31 ""
   FIELD 70->P1AMMQ4
   PICTURE "###.###.###.###"    
   GROUP 3
 END
 
-STRINGA 39
+NUMBER 39
 BEGIN
   KEY "Num.az.4"
-  PROMPT 93 32 ""
+  PROMPT 87 31 ""
   FIELD 70->P1NUMQ4
   GROUP 3
 END
@@ -334,7 +334,7 @@ END
 NUMBER 40
 BEGIN
   KEY "Amm.Compless.4"
-  PROMPT 124 32 ""
+  PROMPT 121 31 ""
   FIELD 70->P1AMM4
   PICTURE "###.###.###^^^"    
   GROUP 3
@@ -344,49 +344,49 @@ STRING 41
 BEGIN
   KEY "Totale num.az"
   FIELD 70->P1NUMQT
-  PROMPT 93 34 ""    
+  PROMPT 87 33 ""    
 END
 
 STRINGA 42
 BEGIN
   KEY "Totale amm.compl."
   FIELD 70->P1AMMT
-  PROMPT 124 34 ""            
+  PROMPT 121 33 ""            
   PICTURE "###.###.###^^^"      
 END
 
 STRINGA 43
 BEGIN
   KEY "Data delibera"
-  PROMPT 27 37 ""
+  PROMPT 27 36 ""
   FIELD 70->P2DATADE
 END
 
 STRINGA 44
 BEGIN
   KEY "Data distribuzione"
-  PROMPT 100 37 ""
+  PROMPT 100 36 ""
   FIELD 70->P2DATADI
 END
 
 STRINGA 45
 BEGIN
   KEY "DESC.BENI DISTR.1"
-  PROMPT 4 41 ""
+  PROMPT 4 40 ""
   FIELD 70->P2DESC1
 END
 
 STRINGA 46
 BEGIN
   KEY "DATA 1"
-  PROMPT 78 41 ""
+  PROMPT 78 40 ""
   FIELD 70->P2DATA1
 END
 
 NUMBER 47
 BEGIN
   KEY "VALORE ULT. BIL. 1"
-  PROMPT 120 41 ""
+  PROMPT 120 40 ""
   FIELD 70->P2VAL1
   PICTURE "###.###.###^^^"    
 END
@@ -394,21 +394,21 @@ END
 STRINGA 48
 BEGIN
   KEY "DESC.BENI DISTR.2"
-  PROMPT 4 43 ""
+  PROMPT 4 42 ""
   FIELD 70->P2DESC2
 END
 
 STRINGA 49
 BEGIN
   KEY "DATA 2"
-  PROMPT 78 43 ""
+  PROMPT 78 42 ""
   FIELD 70->P2DATA2
 END
 
 NUMBER 50
 BEGIN
   KEY "VALORE ULT. BIL. 2"
-  PROMPT 120 43 ""
+  PROMPT 120 42 ""
   FIELD 70->P2VAL2
   PICTURE "###.###.###^^^"    
 END
@@ -416,21 +416,21 @@ END
 STRINGA 51
 BEGIN
   KEY "DESC.BENI DISTR.3"
-  PROMPT 4 45 ""
+  PROMPT 4 44 ""
   FIELD 70->P2DESC3
 END
 
 STRINGA 52
 BEGIN
   KEY "DATA 3"
-  PROMPT 78 45 ""
+  PROMPT 78 44 ""
   FIELD 70->P2DATA3
 END
 
 NUMBER 53
 BEGIN
   KEY "VALORE ULT. BIL. 3"
-  PROMPT 120 45 ""
+  PROMPT 120 44 ""
   FIELD 70->P2VAL3
   PICTURE "###.###.###^^^"    
 END
@@ -438,7 +438,7 @@ END
 NUMBER 54
 BEGIN
   KEY "TOT.UT.NATURA"
-  PROMPT 120 47 ""
+  PROMPT 120 45 ""
   FIELD 70->P2VALT
   PICTURE "###.###.###^^^"    
 END
@@ -446,7 +446,7 @@ END
 NUMBER 55
 BEGIN
   KEY "IMP.IMPUT.AZ.QUOT"
-  PROMPT 120 49 ""
+  PROMPT 120 47 ""
   FIELD 70->P2IMPQ
   PICTURE "###.###.###^^^"    
 END
@@ -454,175 +454,175 @@ END
 NUMBER 56
 BEGIN
   KEY "P221"
-  PROMPT 44 56 ""             
+  PROMPT 44 55 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 57
 BEGIN
   KEY "P231"
-  PROMPT 63 56 ""             
+  PROMPT 63 55 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 58
 BEGIN
   KEY "P241"
-  PROMPT 81 56 ""             
+  PROMPT 81 55 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 59
 BEGIN
   KEY "P251"
-  PROMPT 100 56 ""             
+  PROMPT 100 55 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 60
 BEGIN
   KEY "P261"
-  PROMPT 119 56 ""            
+  PROMPT 119 55 ""            
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 61
 BEGIN
   KEY "P222"
-  PROMPT 44 57 ""             
+  PROMPT 44 56 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 62
 BEGIN
   KEY "P232"
-  PROMPT 63 57 ""             
+  PROMPT 63 56 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 63
 BEGIN
   KEY "P242"
-  PROMPT 81 57 ""             
+  PROMPT 81 56 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 64
 BEGIN
   KEY "P252"
-  PROMPT 100 57 ""             
+  PROMPT 100 56 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 65
 BEGIN
   KEY "P262"
-  PROMPT 119 57 ""            
+  PROMPT 119 56 ""            
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 66
 BEGIN
   KEY "P223"
-  PROMPT 44 58 ""             
+  PROMPT 44 57 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 67
 BEGIN
   KEY "P233"
-  PROMPT 63 58 ""             
+  PROMPT 63 57 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 68
 BEGIN
   KEY "P243"
-  PROMPT 81 58 ""             
+  PROMPT 81 57 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 69
 BEGIN
   KEY "P253"
-  PROMPT 100 58 ""             
+  PROMPT 100 57 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 70
 BEGIN
   KEY "P263"
-  PROMPT 119 58 ""            
+  PROMPT 119 57 ""            
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 71
 BEGIN
   KEY "P224"
-  PROMPT 44 59 ""             
+  PROMPT 44 58 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 72
 BEGIN
   KEY "P234"
-  PROMPT 63 59 ""             
+  PROMPT 63 58 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 73
 BEGIN
   KEY "P244"
-  PROMPT 81 59 ""             
+  PROMPT 81 58 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 74
 BEGIN
   KEY "P254"
-  PROMPT 100 59 ""             
+  PROMPT 100 58 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 75
 BEGIN
   KEY "P264"
-  PROMPT 119 59 ""            
+  PROMPT 119 58 ""            
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 76
 BEGIN
   KEY "P225"
-  PROMPT 44 60 ""             
+  PROMPT 44 59 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 77
 BEGIN
   KEY "P235"
-  PROMPT 63 60 ""             
+  PROMPT 63 59 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 78
 BEGIN
   KEY "P245"
-  PROMPT 81 60 ""             
+  PROMPT 81 59 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 79
 BEGIN
   KEY "P255"
-  PROMPT 100 60 ""             
+  PROMPT 100 59 ""             
   PICTURE "###.###.###^^^"    
 END
 
 NUMBER 80
 BEGIN
   KEY "P265"
-  PROMPT 119 60 ""            
+  PROMPT 119 59 ""            
   PICTURE "###.###.###^^^"    
 END
 
@@ -630,7 +630,7 @@ END
 NUMBER 81
 BEGIN
   KEY "P22TOT"
-  PROMPT 44 61 ""             
+  PROMPT 44 60 ""             
   PICTURE "###.###.###^^^"    
   FIELD 70->P22TOT
 END
@@ -638,7 +638,7 @@ END
 NUMBER 82
 BEGIN
   KEY "P23TOT"
-  PROMPT 63 61 ""             
+  PROMPT 63 60 ""             
   PICTURE "###.###.###^^^"    
   FIELD 70->P23TOT
 END
@@ -646,7 +646,7 @@ END
 NUMBER 83
 BEGIN
   KEY "P24TOT"
-  PROMPT 81 61 ""             
+  PROMPT 81 60 ""             
   PICTURE "###.###.###^^^"    
   FIELD 70->P24TOT
 END
@@ -654,7 +654,7 @@ END
 NUMBER 84
 BEGIN
   KEY "P25TOT"
-  PROMPT 100 61 ""             
+  PROMPT 100 60 ""             
   PICTURE "###.###.###^^^"    
   FIELD 70->P25TOT
 END
@@ -662,7 +662,7 @@ END
 NUMBER 85
 BEGIN
   KEY "P26TOT"
-  PROMPT 119 61 ""            
+  PROMPT 119 60 ""            
   PICTURE "###.###.###^^^"    
   FIELD 70->P26TOT
 END
diff --git a/m770/77qgd.frm b/m770/77qgd.frm
index a9f3c495f..896dda716 100755
--- a/m770/77qgd.frm
+++ b/m770/77qgd.frm
@@ -1,4 +1,6 @@
 USE 101
+JOIN  9 TO 101 INTO CODDITTA==CODDITTA
+JOIN  6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
 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
@@ -31,7 +33,7 @@ BEGIN
   FI 131
 END
 
-SECTION HEADER FIRST 17
+SECTION HEADER FIRST 15
 
 STRINGA 13
 BEGIN
@@ -142,7 +144,7 @@ BEGIN
   KEY "NUMERO QUOTE"
   PROMPT 125 5 ""
   FIELD 101->NUMQUOTE   
-  PICTURE ".2"
+  PICTURE "###@@"
 END
 
 NUMBER 12
@@ -244,7 +246,7 @@ BEGIN
   KEY "NUMERO QUOTE"
   PROMPT 128 3 ""
   FIELD 101->NUMQUOTE 
-  PICTURE ".2"   
+  PICTURE "###@@"   
 END
 
 NUMBER 12
@@ -347,4 +349,11 @@ BEGIN
   PICTURE "###.###.###^^^"
 END
 
+STRINGA 16
+BEGIN
+ KEY "FIRMA"
+ PROMPT 83 13 ""
+ FIELD 106@->RAGSOC
+END
+
 END
diff --git a/m770/77ql.frm b/m770/77ql.frm
index 89f99a00e..6515a3440 100755
--- a/m770/77ql.frm
+++ b/m770/77ql.frm
@@ -25,6 +25,12 @@ END
 
 SECTION HEADER FIRST 10
 
+NUMERO 18
+BEGIN
+  KEY "NUMERO FOGLIO"
+  PROMPT 128 1 ""
+END
+
 LISTA 1
 BEGIN
  KEY "Tipo anagrafica"
@@ -37,14 +43,14 @@ END
 STRINGA 2
 BEGIN
  KEY "CODICE FISCALE"
- PROMPT 21 1 ""
+ PROMPT 21 5 ""
  FIELD 106@->COFI
 END
 
 STRINGA 3
 BEGIN
  KEY "RAGIONE SOCIALE (o cognome)"
- PROMPT 51 1 ""
+ PROMPT 51 5 ""
  GROUP  2
  FIELD 106@->RAGSOC
 END
@@ -52,7 +58,7 @@ END
 STRINGA 4
 BEGIN
  KEY "COGNOME (o ragsoc)"
- PROMPT 51 1 ""
+ PROMPT 51 5 ""
  GROUP  1
  FIELD 106@->RAGSOC[1,30]
 END
@@ -60,7 +66,7 @@ END
 STRINGA 5
 BEGIN
  KEY "NOME"
- PROMPT 21 4 ""
+ PROMPT 21 8 ""
  GROUP  1
  FIELD 106@->RAGSOC[31,50]
 END
@@ -68,7 +74,7 @@ END
 LISTA 6
 BEGIN
   KEY "SESSO M"
-  PROMPT 53 4 ""  
+  PROMPT 53 8 ""  
   ITEM " | "
   ITEM "M|X"
   ITEM "F|"
@@ -79,7 +85,7 @@ END
 LISTA 7
 BEGIN
   KEY "SESSO F"
-  PROMPT 62 4 ""
+  PROMPT 62 8 ""
   ITEM " | "  
   ITEM "M|"
   ITEM "F|X"
@@ -90,7 +96,7 @@ END
 STRINGA 8
 BEGIN
   KEY "DATA DI NASCITA"
-  PROMPT 68 4 ""
+  PROMPT 68 8 ""
   GROUP  1
   FIELD 108@->DATANASC
   PICTURE "## ^ ##  ^^###"  
@@ -99,7 +105,7 @@ END
 STRINGA 9
 BEGIN
  KEY "COMUNE DI NASCITA"
- PROMPT 85 4 ""
+ PROMPT 85 8 ""
  GROUP  1
  FIELD 113@->DENCOM
 END
@@ -107,7 +113,7 @@ END
 STRINGA 10
 BEGIN
  KEY "PROV. DI NASCITA"
- PROMPT 129 4 ""
+ PROMPT 129 8 ""
  GROUP  1
  FIELD 113@->PROVCOM
 END
@@ -115,48 +121,48 @@ END
 STRINGA 11
 BEGIN
  KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
- PROMPT 56 6 ""
+ PROMPT 56 10 ""
 END
 
 STRINGA 12
 BEGIN
   KEY "Cod.Conc.1"
-  PROMPT 41 9 ""
+  PROMPT 41 13 ""
   FIELD 37->L0CCONC1
 END
 
 STRINGA 13
 BEGIN
   KEY "Cod.Conc.2"
-  PROMPT 53 9 ""
+  PROMPT 53 13 ""
   FIELD 37->L0CCONC2
 END
 
 STRINGA 14
 BEGIN
   KEY "Cod.Conc.3"
-  PROMPT 63 9 ""
+  PROMPT 63 13 ""
   FIELD 37->L0CCONC3
 END
 
 NUMERO 15
 BEGIN
   KEY "Cod.Tes.1"
-  PROMPT 102 9 ""
+  PROMPT 102 13 ""
   FIELD 37->L0CTES1
 END
 
 NUMERO 16
 BEGIN
   KEY "Cod.Tes.2"
-  PROMPT 114 9 ""
+  PROMPT 114 13 ""
   FIELD 37->L0CTES2
 END
 
 NUMERO 17
 BEGIN
   KEY "Cod.Tes.3"
-  PROMPT 126 9 ""
+  PROMPT 126 13 ""
   FIELD 37->L0CTES3
 END
 
diff --git a/m770/77qn.frm b/m770/77qn.frm
index abdaca0cc..b4c081d4f 100755
--- a/m770/77qn.frm
+++ b/m770/77qn.frm
@@ -42,6 +42,12 @@ END
 
 SECTION HEADER FIRST 7
 
+NUMERO 12
+BEGIN
+  KEY "NUMERO FOGLIO"
+  PROMPT 128 1 ""
+END
+
 LISTA 1
 BEGIN
  KEY "Tipo anagrafica"
@@ -54,14 +60,14 @@ END
 STRINGA 2
 BEGIN
  KEY "CODICE FISCALE"
- PROMPT 21 1 ""
+ PROMPT 21 5 ""
  FIELD 106@->COFI
 END
 
 STRINGA 3
 BEGIN
  KEY "RAGIONE SOCIALE (o cognome)"
- PROMPT 51 1 ""
+ PROMPT 51 5 ""
  GROUP  2
  FIELD 106@->RAGSOC
 END
@@ -69,7 +75,7 @@ END
 STRINGA 4
 BEGIN
  KEY "COGNOME (o ragsoc)"
- PROMPT 51 1 ""
+ PROMPT 51 5 ""
  GROUP  1
  FIELD 106@->RAGSOC[1,30]
 END
@@ -77,7 +83,7 @@ END
 STRINGA 5
 BEGIN
  KEY "NOME"
- PROMPT 21 4 ""
+ PROMPT 21 8 ""
  GROUP  1
  FIELD 106@->RAGSOC[31,50]
 END
@@ -85,7 +91,7 @@ END
 LISTA 6
 BEGIN
   KEY "SESSO M"
-  PROMPT 53 4 ""  
+  PROMPT 53 8 ""  
   ITEM " | "
   ITEM "M|X"
   ITEM "F|"
@@ -96,7 +102,7 @@ END
 LISTA 7
 BEGIN
   KEY "SESSO F"
-  PROMPT 62 4 ""
+  PROMPT 62 8 ""
   ITEM " | "  
   ITEM "M|"
   ITEM "F|X"
@@ -107,7 +113,7 @@ END
 STRINGA 8
 BEGIN
   KEY "DATA DI NASCITA"
-  PROMPT 68 4 ""
+  PROMPT 68 8 ""
   GROUP  1
   FIELD 108@->DATANASC
   PICTURE "## ^ ##  ^^###"  
@@ -116,7 +122,7 @@ END
 STRINGA 9
 BEGIN
  KEY "COMUNE DI NASCITA"
- PROMPT 85 4 ""
+ PROMPT 85 8 ""
  GROUP  1
  FIELD 113@->DENCOM
 END
@@ -124,7 +130,7 @@ END
 STRINGA 10
 BEGIN
  KEY "PROV. DI NASCITA"
- PROMPT 129 4 ""
+ PROMPT 129 8 ""
  GROUP  1
  FIELD 113@->PROVCOM
 END
@@ -132,7 +138,7 @@ END
 STRINGA 11
 BEGIN
  KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
- PROMPT 56 6 ""
+ PROMPT 56 10 ""
 END
 
 END
diff --git a/m770/77stba.cpp b/m770/77stba.cpp
index 0f08ce48b..88436557e 100755
--- a/m770/77stba.cpp
+++ b/m770/77stba.cpp
@@ -110,13 +110,17 @@ void TBase1::stampa_soci(TPrinter& pr)
       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;
+//      fut.field(0).set(sRagsoc);  
+      sRagsoc:=fut.field(0).get();
+      if (sRagsoc.len() > 30 && sRagsoc[30] != ' ')
+      {
+	      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);      
@@ -572,7 +576,8 @@ void TBase4::stampa_Q(TPrinter& pr)
   TPrint_section& body = section('F', even_page);
   body.reset();                                     
   TLocalisamfile qp(LF_QUAQ);
-  _righeQT.fill(_codditta,qp);
+  _righeQT.fill(_codditta,qp);    
+  if (_righeQT.items()==0) return;  
   _bAggQ = _righeQT.items() > _RIGHE_Q;
 
   int riga=0;
@@ -600,6 +605,7 @@ void TBase4::stampa_T(TPrinter& pr)
   body.reset();                                     
   TLocalisamfile qp(LF_QUAT);
   _righeQT.fill(_codditta,qp);
+  if (_righeQT.items()==0) return;
   _bAggT = _righeQT.items() > _RIGHE_T;
 
   int riga=0;
@@ -662,7 +668,8 @@ void TBase4::stampa_P(TPrinter& pr)
   TPrint_section& body = section('H', even_page);
   body.reset();                                     
   TLocalisamfile qp(LF_QUAP);
-  _righePS.fill(_codditta,qp);
+  _righePS.fill(_codditta,qp);    
+  if (_righePS.items()==0) return;  
   const int items=_righePS.items();
   _bAggP = items > _RIGHE_P;
 
@@ -690,7 +697,8 @@ void TBase4::stampa_S(TPrinter& pr)
   TPrint_section& body = section('H', even_page);
   body.reset();                                     
   TLocalisamfile qp(LF_QUAS);
-  _righePS.fill(_codditta,qp);
+  _righePS.fill(_codditta,qp);      
+  if (_righePS.items()==0) return;    
   _bAggS = _righePS.items() > _RIGHE_S;
 
   int riga=0;
@@ -717,7 +725,8 @@ void TBase4::stampa_R(TPrinter& pr)
   TPrint_section& body = section('B', even_page);
   body.reset();                                     
   TLocalisamfile qr(LF_QUAR);
-  _righeNR.fill(_codditta,qr);
+  _righeNR.fill(_codditta,qr);      
+  if (_righeNR.items()==0) return;    
   const int items=_righeNR.items();
 // se iRigheNR > 2 => bisogna stampare anche l'allegato
   _bAggR = items > _RIGHE_R;
@@ -788,7 +797,8 @@ void TBase4::stampa_N(TPrinter& pr)
   TPrint_section& body = section('B', odd_page);
   body.reset();                                     
   TLocalisamfile qn(LF_QUAN);
-  _righeNR.fill(_codditta,qn);
+  _righeNR.fill(_codditta,qn);        
+  if (_righeNR.items()==0) return;      
 // se iRigheN > 6 => bisogna stampare anche l'allegato
   _bAggN = _righeNR.items() > _RIGHE_N;
 
@@ -956,9 +966,9 @@ int TQuadroL::prima_riga(PaginaQuadro p) const
   if (p==PRIMA)
   {
     if (_PaginaPosizionamento)
-      return 8;
+      return 4;
     else
-      return 8+HEADER_PRIMA_NOPOS;
+      return 4+HEADER_PRIMA_NOPOS;
   }
   else
     return 4;
@@ -975,11 +985,16 @@ long TQuadroL::filtra(const long codditta)
   return items;
 }
 
-
 void TQuadroL::stampa_testata(TPrinter& pr)
 {
   TPrint_section& hh = section('H', first_page);
   hh.reset();
+
+  TForm_item& nf=hh.find_field(18);
+  TString fstr(10); fstr << _num_foglio;
+  nf.set(fstr);      
+  _num_foglio++;
+  
   hh.update();       
   const int hhr = hh.height();
   for (int i = 0; i < hhr; i++)
@@ -1054,6 +1069,10 @@ bool TQuadroL::print(const long codditta, const long NumFis, const long NumNoFis
   if (!InitPrint(codditta))
     return FALSE;
 
+// Non stampare se non ci sono record
+  if (cur->items() < _START_AGG_L-1)                
+    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"); 
@@ -1122,6 +1141,12 @@ void TQuadroN::stampa_testata(TPrinter& pr)
 {
   TPrint_section& hh = section('H', first_page);
   hh.reset();
+  
+  TForm_item& nf=hh.find_field(12);
+  TString fstr(10); fstr << _num_foglio;
+  nf.set(fstr);      
+  _num_foglio++;
+  
   hh.update();       
   const int hhr = hh.height();
   for (int i = 0; i < hhr; i++)
@@ -1136,9 +1161,9 @@ void TQuadroN::stampa_testata(TPrinter& pr)
 int TQuadroN::prima_riga(PaginaQuadro p) const
 {
   if (_PaginaPosizionamento)
-    return 8;
+    return 4;
   else
-    return 8+HEADER_PRIMA_NOPOS;
+    return 4+HEADER_PRIMA_NOPOS;
 }
 
 /*void TBase4::fill_riga_QT(TPrint_section& sec,const int num)
@@ -1212,8 +1237,8 @@ void TQuadroN::stampa_N(TPrinter& pr)
 { 
   TPrint_section& body = section('B', odd_page);
   body.reset();                                     
-  TLocalisamfile qn(LF_QUAN);
-  _righeNR.fill(_codditta,qn);
+//  TLocalisamfile qn(LF_QUAN);
+//  _righeNR.fill(_codditta,qn);
 // Nell'aggiuntivo parto dal record n.7
   int num=6;                
   int riga=0;
@@ -1240,8 +1265,8 @@ void TQuadroN::stampa_P(TPrinter& pr)
 {
   TPrint_section& body = section('H', even_page);
   body.reset();                                     
-  TLocalisamfile qp(LF_QUAP);
-  _righePS.fill(_codditta,qp);
+//  TLocalisamfile qp(LF_QUAP);
+//  _righePS.fill(_codditta,qp);
   const int items=_righePS.items();
 // Parte da rec.n.5
   int riga=4;
@@ -1265,8 +1290,8 @@ void TQuadroN::stampa_Q(TPrinter& pr)
 {
   TPrint_section& body = section('F', even_page);
   body.reset();                                     
-  TLocalisamfile qp(LF_QUAQ);
-  _righeQT.fill(_codditta,qp);
+//  TLocalisamfile qp(LF_QUAQ);
+//  _righeQT.fill(_codditta,qp);
 // parte da rec.n.5
   int riga=4;
   bool FinitaSezione=FALSE;
@@ -1291,8 +1316,8 @@ void TQuadroN::stampa_R(TPrinter& pr)
 {
   TPrint_section& body = section('B', even_page);
   body.reset();                                     
-  TLocalisamfile qr(LF_QUAR);
-  _righeNR.fill(_codditta,qr);
+//  TLocalisamfile qr(LF_QUAR);
+//  _righeNR.fill(_codditta,qr);
   const int items=_righeNR.items();
   int RecNum=2;       
   int RigheStampate=0;
@@ -1318,8 +1343,8 @@ void TQuadroN::stampa_S(TPrinter& pr)
 {
   TPrint_section& body = section('H', even_page);
   body.reset();                                     
-  TLocalisamfile qp(LF_QUAS);
-  _righePS.fill(_codditta,qp);
+//  TLocalisamfile qp(LF_QUAS);
+//  _righePS.fill(_codditta,qp);
 
   int riga=4;
   bool FinitaSezione=FALSE;
@@ -1342,8 +1367,8 @@ void TQuadroN::stampa_T(TPrinter& pr)
 {
   TPrint_section& body = section('F', odd_page);
   body.reset();                                     
-  TLocalisamfile qp(LF_QUAT);
-  _righeQT.fill(_codditta,qp);
+//  TLocalisamfile qp(LF_QUAT);
+//  _righeQT.fill(_codditta,qp);
   int riga=4;
   bool FinitaSezione=FALSE;
   while (!FinitaSezione)
@@ -1406,9 +1431,34 @@ bool TQuadroN::print(const long codditta, const long NumFis, const long NumNoFis
   _codditta=codditta;
   if (!InitPrint(codditta))
     return FALSE;
+
+  TLocalisamfile qn(LF_QUAN);
+  _righeNR.fill(_codditta,qn);
+  bool stampoN=_righeNR.items() > 6;
+  TLocalisamfile qp(LF_QUAP);
+  _righePS.fill(_codditta,qp);      
+  bool stampoP=_righePS.items() > 4;  
+  TLocalisamfile qq(LF_QUAQ);
+  _righeQT.fill(_codditta,qq);        
+  bool stampoQ=_righeQT.items() > 4;    
+  TLocalisamfile qr(LF_QUAR);
+  _righeNR.fill(_codditta,qr);
+  bool stampoR=_righeNR.items() > 2;    
+  TLocalisamfile qs(LF_QUAS);
+  _righePS.fill(_codditta,qs);     
+  bool stampoS=_righePS.items() > 4;    
+  TLocalisamfile qt(LF_QUAT);
+  _righeQT.fill(_codditta,qt);
+  bool stampoT=_righeQT.items() > 4;  
+
+// Se non c'e' niente da stampare esce
+  if (!stampoN && !stampoP && !stampoQ && !stampoR && !stampoS
+      && !stampoT) 
+    return FALSE;
+  
   pr.formlen(TDicForm::dic_form_len());
   _RigaCorr=0;
-  (*cur)=0L;                              
+  (*cur)=0L;
   bool done=FALSE;
   while (!done)
   {
diff --git a/m770/77stba.h b/m770/77stba.h
index 28b586860..dd3069ac6 100755
--- a/m770/77stba.h
+++ b/m770/77stba.h
@@ -248,6 +248,7 @@ class TQuadroL : public TDicForm
   private:  
     long  _codditta;                              
     real	_rRitEff, _rRitVer;
+    int 	_num_foglio;
   protected:                          
     void stampa_testata(TPrinter& pr);                        
     void stampa_totali_L(TPrinter& pr);
@@ -259,7 +260,7 @@ class TQuadroL : public TDicForm
     void 		CalcolaTotalePrecedenti(TCursor* cur, const int _START_AGG_L);
   public:                 
     virtual bool  print(const long codditta, const long NumFis, const long NumNoFis);
-    TQuadroL(const char* sNomeForm, const char* quadro) : _rRitEff(ZERO),_rRitVer(ZERO),TDicForm(sNomeForm, quadro)  {}
+    TQuadroL(const char* sNomeForm, const char* quadro) : _rRitEff(ZERO),_rRitVer(ZERO),TDicForm(sNomeForm, quadro)  {_num_foglio=0;}
     virtual ~TQuadroL() {}
 };      
 
@@ -281,6 +282,7 @@ class TStampaQuadroAggL : public TStampaQuadro
 class TQuadroN : public TBase4
 {
     long	_codditta;
+    int		_num_foglio;
   public:                             
     void stampa_fine(TPrinter& pr);
     void stampa_N(TPrinter& pr);   
@@ -290,9 +292,10 @@ class TQuadroN : public TBase4
     void stampa_S(TPrinter& pr);                  
     void stampa_T(TPrinter& pr);          
     void stampa_testata(TPrinter& pr);
-    virtual int   prima_riga(PaginaQuadro p) const;
+    virtual int   prima_riga(PaginaQuadro p) const;             
+    virtual void  next_page(TPrinter& pr) { fill_page(pr, -1); }    
     virtual bool  print(const long codditta, const long NumFis, const long NumNoFis);
-    TQuadroN(const char* sNomeForm, const char* quadro) : TBase4(sNomeForm, quadro) { _IdFirma=2; }
+    TQuadroN(const char* sNomeForm, const char* quadro) : TBase4(sNomeForm, quadro) { _IdFirma=2; _num_foglio=0;}
     virtual ~TQuadroN() {}
 };
 
diff --git a/m770/77stq.cpp b/m770/77stq.cpp
index 823e89fdd..76dba9c3c 100755
--- a/m770/77stq.cpp
+++ b/m770/77stq.cpp
@@ -723,7 +723,7 @@ void TDicForm::posiziona()
 
 HIDDEN const int QG_FORMLEN = 72;
 HIDDEN const int QG_PAGINE  = 2;
-HIDDEN const int HEADER_SECONDA_G = 7;
+HIDDEN const int HEADER_SECONDA_G = 8;
 
 class TQuadroG : public TDicForm
 {
@@ -849,11 +849,8 @@ void TQuadroG::stampa_prospetti1_2(TPrinter& pr)
       if (!PaginaPosizionamento())
         fill_page(pr, HEADER_PRIMA_NOPOS);
     }             
-    else
-    {
     pr.print(head.row(j));
     _RigaCorr++;
-    }
   }
 //  fill_page(pr, -1);   // formfeed "adattato"  
 //  inc_curr_page();
@@ -875,7 +872,15 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
   TToken_string p35b(r.get("P35B"));    
   TToken_string p36a(r.get("P36A"));        
   TToken_string p36b(r.get("P36B"));        
-    
+
+  TString dep1,dep2,dep3,dep4;
+// Stabilisce se ci vuole l'aggiuntivo    
+  dep1=p35a.get(6);
+  dep2=p35a.get(10);
+  dep3=p35a.get(13);
+  dep4=p35a.get(16);
+  bool bAggiuntivo=!dep1.blank() || !dep2.blank() || !dep3.blank() || !dep4.blank();
+        
 // colonna 2 e 7  
   int  k = 1;    
   real tot2,tot7,tot_tot2,tot_tot7;
@@ -905,14 +910,18 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
       k++;
       tot2 = ZERO;
       tot7 = ZERO;  
-      if (i == 18)
-      { 
-        TForm_item& t2 = sez.find_field(k);  
-        TForm_item& t7 = sez.find_field(k+54);  
-    
-        t2.set(tot_tot2.string());
-        t7.set(tot_tot7.string());   
-      }
+// Stampa totali  
+      TForm_item& t2 = sez.find_field(k);  
+      if (!bAggiuntivo)
+      {
+        if (i == 18)
+	      { 
+	        TForm_item& t7 = sez.find_field(k+54);  
+	        t2.set(tot_tot2.string());
+	        t7.set(tot_tot7.string());   
+	      }
+	    }
+	    else t2.set("VEDI ALLEGATO");
     }
   }
 
@@ -923,7 +932,8 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
   int c3=0;                    
   real totale = ZERO;
   for (i = 0, k = 0; i < RIGHE_P3; i++)
-  {                       
+  {            
+// Salta le righe dell'aggiuntivo             
     if (i == 6 || i == 10 || i == 13 || i ==16 || i == 19) continue;
     
     c3 = START_P3_COL3 + k;
@@ -932,7 +942,7 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
     if (i != 20)
       c5a.set(importo.string());  
     else
-      c5a.set(totale.string());  
+      if (!bAggiuntivo) c5a.set(totale.string());  
     totale += importo;  
     k++;  
   }                        
@@ -951,7 +961,7 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
     if (i != 20)
       c5a.set(importo.string());  
     else
-      c5a.set(totale.string());  
+      if (!bAggiuntivo) c5a.set(totale.string());  
     totale += importo;  
     k++;
   }                                                                             
@@ -970,7 +980,7 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
     if (i != 20)
       c6a.set(importo.string());  
     else
-      c6a.set(totale.string());  
+      if (!bAggiuntivo) c6a.set(totale.string());  
     totale += importo;  
     k++;
   }                                                                             
@@ -1013,12 +1023,15 @@ bool TQuadroG::print(const long codditta, const long NumFis, const long NumNoFis
 
   for (int pagina=1; pagina <= QG_PAGINE; pagina++, next_page(pr))
   {
-    pr.formlen(QG_FORMLEN);             
-    
+    pr.formlen(dic_form_len());             
+  
     if (_PaginaCorrente == PRIMA)
     {                      
+	    if (!_PaginaPosizionamento)
+	      fill_page(pr,HEADER_PRIMA_NOPOS);
+      
       if (_modulaser) ClearFlagModulaser();
-
+     
       (*cur) = PtrFis >= 0L ? PtrFis : 0L;
       stampa_prospetti1_2(pr);
     }
@@ -1027,7 +1040,7 @@ bool TQuadroG::print(const long codditta, const long NumFis, const long NumNoFis
     {
 // Reset del flag di pagina con posiz.      
       if (_posiziona && _PaginaPosizionamento) _PaginaPosizionamento = FALSE;
-
+      pr.formlen(dic_form_len());             
       fill_page(pr, HEADER_SECONDA_G);
       stampa_prospetti3_4(pr);          
     }
@@ -1044,7 +1057,6 @@ bool TQuadroG::print(const long codditta, const long NumFis, const long NumNoFis
 
 HIDDEN const int QGD_FORMLEN       = 72;
 HIDDEN const int QGD_PAGINE        = 2;  
-HIDDEN const int HEADER_PRIMA_GD   = 17;
 HIDDEN const int HEADER_SECONDA_GD = 15;
 HIDDEN const int QGD_RIGHE_PRIMA   = 5;
 HIDDEN const int QGD_RIGHE_SECONDA = 6;
@@ -1055,16 +1067,32 @@ class TDistintaG : public TQuadroG
     virtual void  stampa_totali(TPrinter& pr);
     virtual void  next_page(TPrinter& pr);
     virtual void  set_body(TPrinter& pr, const char tipo);
-    
-//    void    stampa_testata(TPrinter& pr);
-    
+    int calcola_firma();
   public:                 
     virtual bool  print(const long codditta, const long NumFis, const long NumNoFis);
-
     TDistintaG(const char* form, const char* quadro) : TQuadroG(form,quadro) {}
     virtual ~TDistintaG() {} 
 };      
 
+int TDistintaG::calcola_firma()
+{
+  TPrint_section& totali = section('F', even_page);
+  TForm_item& signature = totali.find_field(16);
+  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 TDistintaG::stampa_totali(TPrinter& pr)
 { 
   PaginaQuadro PagCorr = curr_page();
@@ -1083,6 +1111,7 @@ void TDistintaG::stampa_totali(TPrinter& pr)
     {
       TPrint_section& totali = section('F', even_page);
       totali.update();
+      const int lasty = calcola_firma();      
       for (int i = 0; i < totali.items(); i++)
       {
         pr.print(totali.row(i));
@@ -1196,9 +1225,11 @@ bool TDistintaG::print(const long codditta, const long NumFis, const long NumNoF
             stampa_testata(pr);
           }
         
+          _EndPrintDitta=_finite_fis && _finite_nofis;          
+          
           if (_finite_fis || StabilitaInesistenzaFis)
             break;
-          
+
 // La prima volta si deve posizionare sul primo record di p.f.
           if (PtrFis<0L && !StabilitaInesistenzaFis)
           {
@@ -1289,7 +1320,10 @@ bool TDistintaG::print(const long codditta, const long NumFis, const long NumNoF
             }                                        
             StabilitaInesistenzaNoFis = !Trovato;
           }
-        
+
+// Gestisce i casi in cui non ci sono percipienti nella distinta..
+          if (items==0) _EndPrintDitta=TRUE;                    
+          
           if (StabilitaInesistenzaNoFis)
             break;
         
@@ -2674,14 +2708,11 @@ class TStampaQuadroD1 : public TStampaQuadro
 {
     TQuadroD1* _form;
     TCursor*   _cur;        
-
-protected:   
+  protected:   
     virtual bool  user_create();
     virtual bool  user_destroy();
-
     virtual TDicForm* get_form() const   { return _form; }
     virtual TCursor*  get_cursor() const { return _cur; }
-        
   public:
     TStampaQuadroD1(const char* quadro, char livel);
     virtual ~TStampaQuadroD1() { }
@@ -2689,17 +2720,14 @@ protected:
 
 TStampaQuadroD1::TStampaQuadroD1(const char* quadro, char liv) 
               : TStampaQuadro(quadro, liv)
-{
-}
+{}
 
 bool TStampaQuadroD1::user_create()
 {   
   _form = new TQuadroD1("77QD1", quadro());
-                                                                
   TString sortkey(80);
   sortkey.format("CODDITTA|TIPOA|216@->RAGSOC|CODANAGR|CODCAUS|PERC", LF_QUAD1, LF_QUAD1);
   _cur = new TSorted_cursor(_form->TForm::relation(), sortkey);
-
   return TRUE;  
 }
 
@@ -2707,7 +2735,6 @@ bool TStampaQuadroD1::user_destroy()
 {
   delete _form;
   delete _cur;
-
   return TRUE;
 }
 
@@ -2718,54 +2745,29 @@ bool TStampaQuadroD1::user_destroy()
 /////////////////////////////////////////////////////////////////////////////////////////////
 class TStampaQuadroG : public TStampaQuadro
 {
-private:
-  TQuadroG*   _form_g;
-  TDistintaG*   _form_gd;
-//  TRelation*    _rel_g, * _rel_gd;
-  TCursor*    _cur_g, * _cur_gd;
-
-protected:    
-  virtual bool user_create();
-  virtual bool user_destroy();
-
-  virtual TDicForm* get_form() const { return _form_g; }    
-  virtual TCursor* get_cursor() const { return _cur_g; }    
-  
-  virtual bool print_quadro(const int OffsetDitta, const bool modulaser);
-
-public:
-  TStampaQuadroG(char livel) : TStampaQuadro("G", livel) { }
+	private:
+	  TQuadroG*   _form_g;
+	  TDistintaG*   _form_gd;
+	  TCursor*    _cur_g, * _cur_gd;
+	protected:    
+	  virtual bool user_create();
+	  virtual bool user_destroy();
+	  virtual TDicForm* get_form() const { return _form_g; }    
+	  virtual TCursor* get_cursor() const { return _cur_g; }    
+	  virtual bool print_quadro(const int OffsetDitta, const bool modulaser);
+	public:
+	  TStampaQuadroG(char livel) : TStampaQuadro("G", livel) { }
 };
 
 bool TStampaQuadroG::user_create()
 {
-/*  _rel_g = new TRelation(LF_QUAG);
-  _rel_g->add(LF_NDITTE,  "CODDITTA=CODDITTA");
-  _rel_g->add(LF_ANAG,    "TIPOA=TIPOA|CODANAGR=CODANAGR",  1, LF_NDITTE, 116);
-  _rel_g->add(LF_ANAGFIS, "CODANAGR=CODANAGR",              1, LF_ANAG, 118);    
-  _rel_g->add(LF_COMUNI,  "COM=COMNASC",                    1, LF_ANAGFIS, 113); 
-  _rel_g->add(LF_COMUNI,  "COM=COMRF(COMRES)",              1, LF_ANAG, 213); 
-  _cur_g = new TCursor(_rel_g);
-
-  _rel_gd = new TRelation(LF_QUAGD);
-  _rel_gd->add(LF_ANAG,    "TIPOA=TIPOA|CODANAGR=CODANAGR",  1, LF_QUAGD, 216);
-  _rel_gd->add("%STA",     "CODTAB=STATORES",                1, -216, 24);
-  _rel_gd->add(LF_ANAGFIS, "CODANAGR=CODANAGR",              1, -216, 218);    
-  _rel_gd->add(LF_COMUNI,  "COM=COMNASC",                    1, -218, 313); 
-  _rel_gd->add(LF_COMUNI,  "COM=COMRF(COMRES)",              1, -216, 413); 
-  _cur_gd = new TSorted_cursor(_rel_gd, "CODDITTA|TIPOA|216@->RAGSOC|CODANAGR");  
-*/
   _form_g  = new TQuadroG("77QG", quadro());
   _form_gd = new TDistintaG("77QGD", quadro());
-  
   _cur_g = new TCursor(_form_g->TForm::relation());
-  
   TString sortkey(80);
   sortkey.format("CODDITTA|TIPOA|216@->RAGSOC|CODANAGR", LF_QUAGD, LF_QUAGD);
   _cur_gd = new TSorted_cursor(_form_gd->TForm::relation(), sortkey);    
-  
   _form_gd->set_num_foglio(1);
-  
   return TRUE;
 }
 
@@ -2773,13 +2775,8 @@ bool TStampaQuadroG::user_destroy()
 {
   delete _form_gd;
   delete _form_g;
-
-//  delete _rel_gd;
   delete _cur_gd;       
-  
-//  delete _rel_g;
   delete _cur_g;
-  
   return TRUE;
 }
 
diff --git a/m770/77stq.h b/m770/77stq.h
index f944f5d7e..118921c1b 100755
--- a/m770/77stq.h
+++ b/m770/77stq.h
@@ -41,9 +41,7 @@ HIDDEN const char*  VK_STARTDOC = "<VK>&MA796&0&1";
 HIDDEN const char*  VK_ENDDOC   = "<VK>!0";
 typedef enum { STARTDOC, STARTDITTA, STARTPAGE, ENDDOC } ModulaserKey;
 
-// Campi form   
-#define FIRMADIC    2      // Per usare la funzione firma_dichiarante() ricordarsi di definire
-                           // nel footer il blocco dellla firma con id = 2
+// Campi form
 #define TOT_TOTALE  1
 #define TOT_SNSRIT  2
 #define TOT_IMPON 	3
@@ -172,7 +170,6 @@ class TDicForm : public TForm
     void    set_num_foglio(const int foglio) { _num_foglio = foglio; }
     int     num_foglio() const { return _num_foglio; }
     virtual void azzera_totali();
-    void    firma_dichiarante();
     PaginaQuadro    curr_page() const { return _PaginaCorrente; }
 //    TCursor&    cur();                                  
     
diff --git a/m770/77stqab.cpp b/m770/77stqab.cpp
index bb0c2394b..f7a740c24 100755
--- a/m770/77stqab.cpp
+++ b/m770/77stqab.cpp
@@ -170,6 +170,7 @@ int TQuadroA::calcola_firma()
     TString nome = cognome.mid(30, -1);
     cognome.cut(30); cognome.trim();
     cognome << ' ' << nome;
+    signature.set(cognome);
   }   
   totali.row(y).reset();
   totali.row(y).put(cognome, signature.x()-1);