Index: vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/DoeNalculatie/Test.cls.xml
===================================================================
diff -u -r54054 -r56248
--- vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/DoeNalculatie/Test.cls.xml	(.../Test.cls.xml)	(revision 54054)
+++ vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/DoeNalculatie/Test.cls.xml	(.../Test.cls.xml)	(revision 56248)
@@ -6,7 +6,7 @@
 <Method name="Test: Standaardgedrag">
 <Implementation><![CDATA[
 	#dim KlantId As %String = "K||2671"
-	#dim Bestandsnaam = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"), "Nacalculatie")_"Nacalculatie.csv"
+	#dim Bestandsnaam = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"), "Nacalculatie")_"NacalculatieHAEFELENEDERLAND.csv"
 	
 	#dim GegenereerdAntwoord As APPS.TRANSP.dto.NacalculatieLijst = ..GenereerAntwoordData(2)
 	Set TransportdataVoorKlantBepalerMock = ##class(vhTest.Mock.APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New()
@@ -41,7 +41,7 @@
 <Method name="Test: Geen data -&gt; toch mailen">
 <Implementation><![CDATA[
 	#dim KlantId As %String = "K||2671"
-	#dim Bestandsnaam = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"), "Nacalculatie")_"Nacalculatie.csv"
+	#dim Bestandsnaam = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"), "Nacalculatie")_"NacalculatieHAEFELENEDERLAND.csv"
 	
 	#dim GegenereerdAntwoord As APPS.TRANSP.dto.NacalculatieLijst = ..GenereerAntwoordData(0)
 	Set TransportdataVoorKlantBepalerMock = ##class(vhTest.Mock.APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New()
@@ -76,7 +76,7 @@
 <Method name="Test: Error tijdens verwerking, toch mail versturen">
 <Implementation><![CDATA[
 	#dim KlantId As %String = "K||2671"
-	#dim Bestandsnaam = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"), "Nacalculatie")_"Nacalculatie.csv"
+	#dim Bestandsnaam = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"), "Nacalculatie")_"NacalculatieHAEFELENEDERLAND.csv"
 	
 	#dim GegenereerdAntwoord As APPS.TRANSP.dto.NacalculatieLijst = ..GenereerAntwoordData(2)
 	Set GeenDataException = ##class(TECH.Exceptions.DataNotFoundException).%New("Geen data voor '"_KlantId_"'")
Index: APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml
===================================================================
diff -u -r54370 -r56248
--- APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml	(.../Nacalculator.cls.xml)	(revision 54370)
+++ APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml	(.../Nacalculator.cls.xml)	(revision 56248)
@@ -23,13 +23,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerkoopApi">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="FileUtils">
 <Type>TECH.File.FileUtils</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>TransportdataVoorKlantBepaler:APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler="",RapportGenerator:APPS.common.Rapport.impl.BestandGeneratorDataTransferObjectBased="",RapportDataFactory:APPS.TRANSP.impl.TransportService.Nacalculator.RapportDataFactory="",MailApi:TECH.Mail.MailAPI="",FileUtils:TECH.File.FileUtils=""</FormalSpec>
+<FormalSpec>TransportdataVoorKlantBepaler:APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler="",RapportGenerator:APPS.common.Rapport.impl.BestandGeneratorDataTransferObjectBased="",RapportDataFactory:APPS.TRANSP.impl.TransportService.Nacalculator.RapportDataFactory="",MailApi:TECH.Mail.MailAPI="",FileUtils:TECH.File.FileUtils="",VerkoopApi:DOM.VKP.VerkoopAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -40,21 +45,24 @@
 	Set ..RapportDataFactory = $$$Inject(RapportDataFactory, ##class(APPS.TRANSP.impl.TransportService.Nacalculator.RapportDataFactory).%New())
 	Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Mail.impl.MailAPI).%New())
 	Set ..FileUtils = $$$Inject(FileUtils, ##class(TECH.File.impl.FileUtils).%New())
+	Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.VKP.impl.VerkoopAPI).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="DoeNacalculatie">
 <FormalSpec>KlantId:DOM.common.PartijID</FormalSpec>
 <Implementation><![CDATA[
+	#dim KlantNaam As %String = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(..VerkoopApi.GeefKlant(KlantId).GeefNaam())
 	#dim Foldernaam As %String = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"), "Nacalculatie")
-	#dim Bestandsnaam As %String = ##class(TECH.Files).AppendFile(Foldernaam, "Nacalculatie.csv")
+	#dim Bestandsnaam As %String = ##class(TECH.Files).AppendFile(Foldernaam, "Nacalculatie"_KlantNaam_".csv")
 	
 	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
 	Do Mail.ZetVerzender($$$SystemMail("OV"))
-	Do Mail.ZetOnderwerp("Nacalculatie transporten "_KlantId)
+	Do Mail.ZetOnderwerp("Nacalculatie transporten "_KlantNaam)
 	Do Mail.ZetIsHTML($$$True)
-	#dim OntvangerIterator = ##class(TECH.ListbuildIterator).%New(##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.TRANSP.TransportService.Nacalculatie.MailOntvangers"))
+	#dim OntvangerIterator = ##class(TECH.ListbuildIterator).%New(##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.TRANSP.TransportService.Nacalculatie"_KlantNaam_".MailOntvangers"))
 	While OntvangerIterator.HasNext() {
 		Do Mail.VoegToeOntvanger(OntvangerIterator.Next())
 	}
@@ -68,13 +76,13 @@
 		Do ..RapportGenerator.MaakBestand(..RapportDataFactory.MaakRapportData(RitDataLijst, Bestandsnaam))
 		
 		//mailen
-		Do Mail.ZetInhoud("In de bijlage vind je de nacalculatiegegevens voor klant '"_KlantId_"' vanaf RitId '"_RitDataLijst.GetAt(1).RitNummer_"' tot en met RitId '"_RitDataLijst.GetAt(RitDataLijst.Count()).RitNummer_"'")
+		Do Mail.ZetInhoud("In de bijlage vind je de nacalculatiegegevens voor klant '"_KlantNaam_"' vanaf RitId '"_RitDataLijst.GetAt(1).RitNummer_"' tot en met RitId '"_RitDataLijst.GetAt(RitDataLijst.Count()).RitNummer_"'")
 		Do Mail.VoegToeBijlage(Bestandsnaam)
 		Do ..MailApi.VerstuurMail(Mail)
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do ##class(vhLib.Logger).%New().Error("Nacalculator", Exception.ToString())
-		Do Mail.ZetInhoud("Er ging iets mis tijdens de nacalculatie voor klant '"_KlantId_"'. ")
+		Do Mail.ZetInhoud("Er ging iets mis tijdens de nacalculatie voor klant '"_KlantNaam_"'. ")
 		Do ..MailApi.VerstuurMail(Mail)
 	}
 	//csv verwijderen
Index: vhDeploy/D20190416xNacalculatieEmailAdressenHaefeleNL.cls.xml
===================================================================
diff -u
--- vhDeploy/D20190416xNacalculatieEmailAdressenHaefeleNL.cls.xml	(revision 0)
+++ vhDeploy/D20190416xNacalculatieEmailAdressenHaefeleNL.cls.xml	(revision 56248)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20190416xNacalculatieEmailAdressenHaefeleNL">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Arjan en Alex als ontvanger van de mails instellen</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..VerwijderConfigItem("APPS.TRANSP.TransportService.Nacalculatie.MailOntvangers")
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.TRANSP.TransportService.NacalculatieHAEFELENEDERLAND.MailOntvangers", $lb("aco@vanhoecke.be","agl@vanhoecke.be"))
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderConfigItem">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Sleutel:%String</FormalSpec>
+<Implementation><![CDATA[
+	If (##class(TECH.Config.ConfigMgr).Instance().BestaatSleutel(Sleutel))
+	{
+		Do ##class(TECH.Config.ConfigMgr).Instance().WisSleutel(Sleutel)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>