cheveguerra/Salma_Venta-DESCONTINUADO
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Salma_Venta-DESCONTINUADO.git synced 2026-04-22 15:10:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.12.09

Browse Source 
- Se cambiaron los permisos de Activity a B4XPage
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-12-09 18:54:32 -06:00
parent a50d2319d1
commit aeae049d52
7 changed files with 33 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
B4A/Tracker.bas
View File

@@ -159,7 +159,7 @@ End Sub
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
UUGCoords = Location1
@@ -184,7 +184,7 @@ Sub flp_LocationChanged (Location1 As Location)
'///////
Dim coords As String = Location1.Latitude&","&Location1.Longitude&","&formatoFecha(Location1.Time)
' Log("Loc changed : "&Location1.Latitude&","&Location1.Longitude&"|"&B4XPages.MainPage.usuario&"|")
Log("Mandamos Ubicacion")
' Log("Mandamos Ubicacion")
' Log(FirebaseMessaging.locRequest)
' Solo mandamos la ubicacion si la precision es menor a XX mts
' If Location1.Accuracy < 100 Then
@@ -194,8 +194,9 @@ Sub flp_LocationChanged (Location1 As Location)
B4XPages.MainPage.cliente.LA_GPS.Text = "CON UBICACION GPS"
B4XPages.MainPage.cliente.LA_GPS.TextColor = Colors.blue
End If
LogColor(Location1.Latitude, Colors.red)
' LogColor(Location1.Latitude, Colors.red)
CallSub2(Starter, "GPS_LocationChanged", Location1)
' CallSub2(B4XPages.MainPage.cliente, "GPS_LocationChanged", Location1)
' CallSub2(gestion, "GPS_LocationChanged", Location1)
' CallSub2(B4XPages.GetPage("Cliente"), "GPS_LocationChanged", Location1)
' CallSub2(nuevocliente, "GPS_LocationChanged", Location1)