diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index 8aa19dd..356492b 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -646,6 +646,36 @@ Sub B4XPage_Appear
 '		ToastMessageShow("aaa", False)
 	End If
 	
+	c = skmt.ExecQuery("SELECT PC_CLIENTE  FROM PEDIDO_CLIENTE WHERE PC_CLIENTE IN (Select CUENTA from cuentaa)")
+	If c.RowCount > 0 Then
+		Tels.Visible = True
+		gest.Visible = True
+				
+	Else If c.RowCount = 0 Then
+		Tels.Visible = False
+		gest.Visible = False
+		c = skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA CLIENTE WHERE NV_CLIENTE IN (Select CUENTA from cuentaa)")
+		If c.RowCount > 0 Then
+			Tels.Visible = True
+			gest.Visible = True
+		Else If c.RowCount = 0 Then
+			Tels.Visible = False
+			gest.Visible = False
+			LA_GEO.TextColor = Colors.Red
+			If ALMACEN = "1" Then
+				Tels.Visible = False
+				gest.Visible = True
+			End If
+		End If
+				
+					
+		LA_GEO.TextColor = Colors.Red
+		If ALMACEN = "1" Then
+			Tels.Visible = False
+			gest.Visible = True
+		End If
+					
+	End If
 	
 End Sub
 
diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index ae016da..e88fe14 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -996,7 +996,7 @@ Sub JobDone(Job As HttpJob)
 				If n = "OKActivo"  Then
 					Dim cmd As DBCommand
 					cmd.Initialize
-					cmd.Name = "select_ruta_GV2_70_2"
+					cmd.Name = "select_ruta_GV2_70_3"
 					cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
 					B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
 					'Log("Usuario guardado en BD es 'Valido'")
diff --git a/B4A/Guna Vistas V3.1.b4a.meta b/B4A/Guna Vistas V3.1.b4a.meta
index 3ab4c88..13adb43 100644
--- a/B4A/Guna Vistas V3.1.b4a.meta	
+++ b/B4A/Guna Vistas V3.1.b4a.meta	
@@ -70,6 +70,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Diseñador Visual,principal.bal,-100,1,C_Cliente,Class_Globals,0,0,B4XMainPage,B4XPage_Appear,323,1,C_Principal,Subir_Click,717,0,B4XMainPage,b_aceptar_Click,798,6,C_Principal,JobDone,1199,6,C_Principal,e_ruta_EnterPressed,1809,6,C_Principal,cargar_Click,734,3,C_Cliente,B4XPage_Appear,638,0,C_Cliente,GPS_LocationChanged,734,6
+NavigationStack=B4XMainPage,B4XPage_Appear,323,1,C_Principal,Subir_Click,717,0,B4XMainPage,b_aceptar_Click,798,6,C_Principal,e_ruta_EnterPressed,1809,6,C_Principal,cargar_Click,734,3,C_Cliente,GPS_LocationChanged,743,6,C_Cliente,B4XPage_Appear,671,1,C_Principal,Class_Globals,0,0,C_Principal,connecta_Click,1707,0,C_Principal,JobDone,992,6
 SelectedBuild=0
 VisibleModules=21,2,22,12,13,4,8,11,5,10