From 6bb2e3ff33da424b352d698a917b14e9e8c5111f Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 15 Mar 2024 14:29:50 -0700
Subject: [PATCH] --Mostrar lista de precios con la funcionalidad 109

---
 Ventas/Clientes.aspx.vb | 26 ++++++++++++--------------
 Ventas/Ventas.aspx.vb   |  5 ++++-
 2 files changed, 16 insertions(+), 15 deletions(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 48457315e..fe3de4483 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -723,20 +723,18 @@ Partial Class Clientes
                 TabCuentasEquipos.Visible = True
             End If
 
-            If UsuarioActual.Empresa.Funcionalidad(504).ToEntero() > 0 Then
-                If UsuarioActual.TienePermisoProceso(162) Then
-                    ChkPermiteCredito.Enabled = True
-                    TxtLimiteCreditoSucursal.Enabled = True
-                    TxtFechaLimiteCredito.Enabled = True
-                Else
-                    ChkPermiteCredito.Enabled = False
-                    TxtLimiteCreditoSucursal.Enabled = False
-                    TxtFechaLimiteCredito.Enabled = False
-                End If
-                ChkEstado.Enabled = False
-                If UsuarioActual.TienePermisoProceso(180) Then
-                    ChkEstado.Enabled = True
-                End If
+            If UsuarioActual.TienePermisoProceso(162) Then
+                ChkPermiteCredito.Enabled = True
+                TxtLimiteCreditoSucursal.Enabled = True
+                TxtFechaLimiteCredito.Enabled = True
+            Else
+                ChkPermiteCredito.Enabled = False
+                TxtLimiteCreditoSucursal.Enabled = False
+                TxtFechaLimiteCredito.Enabled = False
+            End If
+            ChkEstado.Enabled = False
+            If UsuarioActual.TienePermisoProceso(180) Then
+                ChkEstado.Enabled = True
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index b201724b4..a6b34145e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8446,7 +8446,7 @@ Partial Class Ventas
                     End If
                 End If
 
-                If UsuarioActual.Empresa.Funcionalidad(360) = "1" AndAlso e.Row.DBCampo("CvePrecioLista").ToEntero() > 0 Then
+                If (UsuarioActual.Empresa.Funcionalidad(360) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(109) = "1") AndAlso e.Row.DBCampo("CvePrecioLista").ToEntero() > 0 Then
                     e.Row.FCLiteral("LtlPrecioLista").Visible = True
                 End If
 
@@ -18656,6 +18656,9 @@ Partial Class Ventas
                 Else
                     If Me.CvePrecioLista > 0 Then
                         CvePrecioListaPS = Me.CvePrecioLista
+                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                            PrecioListaPS = GlobalDTPrecioListas(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PrecioLista", $"CvePrecioLista={CvePrecioListaPS}")
+                        End If
                     End If
                 End If