diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 49aab559a..f772f0635 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1157,7 +1157,7 @@ Public Class ClsPaginas
             Dim AppNombre As String = String.Format("GlobalDTProyectosUsuarios-{0}", CveEmpresa)
             If Application(AppNombre) Is Nothing Then
                 Dim ObjSubProyectos As New ClsSubProyectos()
-                If ObjSubProyectos.GetSubProyectosUsuarios Then Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError)
+                If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError)
                 ObjSubProyectos.Dispose()
                 GuardaLog("Se Cargo GlobalDTProyectosUsuarios")
             End If
@@ -5706,6 +5706,7 @@ Public Class ClsPaginas
             Bytes = wsreport.StreamPDFBytes(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario)
             wsreport = Nothing
             params = Nothing
+            ds.Dispose() : ds = Nothing
         Else
             If IsNothing(MR) Then MR = New ReportViewer
             Try
@@ -5735,6 +5736,7 @@ Public Class ClsPaginas
                 'GuardaLog($"Error {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}")
             End Try
             MR.Dispose()
+            MR = Nothing
             'Dim ruta = wsreport.StreamPDF(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario)
             'If File.Exists(ruta) Then
             '    Bytes = File.ReadAllBytes(ruta)