diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index a45c309e2..1e85a60b2 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -15256,7 +15256,8 @@ Partial Class Ventas
 
                             importeMovimiento = 0
                         Case 103 'Descuento
-                            If ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso (DdlTipoAmortizacionAnticipo.SelectedValue = "-1" OrElse UsuarioActual.CveEmpresa.Contiene(140, 141)) Then
+                            If ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso
+                                (DdlTipoAmortizacionAnticipo.SelectedValue = "-1" OrElse UsuarioActual.CveEmpresa.Contiene(140, 141, 190)) Then
 
                                 importeMovimiento = ObjFactura.Descuento * Multiplicador * ValorMultiplicador
                                 importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador * ValorMultiplicador
@@ -17697,12 +17698,21 @@ Partial Class Ventas
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                'ES CREDITO, DEBE TOMAR LA LISTA DE PRECIOS DE CREDITO
                 If RBLPago.SelectedValue = "1" Then
                     Dim CvePrecioListaCredito = GlobalDTPrecioListas(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "ISNULL(Credito,False) = True").ToEntero()
                     If CvePrecioListaCredito > 0 Then
                         CvePrecioListaPS = CvePrecioListaCredito
                     End If
                 End If
+
+                'ESTE CLIENTE DEBE TENER PRIORIDAD SU LISTA DE PRECIO, SEA CREDITO O CONTADO
+                If CveCliente = 888648 Then
+                    If Me.CvePrecioListaCliente > 0 Then
+                        CvePrecioListaPS = Me.CvePrecioListaCliente
+                    End If
+                End If
+
             End If
 
             If CvePrecioListaPS > 0 Then