Index: AXdata/AifMessage/FailedMessage.cls.xml
===================================================================
diff -u
--- AXdata/AifMessage/FailedMessage.cls.xml	(revision 0)
+++ AXdata/AifMessage/FailedMessage.cls.xml	(revision 35386)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXdata.AifMessage.FailedMessage">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Message">
+<Type>AXdata.AifMessage.Message</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Error">
+<Type>AXdata.AifMessage.FailedMessage.Error</Type>
+<Required>1</Required>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AXdata.AifMeD12B.FailedMessageD</DataLocation>
+<DefaultData>FailedMessageDefaultData</DefaultData>
+<IdLocation>^AXdata.AifMeD12B.FailedMessageD</IdLocation>
+<IndexLocation>^AXdata.AifMeD12B.FailedMessageI</IndexLocation>
+<StreamLocation>^AXdata.AifMeD12B.FailedMessageS</StreamLocation>
+<Data name="FailedMessageDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Message</Value>
+</Value>
+<Value name="3">
+<Value>Error</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: AX/AifMessage/FailedMessageRepository.cls.xml
===================================================================
diff -u
--- AX/AifMessage/FailedMessageRepository.cls.xml	(revision 0)
+++ AX/AifMessage/FailedMessageRepository.cls.xml	(revision 35386)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.AifMessage.FailedMessageRepository">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="Maak">
+<Abstract>1</Abstract>
+<ReturnType>AXdata.AifMessage.FailedMessage</ReturnType>
+</Method>
+
+<Method name="Bewaar">
+<Abstract>1</Abstract>
+<FormalSpec>FailedMessage:AXdata.AifMessage.FailedMessage</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/AifMessage/EventHandler/ResponseLogger/Log/Test.cls.xml
===================================================================
diff -u -r35255 -r35386
--- vhUnitTest/AXimpl/AifMessage/EventHandler/ResponseLogger/Log/Test.cls.xml	(.../Test.cls.xml)	(revision 35255)
+++ vhUnitTest/AXimpl/AifMessage/EventHandler/ResponseLogger/Log/Test.cls.xml	(.../Test.cls.xml)	(revision 35386)
@@ -3,31 +3,27 @@
 <Class name="vhUnitTest.AXimpl.AifMessage.EventHandler.ResponseLogger.Log.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test">
+<Method name="Test: Standaard gedrag">
 <Implementation><![CDATA[
 	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
 	
+	#dim StoredMessage As AXdata.AifMessage.Message = ..GetStoredMessage()
 	
-	set StoredMessage = ##class(AXdata.AifMessage.Message).%New()
-	set StoredMessage.Command = "SalesInvoice/Create"
-	set StoredMessage.Action = "http://schemas.microsoft.com/dynamics/2008/01/services/GeneralJournalService/create"
-	set StoredMessage.Status = "Pending"
-	set StoredMessage.Request.GUID = "{123456-ABC-1234567}"
-	set StoredMessage.Request.TimeStamp = "2011-06-30 09:00:00"
-	do StoredMessage.Request.Stream.Write("<?xml version=""1.0"" encoding=""UTF-8""?> ... Request")
-			
 	set MessageRepositoryMock = ##class(vhTest.Mock.AX.AifMessage.MessageRepository).%New()
 	do MessageRepositoryMock.VerwachtMethodCall("GeefViaRequestGuid","{123456-ABC-1234567}").DanReturn(StoredMessage)
 	do MessageRepositoryMock.VerwachtMethodCall("Bewaar",StoredMessage)
 	
+	set FailedMessageRepositoryMock = ##class(vhTest.Mock.AX.AifMessage.FailedMessageRepository).%New()
+	do FailedMessageRepositoryMock.VerwachtMethodCall("Maak").ExactAantalKeer(0)
+		
 	set ResponseMessage = ##class(AXaif.Message.Envelope).%New()
 	set ResponseMessage.Header.MessageId = "{654321-ABC-7654321}"
 	set ResponseMessage.Header.RequestMessageId = "{123456-ABC-1234567}"
 
 	set MessageStream = ##class(%GlobalCharacterStream).%New()
 	do MessageStream.Write("<?xml version=""1.0"" encoding=""UTF-8""?> ... Response")
 	
-	set ReponseLogger = ##class(AXimpl.AifMessage.EventHandler.ResponseLogger).%New(MessageRepositoryMock)
+	set ReponseLogger = ##class(AXimpl.AifMessage.EventHandler.ResponseLogger).%New(MessageRepositoryMock,FailedMessageRepositoryMock)
 	do ReponseLogger.Log(ResponseMessage,MessageStream)
 	
 	do $$$AssertEquals(StoredMessage.Status,"Processed")
@@ -38,8 +34,59 @@
 	do $$$AssertEquals(StoredMessage.Response.TimeStamp,"2011-06-30 09:15:00")
 	
 	do MessageRepositoryMock.Verifieer()
+	do FailedMessageRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Foutief gedrag">
+<Implementation><![CDATA[
+	#dim StoredMessage As AXdata.AifMessage.Message = ..GetStoredMessage()
+	set MessageRepositoryStub = ##class(vhTest.Mock.AX.AifMessage.MessageRepository).%New()
+	do MessageRepositoryStub.IndienMethodCall("GeefViaRequestGuid","{123456-ABC-1234567}").DanReturn(StoredMessage)
+	do MessageRepositoryStub.IndienMethodCall("Bewaar",StoredMessage)
+	
+	set FailedMessageRepositoryMock = ##class(vhTest.Mock.AX.AifMessage.FailedMessageRepository).%New()
+	
+	set FailedMessage = ##class(AXdata.AifMessage.FailedMessage).%New()
+	do FailedMessageRepositoryMock.VerwachtMethodCall("Maak").DanReturn(FailedMessage)
+	do FailedMessageRepositoryMock.VerwachtMethodCall("Bewaar",FailedMessage)
+		
+	set ResponseMessage = ##class(AXaif.Message.Envelope).%New()
+	set ResponseMessage.Header.MessageId = "{654321-ABC-7654321}"
+	set ResponseMessage.Header.RequestMessageId = "{123456-ABC-1234567}"
+	set ResponseMessage.Body.MessageParts.Fault.Code = "Error"
+	
+	set FaultMessageList = ##class(AXaif.Fault.AxdFaultMessageList).%New()
+	do FaultMessageList.FaultMessage.SetAt("ErrorDetail","Error")
+	do ResponseMessage.Body.MessageParts.Fault.Detail.FaultMessageList.Insert(FaultMessageList)
+
+	set MessageStream = ##class(%GlobalCharacterStream).%New()
+	
+	set ReponseLogger = ##class(AXimpl.AifMessage.EventHandler.ResponseLogger).%New(MessageRepositoryStub,FailedMessageRepositoryMock)
+	do ReponseLogger.Log(ResponseMessage,MessageStream)
+	
+	do $$$AssertEquals(FailedMessage.Message,StoredMessage)
+	do $$$AssertEquals(FailedMessage.Error.Code,"Error")
+	do $$$AssertEquals(FailedMessage.Error.Detail,"ErrorDetail")
+	
+	do FailedMessageRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GetStoredMessage">
+<Private>1</Private>
+<ReturnType>AXdata.AifMessage.Message</ReturnType>
+<Implementation><![CDATA[
+	set StoredMessage = ##class(AXdata.AifMessage.Message).%New()
+	set StoredMessage.Command = "SalesInvoice/Create"
+	set StoredMessage.Action = "http://schemas.microsoft.com/dynamics/2008/01/services/GeneralJournalService/create"
+	set StoredMessage.Status = "Pending"
+	set StoredMessage.Request.GUID = "{123456-ABC-1234567}"
+	set StoredMessage.Request.TimeStamp = "2011-06-30 09:00:00"
+	do StoredMessage.Request.Stream.Write("<?xml version=""1.0"" encoding=""UTF-8""?> ... Request")
+	quit StoredMessage
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/AX/AifMessage/FailedMessageRepository.cls.xml
===================================================================
diff -u
--- vhTest/Mock/AX/AifMessage/FailedMessageRepository.cls.xml	(revision 0)
+++ vhTest/Mock/AX/AifMessage/FailedMessageRepository.cls.xml	(revision 35386)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.AX.AifMessage.FailedMessageRepository">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AX.AifMessage.FailedMessageRepository,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Bewaar">
+<FormalSpec>FailedMessage:AXdata.AifMessage.FailedMessage</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Bewaar",FailedMessage)
+]]></Implementation>
+</Method>
+
+<Method name="Maak">
+<ReturnType>AXdata.AifMessage.FailedMessage</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Maak")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXdata/AifMessage/FailedMessage/Error.cls.xml
===================================================================
diff -u
--- AXdata/AifMessage/FailedMessage/Error.cls.xml	(revision 0)
+++ AXdata/AifMessage/FailedMessage/Error.cls.xml	(revision 35386)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXdata.AifMessage.FailedMessage.Error">
+<Super>%SerialObject</Super>
+
+<Property name="Code">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Detail">
+<Type>TECH.String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>ErrorState</State>
+<StreamLocation>^AXdata.AifMessage.FaBE01.ErrorS</StreamLocation>
+<Data name="ErrorState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>Code</Value>
+</Value>
+<Value name="2">
+<Value>Detail</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: AXimpl/AifMessage/EventHandler/ResponseLogger.cls.xml
===================================================================
diff -u -r35373 -r35386
--- AXimpl/AifMessage/EventHandler/ResponseLogger.cls.xml	(.../ResponseLogger.cls.xml)	(revision 35373)
+++ AXimpl/AifMessage/EventHandler/ResponseLogger.cls.xml	(.../ResponseLogger.cls.xml)	(revision 35386)
@@ -3,24 +3,30 @@
 <Class name="AXimpl.AifMessage.EventHandler.ResponseLogger">
 <Super>TECH.PubSub.EventHandler</Super>
 
-<Property name="AifMessageRepository">
+<Property name="MessageRepository">
 <Type>AX.AifMessage.MessageRepository</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="FailedMessageRepository">
+<Type>AX.AifMessage.FailedMessageRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="DateTimeAPI">
 <Type>TECH.DateTime.DateTimeAPI</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Repository:AX.AifMessage.MessageRepository</FormalSpec>
+<FormalSpec>MessageRepository:AX.AifMessage.MessageRepository,FailedMessageRepository:AX.AifMessage.FailedMessageRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..AifMessageRepository = $$$Inject(Repository,##class(AXdata.AifMessage.MessageRepository).%New())
+	Set ..MessageRepository = $$$Inject(MessageRepository,##class(AXdata.AifMessage.MessageRepository).%New())
+	set ..FailedMessageRepository = $$$Inject(FailedMessageRepository,##class(AXdata.AifMessage.MessageRepository).%New())
 	Set ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	Quit $$$OK
 ]]></Implementation>
@@ -36,13 +42,21 @@
 <Method name="Log">
 <FormalSpec>Message:AXaif.Message.Envelope,MessageStream:%Stream.Object</FormalSpec>
 <Implementation><![CDATA[
-	#dim AifMessage As AXdata.AifMessage.Message = ..AifMessageRepository.GeefViaRequestGuid(Message.Header.RequestMessageId)
-	Set AifMessage.Status = "Processed"
-	Set AifMessage.Response.TimeStamp = ..DateTimeAPI.CurrentTimeStamp()
-	Set AifMessage.Response.GUID = Message.Header.MessageId
-	Do AifMessage.Response.Stream.CopyFrom(MessageStream)
+	#dim Data As AXdata.AifMessage.Message = ..MessageRepository.GeefViaRequestGuid(Message.Header.RequestMessageId)
+	Set Data.Status = "Processed"
+	Set Data.Response.TimeStamp = ..DateTimeAPI.CurrentTimeStamp()
+	Set Data.Response.GUID = Message.Header.MessageId
+	Do Data.Response.Stream.CopyFrom(MessageStream)
 	
-	Do ..AifMessageRepository.Bewaar(AifMessage)
+	Do ..MessageRepository.Bewaar(Data)
+	
+	if $length(Message.Body.MessageParts.Fault.Code) {
+		#dim FailedMessage As AXdata.AifMessage.FailedMessage = ..FailedMessageRepository.Maak()
+		set FailedMessage.Message = Data
+		set FailedMessage.Error.Code = Message.Body.MessageParts.Fault.Code
+		set FailedMessage.Error.Detail = Message.Body.MessageParts.Fault.Detail.FaultMessageList.GetAt(1).FaultMessage.GetAt(Message.Body.MessageParts.Fault.Code)
+		do ..FailedMessageRepository.Bewaar(FailedMessage)
+	}
 ]]></Implementation>
 </Method>
 </Class>