From f3a9e97bdaf89df3040ab9aba71426e6263319be Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Sat, 23 Nov 2019 13:21:04 -0700
Subject: [PATCH] =?UTF-8?q?-compras.=20simplificaci=C3=B3n=20en=20amortiza?=
 =?UTF-8?q?ci=C3=B3n=20de=20anticipos=20-=20recepcionusados,=20toma=20el?=
 =?UTF-8?q?=20preciounitario=20y=20no=20el=20subtotal,=20correcci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb             | 5 +++--
 Inventarios/RecepcionUsados.aspx.vb | 2 +-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 713783f8a..246f88978 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8700,12 +8700,13 @@ Partial Class Compras_Compras
                             If Not ObjConta.PrePolizaUnificacion(CvePrepolizaPadre, CvePrePolizaNueva) Then
                                 ErrorMovtosCxP = 1
                                 Alert("No se pudo unificar la prepoliza", TipoMensaje.MsgError)
-                            End If
+                            End If
+                            CvePrePolizaNueva = CvePrepolizaPadre 'para que se unifique siempre la prepolizanueva
                         End If
 
                         'Simplificacion de PrePolizas
                         If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
-                            If Not ObjConta.PrePolizaSimplificacion(CvePrepolizaPadre, UsuarioActual.CveEmpresa) Then
+                            If Not ObjConta.PrePolizaSimplificacion(CvePrePolizaNueva, UsuarioActual.CveEmpresa) Then
                                 ErrorMovtosCxP = 1
                                 Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
                             End If
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index dedf9d4f4..7569691b3 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -2405,7 +2405,7 @@ Partial Class Inventarios_RecepcionUsados
                     End If
                 End If
 
-                AddPSRNC(ObjRemisionNC.DtDetalle, Cantidad, CveUnidadMedida, UnidadMedida, CveClasificacion, Clasificacion, CvePS, PS, "Inv/RecepcionUsados", SubTotal, 0, -1, "",
+                AddPSRNC(ObjRemisionNC.DtDetalle, Cantidad, CveUnidadMedida, UnidadMedida, CveClasificacion, Clasificacion, CvePS, PS, "Inv/RecepcionUsados", PU, 0, -1, "",
                          ObjRemisionNC.CveSubProyecto, ObjRemisionNC.SubProyecto.SubProyecto, PorcentajeIVA:=PorcentajeIVA)
             End If
         Next