cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-21 03:49:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.07.21

Browse Source 
- Cuando la ruta esta cerrada por "Motivo de no visita", se deshabilitan TAMBIEN los botones de "Abordo" y "Cliente Nuevo"
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-07-23 13:33:03 -06:00
parent 6b320327db
commit 19a6aa3bce
4 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Principal.bas
View File

@@ -212,7 +212,7 @@ Sub Class_Globals
Private r_5 As RadioButton
Private r_6 As RadioButton
Private r_7 As RadioButton
private r_razonNoVisita as String
Private r_razonNoVisita As String
End Sub
'You can add more parameters here.
@@ -482,12 +482,16 @@ Sub B4XPage_Appear
b_motivoNoVisita.Background = cd1
B_MAPA_RUTA.Enabled = False
trabajar.Enabled = False
NUEVO.Enabled = False
B_PROXIMA.Enabled = False
Else
Private cd1 As ColorDrawable
cd1.Initialize(Colors.RGB(213, 0, 0), 5dip)
b_motivoNoVisita.Background = cd1
B_MAPA_RUTA.Enabled = True
trabajar.Enabled = True
NUEVO.Enabled = True
B_PROXIMA.Enabled = True
End If
End Sub