diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 84a614416..5a0c04c99 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -913,8 +913,9 @@ Partial Class Ventas_ClientesAbonar
                         End If
 
                         If TxtPrestamoIntereses.Text.ToDecimal <> 0 AndAlso MsgError = "" Then
+                            tipoCambioPago = If(TxtTCDolares.Visible, TxtTCDolares.Text.ToDecimal, TxtTCDolaresDolares.Text.ToDecimal)
                             Dim ImporteIntereses As Decimal = (TxtPrestamoIntereses.Text.ToDecimal * tipoCambioPago).RoundSQL
-                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteIntereses, ImporteIntereses, 6, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyecto, TipoCambio:=tipoCambioPago, CveClasificacion:=21927) Then
+                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteIntereses, ImporteIntereses, 51, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=11881, TipoCambio:=tipoCambioPago, CveClasificacion:=21927) Then
                                 MsgError = "No se pudo insertar la póliza"
                             End If
                         End If
@@ -950,6 +951,8 @@ Partial Class Ventas_ClientesAbonar
                             VentaActual.PorcentajeIVA = gvr.DataKey("PorcentajeIVA").ToDecimal
                             VentaActual.UsuarioActual = UsuarioActual
                             VentaActual.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero
+                            VentaActual.IdCtaContableCliente = IIf(VentaActual.CveMoneda = 1, IdCuentaCliente, IdCtaContMonedaExtranjera)
+                            VentaActual.IdCtaContableClienteComplementaria = IdCtaContComplementaria
 
                             'Importe de pago
                             Dim Pago As New VentaPago