diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 77875fccb..6dd1247d9 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -7417,18 +7417,17 @@ Partial Class Compras_Compras
                                                                             Pago.ImportePago = importeMovimiento + ImporComisionAnticipo
                                                                             Pago.CveIE = Ant.CveIE
                                                                             Pago.TCPago = Ant.TCCompra
+                                                                            Pago.CveMonedaPago = If(Ant.TCCompra > 1, 2, 1)
 
                                                                             If Pago.CveMonedaPago = 1 AndAlso CompraActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en Pesos
-                                                                                Pago.TCPago = 1 ' TxtTC.Text.ToDecimal
-                                                                                Pago.TCCambioMoneda = Ant.TCCompra 'GlobalTipoCambio(Now).ToDecimal
+                                                                                Pago.TCPago = Ant.TCCompra ' TxtTC.Text.ToDecimal
+                                                                                Pago.TCCambioMoneda = 1  'GlobalTipoCambio(Now).ToDecimal
 
                                                                                 If Ant.TCCompra = 1 Then
                                                                                     Pago.TCCambioMoneda = 1 / GlobalTipoCambio(Ant.Fecha).ToDecimal
                                                                                 End If
-
                                                                             End If
 
-                                                                            Pago.CveMonedaPago = If(Ant.TCCompra > 1, 2, 1)
                                                                             Pago.OtroGastoIngreso = -ImporComisionAnticipo
                                                                             ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)