cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-19 13:49:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.12.15

Browse Source 
- Correcciones en el codigo de GPS en Cliente
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-12-19 22:02:23 -06:00
parent e5eb82e2de
commit f756cc5ca4
4 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
B4A/C_Cliente.bas
View File

@@ -1280,14 +1280,14 @@ Sub B4XPage_Appear
End Sub End Sub
Sub MejorarPrecisionGPS As ResumableSub Sub MejorarPrecisionGPS As ResumableSub
If g.IsInitialized Then ' If g.IsInitialized Then
g.Stop ' g.Stop
Sleep(500) ' Sleep(500)
End If ' End If
'
g.Initialize("GPS") ' g.Initialize("GPS")
g.Start(0, 0) ' Máxima frecuencia ' g.Start(0, 0) ' Máxima frecuencia
CallSubDelayed(Tracker, "StartFLP2")
' Esperar hasta 10 segundos por mejor precisión ' Esperar hasta 10 segundos por mejor precisión
For i = 1 To 10 For i = 1 To 10
Sleep(1000) Sleep(1000)

2
B4A/Guna Vistas V3.1.b4a
View File

@@ -294,7 +294,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Guna Preventa #ApplicationLabel: Guna Preventa
#VersionCode: 1 #VersionCode: 1
#VersionName: 5.12.14 #VersionName: 5.12.15
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

2
B4A/Guna Vistas V3.1.b4a.meta
View File

@@ -88,6 +88,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=6,8,9,10,11 ModuleClosedNodes7=6,8,9,10,11
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 SelectedBuild=0
VisibleModules=27,2,16,28,5,13,17,29,19,4,12,22 VisibleModules=27,2,16,28,5,13,17,29,19,4,12,22

6
B4A/Tracker.bas
View File

@@ -451,8 +451,8 @@ Private Sub CreateLocationRequestSmallD As LocationRequest
lr.Initialize lr.Initialize
lr.SetInterval(2000) 'Intervalo deseado para actualizaciones de ubicacion lr.SetInterval(2000) 'Intervalo deseado para actualizaciones de ubicacion
lr.SetFastestInterval(lr.GetInterval / 2) 'Intervalo minimo 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.SetSmallestDisplacement(3) 'Solo registra cambio de ubicacion si es mayor a XX mts
lr.SetPriority(lr.Priority.PRIORITY_HIGH_ACCURACY) lr.SetPriority(lr.Priority.PRIORITY_HIGH_ACCURACY)
actualLR=lr actualLR=lr
Return lr Return lr
@@ -465,7 +465,7 @@ Private Sub CreateLocationRequest2 As LocationRequest
lr.Initialize lr.Initialize
lr.SetInterval(1000) 'Intervalo deseado para actualizaciones de ubicacion lr.SetInterval(1000) 'Intervalo deseado para actualizaciones de ubicacion
lr.SetFastestInterval(lr.GetInterval / 2) 'Intervalo minimo 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.SetSmallestDisplacement(1) 'Solo registra cambio de ubicacion si es mayor a XX mts
lr.SetPriority(lr.Priority.PRIORITY_HIGH_ACCURACY) lr.SetPriority(lr.Priority.PRIORITY_HIGH_ACCURACY)
actualLR=lr actualLR=lr