diff --git a/FLP_2.0.b4a b/FLP_2.0.b4a index eaa7776..1eaca92 100644 --- a/FLP_2.0.b4a +++ b/FLP_2.0.b4a @@ -40,7 +40,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: FLP 2.0 #VersionCode: 1 - #VersionName: 4.03.17 + #VersionName: 4.04.23 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: unspecified #CanInstallToExternalStorage: False diff --git a/FLP_2.0.b4a.meta b/FLP_2.0.b4a.meta index 8c597c8..eccc78b 100644 --- a/FLP_2.0.b4a.meta +++ b/FLP_2.0.b4a.meta @@ -28,6 +28,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Tracker,CreateLocationRequest2,128,0,Starter,Process_Globals,19,0,Main,chkPermisosLeerLlamadas,145,0,Starter,Service_Start,52,0,Subs,revisaYmandaUUC,259,2,Tracker,flp_ConnectionSuccess,77,0,Tracker,StartFLP,102,0,NotificationService,NotiMon_NotificationPosted,68,0,Tracker,flp_LocationChanged,147,6,Main,chkPermisosEstadoTelefono,150,0 +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 SelectedBuild=0 VisibleModules=7,3,9,4,8,5,6,2 diff --git a/Subs.bas b/Subs.bas index 15ecf65..cb4b757 100644 --- a/Subs.bas +++ b/Subs.bas @@ -263,7 +263,7 @@ Sub revisaYmandaUUC If ultimaLoc.IsInitialized Then Starter.UUC = ultimaLoc Private minsTranscurridos As String = ticksAMins(DateTime.Now - ultimaLoc.Time) 'Minutos transcurridos desde la ultima ubicacion guardada. - if starter.logger then Log($"Ultima ubicacion guardada hace ${minsTranscurridos} mins."$) + If Starter.logger Then Log($"Ultima ubicacion guardada hace ${minsTranscurridos} mins."$) If minsTranscurridos > 10 And minsTranscurridos < 20 Then bitacora("Mas de 10 mins - REQ-UPDATE") LogColor($"Ubicacion vieja (mas de 10 mins.)"$, Colors.Red) diff --git a/Tracker.bas b/Tracker.bas index 6768c0f..01d5fa7 100644 --- a/Tracker.bas +++ b/Tracker.bas @@ -151,7 +151,7 @@ Public Sub StopFLP End Sub Sub flp_LocationChanged (Location1 As Location) - if starter.logger then LogColor($"Location Changed - Acc: ${Location1.Accuracy}"$, Colors.blue) + If Starter.logger Then LogColor($"Location Changed - Acc: ${Location1.Accuracy}"$, Colors.blue) Private minsTranscurridos As String = Subs.ticksAMins(DateTime.Now - Subs.traeUltimaUbicacionGuardada.Time) 'Minutos transcurridos desde la ultima ubicacion guardada. If Starter.logger Then LogColor(">>>>>>>>>>>>>>>>>>>>>>> " & minsTranscurridos, Colors.red) If Not(IsPaused(Main)) 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 > 0 Then + If minsTranscurridos > 1 Then flp.RequestLocationUpdates(CreateLocationRequest) 'Solo mandamos la ubicacion si la precision es dentro de XX mts el_texto = $"LocChange - Coords NO enviadas (Acc:${Location1.Accuracy})."$