Index: AX/AifMessage/event/RequestSendEvent.cls.xml
===================================================================
diff -u -r35033 -r35197
--- AX/AifMessage/event/RequestSendEvent.cls.xml	(.../RequestSendEvent.cls.xml)	(revision 35033)
+++ AX/AifMessage/event/RequestSendEvent.cls.xml	(.../RequestSendEvent.cls.xml)	(revision 35197)
@@ -3,6 +3,11 @@
 <Class name="AX.AifMessage.event.RequestSendEvent">
 <Super>TECH.PubSub.Event</Super>
 
+<Property name="Data">
+<Type>AX.AifMessage.event.RequestSendEventData</Type>
+<Parameter name="CLASSNAME" value="1"/>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 </Storage>
Index: vhUnitTest/AXimpl/AifMessage/EventHandler/RequestLogger/RequestLoggerSpy.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/AifMessage/EventHandler/RequestLogger/RequestLoggerSpy.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/AifMessage/EventHandler/RequestLogger/RequestLoggerSpy.cls.xml	(revision 35197)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.AifMessage.EventHandler.RequestLogger.RequestLoggerSpy">
+<Super>AXimpl.AifMessage.EventHandler.RequestLogger</Super>
+
+<Method name="Log">
+<FormalSpec>Command:%String,Id:%String,Message:AXaif.Message.Envelope,MessageStream:%Stream.Object</FormalSpec>
+<Implementation><![CDATA[
+	Set %RequestLoggerSpy("Command") = Command
+	Set %RequestLoggerSpy("Id") = Id
+	Set %RequestLoggerSpy("Message") = Message
+	Set %RequestLoggerSpy("MessageStream") = MessageStream
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/AifMessage/EventHandler/RequestLogger.cls.xml
===================================================================
diff -u -r35033 -r35197
--- AXimpl/AifMessage/EventHandler/RequestLogger.cls.xml	(.../RequestLogger.cls.xml)	(revision 35033)
+++ AXimpl/AifMessage/EventHandler/RequestLogger.cls.xml	(.../RequestLogger.cls.xml)	(revision 35197)
@@ -6,7 +6,13 @@
 <Method name="StartVerwerking">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Event:AX.AifMessage.event.RequestSendEvent</FormalSpec>
+<Implementation><![CDATA[	Do ..%New().Log(Event.Data.Command,Event.Data.Id,Event.Data.Message,Event.Data.MessageStream)
+]]></Implementation>
 </Method>
+
+<Method name="Log">
+<FormalSpec>Command:%String,Id:%String,Message:AXaif.Message.Envelope,MessageStream:%Stream.Object</FormalSpec>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AXimpl/AifMessage/EventHandler/RequestLogger/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/AifMessage/EventHandler/RequestLogger/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/AifMessage/EventHandler/RequestLogger/Test.cls.xml	(revision 35197)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.AifMessage.EventHandler.RequestLogger.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	Kill %RequestLoggerSpy
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Kill %RequestLoggerSpy
+	do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Eventdata wordt correct doorgegeven">
+<Implementation><![CDATA[
+	Set Data = ##class(AX.AifMessage.event.RequestSendEventData).%New()
+	Set Data.Command = "oink"
+	Set Data.Id = "0"
+	Set Data.Message = ##class(AXaif.Message.Envelope).%New()
+	Set Data.MessageStream = ##class(%GlobalCharacterStream).%New()
+
+	Set Event = ##class(AX.AifMessage.event.RequestSendEvent).%New(Data)
+	
+    Set RequestLoggerSpy = ##class(vhUnitTest.AXimpl.AifMessage.EventHandler.RequestLogger.RequestLoggerSpy).%New()
+    Do RequestLoggerSpy.StartVerwerking(Event)
+  
+    Do $$$AssertEquals(%RequestLoggerSpy("Command"),Data.Command)
+    Do $$$AssertEquals(%RequestLoggerSpy("Id"),Data.Id)
+    Do $$$AssertEquals(%RequestLoggerSpy("Message"),Data.Message)
+    Do $$$AssertEquals(%RequestLoggerSpy("MessageStream"),Data.MessageStream)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>