diff --git a/m770/770100.cpp b/m770/770100.cpp
index 808ebe816..5088f0831 100755
--- a/m770/770100.cpp
+++ b/m770/770100.cpp
@@ -237,7 +237,7 @@ bool TSchedaPercipienti::setta_nprog(TMask& m, const bool variazione, const char
   
   m.set(F_NPROG, trovato ? nprog : nprog+1);
 
-  return variazione ? trovato : TRUEtrue;
+  return variazione ? trovato : true;
 }
 
 bool TSchedaPercipienti::codditta_handler(TMask_field& f, KEY k)
diff --git a/m770/770102.h b/m770/770102.h
index 06ac223b2..fa058ca9a 100755
--- a/m770/770102.h
+++ b/m770/770102.h
@@ -205,6 +205,7 @@ class TSchedaPercipienti : public TRelation_application
     void        compila_testata(TMask& m);
     bool        coll_variazione() const; 
     bool        coll_datanum() const { return _coll._datadoc.not_empty() && _coll._numdoc.not_empty(); }
+    long        coll_numreg() const { return _coll._numreg; }
     bool        esiste_perc(TMask& m, const char* coda=NULL);
 		void				agg_pagamenti(const TRectype & sch);