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