From 9c19620f13c0d546994ccf9bbb7a858550101986 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 5 May 2021 18:37:00 -0700
Subject: [PATCH] =?UTF-8?q?--=20mejora=20en=20importaci=C3=B3n,=20se=20qui?=
 =?UTF-8?q?t=C3=B3=20el=20llamada=20a=20compras=20por=20cada=20factura.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/ProveedoresAbonar.aspx    |  2 +-
 Bancos/ProveedoresAbonar.aspx.vb | 22 +++++++++-------------
 2 files changed, 10 insertions(+), 14 deletions(-)

diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx
index 193cb00f2..f67afd6b0 100644
--- a/Bancos/ProveedoresAbonar.aspx
+++ b/Bancos/ProveedoresAbonar.aspx
@@ -369,7 +369,7 @@
     <asp:UpdatePanel ID="UPCompras" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvCxP" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas X Pagar Pendientes" 
-                DataKeyNames="CveCompra,ImporteProgramo,Saldo,SubTotal,IVA,IVADeducible,IVANoDeducible,IEPS,RetIVA,RetISR,Original,UUID,RFC,CveFactura,SerieFolio,Descripcion,CvePrePoliza,Fecha,EstatusInventario,CveProveedor,TipoCambio, CveMoneda,CveRetIVAConcepto,IVAPorPagar,IVAPorPagarDeducible,IVAPorPagarNoDeducible,IEPSPorPagar,CveRetISRConcepto,PorcentajeIVA,CveTipoConcepto,CveSubProyecto,TotalOriginal" 
+                DataKeyNames="CveCompra,ImporteProgramo,Saldo,SubTotal,IVA,IVADeducible,IVANoDeducible,IEPS,RetIVA,RetISR,Original,UUID,RFC,CveFactura,SerieFolio,Descripcion,CvePrePoliza,Fecha,EstatusInventario,CveProveedor,TipoCambio, CveMoneda,CveRetIVAConcepto,IVAPorPagar,IVAPorPagarDeducible,IVAPorPagarNoDeducible,IEPSPorPagar,CveRetISRConcepto,PorcentajeIVA,CveTipoConcepto,CveSubProyecto,TotalOriginal,EsImportacion" 
                 Width="100%" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
                 <Columns>
                     <asp:TemplateField>
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index c74e59d8b..9b7939b2c 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -1043,21 +1043,17 @@ Partial Class Bancos_ProveedoresAbonar
                                             Dim PorcentajeImpuesto As Decimal = 0
 
                                             If ConceptoContable.Contiene(14, 19) AndAlso gvr.DataKey("CveCompra").ToEntero > 0 Then
-                                                Dim objcompras As New ClsCompras
-                                                objcompras.GetCompras(gvr.DataKey("CveCompra").ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa)
-                                                If objcompras.DtResultados IsNot Nothing AndAlso objcompras.DtResultados.Rows.Count > 0 Then
-                                                    Dim dr As DataRow = objcompras.DtResultados.Rows(0)
-                                                    If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
-                                                        If dr("EsImportacion").ToString = "True" Then
-                                                            EsImportacion = True
-                                                            If ConceptoContable = 14 Then
-                                                                ConceptoContable = 287
-                                                            Else
-                                                                ConceptoContable = 288
-                                                            End If
+
+                                                If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+                                                    If gvr.DataKey("EsImportacion").ToString = "1" Then
+                                                        EsImportacion = True
+                                                        If ConceptoContable = 14 Then
+                                                            ConceptoContable = 287
                                                         Else
-                                                            EsImportacion = False
+                                                            ConceptoContable = 288
                                                         End If
+                                                    Else
+                                                        EsImportacion = False
                                                     End If
                                                 End If