Index: APPS/Halux/Machine/OpdeelZaag/enu/Afhandeling.cls.xml
===================================================================
diff -u -r29059 -r35541
--- APPS/Halux/Machine/OpdeelZaag/enu/Afhandeling.cls.xml	(.../Afhandeling.cls.xml)	(revision 29059)
+++ APPS/Halux/Machine/OpdeelZaag/enu/Afhandeling.cls.xml	(.../Afhandeling.cls.xml)	(revision 35541)
@@ -5,24 +5,24 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,Auto,Manueel</Default>
+<Default>;Auto;Manueel</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>,Automatisch,Manueel</Default>
+<Default>;Automatisch;Manueel</Default>
 </Parameter>
 
 <Method name="Automatisch">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling</ReturnType>
-<Implementation><![CDATA[	quit "Auto"
+<Implementation><![CDATA[	Quit "Auto"
 ]]></Implementation>
 </Method>
 
 <Method name="Manueel">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling</ReturnType>
-<Implementation><![CDATA[	quit "Manueel"
+<Implementation><![CDATA[	Quit "Manueel"
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/Machine/OpdeelZaag/impl/OptimalisatieBestandGenerator.cls.xml
===================================================================
diff -u -r35513 -r35541
--- APPS/Halux/Machine/OpdeelZaag/impl/OptimalisatieBestandGenerator.cls.xml	(.../OptimalisatieBestandGenerator.cls.xml)	(revision 35513)
+++ APPS/Halux/Machine/OpdeelZaag/impl/OptimalisatieBestandGenerator.cls.xml	(.../OptimalisatieBestandGenerator.cls.xml)	(revision 35541)
@@ -20,7 +20,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..RapportGenerator = $$$Implementation(RapportGenerator,##class(APPS.common.Rapport.impl.BestandGeneratorDataTransferObjectBased).%New())
+	Set ..RapportGenerator = $$$Inject(RapportGenerator, ##class(APPS.common.Rapport.impl.BestandGeneratorDataTransferObjectBased).%New())
 	Set ..PadGenerator = $$$Inject(PadGenerator, ##class(APPS.Halux.Machine.OpdeelZaag.impl.OptimalisatieBestandPadGenerator).%New())
 	
 	Quit $$$OK
@@ -31,41 +31,44 @@
 <FormalSpec>BatchID:%String,OptimalisatieDataLijst:APPS.Halux.Machine.OpdeelZaag.dto.OptimalisatieDataLijst,Afhandeling:APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling,Client:APPS.Halux.Machine.OpdeelZaag.enu.Client,IsRework:%Boolean=0</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set RapportData = ##class(APPS.common.Rapport.dto.BestandRapportDataDataTransferObjectBased).%New()
-	set RapportData.DataVelden = ..GeefDataVelden()
-	set RapportData.DataTransferObjecten = OptimalisatieDataLijst
-	set RapportData.BestandVolledigeNaam = ..PadGenerator.Genereer(Client, Afhandeling, "ImportFile", BatchID, IsRework)
+	#dim RapportData As APPS.common.Rapport.dto.BestandRapportDataDataTransferObjectBased = ##class(APPS.common.Rapport.dto.BestandRapportDataDataTransferObjectBased).%New()
 	
-	quit ..RapportGenerator.MaakBestand(RapportData)
+	Set RapportData.DataVelden = ..GeefDataVelden()
+	Set RapportData.DataTransferObjecten = OptimalisatieDataLijst
+	Set RapportData.BestandVolledigeNaam = ..PadGenerator.Genereer(Client, Afhandeling, "ImportFile", BatchID, IsRework)
+	
+	Quit ..RapportGenerator.MaakBestand(RapportData)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDataVelden">
 <Private>1</Private>
 <ReturnType>TECH.KeyValue.List</ReturnType>
 <Implementation><![CDATA[
-	set KeyValueList = ##class(TECH.KeyValue.List).%New()
-	do ..VoegToeEigenschap(KeyValueList,"Rol")
-	do ..VoegToeEigenschap(KeyValueList,"Aantal")
-	do ..VoegToeEigenschap(KeyValueList,"PlaatMateriaal")
-	do ..VoegToeEigenschap(KeyValueList,"Barcode")
-	do ..VoegToeEigenschap(KeyValueList,"LadeSequentieNr")
-	do ..VoegToeEigenschap(KeyValueList,"DossierCode")
-	do ..VoegToeEigenschap(KeyValueList,"Omschrijving")
-	do ..VoegToeEigenschap(KeyValueList,"Lengte")
-	do ..VoegToeEigenschap(KeyValueList,"Breedte")
-	do ..VoegToeEigenschap(KeyValueList,"Dikte")
-	do ..VoegToeEigenschap(KeyValueList,"Kleur")
-	do ..VoegToeEigenschap(KeyValueList,"Decor")
-	do ..VoegToeEigenschap(KeyValueList,"EtiketLijn1")
-	do ..VoegToeEigenschap(KeyValueList,"EtiketLijn2")
-	do ..VoegToeEigenschap(KeyValueList,"EtiketLijn3")
-	do ..VoegToeEigenschap(KeyValueList,"EtiketInfo")
-	do ..VoegToeEigenschap(KeyValueList,"EtiketLijn4")
-	do ..VoegToeEigenschap(KeyValueList,"Rework")
-	do ..VoegToeEigenschap(KeyValueList,"Kar")
-	do ..VoegToeEigenschap(KeyValueList,"Banding")
-	quit KeyValueList
+	#dim KeyValueList As TECH.KeyValue.List = ##class(TECH.KeyValue.List).%New()
+	
+	Do ..VoegToeEigenschap(KeyValueList, "Rol")
+	Do ..VoegToeEigenschap(KeyValueList, "Aantal")
+	Do ..VoegToeEigenschap(KeyValueList, "PlaatMateriaal")
+	Do ..VoegToeEigenschap(KeyValueList, "Barcode")
+	Do ..VoegToeEigenschap(KeyValueList, "LadeSequentieNr")
+	Do ..VoegToeEigenschap(KeyValueList, "DossierCode")
+	Do ..VoegToeEigenschap(KeyValueList, "Omschrijving")
+	Do ..VoegToeEigenschap(KeyValueList, "Lengte")
+	Do ..VoegToeEigenschap(KeyValueList, "Breedte")
+	Do ..VoegToeEigenschap(KeyValueList, "Dikte")
+	Do ..VoegToeEigenschap(KeyValueList, "Kleur")
+	Do ..VoegToeEigenschap(KeyValueList, "Decor")
+	Do ..VoegToeEigenschap(KeyValueList, "EtiketLijn1")
+	Do ..VoegToeEigenschap(KeyValueList, "EtiketLijn2")
+	Do ..VoegToeEigenschap(KeyValueList, "EtiketLijn3")
+	Do ..VoegToeEigenschap(KeyValueList, "EtiketInfo")
+	Do ..VoegToeEigenschap(KeyValueList, "EtiketLijn4")
+	Do ..VoegToeEigenschap(KeyValueList, "Rework")
+	Do ..VoegToeEigenschap(KeyValueList, "Kar")
+	Do ..VoegToeEigenschap(KeyValueList, "Banding")
+	
+	Quit KeyValueList
 ]]></Implementation>
 </Method>
 
@@ -74,7 +77,8 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim DataClassName As %String = ##class(APPS.Halux.Machine.OpdeelZaag.dto.OptimalisatieData).%ClassName(1)
-	do KeyValueList.InsertKeyValue(DataClassName,Eigenschap)
+	
+	Do KeyValueList.InsertKeyValue(DataClassName, Eigenschap)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/Opdeelzaag/OptimalisatieBestandenGenerator.cls.xml
===================================================================
diff -u -r35513 -r35541
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/Opdeelzaag/OptimalisatieBestandenGenerator.cls.xml	(.../OptimalisatieBestandenGenerator.cls.xml)	(revision 35513)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/Opdeelzaag/OptimalisatieBestandenGenerator.cls.xml	(.../OptimalisatieBestandenGenerator.cls.xml)	(revision 35541)
@@ -64,17 +64,19 @@
 	Set ..FileNameGenerator = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileNameGenerator()
 	Set ..PadGenerator = ##class(APPS.Halux.Machine.OpdeelZaag.impl.OptimalisatieBestandPadGenerator).%New()
 	Set ..FileExtension = ##class(TECH.File.IoCContainer).Instance().Resolve("FileExtension")
-	set ..OpdeelZaagOptimalisatieBestandGenerator = ##class(APPS.Halux.Machine.OpdeelZaag.impl.OptimalisatieBestandGenerator).%New()
+	Set ..OpdeelZaagOptimalisatieBestandGenerator = ##class(APPS.Halux.Machine.OpdeelZaag.impl.OptimalisatieBestandGenerator).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VerzamelData">
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo,ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters</FormalSpec>
 <Implementation><![CDATA[
-	set ..BatchID = UitvoeringInfo.BatchID
-	set ..IsRework = UitvoeringInfo.IsRework
-	do ..OptimalisatieDataLijst.Insert(UitvoeringInfo.OptimalisatieData)
+	Set ..BatchID = UitvoeringInfo.BatchID
+	Set ..IsRework = UitvoeringInfo.IsRework
+	
+	Do ..OptimalisatieDataLijst.Insert(UitvoeringInfo.OptimalisatieData)
 ]]></Implementation>
 </Method>
 
@@ -101,21 +103,21 @@
 <FormalSpec>Afhandeling:APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling,Client:APPS.Halux.Machine.OpdeelZaag.enu.Client,Tijdstip:%TimeStamp</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	try {
+	Try {
 		#dim BestandVolledigeNaam As %String = ..OpdeelZaagOptimalisatieBestandGenerator.Genereer(..BatchID, ..OptimalisatieDataLijst, Afhandeling, Client, ..IsRework)
 		#dim ImportListPad As %String = ..PadGenerator.Genereer(Client, Afhandeling, "ImportList", ..BatchID, ..IsRework)
 		#dim ImportListBestandNaam As %String = ##class(TECH.File).GeefBestandsnaam(ImportListPad, $$$False)
 		#dim OptimalisatieBestanden As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(BestandVolledigeNaam)
 		
 		Do ..GenereerOptimalisatieBestand(OptimalisatieBestanden, ImportListPad, Afhandeling, Client)
 		Do:((Afhandeling = ..Afhandeling.Automatisch) && (Client = ..Client.Biesse)) ..GenereerBatchBestand(ImportListBestandNaam)
-	} catch {
+	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 
 		If (Afhandeling = ..Afhandeling.Automatisch) {
-			do ##class(TECH.ExceptionHandler).Rethrow(Exception)
-		} else {
-			do ##class(vhLib.Logger).%New().Warning("GenereerOptimalisatieBestanden", "Bijkomstige generatie van optimalisatie bestanden mislukt voor '"_..BatchID_"' met afhandeling '"_Afhandeling_"'."_$$$CRLF_Exception.GeefErrorInformatie())	
+			Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
+		} Else {
+			Do ##class(vhLib.Logger).%New().Warning("GenereerOptimalisatieBestanden", "Bijkomstige generatie van optimalisatie bestanden mislukt voor '"_..BatchID_"' met afhandeling '"_Afhandeling_"'."_$$$CRLF_Exception.GeefErrorInformatie())	
 		}
 	}
 ]]></Implementation>
@@ -144,16 +146,17 @@
 <Implementation><![CDATA[
 	#dim BestandLocatie As %String = ##class(APPS.Halux.Machine.Opdeelzaag).OptimalisatieBatchBestandLocatie()
 	#dim BestandNaam As %String = ..BatchID
-	#dim BestandVolledigeNaam As %String = ..GeefBestandVolledigeNaam(BestandLocatie,BestandNaam, ..FileExtension.BatchFile)
-	do ..FileWriter.Open(BestandVolledigeNaam)
-	do ..FileWriter.WriteLine("C:\StartOptimalisatie.bat " _ ImportListBestandNaam)
+	#dim BestandVolledigeNaam As %String = ..GeefBestandVolledigeNaam(BestandLocatie, BestandNaam, ..FileExtension.BatchFile)
+	#dim DoelBestandLocatie As TECH.String = "c:\biesse\log\" _ ..BatchID _ "\"
 	
-	#dim DoelBestandLocatie As TECH.String = "c:\biesse\log\"_..BatchID_"\"
-	do ..FileWriter.WriteLine("md "_DoelBestandLocatie_" 2> nul")
+	Do ..FileWriter.Open(BestandVolledigeNaam)
+	Do ..FileWriter.WriteLine("C:\StartOptimalisatie.bat " _ ImportListBestandNaam)	
+	Do ..FileWriter.WriteLine("md "_DoelBestandLocatie_" 2> nul")
 			;maak de DoelMap als deze nog niet bestaat, move werkt niet als de map nog niet bestaat
-	do ..FileWriter.WriteLine("move /Y c:\biesse\optiplanning\tmp\implog.xml "_DoelBestandLocatie_"implog.xml")
+	Do ..FileWriter.WriteLine("move /Y c:\biesse\optiplanning\tmp\implog.xml "_DoelBestandLocatie_"implog.xml")
 			;/Y om geen vraag te stellen als het bestand zou overschreven worden en de move uit te voeren
-	do ..FileWriter.Close()
+	Do ..FileWriter.Close()
+	
 	Quit BestandVolledigeNaam
 ]]></Implementation>
 </Method>
@@ -164,7 +167,8 @@
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim BestandNaamMetExtentie As %String = ..FileNameGenerator.GenerateFileName(BestandNaam,Extensie)
-	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie,BestandNaamMetExtentie)
+	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie, BestandNaamMetExtentie)
+	
 	Quit BestandVolledigeNaam
 ]]></Implementation>
 </Method>
Index: APPS/Halux/Machine/OpdeelZaag/impl/OptimalisatieBestandPadGenerator.cls.xml
===================================================================
diff -u -r35513 -r35541
--- APPS/Halux/Machine/OpdeelZaag/impl/OptimalisatieBestandPadGenerator.cls.xml	(.../OptimalisatieBestandPadGenerator.cls.xml)	(revision 35513)
+++ APPS/Halux/Machine/OpdeelZaag/impl/OptimalisatieBestandPadGenerator.cls.xml	(.../OptimalisatieBestandPadGenerator.cls.xml)	(revision 35541)
@@ -79,9 +79,7 @@
 <Method name="GeefBestandNaam">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	;Quit ..FilenameGenerator.GenerateFileName("ImportFile_" _ ..BatchID _ ..GeefRework() _ "_" _ ##class(TECH.Files).GeefCurrentTimeStamp(), "txt")
-	Quit ..FilenameGenerator.GenerateFileName(..BestandNaamPrefix _ "_" _ ..BatchID _ ..GeefRework() _ "_" _ ##class(TECH.Files).GeefCurrentTimeStamp(), "txt")
+<Implementation><![CDATA[	Quit ..FilenameGenerator.GenerateFileName(..BestandNaamPrefix _ "_" _ ..BatchID _ ..GeefRework() _ "_" _ ##class(TECH.Files).GeefCurrentTimeStamp(), "txt")
 ]]></Implementation>
 </Method>