cheveguerra/Mariana
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana.git synced 2026-04-17 21:06:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.07.24

Browse Source 
- Cambios en el código de la geoceca, que no se activaba/desactivaba cuando estaba cerca del almacen.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-09-17 20:46:06 -06:00
parent 0ddb35fb07
commit b65e1b285f
8 changed files with 41 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
B4A/Subs.bas
View File

@@ -1440,12 +1440,13 @@ Sub estamosEnAlmacen(rango As Int) As Boolean
' 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 < 100 Then ToastMessageShow("Distancia a almacen: " & distance, False)
notiHigh("Mariana", "Distancia a almacen: " & distance, Main)
B4XPages.MainPage.cliente.l_geoAlmacen.text = $"Almacen a ${distance}"$
' notiHigh("Mariana", "Distancia a almacen: " & distance, Main)
' B4XPages.MainPage.cliente.l_geoAlmacen.text = $"Almacen a: ${distance}"$
If distance <= rango Then res = True
Log("Dentro del almacen: " & res)
B4XPages.MainPage.cliente.l_geoAlmacen.Text = $"Almacen a: ${distance} - Rango: ${rango}"$
Log(distance)
Catch
Log(LastException)
End Try