diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 2380f3b..ed92454 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -1280,14 +1280,14 @@ Sub B4XPage_Appear End Sub Sub MejorarPrecisionGPS As ResumableSub - If g.IsInitialized Then - g.Stop - Sleep(500) - End If - - g.Initialize("GPS") - g.Start(0, 0) ' Máxima frecuencia - +' If g.IsInitialized Then +' g.Stop +' Sleep(500) +' End If +' +' g.Initialize("GPS") +' g.Start(0, 0) ' Máxima frecuencia + CallSubDelayed(Tracker, "StartFLP2") ' Esperar hasta 10 segundos por mejor precisión For i = 1 To 10 Sleep(1000) diff --git a/B4A/Guna Vistas V3.1.b4a b/B4A/Guna Vistas V3.1.b4a index 16a7942..7d6f51b 100644 --- a/B4A/Guna Vistas V3.1.b4a +++ b/B4A/Guna Vistas V3.1.b4a @@ -294,7 +294,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Guna Preventa #VersionCode: 1 - #VersionName: 5.12.14 + #VersionName: 5.12.15 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Guna Vistas V3.1.b4a.meta b/B4A/Guna Vistas V3.1.b4a.meta index 40e3e76..a589552 100644 --- a/B4A/Guna Vistas V3.1.b4a.meta +++ b/B4A/Guna Vistas V3.1.b4a.meta @@ -88,6 +88,6 @@ ModuleClosedNodes6= ModuleClosedNodes7=6,8,9,10,11 ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Cliente,b_geopass_Click,1763,0,C_Cliente,iniciofin,1738,0,C_Cliente,p_pideGeoPass_Click,1723,0,C_Cliente,GPS_LocationChanged,1449,0,C_Cliente,InicializarLocalizacionMejorada,1411,0,C_Cliente,HabilitarBotones,1390,0,C_Cliente,RevisarGeocerca,1375,0,C_Cliente,LA_GPS_Click,1366,0,C_Cliente,MejorarPrecisionGPS,1296,0,C_Cliente,recalculoXcant,1301,0,C_Cliente,B4XPage_Appear,1252,0 +NavigationStack=B4XMainPage,Class_Globals,30,0,C_Cliente,recalculoXcant,1300,0,C_Cliente,B4XPage_Appear,542,0,C_Cliente,LA_GPS_Click,1353,0,Tracker,StartFLP2,403,0,Tracker,StartFLPSmall,421,0,Tracker,CreateLocationRequest2,462,1,Tracker,CreateLocationRequestSmallD,453,1,C_Cliente,MejorarPrecisionGPS,1283,4,Tracker,CreateLocationRequest,440,0 SelectedBuild=0 VisibleModules=27,2,16,28,5,13,17,29,19,4,12,22 diff --git a/B4A/Tracker.bas b/B4A/Tracker.bas index 8b623c9..b5b18dd 100644 --- a/B4A/Tracker.bas +++ b/B4A/Tracker.bas @@ -451,8 +451,8 @@ Private Sub CreateLocationRequestSmallD As LocationRequest lr.Initialize lr.SetInterval(2000) 'Intervalo deseado para actualizaciones de ubicacion lr.SetFastestInterval(lr.GetInterval / 2) 'Intervalo minimo para actualizaciones de ubicacion - lr.setNumUpdates(2) 'Solicitamos solo 2 actualizaciones con estos parametros - lr.SetSmallestDisplacement(1) 'Solo registra cambio de ubicacion si es mayor a XX mts + lr.setNumUpdates(2) 'Solicitamos solo x actualizaciones con estos parametros + lr.SetSmallestDisplacement(3) 'Solo registra cambio de ubicacion si es mayor a XX mts lr.SetPriority(lr.Priority.PRIORITY_HIGH_ACCURACY) actualLR=lr Return lr @@ -465,7 +465,7 @@ Private Sub CreateLocationRequest2 As LocationRequest lr.Initialize lr.SetInterval(1000) 'Intervalo deseado para actualizaciones de ubicacion lr.SetFastestInterval(lr.GetInterval / 2) 'Intervalo minimo para actualizaciones de ubicacion - lr.setNumUpdates(2) 'Solicitamos solo 2 actualizaciones con estos parametros + lr.setNumUpdates(2) 'Solicitamos solo x actualizaciones con estos parametros lr.SetSmallestDisplacement(1) 'Solo registra cambio de ubicacion si es mayor a XX mts lr.SetPriority(lr.Priority.PRIORITY_HIGH_ACCURACY) actualLR=lr