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