Index: APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml
===================================================================
diff -u -r52455 -r52457
--- APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml	(.../Nacalculator.cls.xml)	(revision 52455)
+++ APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml	(.../Nacalculator.cls.xml)	(revision 52457)
@@ -47,16 +47,16 @@
 <Method name="DoeNacalculatie">
 <FormalSpec>KlantId:DOM.common.PartijID</FormalSpec>
 <Implementation><![CDATA[
-	#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 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 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 {
+	Try {
 		//Data ophalen
 		#dim RitDataLijst = ##class(APPS.TRANSP.dto.NacalculatieLijst).%New()
 		Set RitDataLijst = ..TransportdataVoorKlantBepaler.BepaalTransportData(KlantId)
@@ -67,9 +67,9 @@
 		Do Mail.ZetInhoud("zie attachment - ")
 		Do Mail.VoegToeBijlage(Bestandsnaam)
 		Do ..MailApi.VerstuurMail(Mail)
-	} catch {
+	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Do ##class(vhLib.Logger).%New().Error("Nacalculator",Exception.ToString())
+		Do ##class(vhLib.Logger).%New().Error("Nacalculator", Exception.ToString())
 		Do Mail.ZetInhoud("Er ging iets mis!! ")
 		Do ..MailApi.VerstuurMail(Mail)
 	}
Index: vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/DoeNalculatie/Test.cls.xml
===================================================================
diff -u -r52456 -r52457
--- vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/DoeNalculatie/Test.cls.xml	(.../Test.cls.xml)	(revision 52456)
+++ vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/DoeNalculatie/Test.cls.xml	(.../Test.cls.xml)	(revision 52457)
@@ -6,29 +6,28 @@
 <Method name="Test: Standaardgedrag">
 <Implementation><![CDATA[
 	#dim KlantId As %String = "K||2671"
-	#dim GegenereerdAntwoord As APPS.TRANSP.dto.NacalculatieLijst
-	#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")_"Nacalculatie.csv"
 	
-	Set GegenereerdAntwoord = ..GenereerAntwoordData(2)
+	#dim GegenereerdAntwoord As APPS.TRANSP.dto.NacalculatieLijst = ..GenereerAntwoordData(2)
 	Set TransportdataVoorKlantBepalerMock = ##class(vhTest.Mock.APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New()
-	Do TransportdataVoorKlantBepalerMock.VerwachtMethodCall("BepaalTransportData",KlantId).ExactAantalKeer(1).DanReturn(GegenereerdAntwoord)
+	Do TransportdataVoorKlantBepalerMock.VerwachtMethodCall("BepaalTransportData", KlantId).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)
+	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).DanDoeNiks()
+	Do RapportGeneratorMock.VerwachtMethodCall("MaakBestand", BestandRapportDataDataTransferObjectBased).ExactAantalKeer(1).DanDoeNiks()
 	
 	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()
+	Do MailApi.IndienMethodCall("VerstuurMail", MailStub).DanDoeNiks()
 	
 	Set FileUtilsMock = ##class(vhTest.Mock.TECH.File.impl.FileUtils).%New()
-	Do FileUtilsMock.VerwachtMethodCall("Delete",Bestandsnaam)
+	Do FileUtilsMock.VerwachtMethodCall("Delete", Bestandsnaam)
 	
-	Set Nacalculator = ##class(APPS.TRANSP.impl.TransportService.Nacalculator).%New(TransportdataVoorKlantBepalerMock,RapportGeneratorMock,RapportDataFactoryMock,MailApi,FileUtilsMock)
+	Set Nacalculator = ##class(APPS.TRANSP.impl.TransportService.Nacalculator).%New(TransportdataVoorKlantBepalerMock, RapportGeneratorMock, RapportDataFactoryMock, MailApi, FileUtilsMock)
 	Do Nacalculator.DoeNacalculatie(KlantId)
 	
 	Do TransportdataVoorKlantBepalerMock.Verifieer()
@@ -42,29 +41,28 @@
 <Method name="Test: Geen data -&gt; toch mailen">
 <Implementation><![CDATA[
 	#dim KlantId As %String = "K||2671"
-	#dim GegenereerdAntwoord As APPS.TRANSP.dto.NacalculatieLijst
-	#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")_"Nacalculatie.csv"
 	
-	Set GegenereerdAntwoord = ..GenereerAntwoordData(0)
+	#dim GegenereerdAntwoord As APPS.TRANSP.dto.NacalculatieLijst = ..GenereerAntwoordData(0)
 	Set TransportdataVoorKlantBepalerMock = ##class(vhTest.Mock.APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New()
-	Do TransportdataVoorKlantBepalerMock.VerwachtMethodCall("BepaalTransportData",KlantId).ExactAantalKeer(1).DanReturn(GegenereerdAntwoord)
+	Do TransportdataVoorKlantBepalerMock.VerwachtMethodCall("BepaalTransportData", KlantId).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)
+	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).DanDoeNiks()
+	Do RapportGeneratorMock.VerwachtMethodCall("MaakBestand", BestandRapportDataDataTransferObjectBased).ExactAantalKeer(1).DanDoeNiks()
 	
 	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()
+	Do MailApi.IndienMethodCall("VerstuurMail", MailStub).DanDoeNiks()
 	
 	Set FileUtilsMock = ##class(vhTest.Mock.TECH.File.impl.FileUtils).%New()
-	Do FileUtilsMock.VerwachtMethodCall("Delete",Bestandsnaam)
+	Do FileUtilsMock.VerwachtMethodCall("Delete", Bestandsnaam)
 	
-	Set Nacalculator = ##class(APPS.TRANSP.impl.TransportService.Nacalculator).%New(TransportdataVoorKlantBepalerMock,RapportGeneratorMock,RapportDataFactoryMock,MailApi,FileUtilsMock)
+	Set Nacalculator = ##class(APPS.TRANSP.impl.TransportService.Nacalculator).%New(TransportdataVoorKlantBepalerMock, RapportGeneratorMock, RapportDataFactoryMock, MailApi, FileUtilsMock)
 	Do Nacalculator.DoeNacalculatie(KlantId)
 	
 	Do TransportdataVoorKlantBepalerMock.Verifieer()
@@ -78,13 +76,12 @@
 <Method name="Test: Error tijdens verwerking, toch mail versturen">
 <Implementation><![CDATA[
 	#dim KlantId As %String = "K||2671"
-	#dim GegenereerdAntwoord As APPS.TRANSP.dto.NacalculatieLijst
-	#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")_"Nacalculatie.csv"
 	
-	Set GegenereerdAntwoord = ..GenereerAntwoordData(2)
-	#dim GeenDataException = ##class(TECH.Exceptions.DataNotFoundException).%New("Geen data voor '"_KlantId_"'")
+	#dim GegenereerdAntwoord As APPS.TRANSP.dto.NacalculatieLijst = ..GenereerAntwoordData(2)
+	Set 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).DanException(GeenDataException)
+	Do TransportdataVoorKlantBepalerMock.IndienMethodCall("BepaalTransportData", KlantId).DanException(GeenDataException)
 	
 	Set BestandRapportDataDataTransferObjectBased = ##class(APPS.common.Rapport.dto.BestandRapportDataDataTransferObjectBased).%New()
 	Set RapportDataFactoryMock = ##class(vhTest.Mock.APPS.TRANSP.impl.TransportService.Nacalculator.RapportDataFactory).%New()
@@ -94,12 +91,12 @@
 	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()
+	Do MailApi.IndienMethodCall("VerstuurMail", MailStub).DanDoeNiks()
 	
 	Set FileUtilsMock = ##class(vhTest.Mock.TECH.File.impl.FileUtils).%New()
-	Do FileUtilsMock.VerwachtMethodCall("Delete",Bestandsnaam)
+	Do FileUtilsMock.VerwachtMethodCall("Delete", Bestandsnaam)
 	
-	Set Nacalculator = ##class(APPS.TRANSP.impl.TransportService.Nacalculator).%New(TransportdataVoorKlantBepalerMock,RapportGeneratorMock,RapportDataFactoryMock,MailApi,FileUtilsMock)
+	Set Nacalculator = ##class(APPS.TRANSP.impl.TransportService.Nacalculator).%New(TransportdataVoorKlantBepalerMock, RapportGeneratorMock, RapportDataFactoryMock, MailApi, FileUtilsMock)
 	Do Nacalculator.DoeNacalculatie(KlantId)
 	
 	Do MailApi.Verifieer()
@@ -112,9 +109,9 @@
 <ReturnType>APPS.TRANSP.dto.NacalculatieLijst</ReturnType>
 <Implementation><![CDATA[
 	#dim Resultaat As %ListOfDataTypes = ##class(APPS.TRANSP.dto.NacalculatieLijst).%New()
-	#dim teller As %Integer = 0
+	#dim Teller As %Integer = 0
 	#dim Levering As DOM.TRANSP.impl.DataM.DataMLevering
-	While teller < AantalLijnen {
+	While Teller < AantalLijnen {
 		Set NacalculatieDto = ##class(APPS.TRANSP.dto.Nacalculatie).%New()
 		Set NacalculatieDto.AantalEuroPallet = 1
 		Set NacalculatieDto.AantalHalveEuroPallet = 2
@@ -123,9 +120,9 @@
 		Set NacalculatieDto.LeveradresPostcode = "Postcode"
 		Set NacalculatieDto.LeveradresStraat = "Straat"
 		Set NacalculatieDto.OphaalTijdstip = $H
-		Set NacalculatieDto.RitNummer = teller
+		Set NacalculatieDto.RitNummer = Teller
 		Do Resultaat.Insert(NacalculatieDto)
-		Set teller = teller + 1	
+		Set Teller = Teller + 1	
 	}
 	Quit Resultaat
 ]]></Implementation>