cheveguerra/Mariana_Reparto
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Reparto.git synced 2026-04-17 21:06:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

20/12/23 - Se cambio rootExternal a Internal

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-12-20 21:25:24 -06:00
parent f57db99170
commit bc66ad5dbd
8 changed files with 81 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
B4A/C_Clientes.bas
View File

@@ -408,12 +408,14 @@ Sub traeRutaDia(aVisitar As B4XOrderedMap)
Private r1, wps As Map
Starter.skmt.ExecNonQuery("delete from waypoints")
For Each k As Object In clientesMapaO.Keys 'Guardamos en la BD el orden de los waypoints para luego generar el listview.
r1 = clientesMapaO.Get(k)
r1.Get("codigo")
' Log(listaWayPoints.Get(r) & "|" & r1.Get("coords") & "|" & r1.Get("calle"))
wps = listaWayPoints.Get(r)
Starter.skmt.ExecNonQuery2("insert into waypoints values (?,?)", Array As Object(r1.Get("codigo"), wps.get("waypoint_index")))
r = r + 1
If listaWayPoints.Size > 0 Then
r1 = clientesMapaO.Get(k)
r1.Get("codigo")
Log(listaWayPoints.Get(r) & "|" & r1.Get("coords") & "|" & r1.Get("calle"))
wps = listaWayPoints.Get(r)
Starter.skmt.ExecNonQuery2("insert into waypoints values (?,?)", Array As Object(r1.Get("codigo"), wps.get("waypoint_index")))
r = r + 1
End If
Next
ListView1.Clear
Sleep(100)