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

Se modifico el codigo para que los usuarios no puedan aceder si ya no estan activos.

Browse Source
This commit is contained in:
IsR0d
2024-07-24 12:28:38 -06:00
parent 5027129b4a
commit 62ecc80337
4 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_Cliente.bas
View File

@@ -388,7 +388,8 @@ Sub GPS_LocationChanged (Location1 As Location)
distance = l1.DistanceTo(l2) 'the result is in meter
gest.Visible = True
' Log(distance)
If distance < 3000000000000000000000000000000000000000000000000000 Then
' If distance < 3000000000000000000000000000000000000 Then
If distance < 30 Then
Tels.Visible = True
gest.Visible = True
LA_GEO.TextColor = Colors.Blue
@@ -426,6 +427,7 @@ Sub gest_Click
End Sub
Sub Tels_Click
et_Solicita.Text = ""
B4XPages.ShowPage("NoVenta")
End Sub