diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index cf7ce05c0..13673a7c3 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -2315,7 +2315,6 @@ Public Class ClsPaginas
     Public Shared Property GlobalDTVtaCobranzaEstatus(CveEmpresa As Integer, Optional CveCobranzaEstatus As Integer = -1) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTVtaCobranzaEstatus-{CveEmpresa}"
-            'sino existe, recarga los datos
             If HttpContext.Current.Application(AppNombre) Is Nothing Then
                 Dim ObjVentas As New ClsVentas
                 If ObjVentas.GetCobranzaEstatus(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjVentas.DtResultados
@@ -2438,20 +2437,22 @@ Public Class ClsPaginas
 #Region "***********************************************************************DT ACTIVOS FIJOS**********************************************************************************"
     Property GlobalDTActivoFijos(CveEmpresa As Integer, Optional CveSubTipoActivoFijo As Integer = -1, Optional CveActivoFijo As Integer = -1) As DataTable
         Get
-            Dim dt As DataTable = Nothing
-            'Dim Str As New StringBuilder
-            'Str.AppendFormat("CveEmpresa = {0}", CveEmpresa)
-            'If CveSubTipoActivoFijo <> -1 Then Str.AppendFormat(" AND CveSubTipoActivoFijo = {0}", CveSubTipoActivoFijo)
-            Dim ObjAF As New ClsAF
-            'If ObjAF.GetActivosFijos(CveActivoFijo, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, -1, "-1", -1, -1, -1, -1, -1) Then
-            If ObjAF.GetActivosFijos(CveActivoFijo, CveEmpresa, "-1", "-1", -1, CveSubTipoActivoFijo, "-1", -1, -1, -1, -1, -1, "", -1) Then
-                dt = ObjAF.DtResultados
+            Dim AppNombre As String = $"GlobalDTActivoFijo-{CveEmpresa}"
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjActivosFijos As New ClsAF
+                If ObjActivosFijos.GetActivosFijos(-1, CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
+                ObjActivosFijos.Dispose()
             End If
-            ObjAF.Dispose()
-            GlobalDTActivoFijos = dt
+            Dim Str As New StringBuilder
+            If CveSubTipoActivoFijo <> -1 Then Str.AppendFormat(" CveSubTipoActivoFijo = {0} ", CveSubTipoActivoFijo)
+            If CveActivoFijo > 0 Then Str.AppendFormat("{0} CveActivoFijo = {1}", IIf(Str.Length > 0, " AND ", ""), CveActivoFijo)
+            Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            GlobalDTActivoFijos = Dv.ToTable
+            Dv.Dispose()
         End Get
         Set(ByVal value As DataTable)
-            Application("GlobalDTActivoFijos") = value
+            Dim AppNombre As String = $"GlobalDTActivoFijo-{CveEmpresa}"
+            Application(AppNombre) = value
         End Set
     End Property
     Public Shared Property GlobalDTEstadoActivoFijo() As DataTable
@@ -2488,7 +2489,6 @@ Public Class ClsPaginas
     Public Shared Property GlobalDTModeloActivoFijo(CveEmpresa As Integer, CveMarca As Integer) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTModeloActivoFijo-{CveEmpresa}"
-            'sino existe, recarga los datos
             If HttpContext.Current.Application(AppNombre) Is Nothing Then
                 Dim ObjActivosFijos As New ClsAF
                 If ObjActivosFijos.GetModelosActivosFijos(CveEmpresa, -1) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
@@ -2510,7 +2510,6 @@ Public Class ClsPaginas
     Public Shared Property GlobalDTSubTipoActivoFijo(CveEmpresa As Integer, Optional CveTipoActivoFijo As Integer = -1) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTSubTipoActivoFijo-{CveEmpresa}"
-            'sino existe, recarga los datos
             If HttpContext.Current.Application(AppNombre) Is Nothing Then
                 Dim ObjSubTipos As New ClsAF
                 If ObjSubTipos.GetSubTiposActivosFijos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubTipos.DtResultados
@@ -2531,10 +2530,9 @@ Public Class ClsPaginas
     Public Shared Property GlobalDTTipoActivoFijo(CveEmpresa As Integer) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTTipoActivoFijo-{CveEmpresa}"
-            'sino existe, recarga los datos
             If HttpContext.Current.Application(AppNombre) Is Nothing Then
                 Dim GetTiposActivosFijos As New ClsAF
-                If GetTiposActivosFijos.GetCaracteristicas(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = GetTiposActivosFijos.DtResultados
+                If GetTiposActivosFijos.GetTiposActivosFijos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = GetTiposActivosFijos.DtResultados
                 GetTiposActivosFijos.Dispose()
             End If
             GlobalDTTipoActivoFijo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index 8105b1328..f485c6faa 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -473,17 +473,9 @@ Partial Class Sistemas_UsuarioDetalle
             CargaEmpresasAsignaciones()
             CreaDtAsignacionesMultiEmpresa()
             CveEmpresaAnterior = DdlEmpresaAsignaciones.SelectedValue.ToEntero
-
-            Using ObjOc As New ClsOC
-
-                If ObjOc.GetEstatus() Then
-                    DTOCEstatus = ObjOc.DtResultados
-                Else
-                    DTOCEstatus = New DataTable
-                End If
-
-            End Using
-
+            DTOCEstatus = GlobalDTOCEstatus(UsuarioActual.CveEmpresa)
+
+
         End If
     End Sub
 
@@ -1371,12 +1363,10 @@ Partial Class Sistemas_UsuarioDetalle
 
         'RECARGA GLOBAL BANCOS
         'If ObjBancos.GetBancosCuentasUsuarios(-1) Then
-        GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing 'ObjBancos.DtResultados
-        ' End If
-
-        'RECARGA GLOBAL ESTATUS
-        If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
-
+        GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing 'ObjBancos.DtResultados
+        ' End If
+
+        'RECARGA GLOBAL ESTATUS
         GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa) = Nothing
 
         'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing