Index: AXimpl/MessageInProcessor/ExceptionLogger.cls.xml =================================================================== diff -u -r50140 -r50153 --- AXimpl/MessageInProcessor/ExceptionLogger.cls.xml (.../ExceptionLogger.cls.xml) (revision 50140) +++ AXimpl/MessageInProcessor/ExceptionLogger.cls.xml (.../ExceptionLogger.cls.xml) (revision 50153) @@ -31,13 +31,30 @@ Do ExceptionMessage.WriteLine("") Do ExceptionMessage.CopyFrom(Exception.ToStream()) - If (Exception.%IsA(##class("TECH.Exceptions.InvalidInputException").%ClassName($$$True))) { + If (..IsProductNietGevondenExceptie(Exception)) { Do ..Logger.Warning(Actie, ExceptionMessage) } Else { Do ..Logger.ErrorMail(Actie, ExceptionMessage) } ]]> + + +Exception:TECH.IException +1 +%Boolean + +