Index: APPS/VKP/Korting/impl/KortingService.cls.xml
===================================================================
diff -u -r67157 -r67158
--- APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 67157)
+++ APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 67158)
@@ -37,45 +37,42 @@
 </Method>
 
 <Method name="GeefKortingConfiguratieLijst">
-<Description><![CDATA[
-Goede punten : 2 dto's duidelijk onderscheid gemaakt door de package : van ".xml." naar ".dto"   --> VERKONDIG HET GOEDE VOORBEELD !!! ]]></Description>
 <FormalSpec>Customer:APPS.VKP.Korting.xml.Customer,PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <ReturnType>APPS.VKP.dto.KortingConfiguratieLijst</ReturnType>
 <Implementation><![CDATA[
-	Set KortingConfiguratieLijst = ##class(APPS.VKP.dto.KortingConfiguratieLijst).%New()
 	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = Personality.GeefPrefix()_Customer.id
 
-	Set ReductionIt = ##class(TECH.ListIterator).%New(Customer.Reduction)
-	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ..GeefKortingConfiguratieArray(ReductionIt,KlantID,PersonalityID)
+	Set KortingenVoorKlantIterator = ##class(TECH.ListIterator).%New(Customer.Reduction)
+	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ..GeefKortingConfiguratieArray(KortingenVoorKlantIterator, KlantID, PersonalityID)
 	
 	Quit ##class(TECH.ListUtils).ArrayOfObjectsToValueList(KortingConfiguratieArray)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKortingConfiguratieArray">
-<FormalSpec>ReductionIt:TECH.Iterator,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<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 = ..GeefVarianten(PersonalityID)
-	#dim iVariant As %Integer = 0
+	#dim Index As %Integer
 
 	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ##class(%ArrayOfObjects).%New()
-	#dim enuVariant As DOM.PM.enu.Variant	
-	While ReductionIt.HasNext()
+	#dim EnuVariant As DOM.PM.enu.Variant	
+	While KortingenVoorKlantIterator.HasNext()
 	{
-		#dim Reduction As %Numeric = ReductionIt.Next()
+		#dim Reduction As %Numeric = KortingenVoorKlantIterator.Next()
 		#dim KortingPercentage As TECH.Percentage = ..GeefKortingPercentage(Reduction)
-		#dim Variant As %String = ReductionIt.Key()
+		#dim Variant As %String = KortingenVoorKlantIterator.Key()
 		If (Variant = "TBX") {
-			For iVariant = 1 : 1 : $LL(Varianten) {
-				Set enuVariant = $LI(Varianten, iVariant)
-				Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID,enuVariant,KortingPercentage,PersonalityID),enuVariant)
+			For Index = 1 : 1 : $ListLength(Varianten) {
+				Set EnuVariant = $LI(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)
+			Set EnuVariant = ..GeefVariant(Variant)
+			Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant)
 		}
 	}