-- deudores, corrección en el ciclo

Compras/Compras.aspx.vb

@@ -6947,10 +6947,13 @@ Partial Class Compras_Compras
                                                                             ErrorPrepoliza = True
                                                                             Exit For
                                                                         End If
-                                                                    End If
+
-                                                                    Dim Pago As New CompraPago With {.ImportePago = importeMovimiento, .CveIE = CveIE}
+                                                                        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
+
                                                                 Next
 
                                                             Else