From b1024883dcb9cff9304bb323016e54e990169ebb Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 10 Feb 2023 18:18:59 -0700
Subject: [PATCH] ECONO. lista de precios de prioritaria

---
 Ventas/Ventas.aspx.vb | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c554e418e..4b27113f2 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -17643,6 +17643,11 @@ Partial Class Ventas
 
                 End If
 
+                'SI EL CLIENTE TIENE LISTA DE PRECIO DEBE TOMAR DE ESTE
+                If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CvePrecioListaCliente > 0 Then
+                    CvePrecioListaPS = Me.CvePrecioListaCliente
+                End If
+
             End If
 
             If CvePrecioListaPS > 0 Then
@@ -36150,6 +36155,11 @@ Partial Class Ventas
                         If CvePrecioListaPS <= 0 Then
                             CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                         End If
+
+                        'SI EL CLIENTE TIENE LISTA DE PRECIO DEBE TOMAR DE ESTE
+                        If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CvePrecioListaCliente > 0 Then
+                            CvePrecioListaPS = Me.CvePrecioListaCliente
+                        End If
                     End If
 
                     If CvePrecioListaPS > 0 Then