Permite Editar datos de cliente de acumuladores

Ventas/Clientes.aspx.vb

@@ -771,6 +771,11 @@ Partial Class Clientes
                         VerificaVinculacion()
                         UpAccionesCRM.Update()
                     End If
+
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(309) Then
+                        DeshabilitarDatosClienteCajas()
+                    End If
+
                 End If
                 'End If
                 HlEvento.Visible = True
@@ -903,6 +908,22 @@ Partial Class Clientes
         Return UsuarioActual.TienePermisoProceso(194)
     End Function
 
+    Private Sub DeshabilitarDatosClienteCajas()
+        DdlSubProyecto.Enabled = False
+        DdlPrecioLista.Enabled = False
+        DdlClasificacion.Enabled = False
+        DdlVendedor.Enabled = False
+        DdlCorporativo.Enabled = False
+        ChkRequiereOC.Enabled = False
+        ChkEsDistribuidor.Enabled = False
+        DdlTipoCliente.Enabled = False
+        TxtCorreoEntregaCompras.Enabled = False
+        TxtCorreoEntregaAlmacen.Enabled = False
+        ChkCargoUsado.Enabled = False
+        ChkBonificacionUsado.Enabled = False
+    End Sub
+
+
 #End Region