Index: BL/Legacy/HADWIZ.cls.xml =================================================================== diff -u -r63864 -r63885 --- BL/Legacy/HADWIZ.cls.xml (.../HADWIZ.cls.xml) (revision 63864) +++ BL/Legacy/HADWIZ.cls.xml (.../HADWIZ.cls.xml) (revision 63885) @@ -191,7 +191,21 @@ Do ProductieDetailBladService.BewaarKaderdeurPDF(InputParameters,BestandLocatie) } Else { - do ProductieDetailBladService.BewaarPDF(InputParameters,BestandLocatie) + #dim Applicatie As %String = "HADWIZ.ProductDetailBlad" + Set OmleidingNaarDotNetHelper = ##class(DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarDotNetHelper).%New() + Do OmleidingNaarDotNetHelper.ZetRuntimeContextApplicatie(Applicatie) + ;Do OmleidingNaarDotNetHelper.ZetOmleidingActiefVoorLbx(Applicatie) + + Try { + Do ProductieDetailBladService.BewaarPDF(InputParameters,BestandLocatie) + } + Catch { + #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() + Do OmleidingNaarDotNetHelper.ResetOmleidingActiefVoorLbx(Applicatie) + Do ##class(TECH.ExceptionHandler).Throw(Exception) + } + + Do OmleidingNaarDotNetHelper.ResetOmleidingActiefVoorLbx(Applicatie) } #dim BestandLocatieAlsUrl As %String = WebServerUrlBepaler.GeefUrl(Bestand)