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
@@ -901,17 +906,33 @@ Partial Class Clientes
     End Function
     Private Function PermiteEliminar() As Boolean
         Return UsuarioActual.TienePermisoProceso(194)
-    End Function
+    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
-
+
-
+
 #Region "C A R G A S"
-
+
-
+
-
+
-
+
-
+
     Private Sub CreaDtPago()
         DtPagos = New DataTable
         DtPagos.Columns.Add("CveTipoMovimiento", GetType(String))