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 añade funcion para que no puedan hacer el envio hasta que se visiten todos los clientes

Browse Source
This commit is contained in:
Javier
2025-09-26 13:06:40 -06:00
parent 327cf1b198
commit 0d1472d1e9
5 changed files with 45 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_Cliente.bas
View File

@@ -388,8 +388,8 @@ Sub GPS_LocationChanged (Location1 As Location)
distance = l1.DistanceTo(l2) 'the result is in meter
gest.Visible = True
' Log(distance)
' If distance < 3000000000000000000000000000000000000 Then
If distance < 30 Then
If distance < 3000000000000000000000000000000000000 Then
' If distance < 30 Then
Tels.Visible = True
gest.Visible = True
LA_GEO.TextColor = Colors.Blue