diff --git a/m770/772100a.uml b/m770/772100a.uml
index 482901986..6ed804adf 100755
--- a/m770/772100a.uml
+++ b/m770/772100a.uml
@@ -16,7 +16,7 @@ END
 
 NUMBER F_CODDITTA 5
 BEGIN
-    PROMPT 3 1 "Ditta  "
+    PROMPT 2 1 "Ditta "
     FLAGS "GRD"
     KEY 1
     CHECKTYPE REQUIRED             
@@ -30,92 +30,110 @@ END
 
 STRING F_RAGDITTA 50
 BEGIN
-    PROMPT 17 1 "Ragione "
-    FLAGS "D"
+  PROMPT 15 1 "Rag.soc. "
+  FLAGS "D"
 END
-            
-STRING F_TIPODA 1 
-BEGIN
-  PROMPT 3 4 "Da codice        "    
-  FLAGS "U"
-END
- 
+
 TEXT DLG_NULL
 BEGIN
-  PROMPT 23 4 "/"
+  PROMPT 1 3 "@bDa percipiente"
+END
+
+LIST F_TIPODA 1 9
+BEGIN
+  PROMPT 1 4 ""    
+  ITEM "F|Fisica"
+  ITEM "G|Giuridica"
 END
 
 NUMBER F_CODDA 5
 BEGIN
-  PROMPT 25 4 ""
+  PROMPT 13 4 ""
   HELP "Codice anagrafico del percipiente"
-  USE LF_PERC KEY 1 SELECT (CODDITTA=#F_CODDITTA)
-  JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR
-  CHECKTYPE NORMAL   
-  INPUT CODDITTA F_CODDITTA
-  INPUT TIPOA F_TIPODA
-  INPUT CODANAGR F_CODDA 
-  DISPLAY "Tipo" TIPOA
-  DISPLAY "Codice" CODANAGR  
-  DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
+  USE LF_PERC
+  JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR  
+  INPUT CODDITTA F_CODDITTA SELECT
+  INPUT TIPOA    F_TIPODA SELECT
+  INPUT CODANAGR F_CODDA
+  DISPLAY "Tipo " TIPOA
+  DISPLAY "Codice " CODANAGR
+  DISPLAY "Cognome - Nome o Ragione sociale@50"  LF_ANAG->RAGSOC
   OUTPUT F_TIPODA TIPOA
   OUTPUT F_CODDA CODANAGR
-  OUTPUT F_RAGDA LF_ANAG->RAGSOC
+  OUTPUT F_RAGDA LF_ANAG->RAGSOC  
   WARNING "Percipiente inesistente"
+  CHECKTYPE NORMAL
 END
 
 STRING F_RAGDA 50
 BEGIN
-  PROMPT 3 5 "Ragione sociale  "
-  FLAGS "D"
+  PROMPT 21 4 ""
+  USE LF_ANAG KEY 2      
+  INPUT TIPOA F_TIPODA 
+  INPUT RAGSOC F_RAGDA
+  DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
+  DISPLAY "Tipo" TIPOA
+  DISPLAY "Codice" CODANAGR
+  OUTPUT F_RAGDA RAGSOC
+  OUTPUT F_CODDA CODANAGR
+  OUTPUT F_TIPODA TIPOA
 END
 
-STRING F_TIPOA 1 
-BEGIN
-  PROMPT 3 6 "A codice         "    
-  FLAGS "U"
-END
-       
 TEXT DLG_NULL
 BEGIN
-  PROMPT 23 6 "/"
+  PROMPT 1 5 "@bA percipiente"
 END
-       
+
+LIST F_TIPOA 1 9
+BEGIN
+  PROMPT 1 6 ""    
+  ITEM "F|Fisica"
+  ITEM "G|Giuridica"
+END
+
 NUMBER F_CODA 5
 BEGIN
-  PROMPT 25 6 ""
+  PROMPT 13 6 ""
   HELP "Codice anagrafico del percipiente"
-  USE LF_PERC KEY 1 SELECT (CODDITTA=#F_CODDITTA)
-  JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR
-  CHECKTYPE NORMAL         
-  INPUT CODDITTA F_CODDITTA
-  INPUT TIPOA F_TIPOA
-  INPUT CODANAGR F_CODA 
-  DISPLAY "Tipo" TIPOA
-  DISPLAY "Codice" CODANAGR  
-  DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
+  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_CODA
+  DISPLAY "Tipo " TIPOA
+  DISPLAY "Codice " CODANAGR
+  DISPLAY "Cognome - Nome o Ragione sociale@50"  LF_ANAG->RAGSOC
   OUTPUT F_TIPOA TIPOA
   OUTPUT F_CODA CODANAGR
-  OUTPUT F_RAGA LF_ANAG->RAGSOC
+  OUTPUT F_RAGA LF_ANAG->RAGSOC  
   WARNING "Percipiente inesistente"
-END                                              
+  CHECKTYPE NORMAL
+END
 
 STRING F_RAGA 50
 BEGIN
-  PROMPT 3 7 "Ragione sociale  "
-  FLAGS "D"
+  PROMPT 21 6 ""
+  USE LF_ANAG KEY 2      
+  INPUT TIPOA F_TIPOA 
+  INPUT RAGSOC F_RAGA
+  DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
+  DISPLAY "Tipo" TIPOA
+  DISPLAY "Codice" CODANAGR
+  OUTPUT F_RAGA RAGSOC
+  OUTPUT F_CODA CODANAGR
+  OUTPUT F_TIPOA TIPOA
 END
 
 LIST F_CARATTERE 13
 BEGIN
-  PROMPT 3 9 "Tipo stampa "
+  PROMPT 1 9 "Tipo stampa "
   ITEMS "1|132 caratteri"
   ITEMS "2|198 caratteri"
 END                
 
 LIST F_TIPOSEL 25
 BEGIN
-  PROMPT 35 9 "Tipo selezione "
+  PROMPT 32 9 "Tipo selezione "
   ITEMS "1|per data pagamento"
   ITEMS "2|per periodo di competenza"
 END