cheveguerra/ADM2
1
0
Fork 0
mirror of https://github.com/KeymonSoft/ADM2.git synced 2026-04-17 19:36:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

VERSION 5.12.04

Browse Source 
- Cambios en el timer del envio de ubicacion en tiempo real
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-12-26 14:17:13 -06:00
parent 8b5dc8a2a9
commit 7f18e3e8ea
6 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/Tracker.bas
View File

@@ -199,7 +199,7 @@ Sub flp_LocationChanged (Location1 As Location)
' CallSub2(B4XPages.MainPage.cliente, "GPS_LocationChanged", Location1)
' CallSub2(gestion, "GPS_LocationChanged", Location1)
If B4XPages.MainPage.cliente.IsInitialized Then
Log("Call Cliente GPS_LocationChanged")
' Log("Call Cliente GPS_LocationChanged")
CallSub2(B4XPages.GetPage("Cliente"), "GPS_LocationChanged", Location1)
End If
' CallSub2(nuevocliente, "GPS_LocationChanged", Location1)
@@ -305,8 +305,8 @@ Sub revisaUUG 'ignore
End Sub
Sub guardaYEnviaUbicacion(lat As String, lon As String)
LogColor("#######################################", Colors.Magenta)
LogColor("#######################################", Colors.Magenta)
' LogColor("#######################################", Colors.Magenta)
' LogColor("#######################################", Colors.Magenta)
' LogColor("#######################################", Colors.Magenta)
DateTime.DateFormat="yy-MM-dd HH:mm:ss"
Private fecha As String = DateTime.Date(DateTime.Now)
@@ -319,6 +319,6 @@ Sub guardaYEnviaUbicacion(lat As String, lon As String)
cmd.Name = "guardaHistorialUbicaciones_ADM3"
If B4XPages.MainPage.lat_gps.Length < 15 Then B4XPages.MainPage.lat_gps = B4XPages.MainPage.lat_gps&"0"
cmd.Parameters = Array As Object(Subs.traeAlmacen, Subs.traeRuta, usuario, lat, lon, fecha)
Log($"${Subs.traeAlmacen}, ${Subs.traeRuta}, ${usuario}, ${lat}, ${lon}, ${fecha}"$)
' Log($"${Subs.traeAlmacen}, ${Subs.traeRuta}, ${usuario}, ${lat}, ${lon}, ${fecha}"$)
Starter.reqManager.ExecuteCommand(cmd, $"guardaHistorialUbicaciones_${id}"$)
End Sub