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

12
B4A/MAPA_RUTAS.bas
View File

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