mirror of
https://github.com/KeymonSoft/Mariana.git
synced 2026-04-17 21:06:16 +00:00
- 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:
@@ -1423,9 +1423,10 @@ Sub estamosEnAlmacen(rango As Int) As Boolean
|
||||
latAlmacen = coords(0)
|
||||
lonAlmacen = coords(1)
|
||||
End If
|
||||
' Log($"Coordenadas del almacen - lat:${latAlmacen}, lon:${lonAlmacen}"$)
|
||||
' Log($"Coordenadas del almacen - lat:${latAlmacen}, lon:${lonAlmacen}"$)
|
||||
l2.Initialize2(latAlmacen, lonAlmacen)
|
||||
Dim distance As Long = l1.DistanceTo(l2) 'the result is in meters
|
||||
' Log(distance)
|
||||
If distance <= rango Then res = True
|
||||
' Log("Dentro del almacen: " & res)
|
||||
Catch
|
||||
|
||||
Reference in New Issue
Block a user