--Visualizar cotizaciones para todos

2024-10-02 18:57:14 -07:00
parent c359806255
commit da43f44aaa
1 changed files with 1 additions and 1 deletions
--- 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