Index: TECH/Error/impl/ErrorHandler.cls.xml =================================================================== diff -u -r1896 -r1900 --- TECH/Error/impl/ErrorHandler.cls.xml (.../ErrorHandler.cls.xml) (revision 1896) +++ TECH/Error/impl/ErrorHandler.cls.xml (.../ErrorHandler.cls.xml) (revision 1900) @@ -52,7 +52,7 @@ Set Error.StackTrace=..StackTrace(3) if ( Error.ErrorCode["TECH.ExceptionHandler") && ($data(%Exception)) && ($isObject(%Exception) ) { - Set Error.StackTrace=..StackTrace(3) + Set Error.StackTrace=..StackTrace(4) set Error.ErrorCode = $piece(Error.StackTrace," ",6) Set Error.ErrorCode2="`"_%Exception.GeefExceptionCode()_"`"_%Exception.GeefOmschrijving()_"`" } @@ -165,8 +165,7 @@ Set Subj="TECH - ErrorHandler : " _ - $select($length(Error.Label):Error.Label_" : ",1:"") _ Error.ErrorCode _ - $select($length(Error.ErrorCode2):" | "_Error.ErrorCode2,1:"") + $select($length(Error.Label):Error.Label_" : ",1:"") _ Error.ErrorCode Set To = $listbuild(..GetMailAddress(Error)) @@ -191,8 +190,6 @@ set Default = ##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress") - if Error.RemoteIP = "192.168.2.61" set Default = "pv@vanhoecke.be" - Quit Default ]]>