diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index 0b2111830..8e3985724 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -153,9 +153,10 @@ Partial Class Sistemas_CatSesiones
 
 
     Private Sub CargaAlmacenUsuarios()
-        Dim Obj As New ClsSisUsuarios
-        If Obj.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = Obj.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
-        Obj.Dispose()
+        GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
+        'Dim Obj As New ClsSisUsuarios
+        'If Obj.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = Obj.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
+        'Obj.Dispose()
     End Sub
 
     Private Sub CargaClientes()
@@ -267,8 +268,9 @@ Partial Class Sistemas_CatSesiones
             Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
         Else
             Application("GlobalDTUsuarios") = Nothing
-        End If
-        If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
+        End If
+        GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
+        'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
         ObjUsuarios.Dispose()
         'Fin Carga Usuarios
     End Sub