From b2c68e593c732911e768ff7b089b77acfbf5f894 Mon Sep 17 00:00:00 2001
From: guy <guy@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 4 Aug 1998 07:34:49 +0000
Subject: [PATCH] Patch level         : Files correlati     : Ricompilazione
 Demo : [ ] Commento            : Modificati quadri per gestire trasferimenti
 (aggiunto uno SPECIAL) Aggiunto programma 777 di trasferimento 770

git-svn-id: svn://10.65.10.50/trunk@6908 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 m770/777.cpp    |  15 +++
 m770/777.h      |   1 +
 m770/777.url    |   4 +
 m770/77qc.frm   |  63 +++++++++---
 m770/77qd.frm   |  33 +++++-
 m770/77qd1.frm  |  31 +++++-
 m770/77qdb.frm  |  37 ++++++-
 m770/77qe.frm   |  24 ++++-
 m770/77qe1.frm  |  22 +++-
 m770/77ql.frm   |  17 ++-
 m770/77qsk.frm  | 268 ++++++++++++++++++++++++++++++++++++++++++++++++
 m770/77stqc.cpp |  35 +++----
 12 files changed, 509 insertions(+), 41 deletions(-)
 create mode 100755 m770/777.cpp
 create mode 100755 m770/777.h
 create mode 100755 m770/777.url
 create mode 100755 m770/77qsk.frm

diff --git a/m770/777.cpp b/m770/777.cpp
new file mode 100755
index 000000000..8ab29f19d
--- /dev/null
+++ b/m770/777.cpp
@@ -0,0 +1,15 @@
+#include <xvt.h>
+
+#include "777.h"
+
+int main(int argc,char** argv)
+{
+  const int n = (argc > 1) ? atoi(argv[1]+1) : -1;
+  switch(n)
+  {
+  case  0: m777100(argc, argv); break;
+  default: break;
+  }
+  exit(0);
+  return 0;
+}
\ No newline at end of file
diff --git a/m770/777.h b/m770/777.h
new file mode 100755
index 000000000..2030ff453
--- /dev/null
+++ b/m770/777.h
@@ -0,0 +1 @@
+int m777100(int argc, char* argv[]);
\ No newline at end of file
diff --git a/m770/777.url b/m770/777.url
new file mode 100755
index 000000000..5551b60d9
--- /dev/null
+++ b/m770/777.url
@@ -0,0 +1,4 @@
+#include <default.url>
+
+
+
diff --git a/m770/77qc.frm b/m770/77qc.frm
index 8120a87d6..71166d61e 100755
--- a/m770/77qc.frm
+++ b/m770/77qc.frm
@@ -1,7 +1,7 @@
 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 %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  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 STATO=="" COM==COMNASC
@@ -10,7 +10,7 @@ END
 
 DESCRIPTION
 BEGIN
-  61->* "Quadro C 770"
+  61->* "Quadro SC 770"
   9->* "Ditte"
   6->* "Anagrafica persone fisiche e giuridiche"
   8->* "Anagrafica persone fisiche"
@@ -22,7 +22,7 @@ END
 
 GENERAL
 BEGIN
- 	OFFSET 0 0
+  OFFSET 0 0
   FONT "Roman 17cpi"
   SIZE 12
   CA "X"           
@@ -37,6 +37,7 @@ BEGIN
   KEY "CODICE FISCALE"
   PROMPT 53 5 ""
   FIELD 116@->COFI
+  SPECIAL STRINGA TRASFER "SC0101" ""
 END
 
 STRINGA 3
@@ -68,6 +69,7 @@ BEGIN
   KEY "COD.FIS"
   PROMPT 9 2 ""
   FIELD 216@->COFI
+  SPECIAL STRINGA TRASFER "SC0201" ""
 END
 
 STRING 2
@@ -75,6 +77,7 @@ BEGIN
   KEY "COGNOME"
   PROMPT 42 2 ""
   FIELD 216@->RAGSOC[1,30]
+  SPECIAL STRINGA TRASFER "SC0202" ""
   GROUP 1
 END
 
@@ -83,6 +86,7 @@ BEGIN
   KEY "NOME"
   PROMPT 79 2 ""
   FIELD 216@->RAGSOC[31,50]
+  SPECIAL STRINGA TRASFER "SC0203" ""
   GROUP 1
 END
 
@@ -91,6 +95,7 @@ BEGIN
   KEY "DATA NASCITA"
   PROMPT 112 2 ""
   FIELD 218@->DATANASC
+  SPECIAL STRINGA TRASFER "SC0204" ""
 END
 
 STRING 5
@@ -98,6 +103,7 @@ BEGIN
   KEY "SESSO"
   PROMPT 126 2 ""
   FIELD 218@->SESSO
+  SPECIAL STRINGA TRASFER "SC0205" ""
 END
 
 STRING 6
@@ -105,6 +111,7 @@ BEGIN
   KEY "COMUNE DI NASCITA"
   PROMPT 9 4 ""
   FIELD 313@->DENCOM
+  SPECIAL STRINGA TRASFER "SC0206" ""
   GROUP 1
 END
 
@@ -113,6 +120,7 @@ BEGIN
   KEY "PROV DI NASCITA"
   PROMPT 46 4 ""
   FIELD 313@->PROVCOM
+  SPECIAL STRINGA TRASFER "SC0207" ""
   GROUP 1
 END
 
@@ -121,6 +129,7 @@ BEGIN
   KEY "COMUNE DI RESIDENZA"
   PROMPT 52 4 ""
   FIELD 413@->DENCOM
+  SPECIAL STRINGA TRASFER "SC0208" ""
   GROUP 1
 END
 
@@ -129,6 +138,7 @@ BEGIN
   KEY "PROV. RESIDENZA"
   PROMPT 88 4 ""
   FIELD 413@->PROVCOM
+  SPECIAL STRINGA TRASFER "SC0209" ""
 END
 
 STRING 101
@@ -153,6 +163,7 @@ STRING 10
 BEGIN
   KEY "VIA RES. + numcivres"
   PROMPT 93 4 ""
+  SPECIAL STRINGA TRASFER "SC0210" ""
   GROUP 1
 END
 
@@ -161,6 +172,7 @@ BEGIN
   KEY "CAUSALE Quadro C"
   PROMPT 9 6 ""
   FIELD CAUSALE
+  SPECIAL STRINGA TRASFER "SC0211" ""
 END
 
 STRING 12
@@ -168,6 +180,7 @@ BEGIN
   KEY "FLAG TASSAZIONE SEPARATA"
   PROMPT 20 6 ""
   FIELD TASSAZIONE
+  SPECIAL STRINGA TRASFER "SC0212" ""
 END
 
 NUMBER 13
@@ -175,7 +188,8 @@ BEGIN
   KEY "AMMONTARE LORDO CORRISPOSTO"
   PROMPT 37 6 ""  
   PICTURE "###.###.###^^^"    
-//  FIELD AMMLORDO
+  FIELD AMMLORDO
+  SPECIAL STRINGA TRASFER "SC0213" ""
 END
 
 NUMBER 14
@@ -183,7 +197,8 @@ BEGIN
   KEY "CONTRIBUTI OBBLIGATORI"
   PROMPT 57 6 ""    
   PICTURE "###.###.###^^^"  
-//  FIELD CONTROBB
+  FIELD CONTROBB
+  SPECIAL STRINGA TRASFER "SC0214" ""
 END
 
 NUMBER 15
@@ -191,7 +206,8 @@ BEGIN
   KEY "SOMME NON SOGGETTE A RITENUTA"
   PROMPT 78 6 ""    
   PICTURE "###.###.###^^^"    
-//  FIELD SOMNONSOGG
+  FIELD SOMNONSOGG
+  SPECIAL STRINGA TRASFER "SC0215" ""
 END
 
 NUMBER 16
@@ -199,7 +215,8 @@ BEGIN
   KEY "IMPONIBILE"
   PROMPT 99 6 ""  
   PICTURE "###.###.###^^^"    
-//  FIELD IMPONIBILE
+  FIELD IMPONIBILE
+  SPECIAL STRINGA TRASFER "SC0216" ""
 END
 
 NUMBER 17
@@ -207,7 +224,8 @@ BEGIN
   KEY "IMPOSTA"
   PROMPT 119 6 ""  
   PICTURE "###.###.###^^^"    
-//  FIELD IMPOSTA
+  FIELD IMPOSTA
+  SPECIAL STRINGA TRASFER "SC0217" ""
 END
 
 NUMBER 18
@@ -215,14 +233,16 @@ BEGIN
   KEY "DETRAZIONI PER CARICHI DI FAMIGLIA"
   PROMPT 16 8 ""  
   PICTURE "###.###.###^^^"   
-//  FIELD DETCARFAM
+  FIELD DETCARFAM
+  SPECIAL STRINGA TRASFER "SC0218" ""
 END
 
 NUMBER 19
 BEGIN
   KEY "NUMERO GIORNI DETRAZIONI PER LAVORO DIPENDENTE"
   PROMPT 36 8 ""  
-//  FIELD GGLAVDIP
+  FIELD GGLAVDIP
+  SPECIAL STRINGA TRASFER "SC0219" ""
 END
 
 NUMBER 20
@@ -230,7 +250,8 @@ BEGIN
   KEY "DETRAZIONI PER LAVORO DIPENDENTE"
   PROMPT 48 8 ""  
   PICTURE "###.###.###^^^"   
-//  FIELD DETLAVDIP
+  FIELD DETLAVDIP
+  SPECIAL STRINGA TRASFER "SC0220" ""
 END
 
 NUMBER 21
@@ -238,7 +259,8 @@ BEGIN
   KEY "TOTALE DETRAZIONI"
   PROMPT 69 8 ""  
   PICTURE "###.###.###^^^"   
-//  FIELD TOTDET
+  FIELD TOTDET
+  SPECIAL STRINGA TRASFER "SC0221" ""
 END
 
 NUMBER 22
@@ -246,9 +268,20 @@ BEGIN
   KEY "RITENUTE OPERATE"
   PROMPT 89 8 ""  
   PICTURE "###.###.###^^^"   
-//  FIELD RITENUTE
+  FIELD RITENUTE
+  SPECIAL STRINGA TRASFER "SC0222" ""
 END
 
+NUMBER 23
+BEGIN
+  KEY "RITENUTE SOSPESE"
+  PROMPT 109 8 ""  
+  PICTURE "###.###.###^^^"   
+//  FIELD RITENUTE
+  SPECIAL STRINGA TRASFER "SC0223" ""
+END
+
+
 END
 
 SECTION FOOTER LAST 11
diff --git a/m770/77qd.frm b/m770/77qd.frm
index ea5339ce3..4f5a6b382 100755
--- a/m770/77qd.frm
+++ b/m770/77qd.frm
@@ -11,7 +11,7 @@ END
 
 DESCRIPTION
 BEGIN
-  62->* "Quadro D 770"
+  62->* "Quadro SF 770 ex D"
   9->* "Ditte"
   6->* "Anagrafica persone fisiche e giuridiche"
   8->* "Anagrafica persone fisiche"
@@ -76,6 +76,7 @@ BEGIN
   KEY "CODICE FISCALE"
   PROMPT 55 8  ""
   FIELD 206@->COFI
+  SPECIAL STRING TRASFER "SF0101" ""
 END
 
 STRINGA 13
@@ -117,6 +118,7 @@ BEGIN
   KEY "COD.FIS"
   PROMPT 10 1 ""
   FIELD 216@->COFI
+  SPECIAL STRING TRASFER "SF0201" ""
 END
 
 STRINGA 2
@@ -125,6 +127,7 @@ BEGIN
   PROMPT 42 1 ""
   FIELD 216@->RAGSOC[1,30]
   GROUP 1
+  SPECIAL STRING TRASFER "SF0202" ""
 END          
 
 STRINGA 3
@@ -133,6 +136,7 @@ BEGIN
   PROMPT 22 3 ""
   FIELD 216@->RAGSOC[31,50]
   GROUP 1
+  SPECIAL STRING TRASFER "SF0203" ""
 END
 
 STRINGA 102
@@ -141,6 +145,7 @@ BEGIN
   PROMPT 42 1 ""
   FIELD 216@->RAGSOC
   GROUP 2
+  SPECIAL STRING TRASFER "SF0202" ""
 END
 
 STRINGA 4
@@ -149,6 +154,7 @@ BEGIN
   PROMPT 57 3 ""
   FIELD 218@->SESSO
   GROUP 1
+  SPECIAL STRING TRASFER "SF0204" ""
 END
 
 STRINGA 5
@@ -158,6 +164,7 @@ BEGIN
   FIELD 218@->DATANASC
   PICTURE "##^ ##^ ####"
   GROUP 1
+  SPECIAL STRING TRASFER "SF0205" ""
 END
 
 STRINGA 6
@@ -166,6 +173,7 @@ BEGIN
   PROMPT 79 3 ""
   FIELD 313@->DENCOM
   GROUP 1
+  SPECIAL STRING TRASFER "SF0206" ""
 END
 
 STRINGA 7
@@ -174,6 +182,7 @@ BEGIN
   PROMPT 126 3 ""
   FIELD 313@->PROVCOM
   GROUP 1
+  SPECIAL STRING TRASFER "SF0207" ""
 END
 
 STRINGA 8
@@ -191,6 +200,7 @@ BEGIN
   PROMPT 25 5 ""
   FIELD 413@->DENCOM
   GROUP 3
+  SPECIAL STRING TRASFER "SF0208" ""
 END
 
 STRINGA 9
@@ -199,6 +209,7 @@ BEGIN
   PROMPT 71 5 ""
   FIELD 513@->PROVCOM  
   FIELD 413@->PROVCOM  
+  SPECIAL STRING TRASFER "SF0209" ""
 END
 
 STRINGA 101
@@ -222,6 +233,7 @@ BEGIN
   KEY "VIA RES. + NUMCIVRES"
   PROMPT 78 5 ""
   GROUP 3
+  SPECIAL STRING TRASFER "SF0210" ""
 END
 
 STRINGA 103
@@ -254,6 +266,7 @@ BEGIN
   ITEM "| "  MESSAGE HIDE,5@
   ITEM "X|X" MESSAGE SHOW,5@
   FIELD 216@->SOGGNRES
+  SPECIAL STRING TRASFER "SF0211" ""
 END
 
 STRINGA 12
@@ -262,6 +275,7 @@ BEGIN
   PROMPT 14 7 "" 
   FIELD 104@->S0
   GROUP 5
+  SPECIAL STRING TRASFER "SF0212" ""
 END
 
 STRINGA 13
@@ -270,6 +284,7 @@ BEGIN
   PROMPT 75 7 "" 
   FIELD 216@->STATORES
   GROUP 5
+  SPECIAL STRING TRASFER "SF0213" ""
 END
 
 STRINGA 14
@@ -278,6 +293,7 @@ BEGIN
   PROMPT 90 7 ""      
   FIELD 216@->COFIEST
   GROUP 5
+  SPECIAL STRING TRASFER "SF0214" ""
 END
 
 STRINGA 15
@@ -285,6 +301,7 @@ BEGIN
   KEY "CAUSALE"
   PROMPT 13 9 ""
   FIELD CAUSALE
+  SPECIAL STRING TRASFER "SF0215" ""
 END
 
 NUMBER 16
@@ -293,6 +310,7 @@ BEGIN
   PROMPT 27 9 ""
   FIELD TOTALE
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "SF0216" ""
 END
 
 NUMBER 17
@@ -301,6 +319,7 @@ BEGIN
   PROMPT 47 9 ""
   FIELD SOMME         
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "SF0217" ""
 END
 
 NUMBER 18
@@ -309,6 +328,7 @@ BEGIN
   PROMPT 66 9 ""
   FIELD SOMREGCONV
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "SF0218" ""
 END
 
 NUMBER 19
@@ -317,6 +337,7 @@ BEGIN
   PROMPT 88 9 ""
   FIELD IMPONIBILE    
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "SF0219" ""
 END
 
 NUMBER 20
@@ -325,6 +346,16 @@ BEGIN
   PROMPT 109 9 ""
   FIELD IMPORTO       
   PICTURE "###.###.###^^^"  
+  SPECIAL STRING TRASFER "SF0220" ""
+END
+
+NUMBER 21
+BEGIN
+  KEY "RITENUTE SOSPESE"
+  PROMPT 109 9 ""
+//  FIELD IMPORTO       
+  PICTURE "###.###.###^^^"  
+  SPECIAL STRING TRASFER "SF0221" ""
 END
 
 END
diff --git a/m770/77qd1.frm b/m770/77qd1.frm
index 1cbc9c2ac..1ca61ac12 100755
--- a/m770/77qd1.frm
+++ b/m770/77qd1.frm
@@ -10,7 +10,7 @@ END
 
 DESCRIPTION
 BEGIN
-  63->* "Quadro D1 770"
+  63->* "Quadro SH 770 ex D1"
   9->* "Ditte"
   6->* "Anagrafica persone fisiche e giuridiche"
   8->* "Anagrafica persone fisiche"
@@ -74,6 +74,7 @@ BEGIN
   KEY "CODICE FISCALE"
   PROMPT 55 8  ""
   FIELD 106@->COFI
+  SPECIAL STRING TRASFER "SH0101" ""
 END
 
 STRINGA 13
@@ -110,6 +111,7 @@ BEGIN
   KEY "COD.FIS"
   PROMPT 9 1 ""
   FIELD 216@->COFI
+  SPECIAL STRING TRASFER "SH0201" ""
 END
 
 STRINGA 2
@@ -118,6 +120,7 @@ BEGIN
   PROMPT 42 1 ""
   FIELD 216@->RAGSOC[1,30]
   GROUP 1
+  SPECIAL STRING TRASFER "SH0202" ""
 END          
 
 STRINGA 3
@@ -126,6 +129,7 @@ BEGIN
   PROMPT 21 3 ""
   FIELD 216@->RAGSOC[31,50]
   GROUP 1
+  SPECIAL STRING TRASFER "SH0203" ""
 END
 
 STRINGA 102
@@ -134,6 +138,7 @@ BEGIN
   PROMPT 42 1 ""
   FIELD 216@->RAGSOC
   GROUP 2
+  SPECIAL STRING TRASFER "SH0202" ""
 END
 
 STRINGA 4
@@ -142,6 +147,7 @@ BEGIN
   PROMPT 57 3 ""
   FIELD 218@->SESSO
   GROUP 1
+  SPECIAL STRING TRASFER "SH0204" ""
 END
 
 STRINGA 5
@@ -151,6 +157,7 @@ BEGIN
   FIELD 218@->DATANASC
   PICTURE "##^ ##^ ####"
   GROUP 1
+  SPECIAL STRING TRASFER "SH0205" ""
 END
 
 STRINGA 6
@@ -159,6 +166,7 @@ BEGIN
   PROMPT 79 3 ""
   FIELD 313@->DENCOM
   GROUP 1
+  SPECIAL STRING TRASFER "SH0206" ""
 END
 
 STRINGA 7
@@ -167,6 +175,7 @@ BEGIN
   PROMPT 126 3 ""
   FIELD 313@->PROVCOM
   GROUP 1
+  SPECIAL STRING TRASFER "SH0207" ""
 END
 
 STRINGA 8
@@ -176,6 +185,7 @@ BEGIN
   FIELD 513@->DENCOM
   MESSAGE EMPTY SHOW,3@|HIDE,4@
   MESSAGE SHOW,4@|HIDE,3@
+  SPECIAL STRING TRASFER "SH0208" ""
 END
 
 STRINGA 80
@@ -184,6 +194,7 @@ BEGIN
   PROMPT 25 5 ""
   FIELD 413@->DENCOM
   GROUP 3
+  SPECIAL STRING TRASFER "SH0208" ""
 END
 
 STRINGA 9
@@ -192,6 +203,7 @@ BEGIN
   PROMPT 71 5 ""
   FIELD 513@->PROVCOM  
   FIELD 413@->PROVCOM  
+  SPECIAL STRING TRASFER "SH0209" ""
 END
 
 STRINGA 101
@@ -215,6 +227,7 @@ BEGIN
   KEY "VIA RES. + NUMCIVRES"
   PROMPT 78 5 ""
   GROUP 3
+  SPECIAL STRING TRASFER "SH0210" ""
 END
 
 STRINGA 103
@@ -238,6 +251,7 @@ BEGIN
   KEY "VIA RF + NUMCIVRF"
   PROMPT 78 5 ""
   GROUP 4
+  SPECIAL STRING TRASFER "SH0210" ""
 END
 
 STRING 11
@@ -245,6 +259,7 @@ BEGIN
   KEY "CAUSALE"
   PROMPT 10 7 ""
   FIELD CAUSALE
+  SPECIAL STRING TRASFER "SH0211" ""
 END
 
 NUMBER 12
@@ -253,6 +268,7 @@ BEGIN
   PROMPT 26 7 ""
   FIELD TOTALE
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "SH0212" ""
 END
 
 NUMBER 13
@@ -261,6 +277,7 @@ BEGIN
   PROMPT 46 7 ""
   FIELD SPESEANT
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "SH0213" ""
 END
 
 NUMBER 14
@@ -269,6 +286,7 @@ BEGIN
   PROMPT 66 7 ""
   FIELD QUOTAPRO
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "SH0214" ""
 END
 
 NUMBER 15
@@ -277,6 +295,7 @@ BEGIN
   PROMPT 88 7 ""
   FIELD IMPONIBILE    
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "SH0215" ""
 END
 
 NUMBER 16
@@ -285,6 +304,16 @@ BEGIN
   PROMPT 109 7 ""
   FIELD IMPORTO       
   PICTURE "###.###.###^^^"  
+  SPECIAL STRING TRASFER "SH0216" ""
+END
+
+NUMBER 17
+BEGIN
+  KEY "RITENUTE SOSPESE"
+  PROMPT 109 7 ""
+//  FIELD IMPORTO       
+  PICTURE "###.###.###^^^"  
+  SPECIAL STRING TRASFER "SH0217" ""
 END
 
 END
diff --git a/m770/77qdb.frm b/m770/77qdb.frm
index 08782646a..e0516080c 100755
--- a/m770/77qdb.frm
+++ b/m770/77qdb.frm
@@ -11,7 +11,7 @@ END
 
 DESCRIPTION
 BEGIN
-  120->* "Quadro D bis 770"
+  120->* "Quadro SG 770 ex D bis"
   9->* "Ditte"
   6->* "Anagrafica persone fisiche e giuridiche"
   8->* "Anagrafica persone fisiche"
@@ -112,6 +112,7 @@ BEGIN
   KEY "COD.FIS"
   PROMPT 9 1 ""
   FIELD 216@->COFI
+  SPECIAL STRING TRASFER "SG0101" ""
 END
 
 STRINGA 2
@@ -120,6 +121,7 @@ BEGIN
   PROMPT 42 1 ""
   FIELD 216@->RAGSOC[1,30]
   GROUP 1
+  SPECIAL STRING TRASFER "SG0201" ""
 END          
 
 STRINGA 3
@@ -128,6 +130,7 @@ BEGIN
   PROMPT 21 3 ""
   FIELD 216@->RAGSOC[31,50]
   GROUP 1
+  SPECIAL STRING TRASFER "SG0202" ""
 END
 
 STRINGA 102
@@ -136,6 +139,7 @@ BEGIN
   PROMPT 42 1 ""
   FIELD 216@->RAGSOC
   GROUP 2
+  SPECIAL STRING TRASFER "SG0201" ""
 END
 
 STRINGA 4
@@ -144,6 +148,7 @@ BEGIN
   PROMPT 57 3 ""
   FIELD 218@->SESSO
   GROUP 1
+  SPECIAL STRING TRASFER "SG0204" ""
 END
 
 STRINGA 5
@@ -153,6 +158,7 @@ BEGIN
   FIELD 218@->DATANASC
   PICTURE "##^ ##^ ####"
   GROUP 1
+  SPECIAL STRING TRASFER "SG0205" ""
 END
 
 STRINGA 6
@@ -161,6 +167,7 @@ BEGIN
   PROMPT 79 3 ""
   FIELD 313@->DENCOM
   GROUP 1
+  SPECIAL STRING TRASFER "SG0206" ""
 END
 
 STRINGA 7
@@ -169,6 +176,7 @@ BEGIN
   PROMPT 126 3 ""
   FIELD 313@->PROVCOM
   GROUP 1
+  SPECIAL STRING TRASFER "SG0207" ""
 END
 
 STRINGA 8
@@ -178,6 +186,7 @@ BEGIN
   FIELD 513@->DENCOM
   MESSAGE EMPTY SHOW,3@|HIDE,4@
   MESSAGE SHOW,4@|HIDE,3@
+  SPECIAL STRING TRASFER "SG0208" ""
 END
 
 STRINGA 80
@@ -186,6 +195,7 @@ BEGIN
   PROMPT 25 5 ""
   FIELD 413@->DENCOM
   GROUP 3
+  SPECIAL STRING TRASFER "SG0208" ""
 END
 
 STRINGA 9
@@ -194,6 +204,7 @@ BEGIN
   PROMPT 71 5 ""
   FIELD 513@->PROVCOM  
   FIELD 413@->PROVCOM  
+  SPECIAL STRING TRASFER "SG0209" ""
 END
 
 STRINGA 101
@@ -217,6 +228,7 @@ BEGIN
   KEY "VIA RES. + NUMCIVRES"
   PROMPT 78 5 ""
   GROUP 3
+  SPECIAL STRING TRASFER "SG0210" ""
 END
 
 STRINGA 103
@@ -240,6 +252,7 @@ BEGIN
   KEY "VIA RF + NUMCIVRF"
   PROMPT 78 5 ""
   GROUP 4
+  SPECIAL STRING TRASFER "SG0210" ""
 END
 
 LISTA 11
@@ -249,6 +262,7 @@ BEGIN
   ITEM "| "  MESSAGE HIDE,5@
   ITEM "X|X" MESSAGE SHOW,5@
   FIELD 216@->SOGGNRES
+  SPECIAL STRING TRASFER "SG0211" ""
 END
 
 STRINGA 12
@@ -257,6 +271,7 @@ BEGIN
   PROMPT 14 7 "" 
   FIELD 104@->S0
   GROUP 5
+  SPECIAL STRING TRASFER "SG0212" ""
 END
 
 STRINGA 13
@@ -265,6 +280,7 @@ BEGIN
   PROMPT 75 7 "" 
   FIELD 216@->STATORES
   GROUP 5
+  SPECIAL STRING TRASFER "SG0213" ""
 END
 
 STRINGA 14
@@ -273,6 +289,7 @@ BEGIN
   PROMPT 90 7 ""      
   FIELD 216@->COFIEST
   GROUP 5
+  SPECIAL STRING TRASFER "SG0214" ""
 END
 
 STRINGA 15
@@ -280,6 +297,7 @@ BEGIN
   KEY "CAUSALE"
   PROMPT 10 9 ""
   FIELD CAUSALE
+  SPECIAL STRING TRASFER "SG0215" ""
 END
 
 NUMERO 16
@@ -288,6 +306,7 @@ BEGIN
   PROMPT 26 9 ""
   FIELD TOTALE
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "SG0216" ""
 END
 
 NUMERO 17
@@ -296,6 +315,7 @@ BEGIN
   PROMPT 46 9 ""
   FIELD SOMME         
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "SG0217" ""
 END
 
 NUMERO 18
@@ -304,6 +324,7 @@ BEGIN
   PROMPT 66 9 ""
   FIELD SOMREGCONV
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "SG0218" ""
 END
 
 NUMERO 19
@@ -312,6 +333,7 @@ BEGIN
   PROMPT 88 9 ""
   FIELD IMPONIBILE    
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "SG0219" ""
 END
 
 NUMERO 20
@@ -320,13 +342,24 @@ BEGIN
   PROMPT 109 9 ""
   FIELD IMPORTO       
   PICTURE "###.###.###^^^"  
+  SPECIAL STRING TRASFER "SG0220" ""
 END
 
-STRINGA 21
+NUMERO 21
+BEGIN
+  KEY "RITENUTE SOSPESE"
+  PROMPT 109 9 ""
+//  FIELD IMPORTO       
+  PICTURE "###.###.###^^^"  
+  SPECIAL STRING TRASFER "SG0221" ""
+END
+
+STRINGA 22
 BEGIN
   KEY "Contributo del 10%"
   PROMPT 124 9 ""
   FIELD CONTR10
+  SPECIAL STRING TRASFER "SG0222" ""
 END
 
 END
diff --git a/m770/77qe.frm b/m770/77qe.frm
index 6329a7cb8..6ec9569a1 100755
--- a/m770/77qe.frm
+++ b/m770/77qe.frm
@@ -10,7 +10,7 @@ END
 
 DESCRIPTION
 BEGIN
-  64->* "Quadro E 770"
+  64->* "Quadro SP 770 ex E"
   9->* "Ditte"
   6->* "Anagrafica persone fisiche e giuridiche"
   8->* "Anagrafica persone fisiche"
@@ -68,11 +68,12 @@ END
 
 SECTION HEADER FIRST 18
 
-STRINGA 1 
+STRINGA 1
 BEGIN
   KEY "CODICE FISCALE"
   PROMPT 55 8  ""
   FIELD 106@->COFI
+  SPECIAL STRING TRASFER "SP0101" ""
 END
 
 STRINGA 13
@@ -109,6 +110,7 @@ BEGIN
   KEY "COD.FIS"
   PROMPT 9 1 ""
   FIELD 216@->COFI
+  SPECIAL STRING TRASFER "SP0201" ""
 END
 
 STRINGA 2
@@ -117,6 +119,7 @@ BEGIN
   PROMPT 42 1 ""
   FIELD 216@->RAGSOC[1,30]
   GROUP 1
+  SPECIAL STRING TRASFER "SP0202" ""
 END          
 
 STRINGA 3
@@ -125,6 +128,7 @@ BEGIN
   PROMPT 21 3 ""
   FIELD 216@->RAGSOC[31,50]
   GROUP 1
+  SPECIAL STRING TRASFER "SP0203" ""
 END
 
 STRINGA 102
@@ -133,6 +137,7 @@ BEGIN
   PROMPT 42 1 ""
   FIELD 216@->RAGSOC
   GROUP 2
+  SPECIAL STRING TRASFER "SP0202" ""
 END
 
 STRINGA 4
@@ -141,6 +146,7 @@ BEGIN
   PROMPT 57 3 ""
   FIELD 218@->SESSO
   GROUP 1
+  SPECIAL STRING TRASFER "SP0203" ""
 END
 
 STRINGA 5
@@ -150,6 +156,7 @@ BEGIN
   FIELD 218@->DATANASC
   PICTURE "##^ ##^ ####"
   GROUP 1
+  SPECIAL STRING TRASFER "SP0205" ""
 END
 
 STRINGA 6
@@ -158,6 +165,7 @@ BEGIN
   PROMPT 79 3 ""
   FIELD 313@->DENCOM
   GROUP 1
+  SPECIAL STRING TRASFER "SP0206" ""
 END
 
 STRINGA 7
@@ -166,6 +174,7 @@ BEGIN
   PROMPT 126 3 ""
   FIELD 313@->PROVCOM
   GROUP 1
+  SPECIAL STRING TRASFER "SP0207" ""
 END
 
 STRINGA 8
@@ -175,6 +184,7 @@ BEGIN
   FIELD 513@->DENCOM
   MESSAGE EMPTY SHOW,3@|HIDE,4@
   MESSAGE SHOW,4@|HIDE,3@
+  SPECIAL STRING TRASFER "SP0208" ""
 END
 
 STRINGA 80
@@ -183,6 +193,7 @@ BEGIN
   PROMPT 24 5 ""
   FIELD 413@->DENCOM
   GROUP 3
+  SPECIAL STRING TRASFER "SP0208" ""
 END
 
 STRINGA 9
@@ -191,6 +202,7 @@ BEGIN
   PROMPT 71 5 ""
   FIELD 513@->PROVCOM  
   FIELD 413@->PROVCOM  
+  SPECIAL STRING TRASFER "SP0209" ""
 END
 
 STRINGA 101
@@ -214,6 +226,7 @@ BEGIN
   KEY "VIA RES. + NUMCIVRES"
   PROMPT 78 5 ""
   GROUP 3
+  SPECIAL STRING TRASFER "SP0210" ""
 END
 
 STRINGA 103
@@ -237,6 +250,7 @@ BEGIN
   KEY "VIA RF + NUMCIVRF"
   PROMPT 78 5 ""
   GROUP 4
+  SPECIAL STRING TRASFER "SP0210" ""
 END
 
 STRING 11
@@ -244,6 +258,7 @@ BEGIN
   KEY "CAUSALE"
   PROMPT 13 7 ""
   FIELD CAUSALE
+  SPECIAL STRING TRASFER "SP0211" ""
 END
 
 NUMBER 12
@@ -252,6 +267,7 @@ BEGIN
   PROMPT 33 7 ""
   FIELD IMPONIBILE
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "SP0212" ""
 END
 
 NUMBER 13
@@ -260,6 +276,7 @@ BEGIN
   PROMPT 49 7 ""
   FIELD PERC
   PICTURE "##@,@@" 
+  SPECIAL STRING TRASFER "SP0213" ""
 END
 
 NUMBER 14
@@ -268,6 +285,7 @@ BEGIN
   PROMPT 71 7 ""
   FIELD IMPORTO
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "SP0214" ""
 END
 
 NUMBER 15
@@ -276,6 +294,7 @@ BEGIN
   PROMPT 95 7 ""
   FIELD NETTO
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "SP0215" ""
 END
 
 NUMBER 16
@@ -284,6 +303,7 @@ BEGIN
   PROMPT 119 7 ""
   FIELD SOMME
   PICTURE "###.###.###^^^"  
+  SPECIAL STRING TRASFER "SP0216" ""
 END
 
 END
diff --git a/m770/77qe1.frm b/m770/77qe1.frm
index c4290bde2..5750a09b6 100755
--- a/m770/77qe1.frm
+++ b/m770/77qe1.frm
@@ -12,7 +12,7 @@ END
 
 DESCRIPTION
 BEGIN
-  65->* "Quadro E1 770"
+  65->* "Quadro SQ 770 ex E1"
   9->* "Ditte"
   6->* "Anagrafica persone fisiche e giuridiche"
   8->* "Anagrafica persone fisiche"
@@ -77,6 +77,7 @@ BEGIN
   KEY "CODICE FISCALE"
   PROMPT 55 8  ""
   FIELD 106@->COFI
+  SPECIAL STRING "TRASFER" "SQ0101" ""
 END
 
 STRINGA 13
@@ -114,6 +115,7 @@ BEGIN
   KEY "COD.FIS"
   PROMPT 9 1 ""
   FIELD 216@->COFI
+  SPECIAL STRING "TRASFER" "SQ0201" ""
 END
 
 STRINGA 2
@@ -122,6 +124,7 @@ BEGIN
   PROMPT 42 1 ""
   FIELD 216@->RAGSOC[1,30]
   GROUP 1
+  SPECIAL STRING "TRASFER" "SQ0202" ""
 END          
 
 STRINGA 3
@@ -130,6 +133,7 @@ BEGIN
   PROMPT 21 3 ""
   FIELD 216@->RAGSOC[31,50]
   GROUP 1
+  SPECIAL STRING "TRASFER" "SQ0203" ""
 END
 
 STRINGA 102
@@ -138,6 +142,7 @@ BEGIN
   PROMPT 42 1 ""
   FIELD 216@->RAGSOC
   GROUP 2
+  SPECIAL STRING "TRASFER" "SQ0202" ""
 END
 
 STRINGA 4
@@ -146,6 +151,7 @@ BEGIN
   PROMPT 57 3 ""
   FIELD 218@->SESSO
   GROUP 1
+  SPECIAL STRING "TRASFER" "SQ0204" ""
 END
 
 STRINGA 5
@@ -155,6 +161,7 @@ BEGIN
   FIELD 218@->DATANASC
   PICTURE "##^ ##^ ####"
   GROUP 1
+  SPECIAL STRING "TRASFER" "SQ0205" ""
 END
 
 STRINGA 6
@@ -163,6 +170,7 @@ BEGIN
   PROMPT 79 3 ""
   FIELD 313@->DENCOM
   GROUP 1
+  SPECIAL STRING "TRASFER" "SQ0206" ""
 END
 
 STRINGA 7
@@ -171,6 +179,7 @@ BEGIN
   PROMPT 126 3 ""
   FIELD 313@->PROVCOM
   GROUP 1
+  SPECIAL STRING "TRASFER" "SQ0207" ""
 END
 
 STRINGA 8
@@ -180,6 +189,7 @@ BEGIN
   FIELD 513@->DENCOM
   MESSAGE EMPTY SHOW,3@|HIDE,4@
   MESSAGE SHOW,4@|HIDE,3@
+  SPECIAL STRING "TRASFER" "SQ0208" ""
 END
 
 STRINGA 80
@@ -188,6 +198,7 @@ BEGIN
   PROMPT 24 5 ""
   FIELD 413@->DENCOM
   GROUP 3
+  SPECIAL STRING "TRASFER" "SQ0208" ""
 END
 
 STRINGA 9
@@ -196,6 +207,7 @@ BEGIN
   PROMPT 72 5 ""
   FIELD 513@->PROVCOM  
   FIELD 413@->PROVCOM  
+  SPECIAL STRING "TRASFER" "SQ0209" ""
 END
 
 STRINGA 101
@@ -219,6 +231,7 @@ BEGIN
   KEY "VIA RES. + NUMCIVRES"
   PROMPT 78 5 ""
   GROUP 3
+  SPECIAL STRING "TRASFER" "SQ0210" ""
 END
 
 STRINGA 103
@@ -242,6 +255,7 @@ BEGIN
   KEY "VIA RF + NUMCIVRF"
   PROMPT 78 5 ""
   GROUP 4
+  SPECIAL STRING "TRASFER" "SQ0210" ""
 END
 
 STRING 11
@@ -249,6 +263,7 @@ BEGIN
   KEY "CAUSALE"
   PROMPT 13 7 ""
   FIELD CAUSALE
+  SPECIAL STRING "TRASFER" "SQ0211" ""
 END
 
 NUMBER 12
@@ -257,6 +272,7 @@ BEGIN
   PROMPT 33 7 ""
   FIELD SOMME
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING "TRASFER" "SQ0212" ""
 END
 
 NUMBER 13
@@ -265,6 +281,7 @@ BEGIN
   PROMPT 56 7 ""
   FIELD AMMONTARE
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING "TRASFER" "SQ0213" ""
 END
 
 NUMBER 14
@@ -273,6 +290,7 @@ BEGIN
   PROMPT 71 7 ""
   FIELD PERC
   PICTURE "##@,@@" 
+  SPECIAL STRING "TRASFER" "SQ0214" ""
 END
 
 NUMBER 15
@@ -281,6 +299,7 @@ BEGIN
   PROMPT 95 7 ""
   FIELD IMPORTO
   PICTURE "###.###.###^^^" 
+  SPECIAL STRING "TRASFER" "SQ0215" ""
 END
 
 NUMBER 16
@@ -289,6 +308,7 @@ BEGIN
   PROMPT 119 7 ""
   FIELD NETTO
   PICTURE "###.###.###^^^"  
+  SPECIAL STRING "TRASFER" "SQ0216" ""
 END
 
 END
diff --git a/m770/77ql.frm b/m770/77ql.frm
index 0125dfe1a..d10085d9d 100755
--- a/m770/77ql.frm
+++ b/m770/77ql.frm
@@ -29,7 +29,7 @@ LISTA 1
 BEGIN
  KEY "Tipo anagrafica"
  FLAGS "H"
- FIELD 106@->TIPOA
+ FIELD 9->TIPOA
  ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
  ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
 END
@@ -58,6 +58,7 @@ BEGIN
   KEY "Cod.Conc.1"
   PROMPT 41 12 ""  
   FIELD 213@->UFFCONC
+  SPECIAL STRING TRASFER "SL0103" ""
 END
 
 STRINGA 6
@@ -103,6 +104,8 @@ NUMERO 1
 BEGIN
   KEY "Mese rif."
   PROMPT 23 2 ""
+  PICTURE "@@"
+  MESSAGE COPY,100
 END
 
 NUMERO 2
@@ -110,6 +113,14 @@ BEGIN
   KEY "Anno rif."
   PROMPT 28 2 ""
   FIELD 42->QLAP
+  MESSAGE ADD,100
+END
+
+STRING 100
+BEGIN
+  KEY "Periodo rif."
+  PROMPT 23 2 ""
+  SPECIAL STRING TRASFER "SL0202" ""
 END
 
 NUMERO 3
@@ -164,6 +175,7 @@ BEGIN
   ITEM "C|C" MESSAGE SHOW,14|HIDE,13
   ITEM "D|D" MESSAGE SHOW,14|HIDE,13
   FIELD 42->QLTV
+  SPECIAL STRING TRASFER "SL0105" ""
 END
 
 STRINGA 9
@@ -171,6 +183,7 @@ BEGIN
   KEY "CodTrib"
   PROMPT 45 4 ""
   FIELD 42->QLCT
+  SPECIAL STRING TRASFER "SL0107" ""
 END
 
 STRINGA 10
@@ -178,6 +191,7 @@ BEGIN
   KEY "Art.Bil."
   PROMPT 53 4 ""
   FIELD 42->QLAB
+  SPECIAL STRING TRASFER "SL0108" ""
 END
 
 STRINGA 11
@@ -186,6 +200,7 @@ BEGIN
   PROMPT 62 4 ""
   FIELD 42->QLDV
   PICTURE " ## ^ ## ^####" 
+  SPECIAL STRING TRASFER "SL0104" ""
 END  
   
 STRINGA 12
diff --git a/m770/77qsk.frm b/m770/77qsk.frm
new file mode 100755
index 000000000..3884db13c
--- /dev/null
+++ b/m770/77qsk.frm
@@ -0,0 +1,268 @@
+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 "Roman 17cpi"
+  SIZE 12
+  CA "X"           
+  IN 3 1
+  FI 129
+END    
+
+SECTION HEADER FIRST 12
+
+LISTA 1
+BEGIN
+ KEY "Tipo anagrafica"
+ FLAGS "H"
+ FIELD 9->TIPOA
+ ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
+ ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
+END
+
+STRINGA 2
+BEGIN
+ KEY "CODICE FISCALE DEL DICHIARANTE"
+ PROMPT 53 5 ""
+ FIELD 106@->COFI
+ SPECIAL STRING TRASFER "SK0101" ""
+END
+
+STRINGA 3
+BEGIN
+ KEY "CODICE FISCALE DEL SOSTITUTO IMPOSTA"
+ PROMPT 85 5 ""
+END
+
+NUMERO 4
+BEGIN
+  KEY "NUMERO FOGLIO"
+  PROMPT 126 5 ""
+END
+
+STRINGA 5
+BEGIN
+  KEY "Cod.Conc.1"
+  PROMPT 41 12 ""  
+  FIELD 213@->UFFCONC
+END
+
+STRINGA 6
+BEGIN
+  KEY "Cod.Conc.2"
+  PROMPT 53 12 ""
+  FIELD 37->L0CCONC2
+END
+
+STRINGA 7
+BEGIN
+  KEY "Cod.Conc.3"
+  PROMPT 65 12 ""
+  FIELD 37->L0CCONC3
+END
+
+NUMERO 8
+BEGIN
+  KEY "Cod.Tes.1"
+  PROMPT 102 12 ""
+  FIELD 37->L0CTES1
+END
+
+NUMERO 9
+BEGIN
+  KEY "Cod.Tes.2"
+  PROMPT 114 12 ""
+  FIELD 37->L0CTES2
+END
+
+NUMERO 10
+BEGIN
+  KEY "Cod.Tes.3"
+  PROMPT 126 12 ""
+  FIELD 37->L0CTES3
+END
+
+END
+
+SECTION BODY ODD 4
+
+NUMERO 1
+BEGIN
+  KEY "Mese rif."
+  PROMPT 23 2 ""
+  PICTURE "@@"
+  MESSAGE COPY,100
+END
+
+NUMERO 2
+BEGIN
+  KEY "Anno rif."
+  PROMPT 28 2 ""
+  FIELD 42->QLAP
+  MESSAGE ADD,100
+END
+
+STRING 100
+BEGIN
+  KEY "Periodo rif."
+  PROMPT 23 2 ""
+  SPECIAL STRING TRASFER "SK0202" ""
+END
+
+NUMERO 3
+BEGIN
+  KEY "Rit.eff"
+  PROMPT 46 2 ""
+  FIELD 42->QLRITEFF
+  PICTURE "###.###.###.###^^^"  
+  MESSAGE ADD,FL->1
+  SPECIAL STRING TRASFER "SK0201" ""
+END
+
+NUMERO 4
+BEGIN
+  KEY "Rit.ver"
+  PROMPT 77 2 ""
+  FIELD 42->QLRITVER
+  PICTURE "###.###.###.###^^^"  
+  MESSAGE ADD,FL->2  
+END
+
+LISTA 5
+BEGIN
+  KEY "RSS"
+  PROMPT 99 2 ""      
+  ITEM " | "
+  ITEM "1|VA" 
+  ITEM "2|SA"
+  ITEM "3|SI"    
+  FIELD 42->QLRSS
+  SPECIAL STRING TRASFER "SK0203" ""
+END
+
+STRINGA 6
+BEGIN
+  KEY "Note"
+  PROMPT 109 2 ""
+  FIELD 42->QLNOTE
+  SPECIAL STRING TRASFER "SK0204" ""
+END
+
+STRINGA 7
+BEGIN
+  KEY "Luogo Vers."
+  PROMPT 25 4 ""
+  FIELD 42->QLLV
+END
+
+LISTA 8
+BEGIN
+  KEY "Tipo Vers."
+  PROMPT 33 4 ""
+  ITEM " | "
+  ITEM "B|B" MESSAGE SHOW,13|HIDE,14
+  ITEM "C|C" MESSAGE SHOW,14|HIDE,13
+  ITEM "D|D" MESSAGE SHOW,14|HIDE,13
+  FIELD 42->QLTV
+  SPECIAL STRING TRASFER "SK0207" ""
+END
+
+STRINGA 9
+BEGIN
+  KEY "CodTrib"
+  PROMPT 45 4 ""
+  FIELD 42->QLCT
+  SPECIAL STRING TRASFER "SK0205" ""
+END
+
+STRINGA 10
+BEGIN
+  KEY "Art.Bil."
+  PROMPT 53 4 ""
+  FIELD 42->QLAB
+  SPECIAL STRING TRASFER "SL0206" ""
+END
+
+STRINGA 11
+BEGIN
+  KEY "DATA VERS."
+  PROMPT 62 4 ""
+  FIELD 42->QLDV
+  PICTURE " ## ^ ## ^####" 
+  SPECIAL STRING TRASFER "SL0104" ""
+END  
+  
+STRINGA 12
+BEGIN
+  KEY "SERIE"
+  PROMPT 81 4 ""
+  FIELD 42->QLSERIE
+END
+
+STRINGA 13
+BEGIN
+  KEY "NUMERO SENZA Prog.Versamento"
+  PROMPT 96 4 ""
+  FIELD 42->QLNUMERO[1,5]
+END
+
+STRINGA 14
+BEGIN
+  KEY "NUMERO COMPLETO"
+  PROMPT 96 4 ""
+  FIELD 42->QLNUMERO
+  FLAGS "H"
+END
+
+END
+
+SECTION FOOTER LAST 6
+
+NUMERO 1
+BEGIN
+  KEY "Tot.rit.eff"
+  PROMPT 63 2 ""
+  PICTURE "###.###.###.###^^^"    
+END
+
+NUMERO 2
+BEGIN
+  KEY "Tot.rit.ver"
+  PROMPT 114 2 ""               
+  PICTURE "###.###.###.###^^^"    
+END
+
+DATE 3
+BEGIN
+  KEY "DATA"
+  PROMPT 30 6 ""
+  FLAGS "A"
+END
+
+STRINGA 4
+BEGIN
+  KEY "FIRMA"
+  PROMPT 86 6 ""
+  FIELD 106@->RAGSOC
+END
+
+END
+
+END
+
+
+
diff --git a/m770/77stqc.cpp b/m770/77stqc.cpp
index c43730e6c..48caf59b0 100755
--- a/m770/77stqc.cpp
+++ b/m770/77stqc.cpp
@@ -44,25 +44,24 @@ bool TQuadroC::controlla_percentuale(TCursor& cur, const real& perc_p)
     --(cur);
   }
   else
-    if (perc_p != ZERO)
-    {
-      ++(cur);   
-      long    ditta   = rc.get_long(QUC_CODDITTA);
-      char    tipo    = rc.get_char(QUC_TIPOA);
-      long    codana  = rc.get_long(QUC_CODANAGR);
-      char    caus    = rc.get_char(QUC_CODCAUS);   
-      int     tass    = rc.get_int(QUC_TASSAZIONE);
-      TString ragsoc  = get_ragsoc_anagr(tipo,codana);
-      real    perc    = rc.get_real(QUC_PERC);
-              
-      if (ditta == ditta_p && tipo == tipo_p && ragsoc == ragsoc_p &&
-          codana == codana_p && caus == caus_p && tass == tass_p && perc_p == perc)
-        stampa = FALSE;   
-      else
-        _devo_sommare = TRUE;
+  {
+    ++(cur);   
+    long    ditta   = rc.get_long(QUC_CODDITTA);
+    char    tipo    = rc.get_char(QUC_TIPOA);
+    long    codana  = rc.get_long(QUC_CODANAGR);
+    char    caus    = rc.get_char(QUC_CODCAUS);   
+    int     tass    = rc.get_int(QUC_TASSAZIONE);
+    TString ragsoc  = get_ragsoc_anagr(tipo,codana);
+    real    perc    = rc.get_real(QUC_PERC);
+            
+    if (ditta == ditta_p && tipo == tipo_p && ragsoc == ragsoc_p &&
+        codana == codana_p && caus == caus_p && tass == tass_p && perc_p == perc)
+      stampa = FALSE;   
+    else
+      _devo_sommare = TRUE;
 
-      --(cur);
-    } 
+    --(cur);
+  } 
                        
   return stampa;
 }