diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 4c2548edd..a3c44fd31 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -7482,7 +7482,8 @@ Partial Class Compras_Compras
                                                                                 Dim Pago As New CompraPago
                                                                                 Pago.ImportePago = importeMovimiento
                                                                                 Pago.CveIE = Ant.CveIE
-                                                                                Pago.CveMonedaPago = 1
+                                                                                Pago.TCPago = Ant.TCCompra
+                                                                                Pago.CveMonedaPago = If(Ant.TCCompra > 1, 2, 1)
 
                                                                                 ErrorPrepoliza = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)