cheveguerra/ADM2
1
0
Fork 0
mirror of https://github.com/KeymonSoft/ADM2.git synced 2026-04-21 05:09:22 +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/C_Cliente.bas
View File

@@ -519,14 +519,14 @@ Sub GPS_LocationChanged (Location1 As Location)
B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastKnownLocation.Longitude
' Log("Coords set to: " & B4XPages.MainPage.lat_gps & " and " & B4XPages.MainPage.lon_gps)
End If
' ToastMessageShow(B4XPages.MainPage.lat_gps,False)
Dim l1, l2 As Location
l1.Initialize2(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)
Log($"Coordenadas de la tienda - lat:${m_lat}, lon:${m_lon}"$)
' Log($"Coordenadas de la tienda - lat:${m_lat}, lon:${m_lon}"$)
l2.Initialize2(m_lat, m_lon)
If BT_QR.IsInitialized Then BT_QR.Enabled = True
If LA_GPS.IsInitialized Then LA_GPS.TextColor = Colors.Blue
If LA_GPS.IsInitialized Then LA_GPS.Text = "CON UBICACION GPS"