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