Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml
===================================================================
diff -u -r40992 -r40998
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 40992)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 40998)
@@ -3,20 +3,26 @@
 <Class name="vhUnitTest.APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: ">
+<Method name="Test: converteerd en verzend de winkelkar naar vhisie4 en geeft IntractoId weer">
 <Implementation><![CDATA[
 	Set Response = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
 	Set Response.Winkelkar.Status = "Geslaagd"
 	
-	Set SenderMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New()
-	Do SenderMock.VerwachtMethodCall("Send", $$$ElkeWaarde).DanReturn(Response)
+	Set WinkelkarMatcher = ##class(Tools.Mock.ArgumentMatchers.ObjectMatcher).%New(..GeefVhisie4Winkelkar())
 	
-	Set Converteerder = ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New(SenderMock)
+	Set SenderMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New()
+	Do SenderMock.VerwachtMethodCall("Send", WinkelkarMatcher).DanReturn(Response)
+
+	Set DateTimeAPIMock	= ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
+	Do DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog").DanReturn("64387,35360")
+
+	Set Converteerder = ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New(SenderMock, DateTimeAPIMock)
 	#dim IntractoID As %String = Converteerder.Converteer(..GeefWinkelkar() ,..GeefVanHoeckeKlant())
 	
 	Do $$$AssertEquals(IntractoID, Response.Winkelkar.IntractoId)
 	
 	Do SenderMock.Verifieer()
+	Do DateTimeAPIMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -29,6 +35,7 @@
 	Set Winkelkar.shoppingCart = ##class(APPS.Blum.OnlineProductConfigurator.dto.ShoppingCart).%New()
 	Set Winkelkar.shoppingCart.directories = ##class(%ListOfObjects).%New()
 	Set Winkelkar.shoppingCart.identnumbers = ##class(%ListOfObjects).%New()
+	Set Winkelkar.userName = "dummy@dum.my"
 	Quit Winkelkar
 ]]></Implementation>
 </Method>
@@ -41,6 +48,19 @@
 	Quit Klant
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVhisie4Winkelkar">
+<ReturnType>WS.Vhisie4.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set Vhisie4Winkelkar = ##class(WS.Vhisie4.Winkelkar.dto.Winkelkar).%New()
+	Set Vhisie4Winkelkar.Id = "6438735360"
+	Set Vhisie4Winkelkar.KlantId = "K||1234"
+	Set Vhisie4Winkelkar.Referentie = "Blum OPC dummy@dum.my 04/14/17"
+	Set Vhisie4Winkelkar.CommissieReferentie = ""
+
+	Quit Vhisie4Winkelkar
+]]></Implementation>
+</Method>
 </Class>