Index: vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml	(revision 61316)
@@ -0,0 +1,121 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Korting.impl.KortingService.GeefKortingConfiguratieLijst.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Personality">
+<Type>DOM.common.Personality</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test HaefeleBE">
+<Implementation><![CDATA[
+	#dim CustomerBE As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerBE()
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleBE()
+	Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
+	#dim KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst
+		
+	Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New()
+	Set KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(CustomerBE,PersonalityID)
+		
+	Do ..AssertKortingConfiguratieLijstHaefeleBE(KortingConfiguratieLijst)
+]]></Implementation>
+</Method>
+
+<Method name="Test HaefeleNL">
+<Implementation><![CDATA[
+	#dim CustomerNL As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerNL()
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleNL()
+	Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
+	#dim KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst
+		
+	Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New()
+	Set KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(CustomerNL,PersonalityID)
+		
+	Do ..AssertKortingConfiguratieLijstHaefeleNL(KortingConfiguratieLijst)
+]]></Implementation>
+</Method>
+
+<Method name="Test HaefeleDE">
+<Implementation><![CDATA[
+	#dim CustomerDE As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerDE()
+	#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).HaefeleDE()
+	Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(PersonalityID)
+	#dim KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst
+		
+	Set KortingService = ##class(APPS.VKP.Korting.impl.KortingService).%New()
+	Set KortingConfiguratieLijst = KortingService.GeefKortingConfiguratieLijst(CustomerDE,PersonalityID)
+		
+	Do ..AssertKortingConfiguratieLijstHaefeleDE(KortingConfiguratieLijst)
+]]></Implementation>
+</Method>
+
+<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()_"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.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[
+	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(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())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AssertKortingConfiguratieLijstHaefeleDE">
+<FormalSpec>KortingConfiguratieLijst:APPS.VKP.dto.KortingConfiguratieLijst</FormalSpec>
+<Implementation><![CDATA[
+	Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
+		
+	While KortingConfiguratieLijstIt.HasNext() {
+		#dim KortingConfiguratie As APPS.VKP.dto.KortingConfiguratie = KortingConfiguratieLijstIt.Next()
+		Quit:(KortingConfiguratie.KlantID = "hfleDE_DE2000001")
+	}
+		
+	If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
+		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"DE2000001"
+		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>
+</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[
+	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>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/Klantspecifiek/Haefele/KortingParser/Parse/Test.cls.xml
===================================================================
diff -u -r61295 -r61316
--- vhUnitTest/APPS/VKP/Klantspecifiek/Haefele/KortingParser/Parse/Test.cls.xml	(.../Test.cls.xml)	(revision 61295)
+++ vhUnitTest/APPS/VKP/Klantspecifiek/Haefele/KortingParser/Parse/Test.cls.xml	(.../Test.cls.xml)	(revision 61316)
@@ -3,10 +3,106 @@
 <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).GeefCustomerDE()
+<Method name="Test HaefeleDE met 1 klant">
+<Implementation><![CDATA[
+	#dim Customer As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerDE()
+	#dim PersonalityID = ##class(DOM.common.enu.Personality).HaefeleDE()
+	#dim MockCustomerVerwerker As vhTest.Mock.APPS.VKP.Korting.impl.CustomerVerwerker = ##class(vhTest.Mock.APPS.VKP.Korting.impl.CustomerVerwerker).%New()
+	Do MockCustomerVerwerker.VerwachtMethodCall("VerwerkCustomer",..Matches.Object(Customer),PersonalityID)
+	#dim FakeReader As vhTest.Fake.TECH.XMLReader.FakeKortingReader = ##class(vhTest.Fake.TECH.XMLReader.FakeKortingReader).%New()
+	Set FakeReader.MaxNumberOfCustomers = 1
+	#dim KortingParser As APPS.VKP.Klantspecifiek.Haefele.KortingParser = ##class(APPS.VKP.Klantspecifiek.Haefele.KortingParser).%New(,FakeReader, MockCustomerVerwerker)
+	
+	Do KortingParser.Parse($$$DummyString,PersonalityID)
+	
+	Do MockCustomerVerwerker.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test HaefeleDE met 2 klanten">
+<Implementation><![CDATA[
+	#dim Customer As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerDE()
+	#dim PersonalityID = ##class(DOM.common.enu.Personality).HaefeleDE()
+	#dim MockCustomerVerwerker As vhTest.Mock.APPS.VKP.Korting.impl.CustomerVerwerker = ##class(vhTest.Mock.APPS.VKP.Korting.impl.CustomerVerwerker).%New()
+	Do MockCustomerVerwerker.VerwachtMethodCall("VerwerkCustomer",..Matches.Object(Customer),PersonalityID)
+
+	#dim FakeReader As vhTest.Fake.TECH.XMLReader.FakeKortingReader = ##class(vhTest.Fake.TECH.XMLReader.FakeKortingReader).%New()
+	Set FakeReader.MaxNumberOfCustomers = 2
+	#dim KortingParser As APPS.VKP.Klantspecifiek.Haefele.KortingParser = ##class(APPS.VKP.Klantspecifiek.Haefele.KortingParser).%New(,FakeReader, MockCustomerVerwerker)
+	
+	Do KortingParser.Parse($$$DummyString,PersonalityID)
+	
+	Do MockCustomerVerwerker.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test HaefeleBE met 1 klant">
+<Implementation><![CDATA[
+	#dim Customer As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerDE()
+	#dim PersonalityID = ##class(DOM.common.enu.Personality).HaefeleBE()
+	#dim MockCustomerVerwerker As vhTest.Mock.APPS.VKP.Korting.impl.CustomerVerwerker = ##class(vhTest.Mock.APPS.VKP.Korting.impl.CustomerVerwerker).%New()
+	Do MockCustomerVerwerker.VerwachtMethodCall("VerwerkCustomer",..Matches.Object(Customer),PersonalityID)
+	#dim FakeReader As vhTest.Fake.TECH.XMLReader.FakeKortingReader = ##class(vhTest.Fake.TECH.XMLReader.FakeKortingReader).%New()
+	Set FakeReader.MaxNumberOfCustomers = 1
+
+	#dim KortingParser As APPS.VKP.Klantspecifiek.Haefele.KortingParser = ##class(APPS.VKP.Klantspecifiek.Haefele.KortingParser).%New(,FakeReader, MockCustomerVerwerker)
+	
+	Do KortingParser.Parse($$$DummyString,PersonalityID)
+	
+	Do MockCustomerVerwerker.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test HaefeleBE met 2 klanten">
+<Implementation><![CDATA[
+	#dim Customer As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerDE()
+	#dim PersonalityID = ##class(DOM.common.enu.Personality).HaefeleBE()
+	#dim MockCustomerVerwerker As vhTest.Mock.APPS.VKP.Korting.impl.CustomerVerwerker = ##class(vhTest.Mock.APPS.VKP.Korting.impl.CustomerVerwerker).%New()
+	Do MockCustomerVerwerker.VerwachtMethodCall("VerwerkCustomer",..Matches.Object(Customer),PersonalityID)
+
+	#dim FakeReader As vhTest.Fake.TECH.XMLReader.FakeKortingReader = ##class(vhTest.Fake.TECH.XMLReader.FakeKortingReader).%New()
+	Set FakeReader.MaxNumberOfCustomers = 2
+	#dim KortingParser As APPS.VKP.Klantspecifiek.Haefele.KortingParser = ##class(APPS.VKP.Klantspecifiek.Haefele.KortingParser).%New(,FakeReader, MockCustomerVerwerker)
+	
+	Do KortingParser.Parse($$$DummyString,PersonalityID)
+	
+	Do MockCustomerVerwerker.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test HaefeleNL met 1 klant">
+<Implementation><![CDATA[
+	#dim Customer As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerDE()
+	#dim PersonalityID = ##class(DOM.common.enu.Personality).HaefeleNL()
+	#dim MockCustomerVerwerker As vhTest.Mock.APPS.VKP.Korting.impl.CustomerVerwerker = ##class(vhTest.Mock.APPS.VKP.Korting.impl.CustomerVerwerker).%New()
+	Do MockCustomerVerwerker.VerwachtMethodCall("VerwerkCustomer",..Matches.Object(Customer),PersonalityID)
+	#dim FakeReader As vhTest.Fake.TECH.XMLReader.FakeKortingReader = ##class(vhTest.Fake.TECH.XMLReader.FakeKortingReader).%New()
+	Set FakeReader.MaxNumberOfCustomers = 1
+
+	#dim KortingParser As APPS.VKP.Klantspecifiek.Haefele.KortingParser = ##class(APPS.VKP.Klantspecifiek.Haefele.KortingParser).%New(,FakeReader, MockCustomerVerwerker)
+	
+	Do KortingParser.Parse($$$DummyString,PersonalityID)
+	
+	Do MockCustomerVerwerker.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test HaefeleNL met 2 klanten">
+<Implementation><![CDATA[
+	#dim Customer As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerDE()
+	#dim PersonalityID = ##class(DOM.common.enu.Personality).HaefeleNL()
+	#dim MockCustomerVerwerker As vhTest.Mock.APPS.VKP.Korting.impl.CustomerVerwerker = ##class(vhTest.Mock.APPS.VKP.Korting.impl.CustomerVerwerker).%New()
+	Do MockCustomerVerwerker.VerwachtMethodCall("VerwerkCustomer",..Matches.Object(Customer),PersonalityID)
+
+	#dim FakeReader As vhTest.Fake.TECH.XMLReader.FakeKortingReader = ##class(vhTest.Fake.TECH.XMLReader.FakeKortingReader).%New()
+	Set FakeReader.MaxNumberOfCustomers = 2
+	#dim KortingParser As APPS.VKP.Klantspecifiek.Haefele.KortingParser = ##class(APPS.VKP.Klantspecifiek.Haefele.KortingParser).%New(,FakeReader, MockCustomerVerwerker)
+	
+	Do KortingParser.Parse($$$DummyString,PersonalityID)
+	
+	Do MockCustomerVerwerker.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/VKP/Korting/impl/CustomerVerwerker.cls.xml
===================================================================
diff -u -r61294 -r61316
--- APPS/VKP/Korting/impl/CustomerVerwerker.cls.xml	(.../CustomerVerwerker.cls.xml)	(revision 61294)
+++ APPS/VKP/Korting/impl/CustomerVerwerker.cls.xml	(.../CustomerVerwerker.cls.xml)	(revision 61316)
@@ -30,6 +30,7 @@
 <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>
Index: APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml
===================================================================
diff -u -r61294 -r61316
--- APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml	(.../KortingParser.cls.xml)	(revision 61294)
+++ APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml	(.../KortingParser.cls.xml)	(revision 61316)
@@ -39,33 +39,27 @@
 </Method>
 
 <Method name="Parse">
-<FormalSpec>BestandNaam:%String,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<FormalSpec>BestandsNaam:%String,PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <Implementation><![CDATA[
 	
 	#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")
+	#dim Status As %String = ..XMLReader.OpenFile(BestandsNaam)
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status,"Er is een fout in je invoer bestand")
 	
 	Do ..XMLReader.Correlate("Customer","APPS.VKP.Korting.xml.Customer")
 	
-	While( ..XMLReader.Next(.Customer, .status) ) {
-		Do ..CustomerVerwerker.VerwerkCustomer(Customer,PersonalityID)
+	While( ..XMLReader.Next(.Customer, .Status) ) {
+		Try {
+			Do ..CustomerVerwerker.VerwerkCustomer(Customer,PersonalityID)	
+		} Catch {
+
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do ##class(vhLib.Logger).%New().LogEnMailExceptie(Exception, "Bestandsnaam: "_BestandsNaam_" Personality: "_PersonalityID_" Customer: "_Customer.id_" Met reduction: "_Customer.Reduction)
+		}
 	}
-	If $system.Status.IsError(status) do $System.Status.DisplayError(status_"er is iets fout gelopen bij het lezen van het bestand")
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status,"Er is een fout gebeurd tijdens het verwerken van een klant in het bestand: "_BestandsNaam)
 ]]></Implementation>
 </Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/// Momenteel is hier niks specifiek aan voor Haefele, denk.  Waarom dan specifieke implementatie?
-///    [ #KritischeReview ]  :-) 
-/// 
-
-]]></Content>
-</UDLText>
 </Class>
 
 
Index: vhTest/Mock/APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml
===================================================================
diff -u -r61294 -r61316
--- vhTest/Mock/APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml	(.../KortingParser.cls.xml)	(revision 61294)
+++ vhTest/Mock/APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml	(.../KortingParser.cls.xml)	(revision 61316)
@@ -16,8 +16,8 @@
 </Method>
 
 <Method name="Parse">
-<FormalSpec>BestandNaam:%String,PersonalityID:DOM.common.enu.Personality</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("Parse",BestandNaam,PersonalityID)
+<FormalSpec>BestandsNaam:%String,PersonalityID:DOM.common.enu.Personality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Parse",BestandsNaam,PersonalityID)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Utils/APPS/VKP/Korting/Customer.cls.xml
===================================================================
diff -u -r61294 -r61316
--- vhTest/Utils/APPS/VKP/Korting/Customer.cls.xml	(.../Customer.cls.xml)	(revision 61294)
+++ vhTest/Utils/APPS/VKP/Korting/Customer.cls.xml	(.../Customer.cls.xml)	(revision 61316)
@@ -19,10 +19,10 @@
 <ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
 <Implementation><![CDATA[
 	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
-	Set Customer.id = "BE2000002"
+	Set Customer.id = "BE2000001"
 	Do Customer.Reduction.SetAt(10.1,"TBX")
-	Do Customer.Reduction.SetAt(30.3,"LBX")
-	Do Customer.Reduction.SetAt(5.55,"TAX")
+	Do Customer.Reduction.SetAt(5.55,"LBX")
+	Do Customer.Reduction.SetAt(30.3,"TAX")
 	Quit Customer
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/VKP/Korting/impl/CustomerVerwerker/VerwerkCustomer/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Korting/impl/CustomerVerwerker/VerwerkCustomer/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Korting/impl/CustomerVerwerker/VerwerkCustomer/Test.cls.xml	(revision 61316)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Korting.impl.CustomerVerwerker.VerwerkCustomer.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test VerwerkCustomer">
+<Implementation><![CDATA[
+	#dim Customer As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerDE()
+	#dim PersonalityID = ##class(DOM.common.enu.Personality).HaefeleDE()
+	#dim KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst = ##class(APPS.VKP.dto.KortingConfiguratieLijst).%New()
+
+	#dim MockKortingService As vhTest.Mock.APPS.VKP.Korting.impl.KortingService= ##class(vhTest.Mock.APPS.VKP.Korting.impl.KortingService).%New()
+	Do MockKortingService.VerwachtMethodCall("GeefKortingConfiguratieLijst", Customer, PersonalityID).DanReturn(KortingConfiguratieLijst)
+	#dim MockVerkoopAPI As vhTest.Mock.APPS.VKP.VerkoopPrijsAPI = ##class(vhTest.Mock.APPS.VKP.VerkoopPrijsAPI).%New()
+	Do MockVerkoopAPI.VerwachtMethodCall("StelInKortingenVoorKlant",KortingConfiguratieLijst)
+	
+	#dim CustomerVerwerker As APPS.VKP.Korting.impl.CustomerVerwerker = ##class(APPS.VKP.Korting.impl.CustomerVerwerker).%New(MockVerkoopAPI, MockKortingService)
+	Do CustomerVerwerker.VerwerkCustomer(Customer, PersonalityID)
+
+	Do MockKortingService.Verifieer()
+	Do MockVerkoopAPI.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/Test.cls.xml
===================================================================
diff -u -r61294 -r61316
--- vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/Test.cls.xml	(.../Test.cls.xml)	(revision 61294)
+++ vhUnitTest/APPS/VKP/Korting/impl/KortingService/StelInKortingen/Test.cls.xml	(.../Test.cls.xml)	(revision 61316)
@@ -3,15 +3,9 @@
 <Class name="vhUnitTest.APPS.VKP.Korting.impl.KortingService.StelInKortingen.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Property name="Personality">
-<Type>DOM.common.Personality</Type>
-<Private>1</Private>
-</Property>
-
 <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)
 		
 		Set KortingVerwijderaarMock = ##class(vhTest.Mock.APPS.VKP.Korting.impl.KortingVerwijderaar).%New()
 		Do KortingVerwijderaarMock.VerwachtMethodCall("Verwijder",PersonalityID)
@@ -29,7 +23,6 @@
 <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 KortingVerwijderaarMock = ##class(vhTest.Mock.APPS.VKP.Korting.impl.KortingVerwijderaar).%New()
 		Do KortingVerwijderaarMock.VerwachtMethodCall("Verwijder",PersonalityID)
@@ -47,7 +40,6 @@
 <Method name="Test HaefeleDE">
 <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 KortingVerwijderaarMock = ##class(vhTest.Mock.APPS.VKP.Korting.impl.KortingVerwijderaar).%New()
 		Do KortingVerwijderaarMock.VerwachtMethodCall("Verwijder",PersonalityID)
@@ -61,78 +53,6 @@
 		Do KortingVerwijderaarMock.Verifieer()
 ]]></Implementation>
 </Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method AssertKortingConfiguratieLijstHaefeleBE(KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst)
-{
-		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.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.101,##class(DOM.PM.enu.Variant).TandemboxIntivo())
-			Do ..AssertKortingConfiguratie(KortingConfiguratieLijstIt.Next(),KlantID,0.101,##class(DOM.PM.enu.Variant).TandemboxPlus())
-		}
-}
-
-Method AssertKortingConfiguratieLijstHaefeleNL(KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst)
-{
-		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(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())
-		}
-}
-
-Method AssertKortingConfiguratieLijstHaefeleDE(KortingConfiguratieLijst As APPS.VKP.dto.KortingConfiguratieLijst)
-{
-		Set KortingConfiguratieLijstIt = ##class(TECH.ListIterator).%New(KortingConfiguratieLijst)
-		
-		While KortingConfiguratieLijstIt.HasNext() {
-			#dim KortingConfiguratie As APPS.VKP.dto.KortingConfiguratie = KortingConfiguratieLijstIt.Next()
-			Quit:(KortingConfiguratie.KlantID = "hfleDE_DE2000001")
-		}
-		
-		If $$$AssertTrue(KortingConfiguratieLijstIt.HasNext()){
-			#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Personality.GeefPrefix()_"DE2000001"
-			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())
-}
-
-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)
-}
-*/
-]]></Content>
-</UDLText>
 </Class>