Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/TAX/TestVolumeAandeel.cls.xml
===================================================================
diff -u -r37489 -r37498
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/TAX/TestVolumeAandeel.cls.xml	(.../TestVolumeAandeel.cls.xml)	(revision 37489)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/TAX/TestVolumeAandeel.cls.xml	(.../TestVolumeAandeel.cls.xml)	(revision 37498)
@@ -12,36 +12,42 @@
 <Type>APPS.EC.Winkelkar.impl.WinkelkarService</Type>
 </Property>
 
+<Property name="WinkelkarFake">
+<Type>DOM.EC.Winkelkar.ExterneWinkelkar</Type>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	do ##super(aTestName)
 
 	set ..VerpakkingServiceMock = ##class(vhTest.Mock.APPS.PM.Maatwerk.impl.VerpakkingService).%New()
-	set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(,,,,,,,,..VerpakkingServiceMock)
+	Set WinkelkarRepository = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Set ..WinkelkarFake = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New($$$DummyString)
+	Do WinkelkarRepository.IndienMethodCall("Maak", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(..WinkelkarFake)
+	Do WinkelkarRepository.IndienMethodCall("Bewaar", $$$ElkeWaarde).DanDoeNiks()
+	Do WinkelkarRepository.IndienMethodCall("GeefViaID", $$$ElkeWaarde).DanReturn(..WinkelkarFake)
+	set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(,,,,,WinkelkarRepository,,,..VerpakkingServiceMock)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: VolumeAandeel wordt bepaald en bewaard bij toevoegen van een TAX lade in probox verpakking">
 <Implementation><![CDATA[
 	#dim GroepNaam As %String = "Groep"
 	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), "SFS_83723", ##class(DOM.common.enu.Personality).SFS())
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
+	#dim IngegevenKenmerken As vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()
 	#dim Aantal As %Integer = 1
 	
 	Do ..VerpakkingServiceMock.VerwachtMethodCall("ProboxVolumeAandeel", $$$ElkeWaarde).DanReturn($$$DummyDecimal)
 	
 	Set Winkelkar = ..WinkelkarService.VoegToeMaatwerkEnGeefWinkelkarTerug(Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, "Dit is de projectreferentie")
-	#dim DOMWinkelKar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).OpenId(Winkelkar.WinkelkarID)
-	#dim GroepLijn As DOM.EC.Winkelkar.GroepLijn = DOMWinkelKar.GeefLijnIterator().Next()
+	#dim LijnIterator As TECH.ListIterator = ..WinkelkarFake.GeefLijnIterator()
+	#dim NegeerTekstLijn As DOM.EC.Winkelkar.Lijn = LijnIterator.Next() 
+	#dim GroepLijn As DOM.EC.Winkelkar.GroepLijn = LijnIterator.Next()
 	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = GroepLijn.SublijnIterator().Next()
 
 	Do $$$AssertEquals(MaatwerkLijn.GeefVolumeAandeel(),$$$DummyDecimal)
-	
-	Set Winkelkar = ..WinkelkarService.VerwijderLijn(Winkelkar.WinkelkarID, Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).LijnID)
-	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(Winkelkar.WinkelkarID)
-
 	Do ..VerpakkingServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
@@ -50,15 +56,13 @@
 <Implementation><![CDATA[
 	#dim GroepNaam As %String = "Groep"
 	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), "SFS_83723", ##class(DOM.common.enu.Personality).SFS())
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
+	#dim IngegevenKenmerken As vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
 	#dim Aantal As %Integer = 1
 	
 	Do ..VerpakkingServiceMock.VerwachtMethodCall("ProboxVolumeAandeel", $$$ElkeWaarde).Nooit()
 	
 	Set Winkelkar = ..WinkelkarService.VoegToeMaatwerkEnGeefWinkelkarTerug(Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, "Dit is de projectreferentie")
-	Set Winkelkar = ..WinkelkarService.VerwijderLijn(Winkelkar.WinkelkarID, Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).LijnID)
-	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(Winkelkar.WinkelkarID)
 
 	Do ..VerpakkingServiceMock.Verifieer()
 ]]></Implementation>
@@ -68,15 +72,13 @@
 <Implementation><![CDATA[
 	#dim GroepNaam As %String = "Groep"
 	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), "SFS_83723", ##class(DOM.common.enu.Personality).SFS())
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
+	#dim IngegevenKenmerken As vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1()
 	#dim Aantal As %Integer = 1
 	
 	Do ..VerpakkingServiceMock.VerwachtMethodCall("ProboxVolumeAandeel", $$$ElkeWaarde).Nooit()
 	
 	Set Winkelkar = ..WinkelkarService.VoegToeMaatwerkEnGeefWinkelkarTerug(Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, "Dit is de projectreferentie")
-	Set Winkelkar = ..WinkelkarService.VerwijderLijn(Winkelkar.WinkelkarID, Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).LijnID)
-	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(Winkelkar.WinkelkarID)
 
 	Do ..VerpakkingServiceMock.Verifieer()
 ]]></Implementation>
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/LBX/TestVolumeAandeel.cls.xml
===================================================================
diff -u -r37489 -r37498
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/LBX/TestVolumeAandeel.cls.xml	(.../TestVolumeAandeel.cls.xml)	(revision 37489)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/LBX/TestVolumeAandeel.cls.xml	(.../TestVolumeAandeel.cls.xml)	(revision 37498)
@@ -12,13 +12,22 @@
 <Type>APPS.EC.Winkelkar.impl.WinkelkarService</Type>
 </Property>
 
+<Property name="WinkelkarFake">
+<Type>DOM.EC.Winkelkar.ExterneWinkelkar</Type>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	do ##super(aTestName)
 
 	set ..VerpakkingServiceMock = ##class(vhTest.Mock.APPS.PM.Maatwerk.impl.VerpakkingService).%New()
-	set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(,,,,,,,,..VerpakkingServiceMock)
+	Set WinkelkarRepository = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Set ..WinkelkarFake = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New($$$DummyString)
+	Do WinkelkarRepository.IndienMethodCall("Maak", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(..WinkelkarFake)
+	Do WinkelkarRepository.IndienMethodCall("Bewaar", $$$ElkeWaarde).DanDoeNiks()
+	Do WinkelkarRepository.IndienMethodCall("GeefViaID", $$$ElkeWaarde).DanReturn(..WinkelkarFake)
+	set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(,,,,,WinkelkarRepository,,,..VerpakkingServiceMock)
 ]]></Implementation>
 </Method>
 
@@ -33,15 +42,12 @@
 	Do ..VerpakkingServiceMock.VerwachtMethodCall("ProboxVolumeAandeel", $$$ElkeWaarde).DanReturn($$$DummyDecimal)
 	
 	Set Winkelkar = ..WinkelkarService.VoegToeMaatwerkEnGeefWinkelkarTerug(Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, "Dit is de projectreferentie")
-	#dim DOMWinkelKar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).OpenId(Winkelkar.WinkelkarID)
-	#dim GroepLijn As DOM.EC.Winkelkar.GroepLijn = DOMWinkelKar.GeefLijnIterator().Next()
+	#dim LijnIterator As TECH.ListIterator = ..WinkelkarFake.GeefLijnIterator()
+	#dim NegeerTekstLijn As DOM.EC.Winkelkar.Lijn = LijnIterator.Next() 
+	#dim GroepLijn As DOM.EC.Winkelkar.GroepLijn = LijnIterator.Next()
 	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = GroepLijn.SublijnIterator().Next()
 
 	Do $$$AssertEquals(MaatwerkLijn.GeefVolumeAandeel(),$$$DummyDecimal)
-
-	Set Winkelkar = ..WinkelkarService.VerwijderLijn(Winkelkar.WinkelkarID, Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).LijnID)
-	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(Winkelkar.WinkelkarID)
-
 	Do ..VerpakkingServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
@@ -57,8 +63,6 @@
 	Do ..VerpakkingServiceMock.VerwachtMethodCall("ProboxVolumeAandeel", $$$ElkeWaarde).Nooit()
 	
 	Set Winkelkar = ..WinkelkarService.VoegToeMaatwerkEnGeefWinkelkarTerug(Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, "Dit is de projectreferentie")
-	Set Winkelkar = ..WinkelkarService.VerwijderLijn(Winkelkar.WinkelkarID, Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).LijnID)
-	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(Winkelkar.WinkelkarID)
 
 	Do ..VerpakkingServiceMock.Verifieer()
 ]]></Implementation>