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

- VERSION 5.09.03

Browse Source 
- Se corrigieron textos.
- Se corrigio que a veces mandaba coordenadas en blanco a la bitacora, ahora nos aseguramos de siempre tener las coordenadas disponibles
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-09-17 13:11:19 -06:00
parent a73c9d4290
commit 003e50a6b1
14 changed files with 94 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/Tracker.bas
View File

@@ -158,9 +158,9 @@ Public Sub StopFLP
End If
End Sub
Sub flp_LocationChanged (Location1 As Location)
public Sub flp_LocationChanged (Location1 As Location)
' ToastMessageShow("Loc changed", False)
Log($"Loc changed:${Location1.Longitude},${Location1.Latitude}"$)
LogColor($">>> Loc changed:${Location1.Longitude},${Location1.Latitude}"$, Colors.red)
B4XPages.MainPage.lat_gps = Location1.Latitude
B4XPages.MainPage.lon_gps = Location1.Longitude
Starter.lat_gps = Location1.Latitude
@@ -196,6 +196,8 @@ Sub flp_LocationChanged (Location1 As Location)
End If
CallSub2(Starter, "GPS_LocationChanged", Location1)
CallSub2(B4XPages.MainPage.clientes, "GPS_LocationChanged", Location1)
' CallSub2(B4XPages.MainPage.clientes, "Tracker_UbicacionActualizada", Location1)
' CallSub2(B4XPages.MainPage.cliente, "GPS_LocationChanged", Location1)
' CallSub2(gestion, "GPS_LocationChanged", Location1)
If B4XPages.MainPage.cliente.BT_QR.IsInitialized Then
@@ -306,7 +308,7 @@ End Sub
Sub guardaYEnviaUbicacion(lat As String, lon As String)
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)
DateTime.DateFormat="yyMMddHHmmss"
@@ -318,6 +320,6 @@ Sub guardaYEnviaUbicacion(lat As String, lon As String)
cmd.Name = "guardaHistorialUbicaciones"
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