Index: APPS/VKP/Korting/impl/KortingService.cls.xml
===================================================================
diff -u -r65150 -r67155
--- APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 65150)
+++ APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 67155)
@@ -45,6 +45,21 @@
 	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)
+	
+	Quit ##class(TECH.ListUtils).ArrayOfObjectsToValueList(KortingConfiguratieArray)
+]]></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)
@@ -62,6 +77,59 @@
 ]]></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 iVariant As %Integer = 0
+
+	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ##class(%ArrayOfObjects).%New()
+	#dim enuVariant As DOM.PM.enu.Variant	
+	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(VariantenVoorTbx) {
+				Set enuVariant = $LI(VariantenVoorTbx,iVariant)
+				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="GeefVariantenVoorTbx">
+<FormalSpec>PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim VariantenVoorTbx 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())
+	}
+	Else {
+		Set VariantenVoorTbx = $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())
+	}
+	
+	Quit VariantenVoorTbx
+]]></Implementation>
+</Method>
+
 <Method name="GeefKortingConfiguratieLijstVanArray">
 <FormalSpec>KortingConfiguratieArray:%ArrayOfObjects</FormalSpec>
 <Private>1</Private>