Index: vhUnitTest/APPS/VKP/Korting/impl/KortingService/KortingServiceHelper/GeefVariantenVoorPersonality/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Korting/impl/KortingService/KortingServiceHelper/GeefVariantenVoorPersonality/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Korting/impl/KortingService/KortingServiceHelper/GeefVariantenVoorPersonality/Test.cls.xml	(revision 67197)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Korting.impl.KortingService.KortingServiceHelper.GeefVariantenVoorPersonality.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Personality">
+<Type>DOM.common.Personality</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KortingServiceHelper">
+<Type>APPS.VKP.Korting.impl.KortingService.KortingServiceHelper</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..KortingServiceHelper = ##class(APPS.VKP.Korting.impl.KortingService.KortingServiceHelper).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test HaefeleBE">
+<Implementation><![CDATA[
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleBE()
+	
+	#dim Varianten As %ListOfDataTypes = ..KortingServiceHelper.GeefVariantenVoorPersonality(PersonalityID)
+	#dim VerwachteVarianten As %ListOfDataTypes = $ListBuild("TBX_Intivo", "TBX_Antaro", "TBX_Plus")
+	
+	Do $$$AssertEqualsListbuild(Varianten, VerwachteVarianten)
+]]></Implementation>
+</Method>
+
+<Method name="Test HaefeleDE">
+<Implementation><![CDATA[
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleDE()
+	
+	#dim Varianten As %ListOfDataTypes = ..KortingServiceHelper.GeefVariantenVoorPersonality(PersonalityID)
+	#dim VerwachteVarianten As %ListOfDataTypes = $ListBuild("TBX_Antaro", "LBX_Pure", "TAOR")
+	
+	Do $$$AssertEqualsListbuild(Varianten, VerwachteVarianten)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml
===================================================================
diff -u -r61326 -r67197
--- vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml	(.../Test.cls.xml)	(revision 61326)
+++ vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml	(.../Test.cls.xml)	(revision 67197)
@@ -8,14 +8,40 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KortingServiceHelperMock">
+<Type>vhTest.Mock.APPS.VKP.Korting.impl.KortingService.KortingServiceHelper</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestCase)
+	
+	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ##class(%ArrayOfObjects).%New()
+	#dim KortingenVoorKlantList As List of %Decimal = ##class(%ListOfDataTypes).%New()
+	Do KortingConfiguratieArray.SetAt(5.55, "LBX_Pure")
+	Do KortingConfiguratieArray.SetAt(30.3, "TAOR")
+	Do KortingConfiguratieArray.SetAt(10.1, "TBX_Antaro")
+	Do KortingConfiguratieArray.SetAt(10.1, "TBX_Intivo")
+	Do KortingConfiguratieArray.SetAt(10.1, "TBX_Plus")
+
+	Set KortingenVoorKlantIterator = ##class(TECH.ListIterator).%New(KortingenVoorKlantList)
+	
+	Set ..KortingServiceHelperMock = ##class(vhTest.Mock.APPS.VKP.Korting.impl.KortingService.KortingServiceHelper).%New()
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefKortingenVoorKlantIterator", $$$ElkeWaarde, , $$$ElkeWaarde, , $$$ElkeWaarde).DanReturn(KortingenVoorKlantIterator)
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefKortingenVoorKlantIterator", $$$ElkeWaarde, , $$$ElkeWaarde, , $$$ElkeWaarde).DanReturn(KortingenVoorKlantIterator)
+]]></Implementation>
+</Method>
+
 <Method name="Test HaefeleBE">
 <Implementation><![CDATA[
 	#dim CustomerBE As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerBE()
 	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleBE()
 	Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
 	#dim KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst
-		
-	Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New()
+
+	Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New() //,,..KortingServiceHelperMock)
 	Set KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(CustomerBE,PersonalityID)
 		
 	Do ..AssertKortingConfiguratieLijstHaefeleBE(KortingConfiguratieLijst)
@@ -105,6 +131,20 @@
 	Do $$$AssertEquals(KortingConfiguratie.Variant,Variant,Variant)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefCustomerBE">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
+<Implementation><![CDATA[
+	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
+	Set Customer.id = "BE2000001"
+	Do Customer.Reduction.SetAt(16.1,"TBX")
+	Do Customer.Reduction.SetAt(3.14,"LBX")
+	Do Customer.Reduction.SetAt(27.1,"TAX")
+	Do Customer.Reduction.SetAt(14.1,"OL")
+	Quit Customer
+]]></Implementation>
+</Method>
 </Class>