diff --git a/FLP_2.0.b4a.meta b/FLP_2.0.b4a.meta index eccc78b..9f51368 100644 --- a/FLP_2.0.b4a.meta +++ b/FLP_2.0.b4a.meta @@ -28,6 +28,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Tracker,StartFLP,102,0,Main,chkPermisosEstadoTelefono,150,0,FirebaseMessaging,fm_MessageArrived,94,0,FirebaseMessaging,SendMessage,127,0,FirebaseMessaging,mandaLocFM,150,0,Subs,mandaLoc2,197,0,Subs,revisaYmandaUUC,254,2,NotificationService,NotiMon_NotificationPosted,83,0,Tracker,flp_LocationChanged,158,6,Subs,borraArribaDeXXXBitacora,226,0,Subs,ConvertMillisecondsToString,210,0 +NavigationStack=Main,chkPermisosEstadoTelefono,150,0,FirebaseMessaging,fm_MessageArrived,94,0,FirebaseMessaging,SendMessage,127,0,FirebaseMessaging,mandaLocFM,150,0,Subs,mandaLoc2,197,0,Subs,borraArribaDeXXXBitacora,226,0,Starter,Service_Start,54,0,Subs,revisaYmandaUUC,254,2,NotificationService,NotiMon_NotificationPosted,69,0,Tracker,flp_LocationChanged,150,6 SelectedBuild=0 VisibleModules=7,3,9,4,8,5,6,2 diff --git a/Tracker.bas b/Tracker.bas index 01d5fa7..6363d5a 100644 --- a/Tracker.bas +++ b/Tracker.bas @@ -106,7 +106,7 @@ Public Sub StartFLP Private cont As Int = 0 Do While flp.IsConnected = False Sleep(500) - if starter.logger then Log($"FLP Sleeping - ${cont}"$) + If Starter.logger Then Log($"FLP Sleeping - ${cont}"$) Subs.bitacora($"Sleeping - ${cont}"$) cont = cont + 1 If cont > 70 Then @@ -162,7 +162,7 @@ Sub flp_LocationChanged (Location1 As Location) Starter.UUC = Location1 If Starter.logger Then LogColor("FLP_LocationChanged", Colors.Red) If Starter.logger Then Log(Location1.Accuracy&" - "&Location1.AccuracyValid) - If minsTranscurridos > 1 Then + If minsTranscurridos > 1 Then ' Para que no mande mensajes constantes, minimo 1 minuto entre mensajes. flp.RequestLocationUpdates(CreateLocationRequest) 'Solo mandamos la ubicacion si la precision es dentro de XX mts el_texto = $"LocChange - Coords NO enviadas (Acc:${Location1.Accuracy})."$