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

- VERSION 5.01.18

Browse Source 
- Se quitaron los inactivos en el mapa.
- Se agregó que actualize la secuencia, estatus y dia de visita en "hist_censos_geocerca
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-01-22 18:06:08 -06:00
parent 0ac815a41b
commit c552deef89
5 changed files with 20 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
B4A/MAPA_RUTAS.bas
View File

@@ -206,11 +206,16 @@ Sub MapFragment1_Ready
Next
c.Close
End If
' '''''''----------------------------MARKER ROJO - NO VENTA
' '''''''----------------------------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")
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.
Log($"============== Rojo Resultados = ${c3.RowCount}"$)
For i = 0 To c3.RowCount -1
c3.Position = i