Index: vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/Test.cls.xml
===================================================================
diff -u -r48514 -r48515
--- vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/Test.cls.xml	(.../Test.cls.xml)	(revision 48514)
+++ vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/Test.cls.xml	(.../Test.cls.xml)	(revision 48515)
@@ -51,6 +51,39 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Voor 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.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">
+<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()_"NL2000001"
+			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.146,##class(DOM.PM.enu.Variant).TandemboxAntaro())
+		}
+		Do $$$AssertFalse(KortingConfiguratieLijstIt.HasNext())
+]]></Implementation>
+</Method>
+
 <Method name="AssertKortingConfiguratie">
 <FormalSpec>KortingConfiguratie:APPS.VKP.dto.KortingConfiguratie,KlantID:DOM.VKP.VanHoeckeKlantID,KortingPercentage:TECH.Percentage,Variant:DOM.PM.enu.Variant</FormalSpec>
 <Implementation><![CDATA[
Index: vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/DummyKortingParserTbxVoorNL.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/DummyKortingParserTbxVoorNL.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/DummyKortingParserTbxVoorNL.cls.xml	(revision 48515)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Korting.impl.KortingService.StelInKortingen.DummyKortingParserTbxVoorNL">
+<Super>TECH.RegisteredObject,APPS.VKP.Korting.KortingParser</Super>
+
+<Method name="Parse">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<ReturnType>APPS.VKP.Korting.xml.CustomerInfo</ReturnType>
+<Implementation><![CDATA[
+	Set CustomerInfo = ##class(APPS.VKP.Korting.xml.CustomerInfo).%New()
+	Do CustomerInfo.Customer.Insert(..GeefCustomer("NL2000001", 14.6))
+	Quit CustomerInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefCustomer">
+<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>
+
+
+</Export>