Index: vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/DoeNalculatie/Test.cls.xml
===================================================================
diff -u -r52418 -r52448
--- vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/DoeNalculatie/Test.cls.xml	(.../Test.cls.xml)	(revision 52418)
+++ vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/DoeNalculatie/Test.cls.xml	(.../Test.cls.xml)	(revision 52448)
@@ -9,7 +9,7 @@
 	#dim BeginDatum As %Date = $H-10
 	#dim EindDatum As %Date = $H
 	#dim GegenereerdAntwoord As APPS.TRANSP.dto.NacalculatieLijst
-	#dim Bestandsnaam = "c:\tom.csv"
+	#dim Bestandsnaam = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"),"Nacalculatie\Nacalculatie.csv")
 	
 	Set GegenereerdAntwoord = ..GenereerAntwoordData(2)
 	Set TransportdataVoorKlantBepalerMock = ##class(vhTest.Mock.APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New()
@@ -41,6 +41,78 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Geen data -&gt; toch mailen">
+<Implementation><![CDATA[
+	#dim KlantId As %String = "K||2671"
+	#dim BeginDatum As %Date = $H-10
+	#dim EindDatum As %Date = $H
+	#dim GegenereerdAntwoord As APPS.TRANSP.dto.NacalculatieLijst
+	#dim Bestandsnaam = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"),"Nacalculatie\Nacalculatie.csv")
+	
+	Set GegenereerdAntwoord = ..GenereerAntwoordData(0)
+	Set TransportdataVoorKlantBepalerMock = ##class(vhTest.Mock.APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New()
+	Do TransportdataVoorKlantBepalerMock.VerwachtMethodCall("BepaalTransportData",KlantId,BeginDatum,EindDatum).ExactAantalKeer(1).DanReturn(GegenereerdAntwoord)
+	
+	Set BestandRapportDataDataTransferObjectBased = ##class(APPS.common.Rapport.dto.BestandRapportDataDataTransferObjectBased).%New()
+	Set RapportDataFactoryMock = ##class(vhTest.Mock.APPS.TRANSP.impl.TransportService.Nacalculator.RapportDataFactory).%New()
+	Do RapportDataFactoryMock.VerwachtMethodCall("MaakRapportData",GegenereerdAntwoord,$$$ElkeWaarde).DanReturn(BestandRapportDataDataTransferObjectBased)
+	
+	Set RapportGeneratorMock = ##class(vhTest.Mock.APPS.common.Rapport.impl.BestandGeneratorTemplate).%New()
+	Do RapportGeneratorMock.VerwachtMethodCall("MaakBestand",BestandRapportDataDataTransferObjectBased).ExactAantalKeer(1)
+	
+	Set MailStub = ##class(TECH.Mail.impl.Mail).%New()
+	Set MailApi = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailApi.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailStub)
+	Do MailApi.IndienMethodCall("VerstuurMail",MailStub).DanDoeNiks()
+	
+	Set FileUtilsMock = ##class(vhTest.Mock.TECH.File.impl.FileUtils).%New()
+	Do FileUtilsMock.VerwachtMethodCall("Delete",Bestandsnaam)
+	
+	Set Nacalculator = ##class(APPS.TRANSP.impl.TransportService.Nacalculator).%New(TransportdataVoorKlantBepalerMock,RapportGeneratorMock,RapportDataFactoryMock,MailApi,FileUtilsMock)
+	Do Nacalculator.DoeNacalculatie(KlantId,BeginDatum,EindDatum)
+	
+	Do TransportdataVoorKlantBepalerMock.Verifieer()
+	Do RapportGeneratorMock.Verifieer()
+	Do RapportDataFactoryMock.Verifieer()
+	Do MailApi.Verifieer()
+	Do FileUtilsMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Error tijdens verwerking, toch mail versturen">
+<Implementation><![CDATA[
+	#dim KlantId As %String = "K||2671"
+	#dim BeginDatum As %Date = $H-10
+	#dim EindDatum As %Date = $H
+	#dim GegenereerdAntwoord As APPS.TRANSP.dto.NacalculatieLijst
+	#dim Bestandsnaam = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"),"Nacalculatie\Nacalculatie.csv")
+	
+	Set GegenereerdAntwoord = ..GenereerAntwoordData(2)
+	#dim GeenDataException = ##class(TECH.Exceptions.DataNotFoundException).%New("Geen data voor '"_KlantId_"'")
+	Set TransportdataVoorKlantBepalerMock = ##class(vhTest.Mock.APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New()
+	Do TransportdataVoorKlantBepalerMock.IndienMethodCall("BepaalTransportData",KlantId,BeginDatum,EindDatum).DanException(GeenDataException)
+	
+	Set BestandRapportDataDataTransferObjectBased = ##class(APPS.common.Rapport.dto.BestandRapportDataDataTransferObjectBased).%New()
+	Set RapportDataFactoryMock = ##class(vhTest.Mock.APPS.TRANSP.impl.TransportService.Nacalculator.RapportDataFactory).%New()
+	
+	Set RapportGeneratorMock = ##class(vhTest.Mock.APPS.common.Rapport.impl.BestandGeneratorTemplate).%New()
+	
+	Set MailStub = ##class(TECH.Mail.impl.Mail).%New()
+	Set MailApi = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailApi.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailStub)
+	Do MailApi.IndienMethodCall("VerstuurMail",MailStub).DanDoeNiks()
+	
+	Set FileUtilsMock = ##class(vhTest.Mock.TECH.File.impl.FileUtils).%New()
+	Do FileUtilsMock.VerwachtMethodCall("Delete",Bestandsnaam)
+	
+	Set Nacalculator = ##class(APPS.TRANSP.impl.TransportService.Nacalculator).%New(TransportdataVoorKlantBepalerMock,RapportGeneratorMock,RapportDataFactoryMock,MailApi,FileUtilsMock)
+	Do Nacalculator.DoeNacalculatie(KlantId,BeginDatum,EindDatum)
+	
+	Do MailApi.Verifieer()
+	Do FileUtilsMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GenereerAntwoordData">
 <FormalSpec>AantalLijnen:%Integer</FormalSpec>
 <ReturnType>APPS.TRANSP.dto.NacalculatieLijst</ReturnType>
Index: APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml
===================================================================
diff -u -r52416 -r52448
--- APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml	(.../Nacalculator.cls.xml)	(revision 52416)
+++ APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml	(.../Nacalculator.cls.xml)	(revision 52448)
@@ -47,27 +47,29 @@
 <Method name="DoeNacalculatie">
 <FormalSpec>KlantId:DOM.common.PartijID,BeginDatum:%Date,EindDatum:%Date</FormalSpec>
 <Implementation><![CDATA[
-	#dim Bestandsnaam = "c:\tom.csv"
-		
+	#dim Bestandsnaam = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"),"Nacalculatie\Nacalculatie.csv")
+	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
+	Do Mail.ZetVerzender($$$SystemMail("OV"))
+	Do Mail.ZetOnderwerp("Nacalculatie transporten "_KlantId)
+	Do Mail.ZetIsHTML($$$True)
+	Do Mail.VoegToeOntvanger("tve@vanhoecke.be")
+
 	try {
 		//Data ophalen
 		#dim RitDataLijst = ##class(APPS.TRANSP.dto.NacalculatieLijst).%New()
 		Set RitDataLijst = ..TransportdataVoorKlantBepaler.BepaalTransportData(KlantId, BeginDatum, EindDatum)
-		
 		//csv maken
 		Do ..RapportGenerator.MaakBestand(..RapportDataFactory.MaakRapportData(RitDataLijst, Bestandsnaam))
 		
 		//mailen
-		#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
-		Do Mail.ZetVerzender($$$SystemMail("OV"))
-		Do Mail.ZetOnderwerp("Nacalculatie transporten "_KlantId)
 		Do Mail.ZetInhoud("zie attachment - begindatum = '"_BeginDatum_"' en einddatum = '"_EindDatum_"'")
-		Do Mail.ZetIsHTML($$$True)
 		Do Mail.VoegToeBijlage(Bestandsnaam)
-		Do Mail.VoegToeOntvanger("tve@vanhoecke.be")
 		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!! - begindatum = '"_BeginDatum_"' en einddatum = '"_EindDatum_"'")
+		Do ..MailApi.VerstuurMail(Mail)
 	}
 	//csv verwijderen
 	Do ..FileUtils.Delete(Bestandsnaam)