cheveguerra/FLP_2.0
1
0
Fork 0
mirror of https://github.com/cheveguerra/FLP_2.0.git synced 2026-04-17 19:36:42 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Se cambio el tiempo minimo para enviar mensaje de cambio de ubicacion

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-04-23 22:13:55 -06:00
parent ce2628e313
commit e1219c5050
4 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
FLP_2.0.b4a
View File

@@ -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

2
FLP_2.0.b4a.meta
View File

@@ -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

2
Subs.bas
View File

@@ -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)

4
Tracker.bas
View File

@@ -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})."$