Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepaler/BasisTest.cls.xml
===================================================================
diff -u -r29059 -r30504
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepaler/BasisTest.cls.xml	(.../BasisTest.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepaler/BasisTest.cls.xml	(.../BasisTest.cls.xml)	(revision 30504)
@@ -7,22 +7,24 @@
 <Super>vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.impl.BasisTest</Super>
 
 <Method name="GeefEindklantEenheidPrijs">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
-	set VerkoopPrijsBepaler = ##class(vhTest.Fake.APPS.EC.VerkoopPrijsBepaler).%New(..EenheidPrijs)
-	set PrijsBepalerFactory = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService.PrijsFactorBepalerFactory).%New()
-	set PrijsFactorBepalerStub = ##class(vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.impl.PrijsFactorBepaler.SFSPrijsFactorBepalerMock).%New()
-	do PrijsBepalerFactory.IndienMethodCall("GeefPrijsFactorBepaler",##class(Tools.Mock.ArgumentMatchers.ElkeWaarde).%New()).DanReturn(PrijsFactorBepalerStub)
+	#dim VerkoopPrijsBepaler As APPS.EC.VerkoopPrijsBepaler = ##class(vhTest.Fake.APPS.EC.VerkoopPrijsBepaler).%New(..EenheidPrijs)
+	#dim PrijsBepalerFactory As APPS.EC.Winkelkar.WinkelkarService.PrijsFactorBepalerFactory = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService.PrijsFactorBepalerFactory).%New()
+	#dim PrijsFactorBepalerStub As APPS.EC.Winkelkar.WinkelkarService.PrijsFactorBepaler = ##class(vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.impl.PrijsFactorBepaler.SFSPrijsFactorBepalerMock).%New()
+	
+	do PrijsBepalerFactory.IndienMethodCall("GeefPrijsFactorBepaler", $$$ElkeWaarde).DanReturn(PrijsFactorBepalerStub)
+	
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..GeefKlantID()
 	#dim PersonalityID As DOM.common.enu.Personality = ..GeefPersonality().GeefID()
 	
-	Set PrijsBepaler = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler).%New(VerkoopPrijsBepaler,PrijsBepalerFactory)
+	#dim PrijsBepaler As APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler).%New(VerkoopPrijsBepaler, PrijsBepalerFactory)
 	
-	Do ..VulInMaatwerkLijn(IngegevenKenmerken)
+	do ..VulInMaatwerkLijn(IngegevenKenmerken)
 	
- 	Quit PrijsBepaler.BerekenPrijzen(..Winkelkar,..MaatwerkLijn).VerkoopPrijs
+ 	quit PrijsBepaler.BerekenPrijzen(..Winkelkar, ..MaatwerkLijn).VerkoopPrijs
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepaler/TestSFSTaorbox.cls.xml
===================================================================
diff -u -r29059 -r30504
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepaler/TestSFSTaorbox.cls.xml	(.../TestSFSTaorbox.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepaler/TestSFSTaorbox.cls.xml	(.../TestSFSTaorbox.cls.xml)	(revision 30504)
@@ -5,33 +5,49 @@
 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.PrijsFactorBepaler.BasisTest</Super>
+<Super>vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.impl.PrijsFactorBepaler.BasisTest,DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
 <Parameter name="EenheidPrijs">
 <Type>%Decimal</Type>
 <Default>10</Default>
 </Parameter>
 
+<Property name="TAORKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	
+	set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenlade()
+]]></Implementation>
+</Method>
+
 <Method name="TestPrijsFactorMetGeleiders">
 <Implementation><![CDATA[
-	#dim InclusiefGeleiders As %Boolean = 1
-	#dim EindklantEenheidPrijs As  %Decimal = ..GeefEindklantEenheidPrijs(##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerken(InclusiefGeleiders))
-	Do $$$AssertEquals(EindklantEenheidPrijs,10*..#EenheidPrijs,"Factor 10 voor TAORbox met Geleiders.")
+	#dim EindklantEenheidPrijs As  %Decimal = ..GeefEindklantEenheidPrijs(..TAORKenmerken)
+	
+	do $$$AssertEquals(EindklantEenheidPrijs, 10 * ..#EenheidPrijs, "Factor 10 voor TAORbox met Geleiders.")
 ]]></Implementation>
 </Method>
 
 <Method name="TestPrijsFactorZonderGeleiders">
 <Implementation><![CDATA[
-	#dim InclusiefGeleiders As %Boolean = 0
-	#dim EindklantEenheidPrijs As  %Decimal = ..GeefEindklantEenheidPrijs(##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerken(InclusiefGeleiders))
-	Do $$$AssertEquals(EindklantEenheidPrijs,11*..#EenheidPrijs,"Factor 11 voor TAORbox met Geleiders.")
+	do ..TAORKenmerken.NietMeeleveren.Insert(..Enum.Rol.Glijder)
+
+	#dim EindklantEenheidPrijs As  %Decimal = ..GeefEindklantEenheidPrijs(..TAORKenmerken)
+
+	do $$$AssertEquals(EindklantEenheidPrijs, 11 * ..#EenheidPrijs, "Factor 11 voor TAORbox zonder Geleiders.")
 ]]></Implementation>
 </Method>
 
 <Method name="GeefPersonality">
 <Private>1</Private>
 <ReturnType>DOM.common.Personality</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.common.SFSPersonality).Instance()
+<Implementation><![CDATA[	quit ##class(DOM.common.SFSPersonality).Instance()
 ]]></Implementation>
 </Method>
 </Class>