cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-20 14:19:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.01.27

Browse Source 
- Se cambio que en la lista de clientes no se muestren los inactivos.
- Se agregó en clientes, un boton de "Todos" para buscar en TODOS los clientes y no solo en los activos.
- Se cambio que en el mapa, en los visitados no se vean los "inactivos".
- Se cambio que en el mapa, en los cerrados no se vean los "activos" con secuencia 0.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-01-29 12:51:00 -06:00
parent c552deef89
commit 5eadd2ffb6
6 changed files with 35 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
B4A/C_Clientes.bas
View File

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