diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 102115221..3c2bc3e1d 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -783,20 +783,20 @@ Public Class ClsPaginas
             Application("GlobalDTMonedasAlias") = value
         End Set
     End Property
-    Property GlobalDTSucursales(Optional CveEmpresa As Integer = -1) As DataTable
-        Get
-            If CveEmpresa <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTSucursales"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " Sucursal", DataViewRowState.CurrentRows)
-                GlobalDTSucursales = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTSucursales = DirectCast(Application("GlobalDTSucursales"), DataTable)
-            End If
-        End Get
-        Set(value As DataTable)
-            Application("GlobalDTSucursales") = value
-        End Set
-    End Property
+    'Property GlobalDTSucursales(Optional CveEmpresa As Integer = -1) As DataTable
+    '    Get
+    '        If CveEmpresa <> -1 Then
+    '            Dim Dv As New DataView(DirectCast(Application("GlobalDTSucursales"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " Sucursal", DataViewRowState.CurrentRows)
+    '            GlobalDTSucursales = Dv.ToTable
+    '            Dv.Dispose()
+    '        Else
+    '            GlobalDTSucursales = DirectCast(Application("GlobalDTSucursales"), DataTable)
+    '        End If
+    '    End Get
+    '    Set(value As DataTable)
+    '        Application("GlobalDTSucursales") = value
+    '    End Set
+    'End Property
     Property GlobalDTSATUsosCFDI(Optional EsPersonaFisica As Integer = -1) As DataTable
         Get
             If EsPersonaFisica <> -1 Then
diff --git a/RH/RepDocumentacionVencida.aspx.vb b/RH/RepDocumentacionVencida.aspx.vb
index 57f59e029..a8fc898ed 100644
--- a/RH/RepDocumentacionVencida.aspx.vb
+++ b/RH/RepDocumentacionVencida.aspx.vb
@@ -87,7 +87,7 @@ Partial Class RH_RepDocumentacionVencida
 
 
 
-        DDLSucursal.DataSource = GlobalDTSucursales(UsuarioActual.Empresa.CveEmpresa)
+        DDLSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.Empresa.CveEmpresa)
         DDLSucursal.DataBind()
         DDLSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
         If UsuarioActual.CveSucursal > 0 Then