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

....

Browse Source
This commit is contained in:
cvaldes1201
2024-05-29 11:01:22 -06:00
parent 67195ae824
commit ba244e1c6f
6 changed files with 23 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
B4A/C_Cliente.bas
View File

@@ -199,8 +199,8 @@ Sub B4XPage_Appear
' Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
' Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
Tels.Visible = True
gest.Visible = True
' Tels.Visible = True
' gest.Visible = True
LA_GPS.TextColor = Colors.Red
LA_GPS.Text = "SIN UBICACION GPS"
cercavalor = 0
@@ -333,13 +333,13 @@ Sub B4XPage_Appear
' gest.Visible = True
'Si el cliente es nuevo, no aparece el boton de venta
If la_cuenta.text.SubString2(0,1) = "N" Then gest.Visible = False
If LA_GPS.TextColor = Colors.Blue Then
Tels.Visible = True
gest.Visible = True
Else
Tels.Visible = False
gest.Visible = False
End If
' If LA_GPS.TextColor = Colors.Blue Then
' Tels.Visible = True
' gest.Visible = True
' Else
' Tels.Visible = False
' gest.Visible = False
' End If
End Sub
Sub GPS_LocationChanged (Location1 As Location)