TANDEMBOX - #(ErrTitle)#

csp.errorvh 0 Custom Error page in Configuration Manager: /vhisie/ErrorVHTbx.csp Parameter moet aangepast worden in afgeleide klasse /vhisie/ErrorVHTbx.csp Deze definities zijn globaal voor de hele CSP-application; het is immers niet mogelijk om bij "HyperEventTimeOut" de OrigCSPClassName te detecteren om daar de CustomEH array in te vullen. 1 1 lbErrTypes 0) Kill tmpAr Do @("dehBuildAr"_ErrType) Merge %cspEHandler(ErrType)=tmpAr Quit dehBuildArPageLoadError ; PageLoadError Set tmpAr("ACTIONS")=$LB("LogDB","Email","ErrPage") Set tmpAr("ACTIONS","LogDB")=$LB("DFL","TBX_Err_CSP",$LB("CustomLogError","cspBasis.GAProdTBox",1)) Set tmpAr("ACTIONS","Email")=$LB($$$SystemMail("CSPserver "_$system.Server.HostName()),$LB($$$EmailToSysOp),"CSP - Error - "_$ZDT($H,4)_$$dehAddTBXDomein(),"§DFL_HTML§",,1) ;Set tmpAr("ACTIONS","Email")=$LB("Skip") Set tmpAr("ACTIONS","ErrPage")=$LB("","OnPageTBX") ; $LB("~") Quit dehBuildArPreHTTPTimeOut ; PreHTTPTimeOut Set tmpAr("ACTIONS")=$LB("LogDB","ErrPage") ; or RedirURL Set tmpAr("ACTIONS","LogDB")=$LB("NONE","TBX_Err_CSP",$LB("CustomLogError","cspBasis.GAProdTBox",1)) Set tmpAr("ACTIONS","ErrPage")=$LB("","OnPageTBX") Quit dehBuildArHyperEventError ; HyperEventError Set tmpAr("ACTIONS")=$LB("LogDB","Email","JSAlert") Set tmpAr("ACTIONS","LogDB")=$LB("DFL","TBX_Err_CSP",$LB("CustomLogError","cspBasis.GAProdTBox",1)) Set tmpAr("ACTIONS","Email")=$LB($$$SystemMail("CSPserver "_$system.Server.HostName()),$LB($$$EmailToSysOp),"CSP - Error - "_$ZDT($H,4)_$$dehAddTBXDomein(),"§DFL_HTML§",,1) Set tmpAr("ACTIONS","JSAlert")=$LB("Error returned by server call") ; overruled by ("MSG","JSAlert") Set tmpAr("MSG","JSAlert",1)=("TandemBox: "_$$$GetVertaling("jsHyperEventError",$G(Taal,"F"),"O")) Quit dehBuildArHyperEventTimeOut ;HyperEventTimeOut // Custom actions must be set in the CustomHyperTimeOutEH() method Set tmpAr("ACTIONS")=$LB("JSAlert") Set tmpAr("ACTIONS","JSAlert")=$LB("Session TimeOut") Quit dehAddTBXDomein() New AdddText,DomeinKort Set AddText="" Set DomeinKort=$$dehGeefDomeinKort() If $L(DomeinKort)&&($$$LCase(DomeinKort)'="vh") { Set AddText=" ("_DomeinKort_")" } Quit AddText dehGeefDomeinKort() New TBXContext,DomeinKort Set DomeinKort="" If $IsObject($G(%request)) { Set TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest() Set DomeinKort=TBXContext.GeefDomeinKort(TBXContext.GeefWebDomein()) } Quit DomeinKort ]]> 1 %Status 1 %Status TANDEMBOX - #(ErrTitle)#

#(ErrTxt)#

> Do optDisplayErrorHidden &html< > Quit $$$OK optDisplayErrorHidden // Internet Explorer doesn't work without this routine !!! (WHY? don't know) &html<

> Do ..DisplayError(.ErrorInfo) &html<

> Quit ]]>