From 52f59e76257aac77a49926a0e9ee136ec6b9d2ca Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 10 Oct 2022 18:13:13 -0700
Subject: [PATCH] --

---
 Compras/Compras.aspx.vb | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 963bab3f2..7fdf99fc4 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6956,18 +6956,13 @@ Partial Class Compras_Compras
                                                                         End If
 
                                                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
-                                                                            ErrorPrepoliza = True
-                                                                            Exit For
+                                                                            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
-
                                                                 Next
-
                                                             Else
                                                                 For Each rw As GridViewRow In GvDeudores.Rows
                                                                     If rw.FCCheckBox("Chk").Checked Then
@@ -6979,8 +6974,7 @@ Partial Class Compras_Compras
                                                                             ErrorPrepoliza = True
                                                                             Exit For
                                                                         End If
-                                                                        Dim Pago As New CompraPago With {.ImportePago = importeMovimiento, .CveIE = CveIE}
-                                                                        'Pago.CveMonedaPago = CveMonedaAnticipo 'pdte
+                                                                        Dim Pago As New CompraPago With {.ImportePago = importeMovimiento, .CveIE = CveIE, .CveMonedaPago = rw.DataKey("CveMoneda").ToEntero}
                                                                         AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
                                                                     End If
                                                                 Next