cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-22 15:10:13 +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 If Old <> "" And New <> "" Then
' Log("BUSCA_TEXTCHANGED") ' Log("BUSCA_TEXTCHANGED")
q_buscar = "%" & busca.Text & "%" 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 ' ListView1.Clear
clv_clientes.Clear clv_clientes.Clear
lfila.text = "Nombre y Calle" 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. 'Nada aqui, solo esta para que los clics no se pasen hacia atras.
End Sub End Sub
Private Sub b_buscar_Click Private Sub b_buscar_Click
q_buscar = "%" & busca.Text & "%" 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 ' ListView1.Clear
clv_clientes.Clear clv_clientes.Clear
lfila.text = "Nombre y Calle" lfila.text = "Nombre y Calle"

2
B4A/Mariana Censos.b4a.meta
View File

@@ -49,6 +49,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8=1 ModuleClosedNodes8=1
ModuleClosedNodes9= 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 SelectedBuild=0
VisibleModules=2,14,9,4,15,7,16,13,5 VisibleModules=2,14,9,4,15,7,16,13,5