Index: APPS/VKP/Korting/impl/KortingService.cls.xml
===================================================================
diff -u -r67211 -r68214
--- APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 67211)
+++ APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 68214)
@@ -107,11 +107,15 @@
 		Set EnuVariant = $List(VariantenVoorPersonality, Index)
 		
 		If $$$Not(KortingConfiguratieArray.IsDefined(EnuVariant)) {
-			If (EnuVariant = ##class(DOM.PM.enu.Variant).TandemboxAntaro()) || (EnuVariant = ##class(DOM.PM.enu.Variant).TandemboxIntivo()) || (EnuVariant = ##class(DOM.PM.enu.Variant).TandemboxPlus()) {
-				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Variant 'TBX' moet aanwezig zijn in het kortingsbestand via data dumps, maar werd niet gevonden."))
+			If (PersonalityID = ##class(DOM.common.enu.Personality).HaefeleBE()) {
+				Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, 0, PersonalityID), EnuVariant)
 			} Else {
-				#dim KortingPercentage As TECH.Percentage = KortingConfiguratieArray.GetAt(##class(DOM.PM.enu.Variant).TandemboxAntaro()).KortingPercentage
-				Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant)
+				If ((EnuVariant = ##class(DOM.PM.enu.Variant).TandemboxAntaro()) || (EnuVariant = ##class(DOM.PM.enu.Variant).TandemboxIntivo()) || (EnuVariant = ##class(DOM.PM.enu.Variant).TandemboxPlus()) || (EnuVariant = ##class(DOM.PM.enu.Variant).Orgalux())) {
+					Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, 0, PersonalityID), EnuVariant)
+				} Else {
+					#dim KortingPercentage As TECH.Percentage = KortingConfiguratieArray.GetAt(##class(DOM.PM.enu.Variant).TandemboxAntaro()).KortingPercentage
+					Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID, EnuVariant, KortingPercentage, PersonalityID), EnuVariant)
+				}
 			}
 		}
 	}
Index: vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml
===================================================================
diff -u -r67256 -r68214
--- vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml	(.../Test.cls.xml)	(revision 67256)
+++ vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml	(.../Test.cls.xml)	(revision 68214)
@@ -40,7 +40,7 @@
 <Method name="Test Klant met alle kortingen meegegeven =&gt; geeft KortingConfigArray met deze kortingen terug">
 <Implementation><![CDATA[
 	#dim Klant As APPS.VKP.Korting.xml.Customer = ..GeefKlantMetAlleKortingenMeegegeven()
-	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleBE()
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleNL()
 	
 	Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
 	
@@ -51,10 +51,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test Klant met enkel OL niet meegegeven =&gt; geeft KortingConfigArray waarbij korting OL is korting TBX">
+<Method name="Test Niet-HaefeleBE met enkel OL niet meegegeven =&gt; geeft KortingConfigArray waarbij korting OL = 0">
 <Implementation><![CDATA[
 	#dim Klant As APPS.VKP.Korting.xml.Customer = ..GeefKlantMetEnkelOLNietMeegegeven()
-	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleBE()
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleNL()
 	
 	Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
 	
@@ -65,46 +65,45 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test Klant met enkel MVX niet meegegeven =&gt; geeft KortingConfigArray waarbij korting MVX is korting TBX">
+<Method name="Test Niet-HaefeleBE met enkel TBX meegegeven =&gt; geeft KortingConfigArray waarbij alle kortingen behalve OL deze van TBX">
 <Implementation><![CDATA[
-	#dim Klant As APPS.VKP.Korting.xml.Customer = ..GeefKlantMetEnkelMvxNietMeegegeven()
-	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleBE()
+	#dim Klant As APPS.VKP.Korting.xml.Customer = ..GeefKlantMetEnkelTbxMeegegeven()
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleNL()
 	
 	Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
 	
 	Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New(,, ..KortingServiceHelperMock)
 	#dim KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(Klant, PersonalityID)
 	
-	Do ..AssertKortingConfiguratieLijstZonderMvx(KortingConfiguratieLijst)
+	Do ..AssertKortingConfiguratieLijstEnkelTbx(KortingConfiguratieLijst)
 ]]></Implementation>
 </Method>
 
-<Method name="Test Klant met enkel TBX meegegeven =&gt; geeft KortingConfigArray waarbij alle kortingen deze van TBX">
+<Method name="Test Niet-HaefeleBE met TBX niet meegegeven =&gt; geeft korting TBX = 0 en de rest normaal gedrag">
 <Implementation><![CDATA[
-	#dim Klant As APPS.VKP.Korting.xml.Customer = ..GeefKlantMetEnkelTbxMeegegeven()
-	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleBE()
+	#dim Klant As APPS.VKP.Korting.xml.Customer = ..GeefKlantMetTbxNietMeegegeven()
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleNL()
 	
 	Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
 	
 	Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New(,, ..KortingServiceHelperMock)
 	#dim KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(Klant, PersonalityID)
 	
-	Do ..AssertKortingConfiguratieLijstEnkelTbx(KortingConfiguratieLijst)
+	Do ..AssertKortingConfiguratieLijstZonderTbx(KortingConfiguratieLijst)
 ]]></Implementation>
 </Method>
 
-<Method name="Test Klant met TBX niet meegegeven =&gt; geeft error terug">
+<Method name="Test HaefeleBE met TBX en MVX niet meegegeven =&gt; geeft korting TBX = MVX = 0 en de rest normaal gedrag">
 <Implementation><![CDATA[
-	#dim Klant As APPS.VKP.Korting.xml.Customer = ..GeefKlantMetTbxNietMeegegeven()
+	#dim Klant As APPS.VKP.Korting.xml.Customer = ..GeefKlantHaefeleBE()
 	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleBE()
 	
-	#dim Substrings =  ##class(TECH.ListUtils).CreateListOfDataTypes("Variant 'TBX' moet aanwezig zijn in het kortingsbestand via data dumps, maar werd niet gevonden.")
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+	Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
 	
 	Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New(,, ..KortingServiceHelperMock)
 	#dim KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(Klant, PersonalityID)
 	
-	//Do ..OfferteVoorBestellingValidator.Valideer(..OfferteStub,..#KlantID,..#PersonalityID)
+	Do ..AssertKortingConfiguratieLijstHaefeleBE(KortingConfiguratieLijst)
 ]]></Implementation>
 </Method>
 
@@ -114,14 +113,12 @@
 	Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
 	
 	If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
-		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"BE1000000"
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.0314,##class(DOM.PM.enu.Variant).LegraboxPure())
+		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"NL1000000"
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.314,##class(DOM.PM.enu.Variant).LegraboxPure())
 		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.271,##class(DOM.PM.enu.Variant).Merivobox())
 		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.141,##class(DOM.PM.enu.Variant).Orgalux())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.360,##class(DOM.PM.enu.Variant).Taorbox())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.120,##class(DOM.PM.enu.Variant).Taorbox())
 		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxAntaro())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxIntivo())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxPlus())
 	}
 	Do $$$AssertFalse(KortingConfiguratieLijstIt.HasNext())
 ]]></Implementation>
@@ -133,83 +130,65 @@
 	Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
 	
 	If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
-		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"BE1000000"
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.0314,##class(DOM.PM.enu.Variant).LegraboxPure())
+		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"NL1000000"
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.314,##class(DOM.PM.enu.Variant).LegraboxPure())
 		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.271,##class(DOM.PM.enu.Variant).Merivobox())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).Orgalux())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.360,##class(DOM.PM.enu.Variant).Taorbox())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.000,##class(DOM.PM.enu.Variant).Orgalux())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.120,##class(DOM.PM.enu.Variant).Taorbox())
 		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxAntaro())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxIntivo())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxPlus())
 	}
 	Do $$$AssertFalse(KortingConfiguratieLijstIt.HasNext())
 ]]></Implementation>
 </Method>
 
-<Method name="AssertKortingConfiguratieLijstZonderMvx">
-<FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
-<Implementation><![CDATA[
-	Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
-	
-	If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
-		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"BE1000000"
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.0314,##class(DOM.PM.enu.Variant).LegraboxPure())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).Merivobox())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.141,##class(DOM.PM.enu.Variant).Orgalux())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.360,##class(DOM.PM.enu.Variant).Taorbox())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxAntaro())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxIntivo())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxPlus())
-	}
-	Do $$$AssertFalse(KortingConfiguratieLijstIt.HasNext())
-]]></Implementation>
-</Method>
-
 <Method name="AssertKortingConfiguratieLijstEnkelTbx">
 <FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
 <Implementation><![CDATA[
 	Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
 	
 	If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
-		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"BE1000000"
+		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"NL1000000"
 		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).LegraboxPure())
 		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).Merivobox())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).Orgalux())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.000,##class(DOM.PM.enu.Variant).Orgalux())
 		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).Taorbox())
 		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxAntaro())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxIntivo())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxPlus())
 	}
 	Do $$$AssertFalse(KortingConfiguratieLijstIt.HasNext())
 ]]></Implementation>
 </Method>
 
-<Method name="AssertKortingConfiguratieLijstHaefeleNL">
+<Method name="AssertKortingConfiguratieLijstZonderTbx">
 <FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
 <Implementation><![CDATA[
 	Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
 	
 	If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
-		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"NL2000001"
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).LegraboxPure())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).Taorbox())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxAntaro())
+		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"NL1000000"
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.314,##class(DOM.PM.enu.Variant).LegraboxPure())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.271,##class(DOM.PM.enu.Variant).Merivobox())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.141,##class(DOM.PM.enu.Variant).Orgalux())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.120,##class(DOM.PM.enu.Variant).Taorbox())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.000,##class(DOM.PM.enu.Variant).TandemboxAntaro())
 	}
 	Do $$$AssertFalse(KortingConfiguratieLijstIt.HasNext())
 ]]></Implementation>
 </Method>
 
-<Method name="AssertKortingConfiguratieLijstHaefeleDE">
+<Method name="AssertKortingConfiguratieLijstHaefeleBE">
 <FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
 <Implementation><![CDATA[
 	Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
 	
 	If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
-		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"DE2000001"
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).LegraboxPure())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).Merivobox())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).Taorbox())
-		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.161,##class(DOM.PM.enu.Variant).TandemboxAntaro())
+		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"BE2000001"
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.314,##class(DOM.PM.enu.Variant).LegraboxPure())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.000,##class(DOM.PM.enu.Variant).Merivobox())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.141,##class(DOM.PM.enu.Variant).Orgalux())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.120,##class(DOM.PM.enu.Variant).Taorbox())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.000,##class(DOM.PM.enu.Variant).TandemboxAntaro())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.000,##class(DOM.PM.enu.Variant).TandemboxIntivo())
+		Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.000,##class(DOM.PM.enu.Variant).TandemboxPlus())
 	}
 	Do $$$AssertFalse(KortingConfiguratieLijstIt.HasNext())
 ]]></Implementation>
@@ -231,10 +210,10 @@
 <ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
 <Implementation><![CDATA[
 	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
-	Set Customer.id = "BE1000000"
+	Set Customer.id = "NL1000000"
 	Do Customer.Reduction.SetAt(16.1,"TBX")
-	Do Customer.Reduction.SetAt(3.14,"LBX")
-	Do Customer.Reduction.SetAt(36.0,"TAX")
+	Do Customer.Reduction.SetAt(31.4,"LBX")
+	Do Customer.Reduction.SetAt(12.0,"TAX")
 	Do Customer.Reduction.SetAt(27.1,"MVX")
 	Do Customer.Reduction.SetAt(14.1,"OL")
 	Quit Customer
@@ -246,10 +225,10 @@
 <ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
 <Implementation><![CDATA[
 	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
-	Set Customer.id = "BE1000000"
+	Set Customer.id = "NL1000000"
 	Do Customer.Reduction.SetAt(16.1,"TBX")
-	Do Customer.Reduction.SetAt(3.14,"LBX")
-	Do Customer.Reduction.SetAt(36.0,"TAX")
+	Do Customer.Reduction.SetAt(31.4,"LBX")
+	Do Customer.Reduction.SetAt(12.0,"TAX")
 	Do Customer.Reduction.SetAt(27.1,"MVX")
 	Quit Customer
 ]]></Implementation>
@@ -260,10 +239,10 @@
 <ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
 <Implementation><![CDATA[
 	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
-	Set Customer.id = "BE1000000"
+	Set Customer.id = "NL1000000"
 	Do Customer.Reduction.SetAt(16.1,"TBX")
-	Do Customer.Reduction.SetAt(3.14,"LBX")
-	Do Customer.Reduction.SetAt(36.0,"TAX")
+	Do Customer.Reduction.SetAt(31.4,"LBX")
+	Do Customer.Reduction.SetAt(12.0,"TAX")
 	Do Customer.Reduction.SetAt(14.1,"OL")
 	Quit Customer
 ]]></Implementation>
@@ -274,7 +253,7 @@
 <ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
 <Implementation><![CDATA[
 	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
-	Set Customer.id = "BE1000000"
+	Set Customer.id = "NL1000000"
 	Do Customer.Reduction.SetAt(16.1,"TBX")
 	Quit Customer
 ]]></Implementation>
@@ -285,18 +264,33 @@
 <ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
 <Implementation><![CDATA[
 	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
-	Set Customer.id = "BE1000000"
-	Do Customer.Reduction.SetAt(3.14,"LBX")
-	Do Customer.Reduction.SetAt(27.1,"TAX")
+	Set Customer.id = "NL1000000"
+	Do Customer.Reduction.SetAt(31.4,"LBX")
+	Do Customer.Reduction.SetAt(12.0,"TAX")
+	Do Customer.Reduction.SetAt(27.1,"MVX")
 	Do Customer.Reduction.SetAt(14.1,"OL")
 	Quit Customer
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantHaefeleBE">
+<Private>1</Private>
+<ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
+<Implementation><![CDATA[
+	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
+	Set Customer.id = "BE2000001"
+	Do Customer.Reduction.SetAt(31.4,"LBX")
+	Do Customer.Reduction.SetAt(12.0,"TAX")
+	Do Customer.Reduction.SetAt(14.1,"OL")
+	Quit Customer
+]]></Implementation>
+</Method>
+
 <Method name="ZetKortingServiceHelperMockMethodCalls">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim PersonalityHaefeleBE = ##class(DOM.common.enu.Personality).HaefeleBE()
+	#dim PersonalityHaefeleNL = ##class(DOM.common.enu.Personality).HaefeleNL()
 	
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariant", "TBX_INTIVO").DanReturn(##class(DOM.PM.enu.Variant).TandemboxIntivo())
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariant", "TBX_ANTARO").DanReturn(##class(DOM.PM.enu.Variant).TandemboxAntaro())
@@ -307,7 +301,14 @@
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariant", "OL").DanReturn(##class(DOM.PM.enu.Variant).Orgalux())
 	
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVoorPersonality", PersonalityHaefeleBE).DanReturn($ListBuild("TBX_Intivo", "TBX_Antaro", "TBX_Plus", "LBX_Pure", "TAOR", "MVX", "OL"))
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVoorPersonality", PersonalityHaefeleNL).DanReturn($ListBuild("TBX_Antaro", "LBX_Pure", "TAOR", "MVX", "OL"))
 	
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVanTypeVoorPersonality", "TBX", PersonalityHaefeleNL).DanReturn($ListBuild("TBX_Antaro"))
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVanTypeVoorPersonality", "LBX", PersonalityHaefeleNL).DanReturn($ListBuild("LBX_Pure"))
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVanTypeVoorPersonality", "TAX", PersonalityHaefeleNL).DanReturn($ListBuild("TAOR"))
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVanTypeVoorPersonality", "MVX", PersonalityHaefeleNL).DanReturn($ListBuild("MVX"))
+	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVanTypeVoorPersonality", "OL", PersonalityHaefeleNL).DanReturn($ListBuild("OL"))
+	
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVanTypeVoorPersonality", "TBX", PersonalityHaefeleBE).DanReturn($ListBuild("TBX_Intivo", "TBX_Antaro", "TBX_Plus"))
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVanTypeVoorPersonality", "LBX", PersonalityHaefeleBE).DanReturn($ListBuild("LBX_Pure"))
 	Do ..KortingServiceHelperMock.IndienMethodCall("GeefVariantenVanTypeVoorPersonality", "TAX", PersonalityHaefeleBE).DanReturn($ListBuild("TAOR"))