Index: APPS/VKP/Korting/impl/KortingService.cls.xml
===================================================================
diff -u -r67196 -r67199
--- APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 67196)
+++ APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 67199)
@@ -63,7 +63,7 @@
 	#dim Varianten As %List = ..KortingServiceHelper.GeefVariantenVoorPersonality(PersonalityID)
 	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ##class(%ArrayOfObjects).%New()
 	
-	#dim KortingenVoorKlantIterator As TECH.Iterator = ..KortingServiceHelper.GeefKortingenVoorKlantIterator(Customer)
+	#dim KortingenVoorKlantIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Customer.Reduction)
 	#dim EnuVariant As DOM.PM.enu.Variant
 	#dim Index As %Integer
 	While KortingenVoorKlantIterator.HasNext()
@@ -75,17 +75,32 @@
 		If (Variant = "TBX") {
 			For Index = 1 : 1 : $ListLength(Varianten) {
 				Set EnuVariant = $List(Varianten, Index)
-				Do KortingConfiguratieArray.SetAt(..KortingServiceHelper.GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant)
+				Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant)
 			}
 		} Else {
 			Set EnuVariant = ..KortingServiceHelper.GeefVariant(Variant)
-			Do KortingConfiguratieArray.SetAt(..KortingServiceHelper.GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant)
+			Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant)
 		}
 	}
 	
 	Quit KortingConfiguratieArray
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKortingConfiguratie">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,Variant:DOM.PM.enu.Variant,KortingPercentage:TECH.Percentage,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VKP.dto.KortingConfiguratie</ReturnType>
+<Implementation><![CDATA[
+	Set KortingConfiguratie = ##class(APPS.VKP.dto.KortingConfiguratie).%New()
+	Set KortingConfiguratie.PersonalityID = PersonalityID
+	Set KortingConfiguratie.KlantID = KlantID
+	Set KortingConfiguratie.KortingPercentage = KortingPercentage
+	Set KortingConfiguratie.Familie = ##class(DOM.PM.enu.Familie).Lade()
+	Set KortingConfiguratie.Variant = Variant
+	Quit KortingConfiguratie
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/VKP/Korting/impl/KortingService/KortingServiceHelper.cls.xml
===================================================================
diff -u -r67196 -r67199
--- vhTest/Mock/APPS/VKP/Korting/impl/KortingService/KortingServiceHelper.cls.xml	(.../KortingServiceHelper.cls.xml)	(revision 67196)
+++ vhTest/Mock/APPS/VKP/Korting/impl/KortingService/KortingServiceHelper.cls.xml	(.../KortingServiceHelper.cls.xml)	(revision 67199)
@@ -8,27 +8,6 @@
 <Super>APPS.VKP.Korting.impl.KortingService.KortingServiceHelper,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
-<Method name="GeefKortingConfiguratie">
-<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,Variant:DOM.PM.enu.Variant,KortingPercentage:TECH.Percentage,PersonalityID:DOM.common.enu.Personality</FormalSpec>
-<ReturnType>APPS.VKP.dto.KortingConfiguratie</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKortingConfiguratie",KlantID,Variant,KortingPercentage,PersonalityID)
-]]></Implementation>
-</Method>
-
-<Method name="GeefKortingPercentage">
-<FormalSpec>KortingFactor:%Numeric</FormalSpec>
-<ReturnType>TECH.Percentage</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKortingPercentage",KortingFactor)
-]]></Implementation>
-</Method>
-
-<Method name="GeefKortingenVoorKlantIterator">
-<FormalSpec>Customer:APPS.VKP.Korting.xml.Customer</FormalSpec>
-<ReturnType>TECH.ListIterator</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKortingenVoorKlantIterator",Customer)
-]]></Implementation>
-</Method>
-
 <Method name="GeefVariant">
 <FormalSpec>Variant:%String</FormalSpec>
 <ReturnType>DOM.PM.enu.Variant</ReturnType>
Index: APPS/VKP/Korting/impl/KortingService/KortingServiceHelper.cls.xml
===================================================================
diff -u -r67196 -r67199
--- APPS/VKP/Korting/impl/KortingService/KortingServiceHelper.cls.xml	(.../KortingServiceHelper.cls.xml)	(revision 67196)
+++ APPS/VKP/Korting/impl/KortingService/KortingServiceHelper.cls.xml	(.../KortingServiceHelper.cls.xml)	(revision 67199)
@@ -25,27 +25,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKortingConfiguratie">
-<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,Variant:DOM.PM.enu.Variant,KortingPercentage:TECH.Percentage,PersonalityID:DOM.common.enu.Personality</FormalSpec>
-<ReturnType>APPS.VKP.dto.KortingConfiguratie</ReturnType>
-<Implementation><![CDATA[
-	Set KortingConfiguratie = ##class(APPS.VKP.dto.KortingConfiguratie).%New()
-	Set KortingConfiguratie.PersonalityID = PersonalityID
-	Set KortingConfiguratie.KlantID = KlantID
-	Set KortingConfiguratie.KortingPercentage = KortingPercentage
-	Set KortingConfiguratie.Familie = ##class(DOM.PM.enu.Familie).Lade()
-	Set KortingConfiguratie.Variant = Variant
-	Quit KortingConfiguratie
-]]></Implementation>
-</Method>
-
-<Method name="GeefKortingPercentage">
-<FormalSpec>KortingFactor:%Numeric</FormalSpec>
-<ReturnType>TECH.Percentage</ReturnType>
-<Implementation><![CDATA[	Quit (KortingFactor/100)
-]]></Implementation>
-</Method>
-
 <Method name="GeefVariant">
 <FormalSpec>Variant:%String</FormalSpec>
 <ReturnType>DOM.PM.enu.Variant</ReturnType>
@@ -68,13 +47,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKortingenVoorKlantIterator">
-<FormalSpec>Customer:APPS.VKP.Korting.xml.Customer</FormalSpec>
-<ReturnType>TECH.ListIterator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(Customer.Reduction)
-]]></Implementation>
-</Method>
-
 <Method name="IsNietBEHaefelePersonality">
 <FormalSpec>PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
Index: vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml
===================================================================
diff -u -r67197 -r67199
--- vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml	(.../Test.cls.xml)	(revision 67197)
+++ vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml	(.../Test.cls.xml)	(revision 67199)
@@ -13,65 +13,69 @@
 <Private>1</Private>
 </Property>
 
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestCase:%String</FormalSpec>
+<Property name="CustomerBE">
+<Type>APPS.VKP.Korting.xml.Customer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CustomerDE">
+<Type>APPS.VKP.Korting.xml.Customer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CustomerNL">
+<Type>APPS.VKP.Korting.xml.Customer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-	do ##super(aTestCase)
+	do ##super()
 	
-	#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 ..CustomerBE = ..GeefCustomerBE()
+	Set ..CustomerDE = ..GeefCustomerDE()
+	Set ..CustomerNL = ..GeefCustomerNL()
 
-	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)
+	Do ..ZetKortingServiceHelperMockMethodCalls()
 ]]></Implementation>
 </Method>
 
-<Method name="Test HaefeleBE">
+<Method name="Test HaefeleBE met korting Orgalux meegegeven">
 <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() //,,..KortingServiceHelperMock)
-	Set KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(CustomerBE,PersonalityID)
-		
+	Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
+	
+	Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New(,, ..KortingServiceHelperMock)
+	Set KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(..CustomerBE, PersonalityID)
+	
 	Do ..AssertKortingConfiguratieLijstHaefeleBE(KortingConfiguratieLijst)
 ]]></Implementation>
 </Method>
 
 <Method name="Test HaefeleNL">
 <Implementation><![CDATA[
-	#dim CustomerNL As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerNL()
 	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleNL()
-	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 KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(CustomerNL,PersonalityID)
-		
+	Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
+	
+	Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New(,, ..KortingServiceHelperMock)
+	Set KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(..CustomerNL, PersonalityID)
+	
 	Do ..AssertKortingConfiguratieLijstHaefeleNL(KortingConfiguratieLijst)
 ]]></Implementation>
 </Method>
 
 <Method name="Test HaefeleDE">
 <Implementation><![CDATA[
-	#dim CustomerDE As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerDE(2000001)
 	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleDE()
-	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 KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(CustomerDE,PersonalityID)
-		
+	Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
+	
+	Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New(,, ..KortingServiceHelperMock)
+	Set KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(..CustomerDE, PersonalityID)
+	
 	Do ..AssertKortingConfiguratieLijstHaefeleDE(KortingConfiguratieLijst)
 ]]></Implementation>
 </Method>
@@ -80,15 +84,17 @@
 <FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
 <Implementation><![CDATA[
 	Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
-		
+	
 	If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
 		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"BE2000001"
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.0555,##class(DOM.PM.enu.Variant).LegraboxPure())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.303,##class(DOM.PM.enu.Variant).Taorbox())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).TandemboxAntaro())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).TandemboxIntivo())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).TandemboxPlus())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.0314,##class(DOM.PM.enu.Variant).LegraboxPure())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.141,##class(DOM.PM.enu.Variant).Orgalux())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.271,##class(DOM.PM.enu.Variant).Taorbox())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxAntaro())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxIntivo())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxPlus())
 	}
+	Do $$$AssertFalse(KortingConfiguratieLijstIt.HasNext())
 ]]></Implementation>
 </Method>
 
@@ -99,10 +105,11 @@
 	
 	If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
 		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"NL2000001"
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).LegraboxPure())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).Taorbox())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).TandemboxAntaro())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).LegraboxPure())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).Taorbox())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxAntaro())
 	}
+	Do $$$AssertFalse(KortingConfiguratieLijstIt.HasNext())
 ]]></Implementation>
 </Method>
 
@@ -113,9 +120,9 @@
 	
 	If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
 		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"DE2000001"
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).LegraboxPure())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).Taorbox())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).TandemboxAntaro())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).LegraboxPure())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).Taorbox())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxAntaro())
 	}
 	Do $$$AssertFalse(KortingConfiguratieLijstIt.HasNext())
 ]]></Implementation>
@@ -133,7 +140,7 @@
 </Method>
 
 <Method name="GeefCustomerBE">
-<ClassMethod>1</ClassMethod>
+<Private>1</Private>
 <ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
 <Implementation><![CDATA[
 	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
@@ -145,6 +152,44 @@
 	Quit Customer
 ]]></Implementation>
 </Method>
+
+<Method name="GeefCustomerDE">
+<Private>1</Private>
+<ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
+<Implementation><![CDATA[
+	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
+	Set Customer.id = "DE2000001"
+	Do Customer.Reduction.SetAt(16.1,"TBX")
+	Quit Customer
+]]></Implementation>
+</Method>
+
+<Method name="GeefCustomerNL">
+<Private>1</Private>
+<ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
+<Implementation><![CDATA[
+	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
+	Set Customer.id = "NL2000001"
+	Do Customer.Reduction.SetAt(16.1,"TBX")
+	Quit Customer
+]]></Implementation>
+</Method>
+
+<Method name="ZetKortingServiceHelperMockMethodCalls">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariant", "TBX_INTIVO").DanReturn(##class(DOM.PM.enu.Variant).TandemboxIntivo())
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariant", "TBX_ANTARO").DanReturn(##class(DOM.PM.enu.Variant).TandemboxAntaro())
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariant", "TBX_PLUS").DanReturn(##class(DOM.PM.enu.Variant).TandemboxPlus())
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariant", "LBX").DanReturn(##class(DOM.PM.enu.Variant).LegraboxPure())
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariant", "TAX").DanReturn(##class(DOM.PM.enu.Variant).Taorbox())
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariant", "OL").DanReturn(##class(DOM.PM.enu.Variant).Orgalux())
+	
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVoorPersonality", ##class(DOM.common.enu.Personality).HaefeleBE()).DanReturn($ListBuild("TBX_Intivo", "TBX_Antaro", "TBX_Plus"))
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVoorPersonality", ##class(DOM.common.enu.Personality).HaefeleDE()).DanReturn($ListBuild("TBX_Antaro", "LBX_Pure", "TAOR"))
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVoorPersonality", ##class(DOM.common.enu.Personality).HaefeleNL()).DanReturn($ListBuild("TBX_Antaro", "LBX_Pure", "TAOR"))
+]]></Implementation>
+</Method>
 </Class>