From 3e0bd1cbd81f0dcf0e3df6bfa26d14032ac9a6ac Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 12 Nov 2021 14:52:06 -0700
Subject: [PATCH] mejoras de rendimiento

---
 Bancos/PopIEVentas.aspx.vb | 23 ++++++++++++++---------
 1 file changed, 14 insertions(+), 9 deletions(-)

diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index 1336491e0..87c387537 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -596,14 +596,11 @@ Partial Class Bancos_PopIEVentas
             End If
 
             CargaTipoTransaccion(TipoTransaccion)
-            CargaCuentas()
-
-            Dim ObjCompras As New ClsCompras
-            If ObjCompras.GetCompras(-1, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, ProveedorRFC:=RFCCliente) Then
-                RBLContado.Items(4).Enabled = True
-            End If
-            ObjCompras.Dispose()
-
+            CargaCuentas()
+
+
+
+
             Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, Now.Day - 1, Now.Day)
             Fecha = (dia.ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString).ToDate
 
@@ -726,7 +723,7 @@ Partial Class Bancos_PopIEVentas
                 CveMoneda = dr("CveMoneda").ToString.ToEntero
                 CveMonedaVenta = dr("CveMoneda").ToString.ToEntero
                 CveMonedaFiltros = dr("CveMoneda").ToString.ToEntero
-                NombreCliente = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre", String.Format("CveCliente = {0}", CveCliente))
+                NombreCliente = dr("ClienteNombre").ToString '' GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre", String.Format("CveCliente = {0}", CveCliente))
                 SerieFolio = dr("SerieFolio").ToString
                 TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
                 CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
@@ -785,6 +782,14 @@ Partial Class Bancos_PopIEVentas
                 'Cortes de Caja
                 If UsuarioActual.TienePermisoProceso(160) Then
                     CargaCorteCaja()
+                End If
+
+                If RFCCliente.ToUpper <> "XAXX010101000" Then
+                    Dim ObjCompras As New ClsCompras
+                    If ObjCompras.GetCompras(-1, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, ProveedorRFC:=RFCCliente) Then
+                        RBLContado.Items(4).Enabled = True
+                    End If
+                    ObjCompras.Dispose()
                 End If
 
                 If Not Validada Then