Se puede entrar a pagares desde el boton y manda al cliente

Se actualiza el tiempo real
Se actualiza el tiempo real por cliente
Vista cxc

B4A/Tracker.bas

@@ -34,7 +34,7 @@ Version=10.2
 
 Sub Process_Globals
 	Private nid As Int = 1
-	dim Tracking As Boolean
+	Dim Tracking As Boolean
 	Private lock As PhoneWakeState
 	'Para FusedLocationProvider (2 lineas)
 	Public FLP As FusedLocationProvider
@@ -45,6 +45,32 @@ Sub Process_Globals
 	Dim trackerActividad, pushServiceActividad As String
 End Sub
 
+Public Sub StartFLPSmall
+'	Log("StartFLPSmall - flpStarted="&flpStarted)
+	Do While FLP.IsConnected = False
+		Sleep(500)
+		Log("sleeping")
+	Loop
+	dameUltimaUbicacionConocida 'Regresamos ultima ubicacion conocida
+	FLP.RequestLocationUpdates(CreateLocationRequestSmallD) 'Buscamos ubicacion 2 peticiones
+'	Log("Buscamos ubicacion Small displacement")
+'	Log("GPSSmallestDisplacement = " & actualLR.GetSmallestDisplacement)
+End Sub
+
+Private Sub CreateLocationRequestSmallD As LocationRequest
+'	Log("Iniciamos CreateLocationRequestSmallD")
+	Dim lr As LocationRequest
+	lr.Initialize
+	lr.SetInterval(2000) 'Intervalo deseado para actualizaciones de ubicacion
+	lr.SetFastestInterval(lr.GetInterval / 2) 'Intervalo minimo para actualizaciones de ubicacion
+	lr.setNumUpdates(2) 'Solicitamos solo 2 actualizaciones con estos parametros
+	lr.SetSmallestDisplacement(1) 'Solo registra cambio de ubicacion si es mayor a XX mts
+	lr.SetPriority(lr.Priority.PRIORITY_HIGH_ACCURACY)
+	actualLR=lr
+	Return lr
+End Sub
+
+
 Sub Service_Create
 	Service.AutomaticForegroundMode = Service.AUTOMATIC_FOREGROUND_NEVER 'we are handling it ourselves
 	UUGCoords.Initialize