28/9/23 - Modificaciones para que mande la ubicación si no hay cambios durante 15 minutos.

Starter.bas

@@ -18,12 +18,13 @@ Sub Process_Globals
 	Dim reqManager As DBRequestManager
 	Dim cmd As DBCommand
 	Dim Timer1 As Timer
-	Dim interval As Int = 60 '600 segs (10 mins)
+	Dim interval As Int = 600 '600 segs (10 mins)
 	Dim UUC As Location
 	Dim run As Int = 0 'ignore
 	Dim devModel As String
 	Dim lastLocUpdate As String = 0
 	Dim logger As Boolean = True
+	Dim FLPStatus As String
 End Sub
 
 Sub Service_Create
@@ -51,14 +52,15 @@ Sub Service_Start (StartingIntent As Intent)
 End Sub
 
 Private Sub Timer1_Tick
-'	ToastMessageShow("Timer",False)
+	CallSubDelayed(Tracker, "StartFLP")
 	If logger Then Log("Next run " & DateTime.Time(DateTime.Now + interval * 1000))
 '	Log($"|${Tracker.FLP.IsInitialized}|${Tracker.FLP.GetLastKnownLocation.IsInitialized}|"$)If DateTime.DateForm
-	CallSub2(Tracker, "dameUltimaUbicacionConocida", UUC)
+
 	'Si ya pasaron mas de 15 minutos (900 segs) desde la ultima actualización, entonces mandamos UUC.
 	If ((DateTime.now - lastLocUpdate)/1000) > (interval * 1.5) Then
-		LogColor($"Mandamos ubicacion porque no se ha enviado en ${(interval * 1.5)} segs."$, Colors.red)
-		Subs.mandaLocAServer(Tracker.FLP.GetLastKnownLocation, devModel)
+		LogColor($"Mandamos "Ultima Ubicacion Conocida" porque no se ha enviado en ${(interval * 1.5)} segs."$, Colors.red)
+		CallSub2(Tracker, "dameUltimaUbicacionConocida", UUC)
+		If Tracker.FLP.IsInitialized Then Subs.mandaLocAServer(Tracker.FLP.GetLastKnownLocation, devModel)
 	End If
 End Sub