diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 2c4321a39..1a93bab94 100644 --- a/App_Code/ClsPaginas.vb +++ b/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 diff --git a/Bin/ADSReportLib.dll b/Bin/ADSReportLib.dll index dc5473fe4..3431176b1 100644 Binary files a/Bin/ADSReportLib.dll and b/Bin/ADSReportLib.dll differ diff --git a/Bin/ADSReportLib.pdb b/Bin/ADSReportLib.pdb index c7ff8b159..be65cba71 100644 Binary files a/Bin/ADSReportLib.pdb and b/Bin/ADSReportLib.pdb differ diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index 5154c9604..a8cc8ee2e 100644 --- a/Inicio.aspx.vb +++ b/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() diff --git a/vwd.webinfo b/vwd.webinfo index 6f1eb2f43..40d1fe36c 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -42,6 +42,8 @@ + +