cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-17 21:06:31 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.01.27

Browse Source 
- Se cambio el orden de los resultados de la busqueda en "Clientes", para que se ordene por secuencia.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-01-29 12:59:53 -06:00
parent 5eadd2ffb6
commit c14f8846e0
2 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
B4A/C_Clientes.bas
View File

@@ -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"

2
B4A/Mariana Censos.b4a.meta
View File

@@ -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