From ae96036af36b4b9e8bdafb64af8dc15770eec9c4 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 15 Jul 2025 16:35:57 -0700 Subject: [PATCH] =?UTF-8?q?---=20correcci=C3=B3n=20en=20pago=20dlls=20a=20?= =?UTF-8?q?factura=20en=20pesos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/PopIEVentas.aspx.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index 6130f4ab2..92b28597b 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -1293,10 +1293,11 @@ Partial Class Bancos_PopIEVentas ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES Pago.TCPago = TxtTCDolaresDolares.Text.ToDecimal ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES - Pago.TCPago = TxtTipoCambio.Text.ToDecimal + Pago.TCPago = TxtTCDolares.Text.ToDecimal + ImportePagadoVenta = (ImportePagadoVenta * Pago.TCPago).RoundSQL End If 'If ChkPagarPesos.Checked Then Pago.TCPago = 1 / TxtTipoCambio.Text.ToDecimal - If ChkPagarDolares.Checked Then Pago.TCPago = TxtTipoCambio.Text.ToDecimal + If ChkPagarDolares.Checked Then Pago.TCPago = TxtTCDolares.Text.ToDecimal Select Case RBLContado.SelectedValue Case "1" ' Banco