diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index 1a77fd005..7a3e359f8 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -2305,8 +2305,8 @@ Partial Class Bancos_PopIEVentas
                                                     ImporteMX = Math.Round(ImporteMX, 2)
                                                     TimpocambioGeneral = tipoCambioPago
                                                     CveSubProyectoContabilizar = CveSubProyectoVenta
-                                                    Dim Id As Integer = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("IdCtaContPersonal").ToEntero
-                                                    IdCtaContable =
+                                                    IdCtaContable = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("IdCtaContPrestamos").ToEntero
+
                                                 Else
                                                     ImporteMovimiento = 0
                                                 End If
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index f9c8ee846..053d9f0c8 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -1079,6 +1079,21 @@ Partial Class Inventarios_RecepcionUsados
 
                     If CveRemisionRecibida > 0 Then
                         CveVenta = CveRemisionRecibida
+                    Else
+                        CveVenta = -1
+                    End If
+
+                    If Not ErrorMovInv AndAlso GenerarRNC AndAlso ObjRemisionNC IsNot Nothing Then
+
+                        CargaDTDetalleRNC()
+
+                        Dim Resp = ObjRemisionNC.EmitirFactura(False, ObjInventario.IniciaTransacSQL)
+                        For Each mensaje2 As String In Resp.Mensajes
+                            Msg.AppendFormat("<br>{0}", mensaje2)
+                        Next
+                        If Resp.TieneError Then ErrorMovInv = True
+                        Alert(Msg.ToString, If(Resp.CveVenta > 0, TipoMensaje.MsgInformacion, TipoMensaje.MsgAdvertencia))
+                        CveVenta = Resp.CveVenta
                     End If
 
                     CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, CveConcepto, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta,
@@ -1092,18 +1107,7 @@ Partial Class Inventarios_RecepcionUsados
                     Else
                         Dim Mensaje As String = ""
 
-                        If Not ErrorMovInv AndAlso GenerarRNC AndAlso ObjRemisionNC IsNot Nothing Then
 
-                            CargaDTDetalleRNC()
-
-                            Dim Resp = ObjRemisionNC.EmitirFactura(False, ObjInventario.IniciaTransacSQL)
-                            For Each mensaje2 As String In Resp.Mensajes
-                                Msg.AppendFormat("<br>{0}", mensaje2)
-                            Next
-                            If Resp.TieneError Then ErrorMovInv = True
-                            Alert(Msg.ToString, If(Resp.CveVenta > 0, TipoMensaje.MsgInformacion, TipoMensaje.MsgAdvertencia))
-                            CveVenta = Resp.CveVenta
-                        End If
 
                         For Each Dr As DataRow In DtMovimientos.Rows