Index: APPS/VKP/Korting/impl/KortingService.cls.xml
===================================================================
diff -u -r67199 -r67201
--- APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 67199)
+++ APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 67201)
@@ -60,29 +60,27 @@
 <Private>1</Private>
 <ReturnType>%ArrayOfObjects</ReturnType>
 <Implementation><![CDATA[
-	#dim Varianten As %List = ..KortingServiceHelper.GeefVariantenVoorPersonality(PersonalityID)
+	#dim VariantenVanType As %List
 	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ##class(%ArrayOfObjects).%New()
 	
-	#dim KortingenVoorKlantIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Customer.Reduction)
+	#dim KortingenVoorKlantVanuitXMLIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Customer.Reduction)
 	#dim EnuVariant As DOM.PM.enu.Variant
 	#dim Index As %Integer
-	While KortingenVoorKlantIterator.HasNext()
+	While KortingenVoorKlantVanuitXMLIterator.HasNext()
 	{
-		#dim KortingFactor As %Numeric = KortingenVoorKlantIterator.Next()
+		#dim KortingFactor As %Numeric = KortingenVoorKlantVanuitXMLIterator.Next()
 		#dim KortingPercentage As TECH.Percentage = KortingFactor / 100
-		#dim Variant As %String = KortingenVoorKlantIterator.Key()
+		#dim VariantTypeVanXML As %String = KortingenVoorKlantVanuitXMLIterator.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 = ..KortingServiceHelper.GeefVariant(Variant)
+		Set VariantenVanType = ..KortingServiceHelper.GeefVariantenVanTypeVoorPersonality(VariantTypeVanXML, PersonalityID)
+		For Index = 1 : 1 : $ListLength(VariantenVanType) {
+			Set EnuVariant = $List(VariantenVanType, Index)
 			Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant)
 		}
 	}
 	
+	// Check of alle kortingen hierna gezet zijn
+	
 	Quit KortingConfiguratieArray
 ]]></Implementation>
 </Method>