diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index ab5e76f0d..f7ca5c1bf 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7723,7 +7723,7 @@ Partial Class Ventas
         '    RBLPago.SelectedValue = "2"
         'End If
 
-        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso Me.PermiteCredito Then
+        If Me.PermiteCredito Then
             If IfNull(Request("Op"), "").ToString() = "Cot" OrElse (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0) Then
                 Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero())
                 If CreditoDispo > 0 Then