Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/Test.cls.xml
===================================================================
diff -u -r31253 -r32488
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 31253)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/ControleerWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 32488)
@@ -8,52 +8,52 @@
 <Private>1</Private>
 </Property>
 
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+
+	Set ..WinkelkarControleur = ##class(APPS.EC.Winkelkar.impl.WinkelkarControleur).%New(##class(APPS.OV.impl.KlantInstellingenServiceVanHoecke).%New())
+]]></Implementation>
+</Method>
+
 <Method name="Test: Probox met aantal 1 voor klant optimapack -&gt; geen exceptie verwacht">
-<Implementation><![CDATA[	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).OptimaPack(),1)
+<Implementation><![CDATA[	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).OptimaPack(), 1)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Probox met aantal 5 voor klant andere klant dan optimapack -&gt; exceptie verwacht">
 <Implementation><![CDATA[
-	#Dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("De winkelkar is niet besteld. Om gebruik te maken van het verpakkingstype 'Probox' voor LEGRABOX, moet u minstens 6 LEGRABOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Probox' voor TA'OR BOX, moet u minstens 6 TA'OR BOX lades bestellen. De combinatie van de 2 ladetypes in een 'Probox' is niet mogelijk.")
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("De winkelkar is niet besteld. Om gebruik te maken van het verpakkingstype 'Probox' voor LEGRABOX, moet u minstens 6 LEGRABOX lades bestellen. Om gebruik te maken van het verpakkingstype 'Probox' voor TA'OR BOX, moet u minstens 6 TA'OR BOX lades bestellen. De combinatie van de 2 ladetypes in een 'Probox' is niet mogelijk.")
 	
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidUserInputException", Substrings))
 	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).Keller(), 5)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Probox met aantal 6 voor klant andere klant dan optimapack -&gt; geen exceptie verwacht">
-<Implementation><![CDATA[	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).Keller(),6)
+<Implementation><![CDATA[	Do ..ControleerWinkelkar(##class(DOM.VKP.enu.Klant).Keller(), 6)
 ]]></Implementation>
 </Method>
 
 <Method name="ControleerWinkelkar">
 <FormalSpec>KlantID:DOM.VKP.enu.Klant,Aantal:TECH.Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Winkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")
-	Do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
-	Do Winkelkar.ZetKlantID(KlantID)
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLadeVerpaktIn(##class(DOM.PM.enu.LBXVerpakkingType).Probox())
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	#dim Winkelkar As DOM.EC.Winkelkar.InterneWinkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")
 	
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).DummyLade()
-	Set LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Probox()
-	Set MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
 	Do MaatwerkLijn.ZetIngegevenKenmerken(LBXKenmerken)
 	Do MaatwerkLijn.ZetAantal(Aantal)
+
+	Do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	Do Winkelkar.ZetKlantID(KlantID)
 	Do Winkelkar.VoegToe(MaatwerkLijn)
 	
 	Do ..WinkelkarControleur.ControleerWinkelkar(Winkelkar)
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ##super(aTestName)
-	Set KlantInstellingenService = ##class(APPS.OV.impl.KlantInstellingenServiceVanHoecke).%New()
-	Set ..WinkelkarControleur = ##class(APPS.EC.Winkelkar.impl.WinkelkarControleur).%New(KlantInstellingenService)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EC/impl/WinkelkarPrijsUpdater/HerberekenLijn/TestHandelMetActie.cls.xml
===================================================================
diff -u -r29059 -r32488
--- vhUnitTest/APPS/EC/impl/WinkelkarPrijsUpdater/HerberekenLijn/TestHandelMetActie.cls.xml	(.../TestHandelMetActie.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/impl/WinkelkarPrijsUpdater/HerberekenLijn/TestHandelMetActie.cls.xml	(.../TestHandelMetActie.cls.xml)	(revision 32488)
@@ -40,35 +40,33 @@
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestCase:%String</FormalSpec>
 <Implementation><![CDATA[
-	do ##super(aTestCase)
+	Do ##super(aTestCase)
 	
-	do ..InitWinkelkar()
+	Do ..InitWinkelkar()
 	
-	set ..DummyIKID = ##class(vhTest.Fake.DOM.PM.Maatwerk.Calc.Common.IKID).%New()
-	#dim DummyIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).DummyLade()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()		
+	#dim MaatwerkCalcAPI As DOM.PM.MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.MaatwerkCalcAPI).MockInstance()
+	#dim IngegevenKenmerkenAPI As DOM.PM.IngegevenKenmerkenAPI = ##class(vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI).MockInstance()
+	#dim KostItemUtils As vhTest.Utils.DOM.PM.Maatwerk.Calc.KostItem = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.KostItem).%New()
+	#dim HalffabItemsUtils As vhTest.Utils.DOM.PM.Maatwerk.Calc.HF.HalffabItem = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.HF.HalffabItem).%New()
+	#dim Personality As DOM.common.Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	#dim HandelKlantIDBijVanHoecke As %String = "K||12486"
 	
-	set ..VerkoopPrijsAPI = ##class(vhTest.Fake.DOM.VKP.VerkoopPrijsAPI).FakeInstance()
+	Set ..DummyIKID = ##class(vhTest.Fake.DOM.PM.Maatwerk.Calc.Common.IKID).%New()	
+	Set ..VerkoopPrijsAPI = ##class(vhTest.Fake.DOM.VKP.VerkoopPrijsAPI).FakeInstance()
+	Set ..GeldigeActieBepaler = ##class(vhTest.Fake.APPS.EC.Winkelkar.GeldigeActieBepaler).%New()
+	Set ..PrijsBerekeningPrijsBepaler = ##class(vhTest.Fake.APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler).%New()
 	
-	set ..GeldigeActieBepaler = ##class(vhTest.Fake.APPS.EC.Winkelkar.GeldigeActieBepaler).%New()
-	set ..PrijsBerekeningPrijsBepaler = ##class(vhTest.Fake.APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler).%New()
+	Do IngegevenKenmerkenAPI.IndienMethodCall("GeefIngegevenKenmerken", ..DummyIKID).DanReturn(LBXKenmerken)
 	
-	#dim IngegevenKenmerkenAPI As DOM.PM.IngegevenKenmerkenAPI = ##class(vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI).MockInstance()
-		do IngegevenKenmerkenAPI.IndienMethodCall("GeefIngegevenKenmerken",..DummyIKID).DanReturn(DummyIngegevenKenmerken)
-		
-	#dim MaatwerkCalcAPI As DOM.PM.MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.MaatwerkCalcAPI).MockInstance()
-		set KostItemUtils = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.KostItem).%New()
-		set HalffabItemsUtils = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.HF.HalffabItem).%New()
-		#dim VanHoeckePersonality As DOM.common.Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
-		#dim HandelKlantIDBijVanHoecke As %String = "K||12486"
-		do MaatwerkCalcAPI.IndienMethodCall("GeefKostItemsBoom",DummyIngegevenKenmerken,..#Aantal,HandelKlantIDBijVanHoecke,VanHoeckePersonality).DanReturn(KostItemUtils.GeefSimpeleKostItemBoom())
-		do MaatwerkCalcAPI.IndienMethodCall("GeefHalffabItemsBoom",DummyIngegevenKenmerken,1  ,HandelKlantIDBijVanHoecke,VanHoeckePersonality).DanReturn(HalffabItemsUtils.GeefDummyHalffabItemsBoom())
+	Do MaatwerkCalcAPI.IndienMethodCall("GeefKostItemsBoom", LBXKenmerken, ..#Aantal, HandelKlantIDBijVanHoecke, Personality).DanReturn(KostItemUtils.GeefSimpeleKostItemBoom())
+	Do MaatwerkCalcAPI.IndienMethodCall("GeefHalffabItemsBoom", LBXKenmerken, 1, HandelKlantIDBijVanHoecke, Personality).DanReturn(HalffabItemsUtils.GeefDummyHalffabItemsBoom())
 ]]></Implementation>
 </Method>
 
 <Method name="Test : PrijsBerekeningPrijsBepaler correct opgeroepen en de naar boven afgeronde bedragen op de lijn geplaatst">
 <Implementation><![CDATA[
 	#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ..GeefMaatwerkLijn(..#Aantal)
-	
 	#dim PersonalityID As DOM.common.Personality = ..Winkelkar.GeefPersonality().GeefID()
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Winkelkar.GeefKlantID()
 
@@ -92,14 +90,14 @@
 <Method name="Test: Niet actieve worden verwijderd van de lijst 01">
 <Implementation><![CDATA[
 	#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ..GeefMaatwerkLijn(..#Aantal)
-	do Lijn.VoegToeActie(##class(DOM.EC.Winkelkar.PrijsLijnActie).%New("Actie1"))
-	do Lijn.VoegToeActie(##class(DOM.EC.Winkelkar.PrijsLijnActie).%New("Actie2"))
+	Do Lijn.VoegToeActie(##class(DOM.EC.Winkelkar.PrijsLijnActie).%New("Actie1"))
+	Do Lijn.VoegToeActie(##class(DOM.EC.Winkelkar.PrijsLijnActie).%New("Actie2"))
 	
-	set ..GeldigeActieBepaler = ##class(vhTest.Fake.APPS.EC.Winkelkar.GeldigeActieBepaler).%New(##class(TECH.ListUtils).CreateListOfObjects(##class(DOM.EC.Winkelkar.PrijsLijnActie).%New("Actie3")))
-	do ..BerekenMaatwerkLijnPrijs(Lijn)
+	Set ..GeldigeActieBepaler = ##class(vhTest.Fake.APPS.EC.Winkelkar.GeldigeActieBepaler).%New(##class(TECH.ListUtils).CreateListOfObjects(##class(DOM.EC.Winkelkar.PrijsLijnActie).%New("Actie3")))
+	Do ..BerekenMaatwerkLijnPrijs(Lijn)
 	
-	if $$$AssertEquals(Lijn.GeefActies().Count(),1) {
-		do $$$AssertEquals(Lijn.GeefActies().GetAt(1).ID,"Actie3")
+	If $$$AssertEquals(Lijn.GeefActies().Count(), 1) {
+		Do $$$AssertEquals(Lijn.GeefActies().GetAt(1).ID, "Actie3")
 	}
 ]]></Implementation>
 </Method>
@@ -121,8 +119,8 @@
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set WinkelkarPrijsUpdater = ##class(APPS.EC.impl.WinkelkarPrijsUpdater).%New(..PrijsBerekeningPrijsBepaler,..GeldigeActieBepaler)
-	Do WinkelkarPrijsUpdater.HerberekenLijn(..Winkelkar,Lijn)
+	Set WinkelkarPrijsUpdater = ##class(APPS.EC.impl.WinkelkarPrijsUpdater).%New(..PrijsBerekeningPrijsBepaler, ..GeldigeActieBepaler)
+	Do WinkelkarPrijsUpdater.HerberekenLijn(..Winkelkar, Lijn)
 ]]></Implementation>
 </Method>
 
@@ -133,9 +131,10 @@
 	#dim HandelPersonalityID As  DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).SFS()
 	#dim EindKlantID As DOM.VKP.VanHoeckeKlantID = "SFS_Klant_1"
 	
-	set ..Winkelkar = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New($$$DummyString)
-	do ..Winkelkar.ZetPersonalityID(HandelPersonalityID)
-	do ..Winkelkar.ZetKlantID(EindKlantID)
+	Set ..Winkelkar = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New($$$DummyString)
+	
+	Do ..Winkelkar.ZetPersonalityID(HandelPersonalityID)
+	Do ..Winkelkar.ZetKlantID(EindKlantID)
 ]]></Implementation>
 </Method>
 
@@ -145,9 +144,11 @@
 <ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
 <Implementation><![CDATA[
 	#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhTest.Fake.DOM.EC.Winkelkar.MaatwerkLijn).%New()
-	do Lijn.ZetIKID(..DummyIKID)
-	do Lijn.ZetAantal(Aantal)
-	quit Lijn
+	
+	Do Lijn.ZetIKID(..DummyIKID)
+	Do Lijn.ZetAantal(Aantal)
+	
+	Quit Lijn
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/TestActies.cls.xml
===================================================================
diff -u -r29059 -r32488
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/TestActies.cls.xml	(.../TestActies.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/TestActies.cls.xml	(.../TestActies.cls.xml)	(revision 32488)
@@ -1,40 +1,39 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler.TestActies">
-<Description>
-do ##class(vhUnitTest.Manager).RunTest("/debug/Display=all","APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler.TestSFSLegrabox")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler.BasisTest</Super>
 
 <Method name="TestPrijsFactorBijGeldigeActie">
 <Implementation><![CDATA[
-	do ..Acties.Insert(##class(DOM.EC.Winkelkar.PrijsLijnActie).%New("Actie1"))
-	do ..Acties.Insert(##class(DOM.EC.Winkelkar.PrijsLijnActie).%New("Actie2"))
-	#dim ActieCount As %Integer = ..Acties.Count()
+	Do ..Acties.Insert(##class(DOM.EC.Winkelkar.PrijsLijnActie).%New("Actie1"))
+	Do ..Acties.Insert(##class(DOM.EC.Winkelkar.PrijsLijnActie).%New("Actie2"))
 	
-	set ..EenheidPrijs = 10
-	set ..PrijsFactor = 20
-	#dim EindklantEenheidPrijs As %Decimal = ..GeefEindklantEenheidPrijs(##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).DummyLade())
+	Set ..EenheidPrijs = 10
+	Set ..PrijsFactor = 20
 	
-	do $$$AssertEquals(ActieCount,..MaatwerkLijn.GeefActies().Count())
-	do $$$AssertEquals(EindklantEenheidPrijs,140,"(EenheidPrijs - Korting) * PrijsFactor")
-	set Iterator = ##class(TECH.ListIterator).%New(..MaatwerkLijn.GeefActies())
+	#dim EindklantEenheidPrijs As %Decimal = ..GeefEindklantEenheidPrijs(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken())
 	
-	do $$$AssertEquals(Iterator.Next().KortingBedrag,20, "=1*PrijsFactor")
-	do $$$AssertEquals(Iterator.Next().KortingBedrag,40, "=2*PrijsFactor")
+	Do $$$AssertEquals(..Acties.Count(), ..MaatwerkLijn.GeefActies().Count())
+	Do $$$AssertEquals(EindklantEenheidPrijs, 140, "(EenheidPrijs - Korting) * PrijsFactor")
+	
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..MaatwerkLijn.GeefActies())
+	
+	Do $$$AssertEquals(Iterator.Next().KortingBedrag, 20, "=1*PrijsFactor")
+	Do $$$AssertEquals(Iterator.Next().KortingBedrag, 40, "=2*PrijsFactor")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Indien geen kortingbedrag kan bepaald worden dan exceptie">
 <Implementation><![CDATA[
 	Do ..ZetKortingBepalerZonderKorting()
 
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Korting van volgende acties kon niet bepaald worden","ActieOnbepaald1")
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.GeneralErrorException,Substrings))
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Korting van volgende acties kon niet bepaald worden", "ActieOnbepaald1")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.GeneralErrorException, Substrings))
 	
-	do ..Acties.Insert(##class(DOM.EC.Winkelkar.PrijsLijnActie).%New("ActieOnbepaald1"))
-	#dim EindklantEenheidPrijs As %Decimal = ..GeefEindklantEenheidPrijs(##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).DummyLade())
+	Do ..Acties.Insert(##class(DOM.EC.Winkelkar.PrijsLijnActie).%New("ActieOnbepaald1"))
+	#dim EindklantEenheidPrijs As %Decimal = ..GeefEindklantEenheidPrijs(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken())
 ]]></Implementation>
 </Method>
 
@@ -47,13 +46,13 @@
 	
 	do ..Acties.Insert(##class(DOM.EC.Winkelkar.PrijsLijnActie).%New("Actie1"))
 	do ..Acties.Insert(##class(DOM.EC.Winkelkar.PrijsLijnActie).%New("Actie2"))
-	#dim EindklantEenheidPrijs As %Decimal = ..GeefEindklantEenheidPrijs(##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).DummyLade())
+	#dim EindklantEenheidPrijs As %Decimal = ..GeefEindklantEenheidPrijs(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken())
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Indien geen acties geen exceptie">
 <Implementation><![CDATA[
-	#dim EindklantEenheidPrijs As %Decimal = ..GeefEindklantEenheidPrijs(##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).DummyLade())
+	#dim EindklantEenheidPrijs As %Decimal = ..GeefEindklantEenheidPrijs(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken())
 	do $$$AssertTrue(1)
 ]]></Implementation>
 </Method>