diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index bb8161dc0..658cfc4e5 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6947,10 +6947,13 @@ Partial Class Compras_Compras
                                                                             ErrorPrepoliza = True
                                                                             Exit For
                                                                         End If
+
+                                                                        Dim Pago As New CompraPago With {.ImportePago = importeMovimiento, .CveIE = CveIE, .CveMonedaPago = rw.DataKey("CveMoneda").ToEntero}
+                                                                        'Pago.CveMonedaPago = CveMonedaAnticipo 'pdte
+                                                                        AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
+
                                                                     End If
-                                                                    Dim Pago As New CompraPago With {.ImportePago = importeMovimiento, .CveIE = CveIE}
-                                                                    'Pago.CveMonedaPago = CveMonedaAnticipo 'pdte
-                                                                    AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
+
                                                                 Next
 
                                                             Else