From 19a6aa3bcebe9f8ae91b07b3168678910ec42a3e Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Tue, 23 Jul 2024 13:33:03 -0600 Subject: [PATCH] - VERSION 4.07.21 - Cuando la ruta esta cerrada por "Motivo de no visita", se deshabilitan TAMBIEN los botones de "Abordo" y "Cliente Nuevo" --- B4A/C_Principal.bas | 6 +++++- B4A/Files/principal.bal | Bin 77701 -> 77701 bytes B4A/KelloggsV4.b4a | 2 +- B4A/KelloggsV4.b4a.meta | 2 +- 4 files changed, 7 insertions(+), 3 deletions(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 689189e..7dd848e 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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 diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index 70b46b7ef439582a1d52c84fb49d9e732c19b97e..439b3ad702c1cacde9171cbd10fed091934f10ca 100644 GIT binary patch delta 27 gcmZp@&(eCIWy375$y$L&H^+O=V+J!0`5(Ry0JG=~ZvX%Q delta 35 kcmZp@&(eCIWy375$p;KMCQG~Q-5l>dj~UK6