From b0be686ebf7cdce80c065466a1cb28a83c8fcc19 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 13 Feb 2021 14:13:25 -0700
Subject: [PATCH] -- REGENERA GLOBAL

---
 Ventas/CatClientesClasificaciones.aspx.vb | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/Ventas/CatClientesClasificaciones.aspx.vb b/Ventas/CatClientesClasificaciones.aspx.vb
index 76768a4da..709c823c9 100644
--- a/Ventas/CatClientesClasificaciones.aspx.vb
+++ b/Ventas/CatClientesClasificaciones.aspx.vb
@@ -119,9 +119,7 @@ Partial Class Ventas_ClientesClasificaciones
 
 
     Private Sub CargaGlobal()
-        Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetClienteClasificacion(-1) Then Application("GlobalDTClienteClasificaciones") = ObjClientes.DtResultados Else Application("GlobalDTClienteClasificaciones") = Nothing
-        ObjClientes.Dispose()
+        GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa) = Nothing
     End Sub