diff --git a/Compras/RepNotasCredito.aspx.vb b/Compras/RepNotasCredito.aspx.vb
index 927d8eaea..eca728a80 100644
--- a/Compras/RepNotasCredito.aspx.vb
+++ b/Compras/RepNotasCredito.aspx.vb
@@ -130,6 +130,10 @@ 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)
+
+
         For Each gr As GridViewRow In GvDatos.Rows
             If gr.FCCheckBox("Chk").Checked Then
                 IdCtaContable = 0
@@ -139,9 +143,6 @@ Partial Class Compras_RepNotasCredito
                 TCCompra = gr.DataKey("TipoCambio").ToDecimal
                 CveMoneda = gr.DataKey("CveMoneda").ToEntero
 
-                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)
-
-
                 If CveMoneda > 1 Then
                     IdCtaContable = gr.DataKey("IdCtaContExtranjera").ToEntero
                     ImporteMN = (gr.DataKey("Saldo").ToDecimal * TCCompra).RoundSQL