diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index 6130f4ab2..92b28597b 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -1293,10 +1293,11 @@ Partial Class Bancos_PopIEVentas
                         ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES
                             Pago.TCPago = TxtTCDolaresDolares.Text.ToDecimal
                         ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
-                            Pago.TCPago = TxtTipoCambio.Text.ToDecimal
+                            Pago.TCPago = TxtTCDolares.Text.ToDecimal
+                            ImportePagadoVenta = (ImportePagadoVenta * Pago.TCPago).RoundSQL
                         End If
                         'If ChkPagarPesos.Checked Then Pago.TCPago = 1 / TxtTipoCambio.Text.ToDecimal
-                        If ChkPagarDolares.Checked Then Pago.TCPago = TxtTipoCambio.Text.ToDecimal
+                        If ChkPagarDolares.Checked Then Pago.TCPago = TxtTCDolares.Text.ToDecimal
 
                         Select Case RBLContado.SelectedValue
                             Case "1" ' Banco