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