Deze class doet de eigenlijke error afhandeling.
Bouwt het ErrorInfo dataobject, stuurt een email of logged de fout.
De erroinfo is toegankelijk na afhandeling van de de fout via %ErrorObject
TECH.Error
1
%RegisteredObject
62178,56193.223779
62025,48050.831801
0
1
Label:%String,Options:%String
1
Label:%String,Options:%String
1
Label:%String
" { set Error.ErrorCode2=$ECODE }
Set Error.StackTrace=..StackTrace(3)
Set Error.ErrorCode=$ZERROR
}
Set Error.Device=$I
Set Error.Job=$J
Set Error.Server=$ZU(110)
Set Error.NameSpace=$ZU(5)
Do ..SetRemoteIP(Error)
Do ..UserText(Error)
Quit Error
]]>
1
Error:TECH.Error.dto.ErrorInfo
1
1
Error:TECH.Error.dto.ErrorInfo
1
Error:TECH.Error.dto.ErrorInfo
1
Error:TECH.Error.dto.ErrorInfo
1
Error:TECH.Error.dto.ErrorInfo
%String
1
sc:%Status
1
From:%Integer=1
"_$STACK($STACK-i,"MCODE")
Quit Txt
]]>