- VERSION 5.07.05

- Se cambio el funcionamiento de la geocerca.
- En el almacen SIEMPRE se puede realizar venta.
- Se quito el boton de "habilitar geocerca" del engrane.
- En la pantala de cliente, si se hace clic largo en la etiqueta de la distancia a la tienda, aparece un popup para ingresar la contraseña (de un solo uso) de supervisor (esta se encuentra en el portal).
This commit is contained in:
2025-07-09 18:14:49 -06:00
parent a5280c4d43
commit 6d2594f482
9 changed files with 137 additions and 36 deletions

View File

@@ -94,6 +94,7 @@ Public Sub StartFLP
' Log("sleeping")
Loop
' If flpStarted = False Then
' FLP.RemoveLocationUpdates
' Log("RequestLocationUpdates")
FLP.RequestLocationUpdates(CreateLocationRequest) 'Buscamos ubicacion
' Log("Buscamos ubicacion")
@@ -108,6 +109,7 @@ Public Sub StartFLPSmall
Sleep(500)
Log("sleeping")
Loop
' FLP.RemoveLocationUpdates
dameUltimaUbicacionConocida 'Regresamos ultima ubicacion conocida
FLP.RequestLocationUpdates(CreateLocationRequestSmallD) 'Buscamos ubicacion 2 peticiones
' Log("Buscamos ubicacion Small displacement")
@@ -116,11 +118,14 @@ End Sub
Private Sub CreateLocationRequest As LocationRequest
' Log("CreateLocationRequest")
' FLP.RemoveLocationUpdates
Dim lr As LocationRequest
lr.Initialize
lr.SetInterval(10000) 'Intervalo deseado para actualizaciones de ubicacion
lr.SetFastestInterval(lr.GetInterval / 2) 'Intervalo minimo para actualizaciones de ubicacion
lr.SetSmallestDisplacement(50) 'Solo registra cambio de ubicacion si es mayor a XX mts
lr.setNumUpdates(5)
lr.SetExpirationDuration(10000)
lr.SetPriority(lr.Priority.PRIORITY_HIGH_ACCURACY)
actualLR=lr
Return lr
@@ -128,12 +133,14 @@ End Sub
Private Sub CreateLocationRequestSmallD As LocationRequest
' Log("Iniciamos CreateLocationRequestSmallD")
' FLP.RemoveLocationUpdates
Dim lr 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(0) 'Solo registra cambio de ubicacion si es mayor a XX mts
lr.SetExpirationDuration(10000)
lr.SetPriority(lr.Priority.PRIORITY_HIGH_ACCURACY)
actualLR=lr
Return lr