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>