Index: vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/Test.cls.xml
===================================================================
diff -u -r29059 -r48514
--- vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/Test.cls.xml	(.../Test.cls.xml)	(revision 48514)
@@ -8,7 +8,7 @@
 <Private>1</Private>
 </Property>
 
-<Method name="Test">
+<Method name="Test: Voor haefeleBE">
 <Implementation><![CDATA[
 		#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleBE()
 		Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
@@ -29,6 +29,7 @@
 
 <Method name="AssertKortingConfiguratieLijst">
 <FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 		Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
 		
@@ -55,7 +56,7 @@
 <Implementation><![CDATA[
 		Do $$$AssertEquals(KortingConfiguratie.KlantID,KlantID,Variant)
 		Do $$$AssertEquals(KortingConfiguratie.Familie,##class(DOM.PM.enu.Familie).Lade(),Variant)
-		Do $$$AssertEquals(KortingConfiguratie.PersonalityID,##class(DOM.common.enu.Personality).HaefeleBE(),Variant)
+		Do $$$AssertEquals(KortingConfiguratie.PersonalityID,..Personality.GeefID(),Variant)
 		Do $$$AssertEquals(KortingConfiguratie.KortingPercentage,KortingPercentage,Variant)
 		Do $$$AssertEquals(KortingConfiguratie.Variant,Variant,Variant)
 ]]></Implementation>
Index: APPS/VKP/Korting/impl/KortingService.cls.xml
===================================================================
diff -u -r29059 -r48514
--- APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 29059)
+++ APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 48514)
@@ -114,15 +114,25 @@
 <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())
+	}
+	
 	#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 Variant="TBX_INTIVO","TBX_ANTARO","TBX_PLUS" {
-				#dim enuVariant As DOM.PM.enu.Variant = ..GeefVariant(Variant)
+			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)
 			}
 		}