From a79de94e5ec38d5a66932860a74ebc349bee96c1 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 19 Oct 2023 13:24:30 -0700 Subject: [PATCH] -- --- Bancos/ProveedoresAbonar.aspx.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index d9410224c..d6b5a30e4 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -794,7 +794,7 @@ Partial Class Bancos_ProveedoresAbonar Pago.TCPago = 1 ' TxtTC.Text.ToDecimal Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * TxtTC.Text.ToDecimal).RoundSQL ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES - Pago.TCPago = TxtTCDolaresDolares.Text.ToDecimal + Pago.TCPago = TxtTCDolares.Text.ToDecimal ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES Pago.TCPago = TxtTCDolares.Text.ToDecimal Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal / TxtTCDolares.Text.ToDecimal) @@ -828,11 +828,11 @@ Partial Class Bancos_ProveedoresAbonar Pago.ImportePago = tImporteMN Dim ImporteME As Decimal = 0 - If Pago.CveMonedaPago = 2 Then ImporteME = Pago.ImportePago - If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then - ImporteME = tImporteMN - tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL - End If + If Pago.CveMonedaPago = 2 Then ImporteME = Pago.ImportePago + If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then + ImporteME = tImporteMN + tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL + End If