diff --git a/src/m770/770100a.uml b/src/m770/770100a.uml
index ed6d5e5d0..dccab0d4f 100755
--- a/src/m770/770100a.uml
+++ b/src/m770/770100a.uml
@@ -62,19 +62,19 @@ END
 NUMBER F_CODANAGRPERC 5
 BEGIN
   PROMPT 16 8 "" 
-  USE LF_PERC
-  JOIN LF_ANAG INTO TIPOA=TIPOA CODANAGR=CODANAGR  
+  USE LF_ANAG SELECT LF_PERC->CODDITTA!=#F_CODDITTA
+  JOIN LF_PERC INTO CODDITTA=#F_CODDITTA TIPOA=TIPOA CODANAGR==CODANAGR  
   INPUT CODDITTA F_CODDITTA SELECT
   INPUT TIPOA    F_TIPOA SELECT
   INPUT CODANAGR F_CODANAGRPERC
   DISPLAY "Tipo " TIPOA
   DISPLAY "Codice " CODANAGR
-  DISPLAY "Denominazione@50" LF_ANAG->RAGSOC
-  DISPLAY "Codice Fiscale" LF_ANAG->COFI
-  DISPLAY "Ditta" CODDITTA
+  DISPLAY "Denominazione@50" RAGSOC
+  DISPLAY "Codice Fiscale" COFI
+  DISPLAY "Ditta" LF_PERC->CODDITTA
   OUTPUT F_CODANAGRPERC CODANAGR
-  OUTPUT F_RAGSOCPER LF_ANAG->RAGSOC
-  OUTPUT F_COFI LF_ANAG->COFI
+  OUTPUT F_RAGSOCPER RAGSOC
+  OUTPUT F_COFI COFI
   MESSAGE COPY, F_CODANAGR  
   ADD RUN 775 -0
   GROUP 2