From 3540e125805305e2daf0fc8a70c9999bec375a63 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 15 Feb 2023 14:03:11 -0700
Subject: [PATCH] -- concepto en prepoliza

---
 Compras/RepNotasCredito.aspx.vb | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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