From e46dfbdd9b7708c9cd1c6a70723bd5c280387c7a Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Tue, 31 Mar 2020 21:29:42 -0700 Subject: [PATCH] --- App_Code/ClsPaginas.vb | 70 +++++++++++++++++------------------------ Bin/ADSReportLib.dll | Bin 6656 -> 7168 bytes Bin/ADSReportLib.pdb | Bin 13824 -> 13824 bytes vwd.webinfo | 4 +++ 4 files changed, 33 insertions(+), 41 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index e00e24ed8..7ffb360e7 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5136,55 +5136,43 @@ Public Class ClsPaginas 'limpio ReportViwer Dim sw As New System.Diagnostics.Stopwatch() sw.Start() - 'Dim Bytes As Byte() = Nothing - 'Try - ' Dim fllreport As New ADSReportLib.FullTrustReportviewer() - ' fllreport.Initialize("DisplayName", RutaReporte, Parametros, New List(Of String()), True) - ' For Each RDS As ReportDataSource In DataSource - ' fllreport.AddDataSources(RDS) - ' Next - ' Dim Warnings As Warning() = Nothing - ' Dim StreamIds As String() = Nothing - ' Dim MimeType As String = Nothing - ' Dim Encoding As String = Nothing - ' Dim Extension As String = Nothing - ' Bytes = fllreport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds, Warnings) - ' fllreport = Nothing - 'Catch ex As Microsoft.Reporting.WebForms.ScriptManagerNotFoundException - ' GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) } | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}") - ' 'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017 - ' 'GuardaLog($"Error: {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}") - 'Catch ex As Exception - ' GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) } | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}") - ''HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017 - ''GuardaLog($"Error {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}") - 'End Try - - If IsNothing(MR) Then MR = New ReportViewer - Dim Bytes As Byte() = Nothing + + + Dim setup As AppDomainSetup = New AppDomainSetup + With setup + .ApplicationBase = Environment.CurrentDirectory + .LoaderOptimization = LoaderOptimization.MultiDomainHost + End With + setup.SetCompatibilitySwitches({"NetFx40_LegacySecurityPolicy"}) + Dim _casPolicyEnabledDomain As AppDomain = AppDomain.CreateDomain("Full Trust", Nothing, setup) + 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) + 'For Each _ReportDataSource As ReportDataSource In DataSources + ' rvNextgenReport2.AddDataSources(_ReportDataSource.Name, CType(_ReportDataSource.Value, DataTable)) + '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) + Dim bdir As String = AppDomain.CurrentDomain.BaseDirectory + RutaReporte.Replace("/", "\") + If Not RutaReporte.ToUpper().StartsWith(bdir.ToUpper()) Then + RutaReporte = String.Format("{0}{1}", bdir, RutaReporte) + End If + fllreport.Initialize("DisplayName", RutaReporte, Parametros.AsEnumerable(), New List(Of String()), True) For Each RDS As ReportDataSource In DataSource - MR.LocalReport.DataSources.Add(RDS) + fllreport.AddDataSources(RDS.Name, DirectCast(RDS.Value, DataTable)) Next - 'Dim permissions As New Security.PermissionSet(Security.Permissions.PermissionState.None) - 'permissions.AddPermission(New Security.Permissions.FileIOPermission(Security.Permissions.PermissionState.Unrestricted)) - 'permissions.AddPermission(New Security.Permissions.SecurityPermission(Security.Permissions.SecurityPermissionFlag.Execution)) - 'MR.LocalReport.SetBasePermissionsForSandboxAppDomain(permissions) - - MR.LocalReport.ReportPath = RutaReporte - MR.ProcessingMode = ProcessingMode.Local - MR.LocalReport.EnableExternalImages = True - MR.LocalReport.SetParameters(Parametros) - MR.LocalReport.Refresh() Dim Warnings As Warning() = Nothing Dim StreamIds As String() = Nothing Dim MimeType As String = Nothing Dim Encoding As String = Nothing Dim Extension As String = Nothing - Bytes = MR.LocalReport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds, Warnings) - + Bytes = fllreport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds) + fllreport = Nothing Catch ex As Microsoft.Reporting.WebForms.ScriptManagerNotFoundException GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) } | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}") 'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017 @@ -5193,9 +5181,9 @@ Public Class ClsPaginas GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) } | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}") 'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017 'GuardaLog($"Error {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}") + Finally + AppDomain.Unload(_casPolicyEnabledDomain) End Try - MR.LocalReport.ReleaseSandboxAppDomain() - MR.Dispose() sw.Stop() If sw.Elapsed.TotalSeconds > 10 Then diff --git a/Bin/ADSReportLib.dll b/Bin/ADSReportLib.dll index d1edd2a163033d63d796a6c4267c1177f5de4a65..7a6f699af6b998331a3ca672c8f61a9e15b6f94e 100644 GIT binary patch delta 2345 zcmZWrYitx%6#nj=$F^G-c4ymd3%fY9KwnTwL7^Zb+6V=SKm&*dv`EETWT0C@%4@gy zh#)4wD53ZZ!~``akP?Mpj3gwAf(gcGNC*Kn28c!oDe{Pq@7^sGa5nqhbG~!t+;h%7 zGrO6wnekiSESZ1x)kWyN&Y{H16E#3S2|G*1YqxzgPaF$`D6_WEln92%5y1jc7EZYI z@c7LSHj63|4?Y!TVqkDqloVedoxOP)7YPe{OMnag0TFb%{AN;BBfL!R%2ilkj`$OjqVrI zX7~g9+%;qRgYIJ-%TL@#S$u8 zl_kk;h6a1~8wZ1`oA+nDPLznoIPoDnNw>s_;Cg>q$G;dVAs z^v_LIQI45WvyCUP!th5>ZDV39{E^DDnlLBskK$6!feQN^mN0avsOi^I(WT^Na|mS< zN9CHkYck@yjKW>1G3s_UQnfXB*&IG;oe7j~;IMH$!wD{JY;S8>zBI-1a4ZjCDkz=X zh|82YcqpAZx1nAc`|+OOq*<0^g{l+!%L9cPa&=T{l|j@>re8AH3SKt)%Ua9E8jX_$ ztN~bQDSo3kV%WH>@s!3UshE)(pU~K)`Q;+U2%|L~)J&_r#|Yymvxj_KsQCW^#74#s zqs#0`Q_1HHhjCat)oJ;2*<(5Q291h`x_Pw@wAbq4ZToCx{lZq(Pbk|cf!gMzq2www zFu7w=F&D^$F<(a>&&W1XW&<%pRM(@~M@MjUg%`oE=5v^&WPT3XSBdZ7FU<0k>l;Nk zO`FV#tcHE^7PVQNDcbOs=?EKJd$q+@2ajO?9c{2+Ff_5_eLqZ*tz$K!@BL-mLZK8<{90v=p@qh%LrY!NKDQUe%$waqQ@2L+B z$y)!=KCK)fi8DHyk_Gl~E(Frswc&tPzT!iF(-eGgRISCtFe-==+i-dD>68*ea@rG z*p6aRYwtihS9BTg(P^jLjVpBhfKC(bk1>S&0aS=C>kx*b%lMi%EU~|%&vEwS3Vz_H zPN?2ogl(QiHS#b;R3nDz#6f5wmhwGN&4GN4I7Z_{jgM=71~!Z8d7N=&epcfP*h9G$ zC&Uz_aGJOlXT_IVKBv(WieJc)lRP~jWIQa?DI3&6#8DjJxi}hJ%qgunk7e}GZv(w5 zxCEEeqGqA*I^X?ZZder5H!ohbbZK+jV{QKGRMX;R&5i9%?ZKq*7 zc~T^b>;iWom9RFGkHMmQ=5^(@Nw_VckW9KwNh{`sl9uB{vY(_AA!{>&<2I{ZV#o_w z?kcxMy3KBf;qkZ26VoI&VGM_QLU}1)2H$3r&AjX6c;GHw!eJ6>p-T)o7Np}ORMO2M zy+LMo@OPwm>TK7ugyUq3$Yw1Ec=kP6=}lVHy|cAA+XjntS1KjxnC0Yynb9g462Y42 ziU~RD=}a=F^t|YH@^2clsJ1&=^rzTX6Z#JbVt1i$7(MsS@?NJfZKv()LLa=oLRW-V5Fv;7bs7#;{wVci`Klmw-6WUxe3IIrf= zBf-lH_KO;k7n~IpqA>VDB#Rc;g@b4ECShTH5=ajQL{OUhbTChvsWqVkWMvlM$o6dF z4gr|5Lt)Hka3|yiKBqIla|d|L&l}(ce*OTD`LO|B;1`fr1G%*ZHumT25Gm&H3)yA( zMFY-SF#Y1k1=sS2Jg!)N2?f`bf7=<{r}j84f9T^r{xBsb2-T;>xVdfZ#^!c)g8MQ7W=7e7Z=J!iH(QU!r|Ju&jzWSI5!|FP;)u zH(-3Iq7^}d6;F*bI0-fz-w9YYX0lRkREn?6EIel^eV*ttY1N>}AY<0LwwM=6Tox2Yb!l6gwtpW54XRTzrW}cASG6Fjo)m zuzEQxWvkw|Y}LD)+(we8;NTrY@fs9xLT^Z=oTcJmgibS_k!{qQ4aB)b)h25ctO$|F zM(VWr5+*5wzt`;_iErX3%u6V**9xz2Jpz|P3tQ!{w4N>1eOO|?z_9BcTD4XS2BT}h zdVnl^5L(eA5+WNPKeSFsi`E%!y`92UnJIEGC#iyVGQ20$Aqo6Olo(_H29^>{EMy5- zSinOO7)>rwY)bb2NoJx`s&~vbLvm7=EQtu(wC4mCkHjqW4*=(jq^1w(bz=H$6C!dY3w4}*sihjA)d7Ixj>tqotR-L zTxsX0czfSg#$7EP)=nLEG5YWei~1&_hQhhj`%r2R!ytyMMIQR(BBKV3CDvdCag4@^8mDS~ z7S>R2)XGwYQ?L>{DXqgtq8{z|R9w(_TVp~fWed+w@ch1!g+iUKK`TP6!Z^&v$>6Ds zvZ`xXPY-Z+9<^`L#|j7^{(kjZPiKZBg5%Dlo(Il2GhoB527T znL56{VAl7^tmhA}vghCXdhIEg2_d3J0>UE6$x)`OK$;178#2i9y*a|0Z|8g4MclO# zQj`?ZSV$x6-OjpJ&O0LcUb<6wO}U9k+;ZLQ@E3Qp;FT+rwb)KyeK~iQGUS}G)`+wOuiaBacfomo@D&;p6SQRgY(|Z$b!}D uS2wk<4l;7jd9(S+=x=KjPjr{Y#Ny!h+>1SK?13R)uItGu{zG)vM*ami)L3}{ diff --git a/Bin/ADSReportLib.pdb b/Bin/ADSReportLib.pdb index 9b46fdb6d3bcc1f3cbd0d1cab728f97fadb0e46d..3dee6c00966073943d78bc9cb002674f25575345 100644 GIT binary patch delta 1721 zcmaKtUu;uV9LIm>_782LKu6c!+jecYvE2!yZRQ*bMC^ny2C{{r1(b~?C2G=ia~n}i zOfT|ah{jA$LIznPk38(5(8Y)`A^4#3qQM8Ei7^oNWFiL1VwM==_jm5?QeXTf=YD?o z{QjKZ`JHoHt7Mg`?tor+a$!sm(dFkZ<-6__hvutKpFA~Iny4iL-QMu-7V~`Vhxfm~ z`Fvpa-mhkF&3?I%zn)(dfvAQUNK~tZ(vQTAuut=?tSmqLcHKQ8LrppPLL}|J`qSsX z){2p;5R)5jV=wWovBINT4zn!-jf#VBHDpA%DMpFN#zw2pk*d8yrbQnZJysKFs z3+sV6pH+_BU;8W%qZcem8|vxDc2?!Z#As!~nHAW`q@%9~=N!F>$U#h}uA2yB+KRw}Q`tUEmP7jp)J{n87=`M(70A3XuG+C0*fSmN9sdUXX=5GpID8 zemL_YFM@mq`@k@`AM61KK)YxYh3~-lOl{&%*!E!P2m)1uC&^AHN&PA}COM24F7PFg&-}<*j=r@V=m?ECIr!9AI7a95VHrly0G8*f*|{KZ zC*u{KJp>!iE@9aBTC9BmLCjslU^xn3PB{wtz?VVp({Ydw<|Z~K zRcHU)XO_kuZbxn|z8h=-adWL8X&b3_HFaFvXq$J7L3y_`Wenm|6O`-AvEaHSsY89) zOKcTO@^NR>lSXFoX*@2grcX|p!KOZ`1Ylg##hK- z4Zn5yY+Ne{Ikh!{e+0LOkM)Xj;vOYG$#0R1*{~MX37Q`Qr)(Gh@Jt&AI zV0#cOSO&z4c+i6f54G_hQ1IYEXr)LGf_fB-pdxzk;CJ@DmYf{e{p{|{?9R^Yd*x!e zIPdZ`y!6~WFNF}X!*4=QKIC&VapUz&*TY05>PxzV=`Z1_uVar-4F9QYsc-*1VBLRH z_dNGZdRN&8vRe6UHOskEiwi-I=E;8fcJ8|NUeagFqQjw>YvIC~)=EA!FXbrJH?*S9 zHT(>W+rFyTgm8~iSEPU6Tg)}#7Adhaz^cE_5lLldcQvqH#!#sSM#l3aSEU9c5&rExH_>}bPP+FEE0XnQH9dm>S6%(B6T>fNx&P)<+FJWc6gnWZ~=I+Dk> zEVDLL?}23}E$L~afPE}ju(lIHa-1O%Q}>Z%M8mtWqGs%PHGd7-n!pQqCE-=T+T|)Q z4qMW#Xqd{4nXLz$yevBrM0pEGyog|tq%l~!=d4JaJ?e~o;IuQ|EJPVM6G4yzsRuc0 zA#ewX9F_Ni4PXw8fG5F5a2V9V5wHpL3RCz+60Hp_#f?51k<&%!`D~71t=62`i)buy z`108;AjV=Fm;p_&3q%~ZhrnH!kAW$WhMHm}3lqEi635!YNx}w7+F)3R(H_tbcfWWf zeqhdiTni3p?TJ+T?Snn1bHDOCE4;$D?q@iDNDShDR6AzjfXs=5%CUXjkps%mrDi?Q z0Zq5)QQPrqmS&sv60i1(eziJ{Rr{^T^;d;@iW_Jws6v^u*9oF}q8sF$j)8~3#N`b0NaEX0>snUQ