diff --git a/Compras/RepNotasCredito.aspx.vb b/Compras/RepNotasCredito.aspx.vb
index eca728a80..e406e456b 100644
--- a/Compras/RepNotasCredito.aspx.vb
+++ b/Compras/RepNotasCredito.aspx.vb
@@ -130,9 +130,7 @@ Partial Class Compras_RepNotasCredito
         Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119)
         Dim MensajeAlert = New StringBuilder
 
-
-        CvePrePoliza = ObjConta.AddPrePolizas("Compras/RepNotasCredito", 103, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, TxtFechaSaldar.Text.ToDate, "Saldado manual", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-
+        CvePrePoliza = ObjConta.AddPrePolizas("Compras/RepNotasCredito", 103, 0, 0, 1, TxtFechaSaldar.Text.ToDate, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
         For Each gr As GridViewRow In GvDatos.Rows
             If gr.FCCheckBox("Chk").Checked Then