From da43f44aaaedf9ec1f4f12b43e54d8db92b2f133 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 2 Oct 2024 18:57:14 -0700
Subject: [PATCH] --Visualizar cotizaciones para todos

---
 Ventas/Ventas.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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