From 2fb4cd45661de0e241bc3183308e016ed3cff205 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 10 Oct 2022 18:09:46 -0700
Subject: [PATCH] =?UTF-8?q?--=20deudores,=20correcci=C3=B3n=20en=20el=20ci?=
 =?UTF-8?q?clo?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

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