Index: BL/EC/Common.mac.rou =================================================================== diff -u -r2171 -r2208 --- BL/EC/Common.mac.rou (.../Common.mac.rou) (revision 2171) +++ BL/EC/Common.mac.rou (.../Common.mac.rou) (revision 2208) @@ -67,6 +67,7 @@ continue:Variabel="Variabel" continue:Variabel="VariabelData" continue:Variabel="Info" + continue:Variabel="Exception" if $isobject($get(@Variabel)) { set VariabelData = $$ObjToText^vhLib(@Variabel) } else { set VariabelData = $get(@Variabel) } set Variabels = Variabels _ $C(13,10) _Variabel_" = " _ VariabelData Index: vhRES.mac.rou =================================================================== diff -u -r2163 -r2208 --- vhRES.mac.rou (.../vhRES.mac.rou) (revision 2163) +++ vhRES.mac.rou (.../vhRES.mac.rou) (revision 2208) @@ -107,7 +107,9 @@ set $ztrap="" New msg,Exception set Exception = ##class(TECH.ExceptionHandler).Catch() - Set msg="EXECUTE FOUT: "_sTyp_"`"_sExecTxt_"`"_$G(sParList)_$char(13,10)_Exception.ToString()_$char(13,10)_$$GetJobInfo^vhLib.System() + Set msg="EXECUTE FOUT: "_sTyp_"`"_sExecTxt_"`"_$G(sParList)_$char(13,10)_Exception.ToString()_ + $C(13,10)_"VARIABELEN : "_$C(13,10)_$$GetVariabelen^BL.EC.Common()_$char(13,10)_$$GetJobInfo^vhLib.System() + do ##class(vhLib.Logger).%New("ADMIN-ERROR").ErrorMail("ExecTrap^vhRES : "_Exception.GeefOmschrijving(),msg) Do:($D(MApplication)) MApplication.MessageBox(msg) ; Foutmelding voor Makova Set:$L(sRet) @sRet=""