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

se arregla la parte de geocerca

Browse Source
This commit is contained in:
Javier
2025-09-26 13:36:24 -06:00
parent fb5898b38b
commit 5fc486d742
4 changed files with 329 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/C_Cliente.bas
View File

@@ -1093,7 +1093,10 @@ Sub B4XPage_Appear
Else If geo = "1" And distance > 100 Then
gest.Visible = False
Tels.Visible = False
b_Inicio_Fin_venta.Visible = False
If b_Inicio_Fin_venta.IsInitialized Then
b_Inicio_Fin_venta.Visible = False
End If
' ToastMessageShow("aaa", False)
End If
gest.Typeface =Typeface.CreateNew(Typeface.FONTAWESOME, Typeface.STYLE_BOLD)
@@ -1245,6 +1248,7 @@ Sub GPS_LocationChanged (Location1 As Location)
B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastKnownLocation.Longitude
' Log("Coords set to: " & B4XPages.MainPage.lat_gps & " and " & B4XPages.MainPage.lon_gps)
End If
Log(m_lat &" " & m_lon)
If m_lat.Length > 0 And B4XPages.MainPage.lat_gps <> "0" Then
Dim l1, l2 As Location
l1.Initialize2(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)
@@ -1285,7 +1289,7 @@ Sub GPS_LocationChanged (Location1 As Location)
End If
End If
If geo = "1" Then
If distance < 10000000000000000000000000000000 Then
If distance < 10000000000000000000000000000000000000000000000000000000000 Then
LA_GEO.TextColor = Colors.Blue
Tels.Visible = True
gest.Visible = True