From ef8954ad8d51b96a3b15ab88448c84b2d0cf8080 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Wed, 21 Oct 2020 14:43:09 -0700
Subject: [PATCH] que tome el precio del PL

---
 Inventarios/RecepcionUsados.aspx.vb | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index fb0d561d4..59c54dc90 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -2561,7 +2561,16 @@ Partial Class Inventarios_RecepcionUsados
             Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
 
             If drPS IsNot Nothing Then
-                PrecioSugerido = drPS("Precio").ToString.ToDecimal
+                Dim CvePrecioListaPS As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=DdlClientes.SelectedValue.ToEntero).FiltroPrimeroValor("CvePrecioLista").ToEntero()
+                If CvePrecioListaPS > 0 Then
+                    Dim ObjPS As New ClsProductosServicios
+                    If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then
+                        PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal
+                    End If
+                    ObjPS.Dispose()
+                End If
+
+                ' PrecioSugerido = drPS("Precio").ToString.ToDecimal
                 Dim PS As String = drPS("PS").ToString
                 CveMarca = drPS("CveMarca").ToString.ToEntero
                 CveClasificacion = drPS("CveClasificacion").ToString.ToEntero