diff --git a/Bancos/RepIngresosPorComprobar.aspx.vb b/Bancos/RepIngresosPorComprobar.aspx.vb
index 287a047f9..fbafecc6f 100644
--- a/Bancos/RepIngresosPorComprobar.aspx.vb
+++ b/Bancos/RepIngresosPorComprobar.aspx.vb
@@ -272,7 +272,7 @@ Partial Class Bancos_RepIngresosPorComprobar
                     MsgError = "Ocurrio un error al saldar el movimiento"
                 End If
 
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de IxC por Sistema", TxtFecha.Text.ToDate, -1, IdCuentaContableOtrosIngresos, gr.DataKey("CveIE").ToEntero, ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=-1) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de IxC por Sistema", TxtFecha.Text.ToDate, IdCuentaContableOtrosIngresos, -1, gr.DataKey("CveIE").ToEntero, ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=-1) Then
                     MsgError = "Ocurrio un error al saldar el movimiento"
                 End If
             End If
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