cheveguerra/Kelloggs_V3
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_V3.git synced 2026-04-21 22:59:28 +00:00
Code Issues Packages Projects Releases Wiki Activity

19-9-23 Distancia Geocerca 50mts

Browse Source
This commit is contained in:
cvaldes1201
2023-09-19 11:12:59 -06:00
parent f7d7be8372
commit 9640c2768e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Cliente.bas
View File

@@ -709,7 +709,7 @@ Sub GPS_LocationChanged (Location1 As Location)
gps_boton_doe ="1" gps_boton_doe ="1"
' LogColor($"Distancia actual: ${distance}"$, Colors.Blue) ' LogColor($"Distancia actual: ${distance}"$, Colors.Blue)
If distance <= 5000000000000 Or usuario = "KMTSKLL1" Then If distance <= 50 Or usuario = "KMTSKLL1" Then
' If pgs_boton_noventa = "1" Then Tels.Visible = True ' If pgs_boton_noventa = "1" Then Tels.Visible = True
If gps_boton_doe ="1" Then b_whats.Visible = True If gps_boton_doe ="1" Then b_whats.Visible = True
B_VENTA.Visible = True B_VENTA.Visible = True