From dae8be91a448a207e0e3a0d568a75599f4d34604 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 20 Jan 2025 19:39:58 -0700 Subject: [PATCH] --FIX tc --- Bancos/ProveedoresAbonar.aspx.vb | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 00aed620b..288fe1d16 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -863,8 +863,19 @@ Partial Class Bancos_ProveedoresAbonar Pago.TCPago = TxtTC.Text.ToDecimal Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal / TxtTC.Text.ToDecimal) End If - If ChkPagarPesos.Checked Then Pago.TCCambioMoneda = 1 / TxtTC.Text.ToDecimal - If ChkPagarDolares.Checked Then Pago.TCCambioMoneda = TxtTC.Text.ToDecimal + + If ChkPagarPesos.Checked Then + If CompraActual.CveMoneda = 1 Then + Pago.TCCambioMoneda = 1 + Else + Pago.TCCambioMoneda = 1 / TxtTC.Text.ToDecimal + End If + End If + + If ChkPagarDolares.Checked Then + Pago.TCCambioMoneda = TxtTC.Text.ToDecimal + End If + If gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal