Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml
===================================================================
diff -u -r41016 -r41017
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 41016)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 41017)
@@ -3,119 +3,148 @@
 <Class name="vhUnitTest.APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: converteert en verzendt de cumulated winkelkar met productlijn naar vhisie4 en geeft IntractoId weer">
+<Property name="VanHoeckeKlant">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vhisie4Winkelkar">
+<Type>WS.Vhisie4.Winkelkar.dto.Winkelkar</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Response">
+<Type>WS.Vhisie4.WinkelkarExport.SendResponse</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SenderMock">
+<Type>vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DateTimeAPIMock">
+<Type>vhTest.Mock.TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantPrijsBepalerMock">
+<Type>vhTest.Mock.APPS.VKP.KlantPrijsBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopPrijsAPIMock">
+<Type>vhTest.Mock.APPS.VKP.VerkoopPrijsAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converteerder">
+<Type>APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CurrentDate">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim VanHoeckeKlant As DOM.VKP.VanHoeckeKlant = ..GeefVanHoeckeKlant()
-	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefcumulatedWinkelkar()
+	Do ##super(aTestName)
+
+	Set ..CurrentDate = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+
+	Set ..VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Set ..Vhisie4Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.dto.Winkelkar).BLUMOPCWinkelkar()
+	Set ..Response = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
 	
-	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", ..Matches.DataTransferObject(..GeefVhisie4Winkelkar())).DanReturn(Response)
+	Set ..SenderMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New()
+	Set ..DateTimeAPIMock	= ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
+	Set ..KlantPrijsBepalerMock = ##class(vhTest.Mock.APPS.VKP.KlantPrijsBepaler).%New()
+	Set ..VerkoopPrijsAPIMock = ##class(vhTest.Mock.APPS.VKP.VerkoopPrijsAPI).%New()
 
-	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, ..VerkoopPrijsAPIMock)
+]]></Implementation>
+</Method>
 
-	Set KlantPrijsBepalerMock = ##class(vhTest.Mock.APPS.VKP.KlantPrijsBepaler).%New()
-	#dim CurrentDate As %Date = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
-	Do KlantPrijsBepalerMock.VerwachtMethodCall("GeefPrijsInformatie", "identnumber", 10, CurrentDate).DanReturn(50)
+<Method name="Test: converteert en verzendt de cumulated winkelkar met productlijn naar vhisie4 en geeft IntractoId weer">
+<Implementation><![CDATA[
+	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefcumulatedWinkelkar()
 	
-	Set VerkoopPrijsAPIMock = ##class(vhTest.Mock.APPS.VKP.VerkoopPrijsAPI).%New()
-	Do VerkoopPrijsAPIMock.VerwachtMethodCall("GeefKlantPrijsBepaler", VanHoeckeKlant).DanReturn(KlantPrijsBepalerMock)
+	Set ..Response.Winkelkar.Status = "Geslaagd"
 	
-	Set Converteerder = ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New(SenderMock, DateTimeAPIMock, VerkoopPrijsAPIMock)
-	#dim IntractoID As %String = Converteerder.Converteer(..GeefcumulatedWinkelkar(), VanHoeckeKlant)
+	Do ..SenderMock.VerwachtMethodCall("Send", ..Matches.DataTransferObject(..Vhisie4Winkelkar)).DanReturn(..Response)
+	Do ..DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog").DanReturn("64387,35360")
+	Do ..KlantPrijsBepalerMock.VerwachtMethodCall("GeefPrijsInformatie", "identnumber", 10, ..CurrentDate).DanReturn(50)
+	Do ..VerkoopPrijsAPIMock.VerwachtMethodCall("GeefKlantPrijsBepaler", ..VanHoeckeKlant).DanReturn(..KlantPrijsBepalerMock)
 	
-	Do $$$AssertEquals(IntractoID, Response.Winkelkar.IntractoId)
+	#dim IntractoID As %String = ..Converteerder.Converteer(..GeefcumulatedWinkelkar(), ..VanHoeckeKlant)
 	
-	Do SenderMock.Verifieer()
-	Do DateTimeAPIMock.Verifieer()
-	Do VerkoopPrijsAPIMock.Verifieer()
-	Do KlantPrijsBepalerMock.Verifieer()
+	Do $$$AssertEquals(IntractoID, ..Response.Winkelkar.IntractoId)
+	
+	Do ..SenderMock.Verifieer()
+	Do ..DateTimeAPIMock.Verifieer()
+	Do ..VerkoopPrijsAPIMock.Verifieer()
+	Do ..KlantPrijsBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: converteert en verzendt de bpe winkelkar met productlijn naar vhisie4 en geeft IntractoId weer">
 <Implementation><![CDATA[
-	#dim VanHoeckeKlant As DOM.VKP.VanHoeckeKlant = ..GeefVanHoeckeKlant()
 	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefbpeWinkelkar()
 
-	Set Response = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
-	Set Response.Winkelkar.Status = "Geslaagd"
+	Set ..Response.Winkelkar.Status = "Geslaagd"
 	
-	Set SenderMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New()
-	Do SenderMock.VerwachtMethodCall("Send", ..Matches.DataTransferObject(..GeefVhisie4Winkelkar())).DanReturn(Response)
+	Do ..SenderMock.VerwachtMethodCall("Send", ..Matches.DataTransferObject(..Vhisie4Winkelkar)).DanReturn(..Response)
+	Do ..DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog").DanReturn("64387,35360")
+	Do ..KlantPrijsBepalerMock.VerwachtMethodCall("GeefPrijsInformatie", "identnumber", 10, ..CurrentDate).DanReturn(50)
+	Do ..VerkoopPrijsAPIMock.VerwachtMethodCall("GeefKlantPrijsBepaler", ..VanHoeckeKlant).DanReturn(..KlantPrijsBepalerMock)
 
-	Set DateTimeAPIMock	= ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
-	Do DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog").DanReturn("64387,35360")
-
-	Set KlantPrijsBepalerMock = ##class(vhTest.Mock.APPS.VKP.KlantPrijsBepaler).%New()
-	#dim CurrentDate As %Date = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
-	Do KlantPrijsBepalerMock.VerwachtMethodCall("GeefPrijsInformatie", "identnumber", 10, CurrentDate).DanReturn(50)
+	#dim IntractoID As %String = ..Converteerder.Converteer(Winkelkar, ..VanHoeckeKlant)
 	
-	Set VerkoopPrijsAPIMock = ##class(vhTest.Mock.APPS.VKP.VerkoopPrijsAPI).%New()
-	Do VerkoopPrijsAPIMock.VerwachtMethodCall("GeefKlantPrijsBepaler", VanHoeckeKlant).DanReturn(KlantPrijsBepalerMock)
-
-	Set Converteerder = ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New(SenderMock, DateTimeAPIMock, VerkoopPrijsAPIMock)
-	#dim IntractoID As %String = Converteerder.Converteer(Winkelkar, VanHoeckeKlant)
+	Do $$$AssertEquals(IntractoID, ..Response.Winkelkar.IntractoId)
 	
-	Do $$$AssertEquals(IntractoID, Response.Winkelkar.IntractoId)
-	
-	Do SenderMock.Verifieer()
-	Do DateTimeAPIMock.Verifieer()
-	Do VerkoopPrijsAPIMock.Verifieer()
-	Do KlantPrijsBepalerMock.Verifieer()
+	Do ..SenderMock.Verifieer()
+	Do ..DateTimeAPIMock.Verifieer()
+	Do ..VerkoopPrijsAPIMock.Verifieer()
+	Do ..KlantPrijsBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ongekende transfertmode geeft exceptie">
 <Implementation><![CDATA[
-	Set Response = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
-	Set Response.Winkelkar.Status = "Geslaagd"
-	
-	Set SenderStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New()
-	Do SenderStub.IndienMethodCall("Send", ..Matches.DataTransferObject(..GeefVhisie4Winkelkar())).DanReturn(Response)
-
-	Set DateTimeAPIStub	= ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
-	Do DateTimeAPIStub.IndienMethodCall("CurrentHorolog").DanReturn("64387,35360")
-
 	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefbpeWinkelkar()
 	Set Winkelkar.transferMode = "ongekendemode"
 
+	Set ..Response.Winkelkar.Status = "Geslaagd"
+	
+	Do ..SenderMock.IndienMethodCall("Send", $$$ElkeWaarde).DanReturn(..Response)
+	Do ..DateTimeAPIMock.IndienMethodCall("CurrentHorolog").DanReturn("64387,35360")
+	Do ..VerkoopPrijsAPIMock.IndienMethodCall("GeefKlantPrijsBepaler", $$$ElkeWaarde).DanReturn(..KlantPrijsBepalerMock)
+
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Blum OPC - Transfermode ongekendemode niet ondersteund !")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
 	
-	Set Converteerder = ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New(SenderStub, DateTimeAPIStub)
-	#dim IntractoID As %String = Converteerder.Converteer(Winkelkar ,..GeefVanHoeckeKlant())
+	#dim IntractoID As %String = ..Converteerder.Converteer(Winkelkar ,..VanHoeckeKlant)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: gefaalde verzending geeft exceptie">
 <Implementation><![CDATA[
-	#dim VanHoeckeKlant As DOM.VKP.VanHoeckeKlant = ..GeefVanHoeckeKlant()
 	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefbpeWinkelkar()
 	
-	Set Response = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
-	Set Response.Winkelkar.Status = "NIETGeslaagd"
+	Set ..Response.Winkelkar.Status = "NIETGeslaagd"
 	
-	Set SenderStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New()
-	Do SenderStub.IndienMethodCall("Send", ..Matches.DataTransferObject(..GeefVhisie4Winkelkar())).DanReturn(Response)
+	Do ..SenderMock.IndienMethodCall("Send", $$$ElkeWaarde).DanReturn(..Response)
+	Do ..DateTimeAPIMock.IndienMethodCall("CurrentHorolog").DanReturn("64387,35360")
+	Do ..KlantPrijsBepalerMock.IndienMethodCall("GeefPrijsInformatie", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(50)
+	Do ..VerkoopPrijsAPIMock.IndienMethodCall("GeefKlantPrijsBepaler", $$$ElkeWaarde).DanReturn(..KlantPrijsBepalerMock)
 
-	Set DateTimeAPIStub	= ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
-	Do DateTimeAPIStub.IndienMethodCall("CurrentHorolog").DanReturn("64387,35360")
-
-	Set KlantPrijsBepalerStub = ##class(vhTest.Mock.APPS.VKP.KlantPrijsBepaler).%New()
-	Do KlantPrijsBepalerStub.IndienMethodCall("GeefPrijsInformatie", "identnumber", 10, $$$ElkeWaarde).DanReturn(50)
-	
-	Set VerkoopPrijsAPIStub = ##class(vhTest.Mock.APPS.VKP.VerkoopPrijsAPI).%New()
-	Do VerkoopPrijsAPIStub.IndienMethodCall("GeefKlantPrijsBepaler", VanHoeckeKlant).DanReturn(KlantPrijsBepalerStub)
-
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Blum OPC - Er is een fout opgetreden bij het bewaren van de winkelkar voor gebruiker dummy@dum.my!")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
 	
-	Set Converteerder = ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New(SenderStub, DateTimeAPIStub, VerkoopPrijsAPIStub)
-	#dim IntractoID As %String = Converteerder.Converteer(Winkelkar, VanHoeckeKlant)
+	#dim IntractoID As %String = ..Converteerder.Converteer(Winkelkar, ..VanHoeckeKlant)
 ]]></Implementation>
 </Method>
 
@@ -132,19 +161,6 @@
 <Implementation><![CDATA[	Quit ##class(vhTest.Utils.APPS.Blum.OnlineProductConfigurator.dto.Winkelkar).CumulatedWinkelkar()
 ]]></Implementation>
 </Method>
-
-<Method name="GeefVanHoeckeKlant">
-<Private>1</Private>
-<ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
-<Implementation><![CDATA[	Quit ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
-]]></Implementation>
-</Method>
-
-<Method name="GeefVhisie4Winkelkar">
-<ReturnType>WS.Vhisie4.Winkelkar.dto.Winkelkar</ReturnType>
-<Implementation><![CDATA[	Quit ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.dto.Winkelkar).BLUMOPCWinkelkar()
-]]></Implementation>
-</Method>
 </Class>