Index: APPS/VKP/Korting/impl/KortingService.cls.xml
===================================================================
diff -u -r67155 -r67157
--- APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 67155)
+++ APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 67157)
@@ -53,36 +53,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKortingConfiguratieLijstOriginal">
-<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 KortingConfiguratieArrayAlgemeen As Array Of APPS.VKP.dto.KortingConfiguratie = ..GeefKortingConfiguratieLijstAlgemeen(ReductionIt,KlantID,PersonalityID)
-		
-	Do ReductionIt.Reset()   ; Of gewoon opnieuw iterator New-en --> I see a refactor coming up :-) 
-	#dim KortingConfiguratieArraySpecifiek As Array Of APPS.VKP.dto.KortingConfiguratie = ..GeefKortingConfiguratieLijstSpecifiek(ReductionIt,KlantID,PersonalityID)
-		
-	// Deze 3 lijnen zijn puur Array- en List-verwerking.
-	// Iedereen die hier passeert moet uitzoeken wat hier gebeurt, tenzij jij dit documenteert (=commentaar) of in method met een duidelijke naam steekt. 
-	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ##class(TECH.ListUtils).CopyArrayOfObjects(KortingConfiguratieArraySpecifiek,KortingConfiguratieArrayAlgemeen)
-	#dim KCL As APPS.VKP.dto.KortingConfiguratieLijst = ..GeefKortingConfiguratieLijstVanArray(KortingConfiguratieArray)
-	Do ##class(TECH.ListUtils).CopyListOfObjects(KCL,KortingConfiguratieLijst)
-	
-	Quit KortingConfiguratieLijst
-]]></Implementation>
-</Method>
-
 <Method name="GeefKortingConfiguratieArray">
 <FormalSpec>ReductionIt:TECH.Iterator,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ArrayOfObjects</ReturnType>
 <Implementation><![CDATA[
-	#dim VariantenVoorTbx As %List = ..GeefVariantenVoorTbx(PersonalityID)
+	#dim Varianten As %List = ..GeefVarianten(PersonalityID)
 	#dim iVariant As %Integer = 0
 
 	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ##class(%ArrayOfObjects).%New()
@@ -93,8 +69,8 @@
 		#dim KortingPercentage As TECH.Percentage = ..GeefKortingPercentage(Reduction)
 		#dim Variant As %String = ReductionIt.Key()
 		If (Variant = "TBX") {
-			For iVariant = 1 : 1 : $LL(VariantenVoorTbx) {
-				Set enuVariant = $LI(VariantenVoorTbx,iVariant)
+			For iVariant = 1 : 1 : $LL(Varianten) {
+				Set enuVariant = $LI(Varianten, iVariant)
 				Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID,enuVariant,KortingPercentage,PersonalityID),enuVariant)
 			}
 		} Else {
@@ -107,107 +83,29 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefVariantenVoorTbx">
+<Method name="GeefVarianten">
 <FormalSpec>PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim VariantenVoorTbx As %List
+	#dim Varianten As %List
 	
 	If (PersonalityID = ##class(DOM.common.enu.Personality).HaefeleBE()) {
-		Set VariantenVoorTbx = $LB(##class(DOM.PM.enu.Variant).TandemboxIntivo(), ##class(DOM.PM.enu.Variant).TandemboxAntaro(), ##class(DOM.PM.enu.Variant).TandemboxPlus())
+		Set Varianten = $LB(##class(DOM.PM.enu.Variant).TandemboxIntivo(), ##class(DOM.PM.enu.Variant).TandemboxAntaro(), ##class(DOM.PM.enu.Variant).TandemboxPlus())
 	}
 	Else {
-		Set VariantenVoorTbx = $LB(##class(DOM.PM.enu.Variant).TandemboxAntaro())
+		Set Varianten = $LB(##class(DOM.PM.enu.Variant).TandemboxAntaro())
 	}
 	
 	Set Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
 	#dim KopieerKortingVanTbxNaarAndereTypes As %Boolean = ((PersonalityID = Personality.HaefeleNL)||(PersonalityID = Personality.HaefeleDE)||(PersonalityID = Personality.HaefeleSE)||(PersonalityID = Personality.HaefeleFI)||(PersonalityID =Personality.HaefeleFR)||(PersonalityID =Personality.HaefeleDK)||(PersonalityID =Personality.HaefeleIT)||(PersonalityID =Personality.HaefeleAT)||(PersonalityID =Personality.HaefeleCH))
 	If KopieerKortingVanTbxNaarAndereTypes {
-		Set VariantenVoorTbx = VariantenVoorTbx _ $LB(##class(DOM.PM.enu.Variant).LegraboxPure()) _ $LB(##class(DOM.PM.enu.Variant).Taorbox())
+		Set Varianten = Varianten _ $LB(##class(DOM.PM.enu.Variant).LegraboxPure()) _ $LB(##class(DOM.PM.enu.Variant).Taorbox())
 	}
 	
-	Quit VariantenVoorTbx
+	Quit Varianten
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKortingConfiguratieLijstVanArray">
-<FormalSpec>KortingConfiguratieArray:%ArrayOfObjects</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.VKP.dto.KortingConfiguratieLijst</ReturnType>
-<Implementation><![CDATA[
-	Quit ##class(TECH.ListUtils).ArrayOfObjectsToValueList(KortingConfiguratieArray)
-
-	/// Bestaat al in TECH.ListUtils   :-P 
-	Set KortingConfiguratieLijst = ##class(APPS.VKP.dto.KortingConfiguratieLijst).%New()
-	Set KortingConfiguratieArrayIt = ##class(TECH.ListIterator).%New(KortingConfiguratieArray)
-	While KortingConfiguratieArrayIt.HasNext(){
-		Do KortingConfiguratieLijst.Insert(KortingConfiguratieArrayIt.Next())
-	}
-	Quit KortingConfiguratieLijst
-]]></Implementation>
-</Method>
-
-<Method name="GeefKortingConfiguratieLijstSpecifiek">
-<FormalSpec>ReductionIt:TECH.Iterator,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ArrayOfObjects</ReturnType>
-<Implementation><![CDATA[
-	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ##class(%ArrayOfObjects).%New()	
-	While ReductionIt.HasNext()
-	{
-		#dim Reduction As %Numeric = ReductionIt.Next()
-		#dim KortingPercentage As TECH.Percentage = ..GeefKortingPercentage(Reduction)
-		#dim Variant As %String = ReductionIt.Key()
-		If Variant '= "TBX" {
-			#dim enuVariant As DOM.PM.enu.Variant = ..GeefVariant(Variant)
-			Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID,enuVariant,KortingPercentage,PersonalityID),enuVariant)
-		}
-		
-	}	
-	Quit KortingConfiguratieArray
-]]></Implementation>
-</Method>
-
-<Method name="GeefKortingConfiguratieLijstAlgemeen">
-<Description>
-Het stinkt hier naar code-duplicatie  :-P  </Description>
-<FormalSpec>ReductionIt:TECH.Iterator,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ArrayOfObjects</ReturnType>
-<Implementation><![CDATA[
-	#dim lbVariantenVoorTbx As %List = ""
-	#dim iVariant As %Integer = 0
-	
-	If (PersonalityID = ##class(DOM.common.enu.Personality).HaefeleBE()) {
-		Set lbVariantenVoorTbx = $LB(##class(DOM.PM.enu.Variant).TandemboxIntivo(), ##class(DOM.PM.enu.Variant).TandemboxAntaro(), ##class(DOM.PM.enu.Variant).TandemboxPlus())
-	}
-	Else {
-		Set lbVariantenVoorTbx = $LB(##class(DOM.PM.enu.Variant).TandemboxAntaro())
-	}
-	Set Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
-	#dim KopieerKortingVanTbxNaarAndereTypes As %Boolean = ((PersonalityID =Personality.HaefeleNL)||(PersonalityID = Personality.HaefeleDE)||(PersonalityID = Personality.HaefeleSE)||(PersonalityID = Personality.HaefeleFI)||(PersonalityID =Personality.HaefeleFR)||(PersonalityID =Personality.HaefeleDK)||(PersonalityID =Personality.HaefeleIT)||(PersonalityID =Personality.HaefeleAT)||(PersonalityID =Personality.HaefeleCH))
-	If KopieerKortingVanTbxNaarAndereTypes {
-		Set lbVariantenVoorTbx = lbVariantenVoorTbx _ $LB(##class(DOM.PM.enu.Variant).LegraboxPure()) _ $LB(##class(DOM.PM.enu.Variant).Taorbox())
-	}
-	
-	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ##class(%ArrayOfObjects).%New()	
-	While ReductionIt.HasNext()
-	{
-		#dim Reduction As %Numeric = ReductionIt.Next()
-		#dim KortingPercentage As TECH.Percentage = ..GeefKortingPercentage(Reduction)
-		#dim Variant As %String = ReductionIt.Key()
-		If Variant = "TBX" {
-			For iVariant = 1 : 1 : $LL(lbVariantenVoorTbx) {
-				#dim enuVariant As DOM.PM.enu.Variant = $LI(lbVariantenVoorTbx,iVariant)
-				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>