Index: vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/DoeNalculatie/Test.cls.xml
===================================================================
diff -u -r56348 -r62386
--- vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/DoeNalculatie/Test.cls.xml	(.../Test.cls.xml)	(revision 56348)
+++ vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/DoeNalculatie/Test.cls.xml	(.../Test.cls.xml)	(revision 62386)
@@ -6,7 +6,7 @@
 <Method name="Test: Standaardgedrag">
 <Implementation><![CDATA[
 	#dim KlantId As %String = ##class(DOM.VKP.enu.Klant).HaefeleNederland()
-	#dim Bestandsnaam = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"), "Nacalculatie")_"NacalculatieHAEFELENEDERLAND.csv"
+	#dim Bestandsnaam = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"), "Nacalculatie")_"NacalculatieHÄFELENEDERLAND.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 = ##class(DOM.VKP.enu.Klant).HaefeleNederland()
-	#dim Bestandsnaam = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"), "Nacalculatie")_"NacalculatieHAEFELENEDERLAND.csv"
+	#dim Bestandsnaam = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"), "Nacalculatie")_"NacalculatieHÄFELENEDERLAND.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 = ##class(DOM.VKP.enu.Klant).HaefeleNederland()
-	#dim Bestandsnaam = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"), "Nacalculatie")_"NacalculatieHAEFELENEDERLAND.csv"
+	#dim Bestandsnaam = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"), "Nacalculatie")_"NacalculatieHÄFELENEDERLAND.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/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r62192 -r62386
--- APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 62192)
+++ APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 62386)
@@ -48,14 +48,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LegacyPartijApi">
+<Type>DOM.PARTIJ.impl.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI=""</FormalSpec>
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",LegacyPartijApi:DOM.PARTIJ.impl.LegacyPartijAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.VKP.impl.VerkoopAPI).%New())
+	Set ..LegacyPartijApi = $$$Inject(LegacyPartijApi, ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -67,8 +73,8 @@
 <Implementation><![CDATA[
 	#dim Rit As DOM.TRANSP.impl.DataM.DataMRit
 	#dim NacalculatieDto As APPS.TRANSP.dto.Nacalculatie
-	#dim KlantNaam As %String = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(..VerkoopApi.GeefKlant(KlantId).GeefNaam())
-	#dim LaatstVerwerkteRit As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.TRANSP.TransportService.Nacalculatie"_KlantNaam_".LaatstVerwerkteRit")
+	#dim KlantNummer As %String = ..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantId)
+	#dim LaatstVerwerkteRit As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.TRANSP.TransportService.Nacalculatie"_KlantNummer_".LaatstVerwerkteRit")
 	#dim RitId As %String = LaatstVerwerkteRit
 	
 	Set Resultaat = ##class(APPS.TRANSP.dto.NacalculatieLijst).%New()
@@ -104,7 +110,7 @@
 		Set LaatstVerwerkteRit = RitId
 		}
 	}
-	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("APPS.TRANSP.TransportService.Nacalculatie"_KlantNaam_".LaatstVerwerkteRit",LaatstVerwerkteRit)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("APPS.TRANSP.TransportService.Nacalculatie"_KlantNummer_".LaatstVerwerkteRit",LaatstVerwerkteRit)
 	Quit Resultaat
 ]]></Implementation>
 </Method>
Index: vhDeploy/D20201002xNacalculatieHafele.cls.xml
===================================================================
diff -u
--- vhDeploy/D20201002xNacalculatieHafele.cls.xml	(revision 0)
+++ vhDeploy/D20201002xNacalculatieHafele.cls.xml	(revision 62386)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20201002xNacalculatieHafele">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default><![CDATA[Haefele -> Haëfele]]></Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Omgeving As %String = ##class(TECH.Config.ConfigMgr).Instance().GetOmgeving()
+	
+	Set ^TECH.Config.ConfigItemD(Omgeving,"APPS.TRANSP.TransportService.Nacalculatie2671.LaatstVerwerkteRit") = ^TECH.Config.ConfigItemD(Omgeving,"APPS.TRANSP.TransportService.NacalculatieHAEFELENEDERLAND.LaatstVerwerkteRit")
+	Set ^TECH.Config.ConfigItemD(Omgeving,"APPS.TRANSP.TransportService.Nacalculatie2671.MailOntvangers") = ^TECH.Config.ConfigItemD(Omgeving,"APPS.TRANSP.TransportService.NacalculatieHAEFELENEDERLAND.MailOntvangers")
+	Kill ^TECH.Config.ConfigItemD(Omgeving,"APPS.TRANSP.TransportService.NacalculatieHAEFELENEDERLAND.LaatstVerwerkteRit")
+	Kill ^TECH.Config.ConfigItemD(Omgeving,"APPS.TRANSP.TransportService.NacalculatieHAEFELENEDERLAND.MailOntvangers")
+	
+	Set ^TECH.Config.ConfigItemD("DEV","APPS.TRANSP.TransportService.Nacalculatie4943.LaatstVerwerkteRit") = ^TECH.Config.ConfigItemD(Omgeving,"APPS.TRANSP.TransportService.NacalculatieBIEMARBOIS.LaatstVerwerkteRit")
+	Set ^TECH.Config.ConfigItemD(Omgeving,"APPS.TRANSP.TransportService.Nacalculatie4943.MailOntvangers") = ^TECH.Config.ConfigItemD(Omgeving,"APPS.TRANSP.TransportService.NacalculatieBIEMARBOIS.MailOntvangers")
+	Kill ^TECH.Config.ConfigItemD(Omgeving,"APPS.TRANSP.TransportService.NacalculatieBIEMARBOIS.LaatstVerwerkteRit")
+	Kill ^TECH.Config.ConfigItemD(Omgeving,"APPS.TRANSP.TransportService.NacalculatieBIEMARBOIS.MailOntvangers")
+
+	Set ^TECH.Config.ConfigItemD("DEV","APPS.TRANSP.TransportService.Nacalculatie1736.LaatstVerwerkteRit") = ^TECH.Config.ConfigItemD(Omgeving,"APPS.TRANSP.TransportService.NacalculatieDUPONT.LaatstVerwerkteRit")
+	Set ^TECH.Config.ConfigItemD(Omgeving,"APPS.TRANSP.TransportService.Nacalculatie1736.MailOntvangers") = ^TECH.Config.ConfigItemD(Omgeving,"APPS.TRANSP.TransportService.NacalculatieDUPONT.MailOntvangers")
+	Kill ^TECH.Config.ConfigItemD(Omgeving,"APPS.TRANSP.TransportService.NacalculatieDUPONT.LaatstVerwerkteRit")
+	Kill ^TECH.Config.ConfigItemD(Omgeving,"APPS.TRANSP.TransportService.NacalculatieDUPONT.MailOntvangers")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml
===================================================================
diff -u -r56492 -r62386
--- APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml	(.../Nacalculator.cls.xml)	(revision 56492)
+++ APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml	(.../Nacalculator.cls.xml)	(revision 62386)
@@ -33,8 +33,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LegacyPartijApi">
+<Type>DOM.PARTIJ.impl.LegacyPartijAPI</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="",VerkoopApi:DOM.VKP.VerkoopAPI=""</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="",LegacyPartijApi:DOM.PARTIJ.impl.LegacyPartijAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -46,6 +51,7 @@
 	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())
+	Set ..LegacyPartijApi = $$$Inject(LegacyPartijApi, ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -57,21 +63,22 @@
 	#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"_KlantNaam_".csv")
+	#dim KlantNummer As %String = ..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantId)
 	
 	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
 	Do Mail.ZetVerzender($$$SystemMail("OV"))
 	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"_KlantNaam_".MailOntvangers"))
+	#dim OntvangerIterator = ##class(TECH.ListbuildIterator).%New(##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.TRANSP.TransportService.Nacalculatie"_KlantNummer_".MailOntvangers"))
 	While OntvangerIterator.HasNext() {
 		Do Mail.VoegToeOntvanger(OntvangerIterator.Next())
 	}
 
 	Try {
 		//Data ophalen
-		#dim VorigeLaatstVerwerkteRit As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.TRANSP.TransportService.Nacalculatie"_KlantNaam_".LaatstVerwerkteRit")
+		#dim VorigeLaatstVerwerkteRit As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.TRANSP.TransportService.Nacalculatie"_KlantNummer_".LaatstVerwerkteRit")
 		#dim RitDataLijst As APPS.TRANSP.dto.NacalculatieLijst = ..TransportdataVoorKlantBepaler.BepaalTransportData(KlantId, TransporteurIterator)
-		#dim HuidigeLaatstVerwerkteRit As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.TRANSP.TransportService.Nacalculatie"_KlantNaam_".LaatstVerwerkteRit")
+		#dim HuidigeLaatstVerwerkteRit As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.TRANSP.TransportService.Nacalculatie"_KlantNummer_".LaatstVerwerkteRit")
 		//csv maken
 		Do ..RapportGenerator.MaakBestand(..RapportDataFactory.MaakRapportData(RitDataLijst, Bestandsnaam))
 		
Index: vhTest/Mock/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r56270 -r62386
--- vhTest/Mock/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 56270)
+++ vhTest/Mock/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 62386)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI=""</FormalSpec>
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",LegacyPartijApi:DOM.PARTIJ.impl.LegacyPartijAPI=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>