csp.errorvh 0 Parameter moet aangepast worden in afgeleide klasse /csp/hadev/ErrorVHSub.csp Method to OVERRIDE when defining custom %cspEHandler for "HyperEventTimeOut". Deze definities zijn globaal voor de hele CSP-application; het is namelijk niet mogelijk om bij "HyperEventTimeOut" de OrigCSPClassName te detecteren om daar de CustomEH array in te vullen. 1 listbuild) uit]]> 1 FromMethod:%String 0) . ;Set blnMatch=(blnMatch)&&("...") ; Other criteria . If blnMatch Set MatchNode=i Quit MatchNode hceExecuteEHAtion(Action) // Possible values for Action: Quit:($LF($LB("ErrPage","JSAlert","Email","LogDB","Redir","CustomCOS","CustomJS"),$G(Action))'>0) New lbActionDefs Set lbActionDefs=arActs("ACTIONS",Action) ;d $$$DBG("Execute action "_Action_" values="_$$$LCVT(lbActionDefs)) If Action="ErrPage" Do . Do ..ActErrPage(lbActionDefs) Else If Action="JSAlert" Do . New tmpMsg . ;Set tmpMsg="TestMessage by WimV:"_$$$CRLF_##class(%CSP.LogError).ErrString() . If $G(arActs("MSG",Action,1))'="" Set tmpMsg=arActs("MSG",Action,1) . Else Set tmpMsg=$LG(lbActionDefs,1) . Do ..ActJSAlert($LB(tmpMsg,1)) Else If Action="Email" Do . New tmpBody . If $G(arActs("MSG",Action,1))'="" Set tmpBody=arActs("MSG",Action,1) . Else Set tmpBody=$LG(lbActionDefs,4) . Do ..ActEmail($LB($LG(lbActionDefs,1),$LG(lbActionDefs,2),$LG(lbActionDefs,3),tmpBody,0,$LG(lbActionDefs,6)),.arErrInfo) Else If Action="LogDB" Do . Do ..ActLogDB(lbActionDefs,.arErrInfo) Else If Action="Redir" Do . Do ..ActRedir($LB($LG(arActs("ACTIONS",Action),1)),.arErrInfo,"") Else If Action="CustomCOS" Do . Else If Action="CustomJS" Do . Else Do . ; Nothing Quit ]]>