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