From c807c8c8c0394a0d738713b6211124edd77e4db7 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 15 Feb 2023 12:50:04 -0700 Subject: [PATCH] =?UTF-8?q?--=20que=20solo=20genere=20una=20prep=C3=B3liza?= =?UTF-8?q?=20por=20acci=C3=B3n=20en=20lugar=20de=20una=20prep=C3=B3liza?= =?UTF-8?q?=20por=20nota.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/RepNotasCredito.aspx.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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