mirror of
https://github.com/KeymonSoft/Mariana_Censos.git
synced 2026-04-17 21:06:31 +00:00
- VERSION 5.01.27
- 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
@@ -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
|
||||
@@ -246,6 +246,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
Root = Root1
|
||||
'load the layout to Root
|
||||
Root.LoadLayout("principal")
|
||||
B4XPages.SetTitle(Me, $"Principal - ${Application.VersionName}"$)
|
||||
EJECUTANDO=1
|
||||
Dim ruta As String
|
||||
' img2.Visible = False
|
||||
@@ -320,7 +321,7 @@ Sub B4XPage_Appear
|
||||
mapTiempos.Initialize
|
||||
HORAINGRESO ="000000"
|
||||
reqs.Initialize
|
||||
B4XPages.SetTitle(Me, $"Principal"$)
|
||||
' B4XPages.SetTitle(Me, $"Principal"$)
|
||||
' Btn_Ubicar.Left = (Root.Width/2) - (Btn_Ubicar.Width/2)
|
||||
' B4XPages.MainPage.reqManager.Initialize(Me, B4XPages.MainPage.SERVER)
|
||||
PASO = 0
|
||||
|
||||
Binary file not shown.
@@ -210,12 +210,11 @@ Sub MapFragment1_Ready
|
||||
' '''''''----------------------------MARKER ROJO - NO VENTA
|
||||
If rojo = 1 Or todos = 1 Then
|
||||
' 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 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}"$)
|
||||
For i = 0 To c3.RowCount -1
|
||||
c3.Position = i
|
||||
@@ -231,9 +230,10 @@ Sub MapFragment1_Ready
|
||||
c3.Close
|
||||
End If
|
||||
|
||||
' '''''''----------------------------MARKER NEGRO - NO VENTA
|
||||
If pVisitar = 1 Then
|
||||
' 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}"$)
|
||||
For i = 0 To c3.RowCount -1
|
||||
c3.Position = i
|
||||
@@ -355,4 +355,4 @@ Private Sub b_porVisitar_Click
|
||||
todos = 0
|
||||
gmap.Clear
|
||||
MapFragment1_Ready
|
||||
End Sub
|
||||
End Sub
|
||||
|
||||
@@ -755,7 +755,7 @@ Version=12.8
|
||||
#Region Project Attributes
|
||||
#ApplicationLabel: Mariana Censos
|
||||
#VersionCode: 1
|
||||
#VersionName: 5.01.18
|
||||
#VersionName: 5.01.27
|
||||
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
||||
#SupportedOrientations: portrait
|
||||
#CanInstallToExternalStorage: False
|
||||
|
||||
@@ -37,7 +37,7 @@ ModuleClosedNodes1=
|
||||
ModuleClosedNodes10=
|
||||
ModuleClosedNodes11=
|
||||
ModuleClosedNodes12=
|
||||
ModuleClosedNodes13=3
|
||||
ModuleClosedNodes13=
|
||||
ModuleClosedNodes14=
|
||||
ModuleClosedNodes15=
|
||||
ModuleClosedNodes16=4,5,6,10,13,17,18,19
|
||||
@@ -49,6 +49,6 @@ ModuleClosedNodes6=
|
||||
ModuleClosedNodes7=
|
||||
ModuleClosedNodes8=1
|
||||
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
|
||||
VisibleModules=2,14,9,4,15,7,16,13,8
|
||||
VisibleModules=2,14,9,4,15,7,16,13,5
|
||||
|
||||
Reference in New Issue
Block a user