diff --git a/cg/cg0200.cpp b/cg/cg0200.cpp
index 3a2ae0ba5..71c215652 100755
--- a/cg/cg0200.cpp
+++ b/cg/cg0200.cpp
@@ -866,6 +866,11 @@ void TClifo_application::get_pnae(const TMask& m, TToken_string& nonacceff, TTok
 
 void TClifo_application::common_f(const TMask& m)
 {
+	TString alter = m.get(F_RICALT);
+
+	if (alter.blank() && m.mode() == MODE_INS)
+		((TMask &)m).set(F_RICALT, m.get(F_RAGSOC).left(m.field(F_RICALT).size()));
+
   TToken_string nonacceff(30, ';'), nonscadeff(30, ';');
   get_pnae(m, nonacceff, nonscadeff);
   TRectype& cfven = get_relation()->curr(LF_CFVEN);
diff --git a/cg/cg0200a.uml b/cg/cg0200a.uml
index a0a6c1e2a..e4ce2f506 100755
--- a/cg/cg0200a.uml
+++ b/cg/cg0200a.uml
@@ -14,7 +14,7 @@ END
 
 ENDPAGE
 
-PAGE "Pag.1" -1 -1 78 19
+PAGE "Dati Anagrafici" -1 -1 78 19
 
 GROUPBOX DLG_NULL 76 4
 BEGIN
@@ -382,7 +382,7 @@ END
 
 ENDPAGE
 
-PAGE "Pag.2" -1 -1 78 19
+PAGE "Contatti/Percipiente" -1 -1 78 19
 
 GROUPBOX DLG_NULL 76 4
 BEGIN
@@ -623,7 +623,7 @@ END
 
 ENDPAGE
 
-PAGE "Pag.3" -1 -1 78 19
+PAGE "Banche/Condizioni" -1 -1 78 19
 
 GROUPBOX DLG_NULL 76 4
 BEGIN
@@ -985,7 +985,7 @@ END
 
 ENDPAGE
 
-PAGE "Pag.4" -1 -1 78 19
+PAGE "Banche/Effetti" -1 -1 78 19
 
 GROUPBOX DLG_NULL 76 4
 BEGIN
@@ -1134,7 +1134,7 @@ END
 
 ENDPAGE
 
-PAGE "Pag.5" -1 -1 78 19
+PAGE "Indirizzi" -1 -1 78 19
 
 GROUPBOX DLG_NULL 76 4
 BEGIN
@@ -1224,7 +1224,7 @@ END
 
 ENDPAGE
 
-PAGE "Pag.6" -1 -1 78 19
+PAGE "Dati vendita 1" -1 -1 78 19
 
 GROUPBOX DLG_NULL 76 4
 BEGIN
@@ -1438,7 +1438,7 @@ END
 
 ENDPAGE
 
-PAGE "Pag.7" -1 -1 78 19
+PAGE "Dati Vendita 2" -1 -1 78 19
 
 GROUPBOX DLG_NULL 76 4
 BEGIN
@@ -1699,7 +1699,7 @@ END
 
 ENDPAGE
 
-PAGE "Pag.8" -1 -1 78 19
+PAGE "Dati Vendita 3" -1 -1 78 19
 
 GROUPBOX DLG_NULL 76 4
 BEGIN