Index: vhTest/Utils/APPS/VKP/Korting/Customer.cls.xml
===================================================================
diff -u -r61316 -r61323
--- vhTest/Utils/APPS/VKP/Korting/Customer.cls.xml	(.../Customer.cls.xml)	(revision 61316)
+++ vhTest/Utils/APPS/VKP/Korting/Customer.cls.xml	(.../Customer.cls.xml)	(revision 61323)
@@ -5,10 +5,11 @@
 
 <Method name="GeefCustomerDE">
 <ClassMethod>1</ClassMethod>
+<FormalSpec>Customernumber:%Integer=200000</FormalSpec>
 <ReturnType>APPS.VKP.Korting.xml.Customer</ReturnType>
 <Implementation><![CDATA[
 	Set Customer = ##class(APPS.VKP.Korting.xml.Customer).%New()
-	Set Customer.id = "DE2000001" 
+	Set Customer.id = "DE"_Customernumber
 	Do Customer.Reduction.SetAt(10.1,"TBX")
 	Quit Customer
 ]]></Implementation>
Index: vhTest/Mock/APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml
===================================================================
diff -u -r61316 -r61323
--- vhTest/Mock/APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml	(.../KortingParser.cls.xml)	(revision 61316)
+++ vhTest/Mock/APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml	(.../KortingParser.cls.xml)	(revision 61323)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>KortingService:APPS.VKP.Korting.impl.KortingService="",XMLReader:TECH.XMLReader="",CustomerVerwerker:APPS.VKP.Korting.impl.CustomerVerwerker=""</FormalSpec>
+<FormalSpec>KortingService:APPS.VKP.Korting.impl.KortingService="",XMLReader:TECH.XMLReader="",CustomerVerwerker:APPS.VKP.Korting.impl.CustomerVerwerker="",Logger:vhLib.Logger=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
Index: vhUnitTest/APPS/VKP/Korting/impl/CustomerVerwerker/VerwerkCustomer/FakeKortingReader.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Korting/impl/CustomerVerwerker/VerwerkCustomer/FakeKortingReader.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Korting/impl/CustomerVerwerker/VerwerkCustomer/FakeKortingReader.cls.xml	(revision 61323)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Korting.impl.CustomerVerwerker.VerwerkCustomer.FakeKortingReader">
+<Super>vhTest.Fake.TECH.XMLReader</Super>
+
+<Property name="OpenFile">
+<Type>%String</Type>
+</Property>
+
+<Property name="Correlate">
+<Type>%String</Type>
+</Property>
+
+<Property name="Element">
+<Type>%String</Type>
+</Property>
+
+<Property name="Class">
+<Type>%String</Type>
+</Property>
+
+<Property name="MaxNumberOfCustomers">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="CurrentNumberOfCustomers">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>MaxNumberOfCustomers:%Integer=1</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..CurrentNumberOfCustomers = 0
+	Set ..MaxNumberOfCustomers = MaxNumberOfCustomers
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Correlate">
+<FormalSpec>element:%String,class:%String,namespace:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	Set ..Element = element
+	Set ..Class = class
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<FormalSpec><![CDATA[&Customer:%Library.ObjectHandle,&sc:%Status,namespace:%String=""]]></FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	 If ( ..CurrentNumberOfCustomers < ..MaxNumberOfCustomers ) {
+		Set ..CurrentNumberOfCustomers = ..CurrentNumberOfCustomers +1 
+		Set Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerDE(200000 + ..CurrentNumberOfCustomers)
+	 	Quit 1
+	 } Else {
+		Quit 0
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OpenFile">
+<Description>
+Import XML source from a file using %XML.Document.</Description>
+<FormalSpec>xmlsource:%String,format:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..OpenFile = xmlsource
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml
===================================================================
diff -u -r61316 -r61323
--- vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml	(.../Test.cls.xml)	(revision 61316)
+++ vhUnitTest/APPS/VKP/Korting/impl/KortingService/GeefKortingConfiguratieLijst/Test.cls.xml	(.../Test.cls.xml)	(revision 61323)
@@ -38,7 +38,7 @@
 
 <Method name="Test HaefeleDE">
 <Implementation><![CDATA[
-	#dim CustomerDE As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerDE()
+	#dim CustomerDE As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerDE(2000001)
 	#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
Index: APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml
===================================================================
diff -u -r61316 -r61323
--- APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml	(.../KortingParser.cls.xml)	(revision 61316)
+++ APPS/VKP/Klantspecifiek/Haefele/KortingParser.cls.xml	(.../KortingParser.cls.xml)	(revision 61323)
@@ -23,8 +23,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</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>
+<FormalSpec>KortingService:APPS.VKP.Korting.impl.KortingService="",XMLReader:TECH.XMLReader="",CustomerVerwerker:APPS.VKP.Korting.impl.CustomerVerwerker="",Logger:vhLib.Logger=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -34,6 +39,7 @@
 	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))
+	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -52,9 +58,9 @@
 		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)
+			Do ..Logger.ErrorMail(Exception.GeefOmschrijving(),"Bestandsnaam: '"_BestandsNaam_"' Personality: '"_PersonalityID_"' Customer: '"_Customer.id_"'")
+			
 		}
 	}
 	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status,"Er is een fout gebeurd tijdens het verwerken van een klant in het bestand: "_BestandsNaam)
Index: vhUnitTest/APPS/VKP/Klantspecifiek/Haefele/KortingParser/Parse/Test.cls.xml
===================================================================
diff -u -r61316 -r61323
--- vhUnitTest/APPS/VKP/Klantspecifiek/Haefele/KortingParser/Parse/Test.cls.xml	(.../Test.cls.xml)	(revision 61316)
+++ vhUnitTest/APPS/VKP/Klantspecifiek/Haefele/KortingParser/Parse/Test.cls.xml	(.../Test.cls.xml)	(revision 61323)
@@ -6,10 +6,14 @@
 <Method name="Test HaefeleDE met 1 klant">
 <Implementation><![CDATA[
 	#dim Customer As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerDE()
+	Set Customer.id = "DE200001"
+	
 	#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 = ##class(vhUnitTest.APPS.VKP.Korting.impl.CustomerVerwerker.VerwerkCustomer.FakeKortingReader).%New(1)
 	Set FakeReader.MaxNumberOfCustomers = 1
 	#dim KortingParser As APPS.VKP.Klantspecifiek.Haefele.KortingParser = ##class(APPS.VKP.Klantspecifiek.Haefele.KortingParser).%New(,FakeReader, MockCustomerVerwerker)
 	
@@ -19,25 +23,36 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test HaefeleDE met 2 klanten">
+<Method name="Test HaefeleDE met 3 klanten middelste met fout -&gt; verwerking gaat verder">
 <Implementation><![CDATA[
-	#dim Customer As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerDE()
+	#dim Customer1 As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerDE(200001)
+	#dim Customer2 As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerDE(200002)
+	#dim Customer3 As APPS.VKP.Korting.Customer = ##class(vhTest.Utils.APPS.VKP.Korting.Customer).GeefCustomerDE(200003)
 	#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)
+	Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Onze test exceptie")
+	
+	Do MockCustomerVerwerker.VerwachtMethodCall("VerwerkCustomer",..Matches.Object(Customer1),PersonalityID).DanDoeNiks()
+	Do MockCustomerVerwerker.IndienMethodCall("VerwerkCustomer",..Matches.Object(Customer2),PersonalityID).DanException(Exception)
+	Do MockCustomerVerwerker.VerwachtMethodCall("VerwerkCustomer",..Matches.Object(Customer3),PersonalityID).DanDoeNiks()
 
-	#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)
+	Set FakeReader = ##class(vhUnitTest.APPS.VKP.Korting.impl.CustomerVerwerker.VerwerkCustomer.FakeKortingReader).%New(3)
+	Set LoggerMock=##class(vhTest.Mock.vhLib.Logger).%New()
+	Do LoggerMock.VerwachtMethodCall("ErrorMail","Onze test exceptie","Bestandsnaam: 'NIET VAN TOEPASSING' Personality: '33' Customer: 'DE200002'")
+	#dim KortingParser As APPS.VKP.Klantspecifiek.Haefele.KortingParser = ##class(APPS.VKP.Klantspecifiek.Haefele.KortingParser).%New(,FakeReader, MockCustomerVerwerker,LoggerMock)
 	
 	Do KortingParser.Parse($$$DummyString,PersonalityID)
-	
+	Do LoggerMock.Verifieer()
 	Do MockCustomerVerwerker.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test HaefeleBE met 1 klant">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test HaefeleBE met 1 klant"()
+{
 	#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()
@@ -50,11 +65,10 @@
 	Do KortingParser.Parse($$$DummyString,PersonalityID)
 	
 	Do MockCustomerVerwerker.Verifieer()
-]]></Implementation>
-</Method>
+}
 
-<Method name="Test HaefeleBE met 2 klanten">
-<Implementation><![CDATA[
+Method "Test HaefeleBE met 2 klanten"()
+{
 	#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()
@@ -67,11 +81,10 @@
 	Do KortingParser.Parse($$$DummyString,PersonalityID)
 	
 	Do MockCustomerVerwerker.Verifieer()
-]]></Implementation>
-</Method>
+}
 
-<Method name="Test HaefeleNL met 1 klant">
-<Implementation><![CDATA[
+Method "Test HaefeleNL met 1 klant"()
+{
 	#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()
@@ -84,11 +97,10 @@
 	Do KortingParser.Parse($$$DummyString,PersonalityID)
 	
 	Do MockCustomerVerwerker.Verifieer()
-]]></Implementation>
-</Method>
+}
 
-<Method name="Test HaefeleNL met 2 klanten">
-<Implementation><![CDATA[
+Method "Test HaefeleNL met 2 klanten"()
+{
 	#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()
@@ -101,8 +113,10 @@
 	Do KortingParser.Parse($$$DummyString,PersonalityID)
 	
 	Do MockCustomerVerwerker.Verifieer()
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 </Class>