diff --git a/m770/770100.cpp b/m770/770100.cpp
index 65e09f0fa..514118b22 100755
--- a/m770/770100.cpp
+++ b/m770/770100.cpp
@@ -874,8 +874,12 @@ void TSchedaPercipienti::mask2rel(const TMask& m)
     check_handler(datadoc, K_ENTER);
   }
 
+	const long numreg =  _rel->lfile().get_long(SCH_NUMREG);
+
   _rel->lfile().zero();
+
   m.autosave(*_rel);
+	_rel->lfile().put(SCH_NUMREG, numreg);
   
   // leggo chiave scheda
   const long codditta = m.get_long(F_CODDITTA);
diff --git a/m770/scperc.h b/m770/scperc.h
index 31e658dd8..3844cab37 100755
--- a/m770/scperc.h
+++ b/m770/scperc.h
@@ -43,6 +43,7 @@
 #define SCH_ARRETR   "ARRETR"
 #define SCH_FLAGIC   "FLAGIC"
 #define SCH_TOTRIT   "TOTRIT"
+#define SCH_RITSOC   "RITSOC"
 #define SCH_MESEC    "MESEC"
 #define SCH_ANNOC    "ANNOC"
 #define SCH_FORCED   "FORZATURA"