App_Code/ClsPaginas.vb

@@ -5148,7 +5148,7 @@ Public Class ClsPaginas
         End With
         setup.SetCompatibilitySwitches({"NetFx40_LegacySecurityPolicy"})
         Dim _casPolicyEnabledDomain As AppDomain = AppDomain.CreateDomain("Full Trust", Nothing, setup)
-
+        Dim fllreport As ADSReportLib.FullTrustReportviewer = Nothing
         Try
             'Dim rvNextgenReport2 As WebReportviewer.FullTrustReportviewer = CType(_casPolicyEnabledDomain.CreateInstanceFromAndUnwrap(GetType(WebReportviewer.FullTrustReportviewer).Assembly.CodeBase, GetType(WebReportviewer.FullTrustReportviewer).FullName), WebReportviewer.FullTrustReportviewer)
             'rvNextgenReport2.Initialize(DisplayName, ReportPath, Visible, reportParam, reportRenderFormat, DeviceInfo, repMainContent, repSubContent)
@@ -5158,7 +5158,8 @@ Public Class ClsPaginas
             'Next
 
             'Return rvNextgenReport2.Render(reportRenderFormat, DeviceInfo)
-            Dim fllreport As ADSReportLib.FullTrustReportviewer = CType(_casPolicyEnabledDomain.CreateInstanceFromAndUnwrap(GetType(ADSReportLib.FullTrustReportviewer).Assembly.CodeBase, GetType(ADSReportLib.FullTrustReportviewer).FullName), ADSReportLib.FullTrustReportviewer)
+            fllreport = CType(_casPolicyEnabledDomain.CreateInstanceFromAndUnwrap(GetType(ADSReportLib.FullTrustReportviewer).Assembly.CodeBase, GetType(ADSReportLib.FullTrustReportviewer).FullName), ADSReportLib.FullTrustReportviewer)
+
             Dim bdir As String = AppDomain.CurrentDomain.BaseDirectory
             RutaReporte.Replace("/", "\")
             If Not RutaReporte.ToUpper().StartsWith(bdir.ToUpper()) Then
@@ -5186,6 +5187,7 @@ Public Class ClsPaginas
         Finally
             AppDomain.Unload(_casPolicyEnabledDomain)
         End Try
+        If fllreport IsNot Nothing Then fllreport.liberarecursos()
 
         sw.Stop()
         If sw.Elapsed.TotalSeconds > 10 Then

Inicio.aspx.vb

@@ -55,7 +55,7 @@ Partial Class Inicio
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            'Dim obj As Object = GetType(HttpRuntime).GetProperty("CacheInternal", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.[Static]).GetValue(Nothing, Nothing)
+            'Hola caudillo
             'Dim obj2 As Object() = CType(obj.[GetType]().GetField("_caches", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance).GetValue(obj), Object())
             If Not IsNothing(Request("logout")) AndAlso Request("logout").ToString() = "1" Then
                 Usuario.CerrarSession()

vwd.webinfo

@@ -42,6 +42,8 @@
     
   
     
+  
+