From cb231a4578ea58b81ed6a2f64393468c3a380878 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 19 Oct 2023 13:25:06 -0700 Subject: [PATCH] =?UTF-8?q?--=20aplicaci=C3=B3n=20de=20ingresos=20por=20co?= =?UTF-8?q?mprobar?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/PopIEVentas.aspx | 2 +- Bancos/PopIEVentas.aspx.vb | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/Bancos/PopIEVentas.aspx b/Bancos/PopIEVentas.aspx index 9d28c6d86..078ca609f 100644 --- a/Bancos/PopIEVentas.aspx +++ b/Bancos/PopIEVentas.aspx @@ -217,7 +217,7 @@
- diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index d0212c8c6..ce767e7c4 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -1264,8 +1264,9 @@ Partial Class Bancos_PopIEVentas CveIE = rw.DataKey("CveIE").ToEntero Pago.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal + Pago.ImportePagoVenta = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal - Pago.FechaDocumentoRelacionado = rw.DataKey("Fecha").ToDate + Pago.FechaDocumentoRelacionado = rw.DataKey("FechaDocumento").ToDate If ChkPagarPesos.Checked Then Pago.TCPago = 1 / rw.DataKey("TipoCambio").ToDecimal If ChkPagarDolares.Checked Then Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal