diff --git a/B4A/C_Clientes.bas b/B4A/C_Clientes.bas
index f2f865e..b4f89fc 100644
--- a/B4A/C_Clientes.bas
+++ b/B4A/C_Clientes.bas
@@ -35,6 +35,7 @@ Sub Class_Globals
 	Private l_estatus As Label
 	Private clv_clientes As CustomListView
 	Private l_clienteItem2 As Label
+	Private b_buscar As Button
 End Sub
 
 'You can add more parameters here.
@@ -71,7 +72,7 @@ Sub B4XPage_Appear
 	busca.Text = ""
 	entro ="2"
 	colonia = 0
-	c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO, CAT_CL_SECUENCIA, CAT_CL_ESTATUS from kmt_info where gestion = 0 ORDER BY CAT_CL_SECUENCIA, CAT_CL_CODIGO")
+	c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO, CAT_CL_SECUENCIA, CAT_CL_ESTATUS from kmt_info where gestion = 0 and cat_cl_secuencia <> '0' ORDER BY CAT_CL_SECUENCIA, CAT_CL_CODIGO")
 '	ListView1.Clear
 	clv_clientes.Clear
 '	Log("LIMPIAMOS LISTVIEW")
@@ -203,7 +204,7 @@ Sub BUSCA_TextChanged (Old As String, New As String)
 	If Old <> "" And New <> "" Then
 '		Log("BUSCA_TEXTCHANGED")
 		q_buscar = "%" & busca.Text & "%"
-		c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where (CAT_CL_NOMBRE like ? OR CAT_CL_CODIGO LIKE ? OR CAT_CL_CALLE LIKE ?)and gestion = 0 order by CAT_CL_NOMBRE ", Array As String(q_buscar,q_buscar,q_buscar))
+		c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO, CAT_CL_SECUENCIA, CAT_CL_ESTATUS from kmt_info where (CAT_CL_NOMBRE like ? OR CAT_CL_CODIGO LIKE ? OR CAT_CL_CALLE LIKE ?) and gestion = 0 and cat_cl_secuencia <> '0' order by CAT_CL_NOMBRE ", Array As String(q_buscar,q_buscar,q_buscar))
 '		ListView1.Clear
 		clv_clientes.Clear
 		lfila.text = "Nombre y Calle"
@@ -222,7 +223,8 @@ Sub BUSCA_TextChanged (Old As String, New As String)
 				c2.Position=i
 '				Log($"${c2.GetString("CAT_CL_CODIGO")} - ${c2.GetString("CAT_CL_NOMBRE")}"$)
 '				ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE:  "& c2.GetString("CAT_CL_CALLE"))
-				clv_clientes.Add(CreateListItem(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE:  "& c2.GetString("CAT_CL_CALLE"), "", clv_clientes.AsView.Width, 70dip), c2.GetString("CAT_CL_CODIGO"))
+'				clv_clientes.Add(CreateListItem(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE:  "& c2.GetString("CAT_CL_CALLE"), "", clv_clientes.AsView.Width, 70dip), c2.GetString("CAT_CL_CODIGO"))
+				clv_clientes.Add(CreateListItem(c2.GetString("CAT_CL_CODIGO") & " - " & c2.GetString("CAT_CL_SECUENCIA"), c2.GetString("CAT_CL_NOMBRE") & ", " & c2.GetString("CAT_CL_CALLE"), c2.GetString("CAT_CL_ESTATUS"), clv_clientes.AsView.Width, 70dip), c2.GetString("CAT_CL_CODIGO") & " - " & c2.GetString("CAT_CL_SECUENCIA"))
 			Next
 		End If
 		entro = "4"
@@ -278,3 +280,21 @@ End Sub
 Private Sub p_clientes_Click
 	'Nada aqui, solo esta para que los clics no se pasen hacia atras.
 End Sub
+
+
+Private Sub b_buscar_Click
+		q_buscar = "%" & busca.Text & "%"
+	c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO, CAT_CL_SECUENCIA, CAT_CL_SECUENCIA, CAT_CL_NOMBRE, CAT_CL_ESTATUS from kmt_info where (CAT_CL_NOMBRE like ? OR CAT_CL_CODIGO LIKE ? OR CAT_CL_CALLE LIKE ?) order by CAT_CL_NOMBRE ", Array As String(q_buscar,q_buscar,q_buscar))
+'		ListView1.Clear
+		clv_clientes.Clear
+		lfila.text = "Nombre y Calle"
+		If c2.RowCount > 0 Then
+			For i=0 To c2.RowCount -1
+				c2.Position = i
+'				clv_clientes.Add(CreateListItem(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE:  "& c2.GetString("CAT_CL_CALLE"), "", clv_clientes.AsView.Width, 70dip), c2.GetString("CAT_CL_CODIGO"))
+				clv_clientes.Add(CreateListItem(c2.GetString("CAT_CL_CODIGO") & " - " & c2.GetString("CAT_CL_SECUENCIA"), c2.GetString("CAT_CL_NOMBRE") & ", " & c2.GetString("CAT_CL_CALLE"), c2.GetString("CAT_CL_ESTATUS"), clv_clientes.AsView.Width, 70dip), c2.GetString("CAT_CL_CODIGO") & " - " & c2.GetString("CAT_CL_SECUENCIA"))
+			Next
+		End If
+		entro = "4"
+		c2.Close
+End Sub
\ No newline at end of file
diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index 83d78fe..4a433ab 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -246,6 +246,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Root = Root1
 	'load the layout to Root
 	Root.LoadLayout("principal")
+	B4XPages.SetTitle(Me, $"Principal - ${Application.VersionName}"$)
 	EJECUTANDO=1
 	Dim ruta As String
 '	img2.Visible = False
@@ -320,7 +321,7 @@ Sub B4XPage_Appear
 	mapTiempos.Initialize
 	HORAINGRESO ="000000"
 	reqs.Initialize
-	B4XPages.SetTitle(Me, $"Principal"$)
+'	B4XPages.SetTitle(Me, $"Principal"$)
 '	Btn_Ubicar.Left = (Root.Width/2) - (Btn_Ubicar.Width/2)
 '	B4XPages.MainPage.reqManager.Initialize(Me, B4XPages.MainPage.SERVER)
 	PASO = 0
diff --git a/B4A/Files/clientes.bal b/B4A/Files/clientes.bal
index 062f27d..1e10b59 100644
Binary files a/B4A/Files/clientes.bal and b/B4A/Files/clientes.bal differ
diff --git a/B4A/MAPA_RUTAS.bas b/B4A/MAPA_RUTAS.bas
index ce2a433..00c3eaf 100644
--- a/B4A/MAPA_RUTAS.bas
+++ b/B4A/MAPA_RUTAS.bas
@@ -210,12 +210,11 @@ Sub MapFragment1_Ready
 '	'''''''----------------------------MARKER ROJO - NO VENTA
 	If rojo = 1 Or todos = 1 Then
 '		c3.IsInitialized
-
-
 		c3 = skmt.ExecQuery($"Select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_SECUENCIA from kmt_info 
 			where CAT_CL_CODIGO Not like 'N%' and CAT_CL_SECUENCIA = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null 
-			And CAT_CL_LAT <> 0 And CAT_CL_LONG <> 0 and CAT_CL_ESTATUS <> 'Inactivo'"$) ' Se agrego la condicion de "<> inactivo" para que solo aparezcan los "cerrados permanentes" y no los inactivos.
-
+			And CAT_CL_LAT <> 0 And CAT_CL_LONG <> 0 and CAT_CL_ESTATUS <> 'Inactivo' and CAT_CL_ESTATUS <> 'Activo'"$) ' Se agrego la condicion de "<> inactivo" para que solo aparezcan los "cerrados permanentes" y no los inactivos.
+			
+		Log($"Select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_SECUENCIA from kmt_info where CAT_CL_CODIGO Not like 'N%' and CAT_CL_SECUENCIA = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null And CAT_CL_LAT <> 0 And CAT_CL_LONG <> 0 and CAT_CL_ESTATUS <> 'Inactivo'"$)
 		Log($"============== Rojo Resultados = ${c3.RowCount}"$)
 		For i = 0 To c3.RowCount -1
 			c3.Position = i
@@ -231,9 +230,10 @@ Sub MapFragment1_Ready
 		c3.Close
 	End If
 
+'	'''''''----------------------------MARKER NEGRO - NO VENTA
 	If pVisitar = 1 Then
 '		c3.IsInitialized
-		c3 = skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_SECUENCIA from kmt_info where gestion = '11' and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+		c3 = skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_SECUENCIA from kmt_info where gestion = '11' and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_ESTATUS <> 'Inactivo'")
 		Log($"============== Negro Resultados = ${c3.RowCount}"$)
 		For i = 0 To c3.RowCount -1
 			c3.Position = i
@@ -355,4 +355,4 @@ Private Sub b_porVisitar_Click
 	todos = 0
 	gmap.Clear
 	MapFragment1_Ready
-End Sub
\ No newline at end of file
+End Sub
diff --git a/B4A/Mariana Censos.b4a b/B4A/Mariana Censos.b4a
index 9c2780e..89ff0aa 100644
--- a/B4A/Mariana Censos.b4a	
+++ b/B4A/Mariana Censos.b4a	
@@ -755,7 +755,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Mariana Censos
 	#VersionCode: 1
-	#VersionName: 5.01.18
+	#VersionName: 5.01.27
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
diff --git a/B4A/Mariana Censos.b4a.meta b/B4A/Mariana Censos.b4a.meta
index 58027b0..c8d0a1d 100644
--- a/B4A/Mariana Censos.b4a.meta	
+++ b/B4A/Mariana Censos.b4a.meta	
@@ -37,7 +37,7 @@ ModuleClosedNodes1=
 ModuleClosedNodes10=
 ModuleClosedNodes11=
 ModuleClosedNodes12=
-ModuleClosedNodes13=3
+ModuleClosedNodes13=
 ModuleClosedNodes14=
 ModuleClosedNodes15=
 ModuleClosedNodes16=4,5,6,10,13,17,18,19
@@ -49,6 +49,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=1
 ModuleClosedNodes9=
-NavigationStack=C_NuevoCliente,mandaPendientesNuevosClientes,477,0,C_Cliente,B4XPage_CloseRequest,390,0,Visual Designer,cliente.bal,-100,1,C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,511,0,C_Cliente,mandaPendientes,443,0,Visual Designer,clienteDatos.bal,-100,4,MAPA_RUTAS,MapFragment1_Ready,207,6,C_Cliente,b_guardaCambios_Click,397,0,C_Cliente,B4XPage_Appear,286,0
+NavigationStack=C_Clientes,Mods,0,0,MAPA_RUTAS,b_porVisitar_Click,354,0,C_Clientes,Class_Globals,31,0,MAPA_RUTAS,Globals,51,0,Visual Designer,clientes.bal,-100,6,C_Clientes,BUSCA_TextChanged,222,0,C_Principal,Class_Globals,205,0,C_Principal,B4XPage_Appear,317,0,C_Principal,B4XPage_Created,312,3,MAPA_RUTAS,MapFragment1_Ready,208,6
 SelectedBuild=0
-VisibleModules=2,14,9,4,15,7,16,13,8
+VisibleModules=2,14,9,4,15,7,16,13,5