Index: APPS/VKP/Korting/impl/KortingService.cls.xml
===================================================================
diff -u -r48516 -r53486
--- APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 48516)
+++ APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 53486)
@@ -124,9 +124,9 @@
 		Set lbVariantenVoorTbx = $LB(##class(DOM.PM.enu.Variant).TandemboxAntaro())
 	}
 	
-	#dim KopieerKortingVanTbxNaarLbx As %Boolean = (PersonalityID = ##class(DOM.common.enu.Personality).HaefeleNL())
-	If KopieerKortingVanTbxNaarLbx {
-		Set lbVariantenVoorTbx = lbVariantenVoorTbx _ $LB(##class(DOM.PM.enu.Variant).LegraboxPure())
+	#dim KopieerKortingVanTbxNaarAndereTypes As %Boolean = (PersonalityID = ##class(DOM.common.enu.Personality).HaefeleNL())
+	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()	
@@ -141,7 +141,7 @@
 				Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID,enuVariant,KortingPercentage,PersonalityID),enuVariant)
 			}
 		}
-	}	
+	}
 	Quit KortingConfiguratieArray
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/Test.cls.xml
===================================================================
diff -u -r48516 -r53486
--- vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/Test.cls.xml	(.../Test.cls.xml)	(revision 48516)
+++ vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/Test.cls.xml	(.../Test.cls.xml)	(revision 53486)
@@ -8,7 +8,7 @@
 <Private>1</Private>
 </Property>
 
-<Method name="Test: Voor haefeleBE">
+<Method name="Test 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)
@@ -21,65 +21,70 @@
 		Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New(KortingParser,KortingVerwijderaarMock)
 		Do KortingService.StelInKortingenUitBestand($$$DummyString,PersonalityID)
 		
-		Do ..AssertKortingConfiguratieLijst(VerkoopPrijsAPI.GeefKortingConfiguratieLijst())
+		Do ..AssertKortingConfiguratieLijstHaefeleBE(VerkoopPrijsAPI.GeefKortingConfiguratieLijst())
 		
 		Do KortingVerwijderaarMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="AssertKortingConfiguratieLijst">
+<Method name="Test HaefeleNL">
+<Implementation><![CDATA[
+		#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleNL()
+		Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
+		Set KortingParser = ##class(vhUnitTest.APPS.VKP.Korting.impl.KortingService.StelInKortingen.DummyKortingParser).%New()
+		Set KortingVerwijderaarMock = ##class(vhTest.Mock.APPS.VKP.Korting.impl.KortingVerwijderaar).%New()
+		Do KortingVerwijderaarMock.VerwachtMethodCall("Verwijder",PersonalityID)
+		
+		#dim VerkoopPrijsAPI As vhUnitTest.APPS.VKP.Korting.impl.KortingService.StelInKortingen.VerkoopPrijsAPIMock = ##class(vhUnitTest.APPS.VKP.Korting.impl.KortingService.StelInKortingen.VerkoopPrijsAPIMock).MockInstance()
+		
+		Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New(KortingParser,KortingVerwijderaarMock)
+		Do KortingService.StelInKortingenUitBestand($$$DummyString,PersonalityID)
+		
+		Do ..AssertKortingConfiguratieLijstHaefeleNL(VerkoopPrijsAPI.GeefKortingConfiguratieLijst())
+		
+		Do KortingVerwijderaarMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="AssertKortingConfiguratieLijstHaefeleBE">
 <FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
-<Private>1</Private>
 <Implementation><![CDATA[
 		Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
 		
 		If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
 			#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"BE2000001"
 			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.0555,##class(DOM.PM.enu.Variant).LegraboxPure())
+			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.303,##class(DOM.PM.enu.Variant).Taorbox())
 			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).TandemboxAntaro())
-			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.303,##class(DOM.PM.enu.Variant).TandemboxIntivo())
+			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).TandemboxIntivo())
 			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).TandemboxPlus())
 		}
 		If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
 			Set KlantID = ..Personality.GeefPrefix()_"BE2000002"
 			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.0555,##class(DOM.PM.enu.Variant).LegraboxPure())
+			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.303,##class(DOM.PM.enu.Variant).Taorbox())
 			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).TandemboxAntaro())
-			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.303,##class(DOM.PM.enu.Variant).TandemboxIntivo())
+			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).TandemboxIntivo())
 			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).TandemboxPlus())
 		}
-		Do $$$AssertFalse(KortingConfiguratieLijstIt.HasNext())
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Voor haefeleNL wordt uit de TBX-korting ook de LBX-korting bewaard">
-<Implementation><![CDATA[
-		#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleNL()
-		Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
-		Set KortingParser = ##class(vhUnitTest.APPS.VKP.Korting.impl.KortingService.StelInKortingen.DummyKortingParserTbxVoorNL).%New()
-		Set KortingVerwijderaarMock = ##class(vhTest.Mock.APPS.VKP.Korting.impl.KortingVerwijderaar).%New()
-		Do KortingVerwijderaarMock.VerwachtMethodCall("Verwijder",PersonalityID)
-		
-		#dim VerkoopPrijsAPI As vhUnitTest.APPS.VKP.Korting.impl.KortingService.StelInKortingen.VerkoopPrijsAPIMock = ##class(vhUnitTest.APPS.VKP.Korting.impl.KortingService.StelInKortingen.VerkoopPrijsAPIMock).MockInstance()
-		
-		Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New(KortingParser,KortingVerwijderaarMock)
-		Do KortingService.StelInKortingenUitBestand($$$DummyString,PersonalityID)
-		
-		Do ..AssertKortingConfiguratieLijstVoorNL(VerkoopPrijsAPI.GeefKortingConfiguratieLijst())
-		
-		Do KortingVerwijderaarMock.Verifieer()
-]]></Implementation>
-</Method>
-
-<Method name="AssertKortingConfiguratieLijstVoorNL">
+<Method name="AssertKortingConfiguratieLijstHaefeleNL">
 <FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
-<Private>1</Private>
 <Implementation><![CDATA[
 		Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
 		
+		While KortingConfiguratieLijstIt.HasNext() {
+			#dim KortingConfiguratie As APPS.VKP.dto.KortingConfiguratie = KortingConfiguratieLijstIt.Next()
+			Quit:(KortingConfiguratie.KlantID = "hfleNL_NL2000001")
+		}
+		
 		If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
 			#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"NL2000001"
-			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.146,##class(DOM.PM.enu.Variant).LegraboxPure())
-			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.146,##class(DOM.PM.enu.Variant).TandemboxAntaro())
+			Do ..AssertKortingConfiguratie(KortingConfiguratie,KlantID,0.101,##class(DOM.PM.enu.Variant).LegraboxPure())
+			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).Taorbox())
+			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).TandemboxAntaro())
 		}
 		Do $$$AssertFalse(KortingConfiguratieLijstIt.HasNext())
 ]]></Implementation>
Index: vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/DummyKortingParser.cls.xml
===================================================================
diff -u -r29059 -r53486
--- vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/DummyKortingParser.cls.xml	(.../DummyKortingParser.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/DummyKortingParser.cls.xml	(.../DummyKortingParser.cls.xml)	(revision 53486)
@@ -8,25 +8,38 @@
 <ReturnType>APPS.VKP.Korting.xml.CustomerInfo</ReturnType>
 <Implementation><![CDATA[
 	Set CustomerInfo = ##class(APPS.VKP.Korting.xml.CustomerInfo).%New()
-	Do CustomerInfo.Customer.Insert(..GeefCustomer("BE2000001", 10.1, 30.3, 5.55))
-	Do CustomerInfo.Customer.Insert(..GeefCustomer("BE2000002", 10.1, 30.3, 5.55))
+	Do CustomerInfo.Customer.Insert(..GeefCustomerBE("BE2000001", 10.1, 30.3, 5.55))
+	Do CustomerInfo.Customer.Insert(..GeefCustomerBE("BE2000002", 10.1, 30.3, 5.55))
+	Do CustomerInfo.Customer.Insert(..GeefCustomerNL("NL2000001", 10.1))
 	Quit CustomerInfo
 ]]></Implementation>
 </Method>
 
-<Method name="GeefCustomer">
-<FormalSpec>ID:%String,TBXKorting:%Numeric,TBXINTIVOKorting:%Numeric,LBXKorting:%Numeric</FormalSpec>
+<Method name="GeefCustomerBE">
+<FormalSpec>ID:%String,TBXKorting:%Numeric,TAORKorting:%Numeric,LBXKorting:%Numeric</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
 <Implementation><![CDATA[
 	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
 	Set Customer.id = ID
-	Do Customer.Reduction.SetAt(TBXINTIVOKorting,"TBX_INTIVO")
-	Do Customer.Reduction.SetAt(TBXKorting,"TBX")	
+	Do Customer.Reduction.SetAt(TBXKorting,"TBX")
 	Do Customer.Reduction.SetAt(LBXKorting,"LBX")
+	Do Customer.Reduction.SetAt(TAORKorting,"TAX")
 	Quit Customer
 ]]></Implementation>
 </Method>
+
+<Method name="GeefCustomerNL">
+<FormalSpec>ID:%String,TBXKorting:%Numeric</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
+<Implementation><![CDATA[
+	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
+	Set Customer.id = ID
+	Do Customer.Reduction.SetAt(TBXKorting,"TBX")
+	Quit Customer
+]]></Implementation>
+</Method>
 </Class>