diff --git a/FLP_2.0.b4a.meta b/FLP_2.0.b4a.meta index ca1e512..8b3cd56 100644 --- a/FLP_2.0.b4a.meta +++ b/FLP_2.0.b4a.meta @@ -28,6 +28,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9=2,3,4,5,6,7,8,9,10,11,12 -NavigationStack=Tracker,StopFLP,146,0,Subs,traeVar,332,6,Subs,actualizaVar,328,2,Subs,traeUltimaUbicacionGuardada,256,0,FirebaseMessaging,SubscribeToTopics,58,0,FirebaseMessaging,fm_MessageArrived,85,5,Subs,Process_Globals,15,3,Tracker,flp_LocationChanged,178,6,Subs,mandaLoc2,212,6,Main,getSSID,157,0 +NavigationStack=Tracker,StopFLP,146,0,Subs,traeVar,332,6,Subs,actualizaVar,328,2,Subs,traeUltimaUbicacionGuardada,256,0,FirebaseMessaging,SubscribeToTopics,58,0,FirebaseMessaging,fm_MessageArrived,85,5,Subs,Process_Globals,15,3,Tracker,flp_LocationChanged,178,6,Main,getSSID,157,0,Subs,mandaLoc2,211,6 SelectedBuild=0 VisibleModules=7,3,9,4,8,5,6,2 diff --git a/Subs.bas b/Subs.bas index 7e81d01..2058dc1 100644 --- a/Subs.bas +++ b/Subs.bas @@ -208,16 +208,14 @@ Sub mandaLoc2(loc As Location, id As String) 'ignore Private minsTranscurridosLoc As String = ticksAMins(loc.time - traeVar("locAntTime", 0)) 'Minutos transcurridos desde la ultima ubicacion ACTUALIZADA. Private minsTranscurridos As String = ticksAMins(DateTime.Now - traeUltimaUbicacionGuardada.Time) 'Minutos transcurridos desde la ultima ubicacion guardada. Dim el_texto As String = "" -' If Starter.logger Then - LogColor("Guardada: " & minsTranscurridos & " mins., Actualizada: " & minsTranscurridosLoc & " mins.", Colors.green) + If Starter.logger Then LogColor("Guardada: " & minsTranscurridos & " mins., Actualizada: " & minsTranscurridosLoc & " mins.", Colors.green) If traeVar("solicitudFM", 0) = 1 Or minsTranscurridos >= 3 Or minsTranscurridosLoc >= 3 Then ' Para que no mande mensajes constantes, minimo 1 minuto entre mensajes. ' CallSubDelayed(Tracker,"CreateLocationRequest") Tracker.flp.RequestLocationUpdates(Tracker.locReqNormal) 'Solo mandamos la ubicacion si la precision es dentro de XX mts el_texto = $"LocChange - Coords NO enviadas (Acc:${loc.Accuracy})."$ If loc.Accuracy < 50 Then -' If Starter.logger Then - LogColor("Guardamos y enviamos ubicacion.", Colors.green) + If Starter.logger Then LogColor("Guardamos y enviamos ubicacion.", Colors.green) mandaLocAServer(loc, id) FirebaseMessaging.locRequest = "Activa" CallSubDelayed2(FirebaseMessaging, "mandaLocFM", loc)