diff --git a/m770/770100.cpp b/m770/770100.cpp
index e2d7cd42b..b5477ebec 100755
--- a/m770/770100.cpp
+++ b/m770/770100.cpp
@@ -52,10 +52,10 @@ const char* ITEMS_LA[] = {
 
 HIDDEN TString80 __tmp;                                              
 
-TSchedaPercipienti::TSchedaPercipienti(): _rel(NULL), _flag_cg(FALSE)
+TSchedaPercipienti::TSchedaPercipienti(): _rel(NULL), _flag_cg(false)
 {
-  _from_modify = FALSE;  
-  _soggnres = FALSE;
+  _from_modify = false;  
+  _soggnres = false;
   memset(_msk, 0, sizeof(_msk));
 }
 
@@ -70,9 +70,9 @@ void  TSchedaPercipienti::update_lasts(TMask& m)
 
 // Determino ultimo numero di riga usato nei PAGAMENTI
     _rpag->zero();
-    _rpag->put("CODDITTA", (long) codditta);
+    _rpag->put("CODDITTA", codditta);
     _rpag->put("TIPOA", tipoa);
-    _rpag->put("CODANAGR", (long) codanagr);
+    _rpag->put("CODANAGR", codanagr);
     _rpag->put("NPROG", nprog);
 
     TRectype dep(_rpag->curr());    
@@ -109,9 +109,9 @@ void  TSchedaPercipienti::update_lasts(TMask& m)
 bool TSchedaPercipienti::changing_mask(int mode)
 {
  if ((mode == MODE_MOD) && (_mode == MODE_INS))
-  return FALSE; 
+   return false; 
  else               
-  return _mode != mode;
+   return _mode != mode;
 }
 
 TMask* TSchedaPercipienti::get_mask(int mode)
@@ -135,16 +135,16 @@ TMask* TSchedaPercipienti::load_mask(int n)
   case 0:        
     m->set_handler(F_NPROG, nprog_handler);
     m->set_handler(F_CODDITTA, codditta_handler);
-    m->set_handler(F_CODANAGRCOM,  codanagr_handler);
-    m->set_handler(F_CODANAGRPERC,  codanagr_handler);    
-    m->set_handler(F_AGGPAG,  aggpag_handler);    
+    m->set_handler(F_CODANAGRCOM, codanagr_handler);
+    m->set_handler(F_CODANAGRPERC, codanagr_handler);    
+    m->set_handler(F_AGGPAG, aggpag_handler);    
     break;
   case 1: 
     {
       m->disable(DLG_FINDREC);    
       m->set_handler(F_DATADOC, check_handler);
       m->set_handler(F_CODCAUS, check_causale);
-      m->set_handler(F_SPESE,   check_spese);
+      m->set_handler(F_SPESE, check_spese);
       m->set_handler(F_COMPENS, check_compensi); 
       m->set_handler(F_MESECOMP, check_competenza);
       
@@ -174,7 +174,7 @@ bool TSchedaPercipienti::setta_nprog(TMask& m, const bool variazione, const char
 {
   long  nprog = 0L;
   const char tipoa = m.get(F_TIPOA)[0];               
-  TString16 codanagr(codanag ? codanag : m.get(F_CODANAGR));
+  TString8 codanagr(codanag ? codanag : m.get(F_CODANAGR));
   const long codditta = app().tipo_coll()==nessuno ? get_firm_770() : app().get_firm();
 
   // Scrivi nprog solo se il percipiente ESISTE sull'arkivio
diff --git a/m770/770100a.uml b/m770/770100a.uml
index 2635216fb..b64880f94 100755
--- a/m770/770100a.uml
+++ b/m770/770100a.uml
@@ -15,7 +15,7 @@ END
 NUMBER F_CODDITTA 5
 BEGIN
   PROMPT 3 1 "Ditta  "
-  FLAGS "RDGP"
+  FLAGS "DFGP"
   KEY 1
   CHECKTYPE REQUIRED             
   USE LF_NDITTE KEY 1
@@ -62,10 +62,10 @@ END
 NUMBER F_CODANAGRPERC 5
 BEGIN
   PROMPT 15 8 "" 
-  USE LF_PERC KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (TIPOA=#F_TIPOA))
-  JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR  
-  INPUT CODDITTA F_CODDITTA
-  INPUT TIPOA    F_TIPOA
+  USE LF_PERC
+  JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR  
+  INPUT CODDITTA F_CODDITTA SELECT
+  INPUT TIPOA    F_TIPOA SELECT
   INPUT CODANAGR F_CODANAGRPERC
   DISPLAY "Tipo "               TIPOA
   DISPLAY "Codice "             CODANAGR
@@ -81,7 +81,7 @@ END
 NUMBER F_CODANAGRCOM 5
 BEGIN
   PROMPT 15 8 "" 
-  USE LF_ANAG KEY 1 SELECT (TIPOA=#F_TIPOA)
+  USE LF_ANAG SELECT (TIPOA=#F_TIPOA)
   INPUT TIPOA    F_TIPOA 
   INPUT CODANAGR F_CODANAGRCOM
   DISPLAY "Tipo "               TIPOA
@@ -135,7 +135,7 @@ BEGIN
   CHECKTYPE REQUIRED
   KEY 1                      
   FIELD LF_SCPERC->NPROG  
-  USE LF_SCPERC    
+  USE LF_SCPERC SELECT CODANAGR==#F_CODANAGR
   JOIN %CA7 INTO CODTAB=CODCAUS
   INPUT CODDITTA F_CODDITTA SELECT
   INPUT TIPOA    F_TIPOA    SELECT
@@ -153,15 +153,15 @@ BEGIN
   OUTPUT F_NPROG    NPROG
 END
 
-BUTTON F_GESTPERC 22 2
+BUTTON F_GESTPERC 28 2
 BEGIN
-  PROMPT 2 18 "~Percipienti"   
+  PROMPT -12 -1 "~Percipienti"   
   MESSAGE RUN,775,-0,#F_CODDITTA,#F_TIPOA,#F_CODANAGR
 END
 
-BUTTON F_AGGPAG 22 2
+BUTTON F_AGGPAG 28 2
 BEGIN
-  PROMPT 30 18 "~Aggiornamento pagamenti"   
+  PROMPT -22 -1 "~Aggiornamento pagamenti"   
 END
 
 ENDPAGE