Index: vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/Test.cls.xml
===================================================================
diff -u -r58718 -r61294
--- vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/Test.cls.xml	(.../Test.cls.xml)	(revision 58718)
+++ vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/Test.cls.xml	(.../Test.cls.xml)	(revision 61294)
@@ -12,17 +12,16 @@
 <Implementation><![CDATA[
 		#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleBE()
 		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)
+		Set KortingParserMock = ##class(vhTest.Mock.APPS.VKP.Klantspecifiek.Haefele.KortingParser).%New()
+		Do KortingParserMock.VerwachtMethodCall("Parse",$$$DummyString,PersonalityID)
+
+		Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New(KortingParserMock,KortingVerwijderaarMock)
 		Do KortingService.StelInKortingenUitBestand($$$DummyString,PersonalityID)
-		
-		Do ..AssertKortingConfiguratieLijstHaefeleBE(VerkoopPrijsAPI.GeefKortingConfiguratieLijst())
-		
+	
+		Do KortingParserMock.Verifieer()
 		Do KortingVerwijderaarMock.Verifieer()
 ]]></Implementation>
 </Method>
@@ -31,17 +30,16 @@
 <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)
+		Set KortingParserMock = ##class(vhTest.Mock.APPS.VKP.Klantspecifiek.Haefele.KortingParser).%New()
+		Do KortingParserMock.VerwachtMethodCall("Parse",$$$DummyString,PersonalityID)
+
+		Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New(KortingParserMock,KortingVerwijderaarMock)
 		Do KortingService.StelInKortingenUitBestand($$$DummyString,PersonalityID)
-		
-		Do ..AssertKortingConfiguratieLijstHaefeleNL(VerkoopPrijsAPI.GeefKortingConfiguratieLijst())
-		
+	
+		Do KortingParserMock.Verifieer()
 		Do KortingVerwijderaarMock.Verifieer()
 ]]></Implementation>
 </Method>
@@ -50,24 +48,25 @@
 <Implementation><![CDATA[
 		#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleDE()
 		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)
+		Set KortingParserMock = ##class(vhTest.Mock.APPS.VKP.Klantspecifiek.Haefele.KortingParser).%New()
+		Do KortingParserMock.VerwachtMethodCall("Parse",$$$DummyString,PersonalityID)
+
+		Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New(KortingParserMock,KortingVerwijderaarMock)
 		Do KortingService.StelInKortingenUitBestand($$$DummyString,PersonalityID)
-		
-		Do ..AssertKortingConfiguratieLijstHaefeleDE(VerkoopPrijsAPI.GeefKortingConfiguratieLijst())
-		
+	
+		Do KortingParserMock.Verifieer()
 		Do KortingVerwijderaarMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="AssertKortingConfiguratieLijstHaefeleBE">
-<FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method AssertKortingConfiguratieLijstHaefeleBE(KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst)
+{
 		Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
 		
 		If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
@@ -86,12 +85,10 @@
 			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())
 		}
-]]></Implementation>
-</Method>
+}
 
-<Method name="AssertKortingConfiguratieLijstHaefeleNL">
-<FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
-<Implementation><![CDATA[
+Method AssertKortingConfiguratieLijstHaefeleNL(KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst)
+{
 		Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
 		
 		While KortingConfiguratieLijstIt.HasNext() {
@@ -105,12 +102,10 @@
 			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())
 		}
-]]></Implementation>
-</Method>
+}
 
-<Method name="AssertKortingConfiguratieLijstHaefeleDE">
-<FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
-<Implementation><![CDATA[
+Method AssertKortingConfiguratieLijstHaefeleDE(KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst)
+{
 		Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
 		
 		While KortingConfiguratieLijstIt.HasNext() {
@@ -125,19 +120,19 @@
 			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##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[
+Method AssertKortingConfiguratie(KortingConfiguratie As APPS.VKP.dto.KortingConfiguratie, KlantID As DOM.VKP.VanHoeckeKlantID, KortingPercentage As TECH.Percentage, Variant As DOM.PM.enu.Variant)
+{
 		Do $$$AssertEquals(KortingConfiguratie.KlantID,KlantID,Variant)
 		Do $$$AssertEquals(KortingConfiguratie.Familie,##class(DOM.PM.enu.Familie).Lade(),Variant)
 		Do $$$AssertEquals(KortingConfiguratie.PersonalityID,..Personality.GeefID(),Variant)
 		Do $$$AssertEquals(KortingConfiguratie.KortingPercentage,KortingPercentage,Variant)
 		Do $$$AssertEquals(KortingConfiguratie.Variant,Variant,Variant)
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 </Class>
 
 
Index: vhTest/Mock/APPS/VKP/Korting/impl/CustomerVerwerker.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/VKP/Korting/impl/CustomerVerwerker.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/VKP/Korting/impl/CustomerVerwerker.cls.xml	(revision 61294)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.VKP.Korting.impl.CustomerVerwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Korting.impl.CustomerVerwerker,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopAPI:APPS.VKP.VerkoopPrijsAPI,KortingService:APPS.VKP.Korting.impl.KortingService</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkCustomer">
+<FormalSpec>Customer:APPS.VKP.Korting.xml.Customer,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkCustomer",Customer,PersonalityID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml	(revision 61294)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.VKP.Klantspecifiek.Haefele.KortingParser">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Klantspecifiek.Haefele.KortingParser</Super>
+
+<Method name="Parse">
+<FormalSpec>BestandNaam:%String,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml	(revision 61294)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.VKP.Klantspecifiek.Haefele.KortingParser">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Klantspecifiek.Haefele.KortingParser,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>KortingService:APPS.VKP.Korting.impl.KortingService="",XMLReader:TECH.XMLReader="",CustomerVerwerker:APPS.VKP.Korting.impl.CustomerVerwerker=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Parse">
+<FormalSpec>BestandNaam:%String,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Parse",BestandNaam,PersonalityID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Korting/KortingParser.cls.xml
===================================================================
diff -u -r29059 -r61294
--- APPS/VKP/Korting/KortingParser.cls.xml	(.../KortingParser.cls.xml)	(revision 29059)
+++ APPS/VKP/Korting/KortingParser.cls.xml	(.../KortingParser.cls.xml)	(revision 61294)
@@ -4,8 +4,7 @@
 <Abstract>1</Abstract>
 
 <Method name="Parse">
-<FormalSpec>BestandNaam:%String</FormalSpec>
-<ReturnType>APPS.VKP.Korting.xml.CustomerInfo</ReturnType>
+<FormalSpec>BestandNaam:%String,PersonalityID:DOM.common.enu.Personality</FormalSpec>
 </Method>
 </Class>
 
Index: vhTest/Fake/APPS/VKP/Korting/impl/CustomerVerwerker.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/VKP/Korting/impl/CustomerVerwerker.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/VKP/Korting/impl/CustomerVerwerker.cls.xml	(revision 61294)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.VKP.Korting.impl.CustomerVerwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Korting.impl.CustomerVerwerker</Super>
+
+<Method name="VerwerkCustomer">
+<FormalSpec>Customer:APPS.VKP.Korting.xml.Customer,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/Klantspecifiek/Haefele/KortingParser/Parse/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Klantspecifiek/Haefele/KortingParser/Parse/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Klantspecifiek/Haefele/KortingParser/Parse/Test.cls.xml	(revision 61294)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Klantspecifiek.Haefele.KortingParser.Parse.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test HaefeleDE">
+<Implementation><![CDATA[	#dim Customer As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefConsumerDE()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Korting/impl/CustomerVerwerker.cls.xml
===================================================================
diff -u
--- APPS/VKP/Korting/impl/CustomerVerwerker.cls.xml	(revision 0)
+++ APPS/VKP/Korting/impl/CustomerVerwerker.cls.xml	(revision 61294)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Korting.impl.CustomerVerwerker">
+<Super>TECH.RegisteredObject,TECH.Mockable</Super>
+
+<Property name="KortingService">
+<Type>APPS.VKP.Korting.impl.KortingService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>APPS.VKP.VerkoopPrijsAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopAPI:APPS.VKP.VerkoopPrijsAPI,KortingService:APPS.VKP.Korting.impl.KortingService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(APPS.ApplicatieContext).Instance().GeefVerkoopPrijsAPI())
+	Set ..KortingService = KortingService
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkCustomer">
+<FormalSpec>Customer:APPS.VKP.Korting.xml.Customer,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<Implementation><![CDATA[
+	#dim KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst
+	Set KortingConfiguratieLijst = ..KortingService.GeefKortingConfiguratieLijst(Customer,PersonalityID)
+	Do ..VerkoopAPI.StelInKortingenVoorKlant(KortingConfiguratieLijst)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Korting/impl/KortingService.cls.xml
===================================================================
diff -u -r58718 -r61294
--- APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 58718)
+++ APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 61294)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.VKP.Korting.impl.KortingService">
-<Super>TECH.RegisteredObject,APPS.VKP.Korting.KortingService</Super>
+<Super>TECH.RegisteredObject,APPS.VKP.Korting.KortingService,TECH.Mockable</Super>
 
 <Property name="KortingParser">
 <Type>APPS.VKP.Korting.KortingParser</Type>
@@ -20,51 +20,43 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..KortingParser = KortingParser
+	Set ..KortingParser = $$$Inject(KortingParser, ##class(APPS.VKP.Klantspecifiek.Haefele.KortingParser).%New(%this))
 	Set ..KortingVerwijderaar = $$$Implementation(KortingVerwijderaar,##class(APPS.VKP.Korting.impl.KortingVerwijderaar).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="StelInKortingenUitBestand">
 <FormalSpec>BestandNaam:%String,PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <Implementation><![CDATA[
-	#dim XMLCustomerInfo As APPS.VKP.Korting.xml.CustomerInfo = ..KortingParser.Parse(BestandNaam)
-	#dim KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst = ..GeefKortingConfiguratieLijst(XMLCustomerInfo,PersonalityID)
-	
 	// Verwijder() + StelIn...()   --> in één OperatieScope plaatsen 
 	Do ..KortingVerwijderaar.Verwijder(PersonalityID)
-	
-	#dim VerkoopAPI As APPS.VKP.VerkoopPrijsAPI = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopPrijsAPI()
-	Do VerkoopAPI.StelInKortingenVoorKlant(KortingConfiguratieLijst)
+	Do ..KortingParser.Parse(BestandNaam, PersonalityID)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKortingConfiguratieLijst">
 <Description><![CDATA[
 Goede punten : 2 dto's duidelijk onderscheid gemaakt door de package : van ".xml." naar ".dto"   --> VERKONDIG HET GOEDE VOORBEELD !!! ]]></Description>
-<FormalSpec>XMLCustomerInfo:APPS.VKP.Korting.xml.CustomerInfo,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<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)
-	Set CustomerInfoIt = ##class(TECH.ListIterator).%New(XMLCustomerInfo.Customer)
-	While CustomerInfoIt.HasNext(){
-		#dim Customer As APPS.VKP.Korting.xml.Customer = CustomerInfoIt.Next()
-		#dim KlantID As DOM.VKP.VanHoeckeKlantID = Personality.GeefPrefix()_Customer.id
+	#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)
+	Set ReductionIt = ##class(TECH.ListIterator).%New(Customer.Reduction)
+	#dim KortingConfiguratieArrayAlgemeen As Array Of APPS.VKP.dto.KortingConfiguratie = ..GeefKortingConfiguratieLijstAlgemeen(ReductionIt,KlantID,PersonalityID)
 		
-		Do ReductionIt.Reset()   ; Of gewoon opnieuw iterator New-en --> I see a refactor coming up :-) 
-		#dim KortingConfiguratieArraySpecifiek As Array Of APPS.VKP.dto.KortingConfiguratie = ..GeefKortingConfiguratieLijstSpecifiek(ReductionIt,KlantID,PersonalityID)
+	Do ReductionIt.Reset()   ; Of gewoon opnieuw iterator New-en --> I see a refactor coming up :-) 
+	#dim KortingConfiguratieArraySpecifiek As Array Of APPS.VKP.dto.KortingConfiguratie = ..GeefKortingConfiguratieLijstSpecifiek(ReductionIt,KlantID,PersonalityID)
 		
-		// Deze 3 lijnen zijn puur Array- en List-verwerking.
-		// Iedereen die hier passeert moet uitzoeken wat hier gebeurt, tenzij jij dit documenteert (=commentaar) of in method met een duidelijke naam steekt. 
-		#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ##class(TECH.ListUtils).CopyArrayOfObjects(KortingConfiguratieArraySpecifiek,KortingConfiguratieArrayAlgemeen)
-		#dim KCL As APPS.VKP.dto.KortingConfiguratieLijst = ..GeefKortingConfiguratieLijstVanArray(KortingConfiguratieArray)
-		Do ##class(TECH.ListUtils).CopyListOfObjects(KCL,KortingConfiguratieLijst)
-	}
+	// Deze 3 lijnen zijn puur Array- en List-verwerking.
+	// Iedereen die hier passeert moet uitzoeken wat hier gebeurt, tenzij jij dit documenteert (=commentaar) of in method met een duidelijke naam steekt. 
+	#dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ##class(TECH.ListUtils).CopyArrayOfObjects(KortingConfiguratieArraySpecifiek,KortingConfiguratieArrayAlgemeen)
+	#dim KCL As APPS.VKP.dto.KortingConfiguratieLijst = ..GeefKortingConfiguratieLijstVanArray(KortingConfiguratieArray)
+	Do ##class(TECH.ListUtils).CopyListOfObjects(KCL,KortingConfiguratieLijst)
 	
 	Quit KortingConfiguratieLijst
 ]]></Implementation>
@@ -102,6 +94,7 @@
 			#dim enuVariant As DOM.PM.enu.Variant = ..GeefVariant(Variant)
 			Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID,enuVariant,KortingPercentage,PersonalityID),enuVariant)
 		}
+		
 	}	
 	Quit KortingConfiguratieArray
 ]]></Implementation>
@@ -141,6 +134,7 @@
 				Do KortingConfiguratieArray.SetAt(..GeefKortingConfiguratie(KlantID,enuVariant,KortingPercentage,PersonalityID),enuVariant)
 			}
 		}
+		
 	}
 	Quit KortingConfiguratieArray
 ]]></Implementation>
Index: vhTest/Fake/APPS/VKP/Korting/impl/KortingService.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/VKP/Korting/impl/KortingService.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/VKP/Korting/impl/KortingService.cls.xml	(revision 61294)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.VKP.Korting.impl.KortingService">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Korting.impl.KortingService</Super>
+
+<Method name="GeefKortingConfiguratieLijst">
+<FormalSpec>Customer:APPS.VKP.Korting.xml.Customer,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<ReturnType>APPS.VKP.dto.KortingConfiguratieLijst</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Parse">
+<FormalSpec>BestandNaam:%String,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="StelInKortingenUitBestand">
+<FormalSpec>BestandNaam:%String,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/VKP/Korting/impl/KortingService.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/VKP/Korting/impl/KortingService.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/VKP/Korting/impl/KortingService.cls.xml	(revision 61294)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.VKP.Korting.impl.KortingService">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Korting.impl.KortingService,vhTest.Mock.APPS.VKP.Korting.KortingService</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>KortingParser:APPS.VKP.Korting.KortingParser,KortingVerwijderaar:APPS.VKP.Korting.impl.KortingVerwijderaar</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefKortingConfiguratieLijst">
+<FormalSpec>Customer:APPS.VKP.Korting.xml.Customer,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<ReturnType>APPS.VKP.dto.KortingConfiguratieLijst</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKortingConfiguratieLijst",Customer,PersonalityID)
+]]></Implementation>
+</Method>
+
+<Method name="StelInKortingenUitBestand">
+<FormalSpec>BestandNaam:%String,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("StelInKortingenUitBestand",BestandNaam,PersonalityID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/VKP/Korting/Customer.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/VKP/Korting/Customer.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/VKP/Korting/Customer.cls.xml	(revision 61294)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.VKP.Korting.Customer">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefCustomerDE">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
+<Implementation><![CDATA[
+	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
+	Set Customer.id = "DE2000001" 
+	Do Customer.Reduction.SetAt(10.1,"TBX")
+	Quit Customer
+]]></Implementation>
+</Method>
+
+<Method name="GeefCustomerBE">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
+<Implementation><![CDATA[
+	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
+	Set Customer.id = "BE2000002"
+	Do Customer.Reduction.SetAt(10.1,"TBX")
+	Do Customer.Reduction.SetAt(30.3,"LBX")
+	Do Customer.Reduction.SetAt(5.55,"TAX")
+	Quit Customer
+]]></Implementation>
+</Method>
+
+<Method name="GeefCustomerNL">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
+<Implementation><![CDATA[
+	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
+	Set Customer.id = "NL2000001"
+	Do Customer.Reduction.SetAt(10.1,"TBX")
+	Quit Customer
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml
===================================================================
diff -u -r29059 -r61294
--- APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml	(.../KortingParser.cls.xml)	(revision 29059)
+++ APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml	(.../KortingParser.cls.xml)	(revision 61294)
@@ -1,22 +1,71 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.VKP.Klantspecifiek.Haefele.KortingParser">
-<Super>TECH.RegisteredObject,APPS.VKP.Korting.KortingParser</Super>
+<Super>TECH.RegisteredObject,APPS.VKP.Korting.KortingParser,TECH.Mockable</Super>
 
+<Property name="VerkoopAPI">
+<Type>APPS.VKP.VerkoopPrijsAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="XMLReader">
+<Type>TECH.XMLReader</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CustomerVerwerker">
+<Type>APPS.VKP.Korting.impl.CustomerVerwerker</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KortingService">
+<Type>APPS.VKP.Korting.impl.KortingService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KortingService:APPS.VKP.Korting.impl.KortingService="",XMLReader:TECH.XMLReader="",CustomerVerwerker:APPS.VKP.Korting.impl.CustomerVerwerker=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KortingService = $$$Inject(KortingService,##class(APPS.VKP.Korting.impl.KortingService).%New(%this))
+	Set ..VerkoopAPI = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopPrijsAPI()
+	Set ..XMLReader = $$$Inject(XMLReader,##class(TECH.XMLReader).%New())
+	Set ..CustomerVerwerker = $$$Inject(CustomerVerwerker,##class(APPS.VKP.Korting.impl.CustomerVerwerker).%New(..VerkoopAPI, ..KortingService))
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Parse">
-<Description>
-Momenteel is hier niks specifiek aan voor Haefele, denk.  Waarom dan specifieke implementatie?
-   [ #KritischeReview ]  :-) 
-</Description>
-<FormalSpec>BestandNaam:%String</FormalSpec>
-<ReturnType>APPS.VKP.Korting.xml.CustomerInfo</ReturnType>
+<FormalSpec>BestandNaam:%String,PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <Implementation><![CDATA[
-	Set XMLCorrelator = ##class(TECH.XMLCorrelater).%New()
-	#dim CustomerInfo As APPS.VKP.Korting.xml.CustomerInfo
-	Set CustomerInfo = XMLCorrelator.GeefObjectVanBestand(BestandNaam,"APPS.VKP.Korting.xml.CustomerInfo","CustomerInfo")
-	Quit CustomerInfo
+	
+	#Dim Customer As APPS.VKP.Korting.xml.Customer
+	Do ##class(Tools.Wlip).%New(238).String("hoi")
+	Set ..XMLReader = ##class(TECH.XMLReader).%New()
+
+	#dim status As %String = ..XMLReader.OpenFile(BestandNaam)
+	If $system.Status.IsError(status) do $System.Status.DisplayError(status_"er is iets fout gelopen bij het openen van het bestand")
+	
+	Do ..XMLReader.Correlate("Customer","APPS.VKP.Korting.xml.Customer")
+	
+	While( ..XMLReader.Next(.Customer, .status) ) {
+		Do ..CustomerVerwerker.VerwerkCustomer(Customer,PersonalityID)
+	}
+	If $system.Status.IsError(status) do $System.Status.DisplayError(status_"er is iets fout gelopen bij het lezen van het bestand")
 ]]></Implementation>
 </Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/// Momenteel is hier niks specifiek aan voor Haefele, denk.  Waarom dan specifieke implementatie?
+///    [ #KritischeReview ]  :-) 
+/// 
+
+]]></Content>
+</UDLText>
 </Class>