Permiso para editar cliente en la remision, no editar cantidad en remision hecha en la empresa 119

Ventas/Ventas.aspx.vb

@@ -5611,6 +5611,9 @@ Partial Class Ventas
 
                     'LO NO PERMITIDO MODIFICAR
                     e.Row.FCDropDownList("DdlUnidadMedida").Enabled = False
+                    If UsuarioActual.CveEmpresa = 119 Then
+                        e.Row.FCTextBox("TxtCantidad").Enabled = False
+                    End If
                     'e.Row.FCDropDownList("DdlClasificacion").Enabled = False
                     'e.Row.FCDropDownLost("DdlPS").Enabled = False
 
@@ -16265,7 +16268,7 @@ Partial Class Ventas
         Next
 
         'ACTIVA CAMBIO DE CLIENTE - SI NO TIENE NADA FACTURADO
-        If Not CantidadFacturadaRemision > 0 Then
+        If Not CantidadFacturadaRemision > 0 AndAlso UsuarioActual.TienePermisoProceso(284) Then
             HlCliente.Attributes.Remove("class")
             HlCliente.Attributes.Add("class", "Texto")
             TxtCodigo.ReadOnly = False