cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-21 14:49:18 +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 l_estatus As Label
Private clv_clientes As CustomListView Private clv_clientes As CustomListView
Private l_clienteItem2 As Label Private l_clienteItem2 As Label
Private b_buscar As Button
End Sub End Sub
'You can add more parameters here. 'You can add more parameters here.
@@ -71,7 +72,7 @@ Sub B4XPage_Appear
busca.Text = "" busca.Text = ""
entro ="2" entro ="2"
colonia = 0 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 ' ListView1.Clear
clv_clientes.Clear clv_clientes.Clear
' Log("LIMPIAMOS LISTVIEW") ' Log("LIMPIAMOS LISTVIEW")
@@ -203,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 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 ' ListView1.Clear
clv_clientes.Clear clv_clientes.Clear
lfila.text = "Nombre y Calle" lfila.text = "Nombre y Calle"
@@ -222,7 +223,8 @@ Sub BUSCA_TextChanged (Old As String, New As String)
c2.Position=i c2.Position=i
' Log($"${c2.GetString("CAT_CL_CODIGO")} - ${c2.GetString("CAT_CL_NOMBRE")}"$) ' 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")) ' 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 Next
End If End If
entro = "4" entro = "4"
@@ -278,3 +280,21 @@ End Sub
Private Sub p_clientes_Click 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
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

3
B4A/C_Principal.bas
View File

@@ -246,6 +246,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1 Root = Root1
'load the layout to Root 'load the layout to Root
Root.LoadLayout("principal") Root.LoadLayout("principal")
B4XPages.SetTitle(Me, $"Principal - ${Application.VersionName}"$)
EJECUTANDO=1 EJECUTANDO=1
Dim ruta As String Dim ruta As String
' img2.Visible = False ' img2.Visible = False
@@ -320,7 +321,7 @@ Sub B4XPage_Appear
mapTiempos.Initialize mapTiempos.Initialize
HORAINGRESO ="000000" HORAINGRESO ="000000"
reqs.Initialize reqs.Initialize
B4XPages.SetTitle(Me, $"Principal"$) ' B4XPages.SetTitle(Me, $"Principal"$)
' Btn_Ubicar.Left = (Root.Width/2) - (Btn_Ubicar.Width/2) ' Btn_Ubicar.Left = (Root.Width/2) - (Btn_Ubicar.Width/2)
' B4XPages.MainPage.reqManager.Initialize(Me, B4XPages.MainPage.SERVER) ' B4XPages.MainPage.reqManager.Initialize(Me, B4XPages.MainPage.SERVER)
PASO = 0 PASO = 0

BIN
B4A/Files/clientes.bal
View File

Binary file not shown.

12
B4A/MAPA_RUTAS.bas
View File

@@ -210,12 +210,11 @@ Sub MapFragment1_Ready
' '''''''----------------------------MARKER ROJO - NO VENTA ' '''''''----------------------------MARKER ROJO - NO VENTA
If rojo = 1 Or todos = 1 Then If rojo = 1 Or todos = 1 Then
' c3.IsInitialized ' c3.IsInitialized
c3 = skmt.ExecQuery($"Select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_SECUENCIA from kmt_info 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 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}"$) Log($"============== Rojo Resultados = ${c3.RowCount}"$)
For i = 0 To c3.RowCount -1 For i = 0 To c3.RowCount -1
c3.Position = i c3.Position = i
@@ -231,9 +230,10 @@ Sub MapFragment1_Ready
c3.Close c3.Close
End If End If
' '''''''----------------------------MARKER NEGRO - NO VENTA
If pVisitar = 1 Then If pVisitar = 1 Then
' c3.IsInitialized ' 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}"$) Log($"============== Negro Resultados = ${c3.RowCount}"$)
For i = 0 To c3.RowCount -1 For i = 0 To c3.RowCount -1
c3.Position = i c3.Position = i
@@ -355,4 +355,4 @@ Private Sub b_porVisitar_Click
todos = 0 todos = 0
gmap.Clear gmap.Clear
MapFragment1_Ready MapFragment1_Ready
End Sub End Sub

2
B4A/Mariana Censos.b4a
View File

@@ -755,7 +755,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Mariana Censos #ApplicationLabel: Mariana Censos
#VersionCode: 1 #VersionCode: 1
#VersionName: 5.01.18 #VersionName: 5.01.27
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

6
B4A/Mariana Censos.b4a.meta
View File

@@ -37,7 +37,7 @@ ModuleClosedNodes1=
ModuleClosedNodes10= ModuleClosedNodes10=
ModuleClosedNodes11= ModuleClosedNodes11=
ModuleClosedNodes12= ModuleClosedNodes12=
ModuleClosedNodes13=3 ModuleClosedNodes13=
ModuleClosedNodes14= ModuleClosedNodes14=
ModuleClosedNodes15= ModuleClosedNodes15=
ModuleClosedNodes16=4,5,6,10,13,17,18,19 ModuleClosedNodes16=4,5,6,10,13,17,18,19
@@ -49,6 +49,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8=1 ModuleClosedNodes8=1
ModuleClosedNodes9= 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 SelectedBuild=0
VisibleModules=2,14,9,4,15,7,16,13,8 VisibleModules=2,14,9,4,15,7,16,13,5