From 1b7c0e0e03c1c366442504081a998a8f50d0e5a4 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 30 Mar 2021 10:08:40 -0700
Subject: [PATCH] =?UTF-8?q?=E2=80=A2=20Cajas=20no=20puede=20editar=20clien?=
 =?UTF-8?q?tes=20distribuidores=20solo=20los=20que=20provienen=20de=20piso?=
 =?UTF-8?q?=20o=20bien=20no=20est=C3=A1n=20clasificados=20como=20distribui?=
 =?UTF-8?q?dor.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Clientes.aspx.vb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 9919a0dcb..2097ade7e 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -788,7 +788,7 @@ Partial Class Clientes
                         UpAccionesCRM.Update()
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(309) Then
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.CveRol = 1280 Then
                         DeshabilitarDatosClienteCajas()
                     End If
 
@@ -943,6 +943,10 @@ Partial Class Clientes
         TxtCorreoEntregaAlmacen.Enabled = False
         ChkCargoUsado.Enabled = False
         ChkBonificacionUsado.Enabled = False
+
+        If Not ChkEsDistribuidor.Checked Then
+            BtnGuardar.Visible = PermiteEditar()
+        End If
     End Sub