From 8924f1df302aba18729e0d52e4e07fc9c4329fcc Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 20 May 2023 08:35:29 -0700
Subject: [PATCH] -- mejora

---
 Bancos/PopIECompras.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index 866df3a64..ca540f569 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -1556,7 +1556,7 @@ Partial Class Bancos_PopIECompras
                         Pago.CveIE = rw.DataKey("CveIE").ToEntero
                         Pago.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
                         Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
-                        Pago.TCPago = TxtTipoCambio.Text.ToDecimal
+                        Pago.TCPago = If(Pago.CveMonedaPago <> 1, TxtTipoCambio.Text.ToDecimal, 1)
                         Pago.CveProveedor = DdlAcreedor.SelectedValue.ToEntero
                         Pago.TipoPago = "Egsc"
                         If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjMov) Then