From c14f8846e0dd9de9012511b58952eb1ba8a2fe90 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Wed, 29 Jan 2025 12:59:53 -0600 Subject: [PATCH] - VERSION 5.01.27 - Se cambio el orden de los resultados de la busqueda en "Clientes", para que se ordene por secuencia. --- B4A/C_Clientes.bas | 5 ++--- B4A/Mariana Censos.b4a.meta | 2 +- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/B4A/C_Clientes.bas b/B4A/C_Clientes.bas index b4f89fc..f284500 100644 --- a/B4A/C_Clientes.bas +++ b/B4A/C_Clientes.bas @@ -204,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, 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)) + 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_SECUENCIA, CAT_CL_CODIGO", Array As String(q_buscar,q_buscar,q_buscar)) ' ListView1.Clear clv_clientes.Clear lfila.text = "Nombre y Calle" @@ -281,10 +281,9 @@ 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)) + 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_SECUENCIA, CAT_CL_CODIGO ", Array As String(q_buscar,q_buscar,q_buscar)) ' ListView1.Clear clv_clientes.Clear lfila.text = "Nombre y Calle" diff --git a/B4A/Mariana Censos.b4a.meta b/B4A/Mariana Censos.b4a.meta index c8d0a1d..14100e9 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/B4A/Mariana Censos.b4a.meta @@ -49,6 +49,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=1 ModuleClosedNodes9= -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 +NavigationStack=C_Principal,Class_Globals,205,0,C_Principal,B4XPage_Appear,317,0,C_Principal,B4XPage_Created,312,3,Main,Process_Globals,21,0,MAPA_RUTAS,MapFragment1_Ready,238,6,C_Clientes,B4XPage_Appear,68,0,C_Clientes,BUSCA_TextChanged,200,0,C_Clientes,b_buscar_Click,280,0,C_Clientes,p_clientes_Click,276,0,B4XMainPage,Class_Globals,20,0 SelectedBuild=0 VisibleModules=2,14,9,4,15,7,16,13,5