Index: APPS/VKP/Korting/impl/KortingService/KortingServiceHelper.cls.xml
===================================================================
diff -u -r67161 -r67162
--- APPS/VKP/Korting/impl/KortingService/KortingServiceHelper.cls.xml	(.../KortingServiceHelper.cls.xml)	(revision 67161)
+++ APPS/VKP/Korting/impl/KortingService/KortingServiceHelper.cls.xml	(.../KortingServiceHelper.cls.xml)	(revision 67162)
@@ -3,6 +3,35 @@
 <Class name="APPS.VKP.Korting.impl.KortingService.KortingServiceHelper">
 <Super>TECH.RegisteredObject,TECH.Mockable</Super>
 
+<Method name="GeefKortingConfiguratieArray">
+<FormalSpec>KortingenVoorKlantIterator:TECH.Iterator,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim Varianten As %List = ..GeefVariantenVoorPersonality(PersonalityID)
+	#dim Index As %Integer
+
+	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ##class(%ArrayOfObjects).%New()
+	#dim EnuVariant As DOM.PM.enu.Variant
+	While KortingenVoorKlantIterator.HasNext()
+	{
+		#dim KortingFactor As %Numeric = KortingenVoorKlantIterator.Next()
+		#dim KortingPercentage As TECH.Percentage = ..GeefKortingPercentage(KortingFactor)
+		#dim Variant As %String = KortingenVoorKlantIterator.Key()
+		If (Variant = "TBX") {
+			For Index = 1 : 1 : $ListLength(Varianten) {
+				Set EnuVariant = $List(Varianten, Index)
+				Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant)
+			}
+		} Else {
+			Set EnuVariant = ..GeefVariant(Variant)
+			Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant)
+		}
+	}
+	
+	Quit KortingConfiguratieArray
+]]></Implementation>
+</Method>
+
 <Method name="GeefVariantenVoorPersonality">
 <FormalSpec>PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/VKP/Korting/impl/KortingService.cls.xml
===================================================================
diff -u -r67161 -r67162
--- APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 67161)
+++ APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 67162)
@@ -50,41 +50,11 @@
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = Personality.GeefPrefix()_Customer.id
 
 	#dim KortingenVoorKlantIterator As TECH.ListIterator = ..KortingServiceHelper.GeefKortingenVoorKlantIterator(Customer)
-	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ..GeefKortingConfiguratieArray(KortingenVoorKlantIterator, KlantID, PersonalityID)
+	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ..KortingServiceHelper.GeefKortingConfiguratieArray(KortingenVoorKlantIterator, KlantID, PersonalityID)
 	
 	Quit ##class(TECH.ListUtils).ArrayOfObjectsToValueList(KortingConfiguratieArray)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefKortingConfiguratieArray">
-<FormalSpec>KortingenVoorKlantIterator:TECH.Iterator,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ArrayOfObjects</ReturnType>
-<Implementation><![CDATA[
-	#dim Varianten As %List = ..KortingServiceHelper.GeefVariantenVoorPersonality(PersonalityID)
-	#dim Index As %Integer
-
-	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ##class(%ArrayOfObjects).%New()
-	#dim EnuVariant As DOM.PM.enu.Variant
-	While KortingenVoorKlantIterator.HasNext()
-	{
-		#dim KortingFactor As %Numeric = KortingenVoorKlantIterator.Next()
-		#dim KortingPercentage As TECH.Percentage = ..KortingServiceHelper.GeefKortingPercentage(KortingFactor)
-		#dim Variant As %String = KortingenVoorKlantIterator.Key()
-		If (Variant = "TBX") {
-			For Index = 1 : 1 : $ListLength(Varianten) {
-				Set EnuVariant = $List(Varianten, Index)
-				Do KortingConfiguratieArray.SetAt(..KortingServiceHelper.GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant)
-			}
-		} Else {
-			Set EnuVariant = ..KortingServiceHelper.GeefVariant(Variant)
-			Do KortingConfiguratieArray.SetAt(..KortingServiceHelper.GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant)
-		}
-	}
-	
-	Quit KortingConfiguratieArray
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Fake/APPS/VKP/Korting/impl/KortingService/KortingServiceHelper.cls.xml
===================================================================
diff -u -r67161 -r67162
--- vhTest/Fake/APPS/VKP/Korting/impl/KortingService/KortingServiceHelper.cls.xml	(.../KortingServiceHelper.cls.xml)	(revision 67161)
+++ vhTest/Fake/APPS/VKP/Korting/impl/KortingService/KortingServiceHelper.cls.xml	(.../KortingServiceHelper.cls.xml)	(revision 67162)
@@ -14,6 +14,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKortingConfiguratieArray">
+<FormalSpec>KortingenVoorKlantIterator:TECH.Iterator,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefKortingPercentage">
 <FormalSpec>KortingFactor:%Numeric</FormalSpec>
 <ReturnType>TECH.Percentage</ReturnType>
Index: vhTest/Mock/APPS/VKP/Korting/impl/KortingService/KortingServiceHelper.cls.xml
===================================================================
diff -u -r67161 -r67162
--- vhTest/Mock/APPS/VKP/Korting/impl/KortingService/KortingServiceHelper.cls.xml	(.../KortingServiceHelper.cls.xml)	(revision 67161)
+++ vhTest/Mock/APPS/VKP/Korting/impl/KortingService/KortingServiceHelper.cls.xml	(.../KortingServiceHelper.cls.xml)	(revision 67162)
@@ -15,6 +15,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKortingConfiguratieArray">
+<FormalSpec>KortingenVoorKlantIterator:TECH.Iterator,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKortingConfiguratieArray",KortingenVoorKlantIterator,KlantID,PersonalityID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKortingPercentage">
 <FormalSpec>KortingFactor:%Numeric</FormalSpec>
 <ReturnType>TECH.Percentage</ReturnType>