Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test002ProboxMetOnderdelen.cls.xml
===================================================================
diff -u -r29843 -r33417
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test002ProboxMetOnderdelen.cls.xml	(.../Test002ProboxMetOnderdelen.cls.xml)	(revision 29843)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test002ProboxMetOnderdelen.cls.xml	(.../Test002ProboxMetOnderdelen.cls.xml)	(revision 33417)
@@ -6,20 +6,17 @@
 <Method name="GeefProductenPerToeleveringArray">
 <ReturnType>vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray</ReturnType>
 <Implementation><![CDATA[
-	#define ToeleveringID 222222
-	#define Aantal 			   1
-			
-	#define Taorbox1     1106119
+	#define ToeleveringID	222222
+	#define Aantal			1		
+	#define Taorbox			1106119
+
+	#dim LadesPerToelevering As vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
+	#dim Lades As vhTest.Integratie.Productie.Setup.ProductInfoLijst = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
 	
-	set LadenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
-	
-	set Laden = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
-	
-	do Laden.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New($$$Taorbox1,$$$Aantal) )  
-	
-	do LadenPerToeleveringArray.SetAt(Laden,$$$ToeleveringID)
+	Do Lades.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New($$$Taorbox, $$$Aantal))
+	Do LadesPerToelevering.SetAt(Lades, $$$ToeleveringID)
 
-	quit LadenPerToeleveringArray
+	Quit LadesPerToelevering
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Common/Aansturing/TestBase.cls.xml
===================================================================
diff -u -r31729 -r33417
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Common/Aansturing/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 31729)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Common/Aansturing/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 33417)
@@ -77,23 +77,23 @@
 <Private>1</Private>
 <ReturnType>vhTest.Integratie.Productie.Planning.ActieveBatches.Common.Aansturing.Configuratie</ReturnType>
 <Implementation><![CDATA[
-	set r%Configuratie = $$$LazyLoad(r%Configuratie,##class(vhTest.Integratie.Productie.Planning.ActieveBatches.Common.Aansturing.Configuratie).%New())
-	quit r%Configuratie
+	Set r%Configuratie = $$$LazyLoad(r%Configuratie,##class(vhTest.Integratie.Productie.Planning.ActieveBatches.Common.Aansturing.Configuratie).%New())
+	Quit r%Configuratie
 ]]></Implementation>
 </Method>
 
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
- 	do ##super()
- 	set ..ProductMaker = ##class(DOM.PM.Maatwerk.impl.ProductMaker).%New()
+ 	Do ##super()
+ 	Set ..ProductMaker = ##class(DOM.PM.Maatwerk.impl.ProductMaker).%New()
 ]]></Implementation>
 </Method>
 
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestCase:%String</FormalSpec>
 <Implementation><![CDATA[
- 	do ##super(aTestCase)
-	do ##class(vhTest.Fake.TECH.Logging.impl.RaiseOnErrorLoggingAPI).MockInstance()
+ 	Do ##super(aTestCase)
+	Do ##class(vhTest.Fake.TECH.Logging.impl.RaiseOnErrorLoggingAPI).MockInstance()
 ]]></Implementation>
 </Method>
 
@@ -107,68 +107,70 @@
 
 <Method name="Test">
 <Implementation><![CDATA[
-	do ..Arrange()
-	do ..Act()
-	do ..Assert()
+	Do ..Arrange()
+	Do ..Act()
+	Do ..Assert()
 ]]></Implementation>
 </Method>
 
 <Method name="Arrange">
 <Private>1</Private>
 <Implementation><![CDATA[
-	do ##class(APPS.Halux.common.event.BatchEventRaiser).RaiseBatchSequentieVerwijderdEvent(..#BatchID)
+	Do ##class(APPS.Halux.common.event.BatchEventRaiser).RaiseBatchSequentieVerwijderdEvent(..#BatchID)
+	Do ##class(DOM.PM.Maatwerk.Calc.IoCContainer).Instance().Register("DateTimeAPI", ##class(TECH.DateTime.impl.DateTimeAPI).%New())
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer(..#ReferentieDatum)
+	Do ##class(vhTest.Fake.TECH.System.SystemAPI).Activeer()
+	Do ##class(vhTest.Fake.TECH.Process.ProcessAPI).Activeer()
+	Do ##class(vhTest.Integratie.FakeFileNameGenerator).Activeer()
 	
-	do ##class(DOM.PM.Maatwerk.Calc.IoCContainer).Instance().Register("DateTimeAPI",##class(TECH.DateTime.impl.DateTimeAPI).%New())
-	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer(..#ReferentieDatum)
-	do ##class(vhTest.Fake.TECH.System.SystemAPI).Activeer()
-	do ##class(vhTest.Fake.TECH.Process.ProcessAPI).Activeer()
-	do ##class(vhTest.Integratie.FakeFileNameGenerator).Activeer()
+	Set ..VolgendIDBepalerAPI = ##class(vhTest.Fake.TECH.VolgendIDBepaler.VolgendIDBepalerAPI).Activeer()
+	Set ..DocumentAfdrukker = ##class(vhTest.Utils.PrintKolommenDocumentDumper).%New()
 	
-	set ..VolgendIDBepalerAPI = ##class(vhTest.Fake.TECH.VolgendIDBepaler.VolgendIDBepalerAPI).Activeer()
-	
 	#dim PrintAPI As vhTest.Integratie.Productie.Planning.ActieveBatches.Aansturing.PrintAPI = ##class(vhTest.Integratie.Productie.Planning.ActieveBatches.Aansturing.PrintAPI).MockInstance()
-	set ..DocumentAfdrukker = ##class(vhTest.Utils.PrintKolommenDocumentDumper).%New()
-	do PrintAPI.IndienMethodCall("GeefKolommenDocumentAfdrukker").DanReturn(..DocumentAfdrukker)
-	do PrintAPI.IndienMethodCall("GeefBartenderBestandNaamBepaler").DanReturn(##class(vhTest.Utils.BartenderBestandNaamBepalerMock).%New())
 	
-	do ##class(APPS.ApplicatieContext).Instance().PushProductieAPIClassName(##class(vhTest.Integratie.Productie.Planning.ActieveBatches.Aansturing.ProductieAPI).%ClassName(1))
-	set ..ProductieAPI = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI()
+	Do PrintAPI.IndienMethodCall("GeefKolommenDocumentAfdrukker").DanReturn(..DocumentAfdrukker)
+	Do PrintAPI.IndienMethodCall("GeefBartenderBestandNaamBepaler").DanReturn(##class(vhTest.Utils.BartenderBestandNaamBepalerMock).%New())
 	
-	set ..PalletIDBepaler = ##class(vhTest.Fake.APPS.Halux.PPS.PalletIDBepaler).%New()
-	do ..ProductieAPI.IndienMethodCall("GeefPalletIDBepaler").DanReturn(..PalletIDBepaler)
+	Do ##class(APPS.ApplicatieContext).Instance().PushProductieAPIClassName(##class(vhTest.Integratie.Productie.Planning.ActieveBatches.Aansturing.ProductieAPI).%ClassName($$$True))
+	
+	Set ..PalletIDBepaler = ##class(vhTest.Fake.APPS.Halux.PPS.PalletIDBepaler).%New()
+	Set ..ProductieAPI = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI()
+	
+	Do ..ProductieAPI.IndienMethodCall("GeefPalletIDBepaler").DanReturn(..PalletIDBepaler)
 ]]></Implementation>
 </Method>
 
 <Method name="Act">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set BatchService = ##class(APPS.Halux.Planning.impl.BatchService).%New()
-	do ..StartBatch(BatchService)
+	#dim BatchService As APPS.Halux.Planning.BatchService = ##class(APPS.Halux.Planning.impl.BatchService).%New()
+	Do ..StartBatch(BatchService)
 	
-	if ..Configuratie.ResetBatch {
-		do ..PalletIDBepaler.Reset()
-		do ..ResetBatch(BatchService)
+	If (..Configuratie.ResetBatch) {
+		Do ..PalletIDBepaler.Reset()
+		Do ..ResetBatch(BatchService)
 	}
 	
-	if ..Configuratie.KartonAansturing {
-		do ..ProcessOptiBoxRequests()
+	If (..Configuratie.KartonAansturing) {
+		Do ..ProcessOptiBoxRequests()
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="Assert">
 <Private>1</Private>
 <Implementation><![CDATA[
-	do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie(""))
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie(""))
 	
-	if ..Configuratie.ResetBatch {
-		do ..AssertActieIDsPerActiviteitGroep(..StartBatchActieIDs,..ResetBatchActieIDs)
-		set FileUtils = ##class(TECH.impl.FileUtils).%New()
-		do $$$AssertTrue(FileUtils.ZijnBestandenInMapGelijk(..GeefBestandLocatieVoorResetBatch(), ..GeefBestandLocatieVoorStartBatch(),1))
+	If (..Configuratie.ResetBatch) {
+		Do ..AssertActieIDsPerActiviteitGroep(..StartBatchActieIDs,..ResetBatchActieIDs)
+		
+		#dim FileUtils As TECH.FileUtils = ##class(TECH.impl.FileUtils).%New()
+		Do $$$AssertTrue(FileUtils.ZijnBestandenInMapGelijk(..GeefBestandLocatieVoorResetBatch(), ..GeefBestandLocatieVoorStartBatch(), $$$True))
 	}
 	
-	do ##class(TECH.Context).Instance().GeefFileAPI().GeefFileNameGenerator().Reset()
-	do ##class(DOM.PM.Maatwerk.Calc.IoCContainer).Instance().Reset()
+	Do ##class(TECH.Context).Instance().GeefFileAPI().GeefFileNameGenerator().Reset()
+	Do ##class(DOM.PM.Maatwerk.Calc.IoCContainer).Instance().Reset()
 ]]></Implementation>
 </Method>
 
@@ -177,13 +179,15 @@
 <Private>1</Private>
 <ReturnType>%ArrayOfObjects</ReturnType>
 <Implementation><![CDATA[
-	do ..InitialiseSettings("StartBatch")
-	If ..Configuratie.AansturingActies {
+	Do ..InitialiseSettings("StartBatch")
+	
+	If (..Configuratie.AansturingActies) {
 		Do ##class(TECH.Context).Instance().GeefFileAPI().GeefDirectoryUtils().CreateIfNotExists(..GeefBestandLocatieVoorStartBatch())
-		do ..DocumentAfdrukker.ZetBestandLocatie(..GeefBestandLocatieVoorStartBatch())
+		Do ..DocumentAfdrukker.ZetBestandLocatie(..GeefBestandLocatieVoorStartBatch())
 	}
-	do BatchService.StartBatch(..#BatchID)
-	set ..StartBatchActieIDs =  ..VoerUitAansturingsActies()
+	
+	Do BatchService.StartBatch(..#BatchID)
+	Set ..StartBatchActieIDs = ..VoerUitAansturingsActies()
 ]]></Implementation>
 </Method>
 
@@ -192,52 +196,52 @@
 <Private>1</Private>
 <ReturnType>%ArrayOfObjects</ReturnType>
 <Implementation><![CDATA[
-	do ..InitialiseSettings("ResetBatch")
+	Do ..InitialiseSettings("ResetBatch")
 	Do ##class(TECH.Context).Instance().GeefFileAPI().GeefDirectoryUtils().CreateIfNotExists(..GeefBestandLocatieVoorResetBatch())
-	do ..DocumentAfdrukker.ZetBestandLocatie(..GeefBestandLocatieVoorResetBatch())
-	do BatchService.ResetBatch(..#BatchID)
-	set ..ResetBatchActieIDs =  ..VoerUitAansturingsActies()
+	Do ..DocumentAfdrukker.ZetBestandLocatie(..GeefBestandLocatieVoorResetBatch())
+	Do BatchService.ResetBatch(..#BatchID)
+	Set ..ResetBatchActieIDs = ..VoerUitAansturingsActies()
 ]]></Implementation>
 </Method>
 
 <Method name="InitialiseSettings">
 <FormalSpec>SubLocatie:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	do ##class(TECH.Context).Instance().GeefQueryAPI().ExecuteDynamicQuery("DELETE FROM APPS_Halux_PPS_impl.AansturingActieStatus WHERE BatchId = ?",$listbuild(..#BatchID))
+	Do ##class(TECH.Context).Instance().GeefQueryAPI().ExecuteDynamicQuery("DELETE FROM APPS_Halux_PPS_impl.AansturingActieStatus WHERE BatchId = ?", $ListBuild(..#BatchID))
 	
-	Set ..BestandLocatie = ##class(TECH.Files).AppendFile(..GeefBestandLocatie(),SubLocatie)
+	Set ..BestandLocatie = ##class(TECH.Files).AppendFile(..GeefBestandLocatie(), SubLocatie)
+	Set ..StartOfReset = SubLocatie
 	
-	set ..StartOfReset = SubLocatie
-	do ..ExterneDataBewaarders.Clear()
+	Do ..ExterneDataBewaarders.Clear()
+	Do ..DataExporteerder.ResetBestandTeller()
+	Do ..VolgendIDBepalerAPI.ResetAll()
 	
-	do ..DataExporteerder.ResetBestandTeller()
-	do ..VolgendIDBepalerAPI.ResetAll()
-	
-	do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.ProductieDetailBlad.DocumentGenerator_ProjectFileFolder",..BestandLocatie,..#Applicatie)
-	do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.ProductieDetailBlad.DocumentGenerator_FileLocation",##class(TECH.Files).GetNetworkVersion(..BestandLocatie),..#Applicatie)
-	do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.ProductieDetailBlad.DocumentGenerator_OutputType",##class(APPS.common.Print.enu.OutputType).XML(),..#Applicatie)
-	do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.ProductieDetailBlad.DocumentGenerator_Printer","98",..#Applicatie)
-	do ##class(TECH.Config.ConfigMgr).Instance().ZetString("vhPRINTER_BestandNaam_DoorverwijzingActief",$$$true,..#Applicatie)
-	do ##class(TECH.Config.ConfigMgr).Instance().ZetString("PrintFileDropFolder",..BestandLocatie,..#Applicatie)
-	do ##class(TECH.Config.ConfigMgr).Instance().ZetString("PrintFileHighPrioDropFolder",..BestandLocatie,..#Applicatie)
-	do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.VisiDot.ZijkantAfhandelaar.FileLocation",##class(TECH.Files).GetNetworkVersion(..BestandLocatie),..#Applicatie)
-	do ##class(TECH.Config.ConfigMgr).Instance().SetString("APPS.VisiDot.ZijkantAfhandelaar.OutputType",##class(APPS.common.Print.enu.OutputType).XML(),..#Applicatie)
-	do ##class(TECH.Config.ConfigMgr).Instance().ZetString("BL.Sys.FOP.CommonTasks_RunFopTask",$$$false,..#Applicatie)
-	do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.AansturingService.Printer","98",..#Applicatie)
-	do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.AansturingService.Printer.GekleurdPapier","98",..#Applicatie)
-	do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("HADETIK_GenereerRandomBestand",0,..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.ProductieDetailBlad.DocumentGenerator_ProjectFileFolder", ..BestandLocatie, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.ProductieDetailBlad.DocumentGenerator_FileLocation", ##class(TECH.Files).GetNetworkVersion(..BestandLocatie), ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.ProductieDetailBlad.DocumentGenerator_OutputType", ##class(APPS.common.Print.enu.OutputType).XML(), ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.ProductieDetailBlad.DocumentGenerator_Printer", "98", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("vhPRINTER_BestandNaam_DoorverwijzingActief", $$$True, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("PrintFileDropFolder", ..BestandLocatie, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("PrintFileHighPrioDropFolder", ..BestandLocatie, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.VisiDot.ZijkantAfhandelaar.FileLocation", ##class(TECH.Files).GetNetworkVersion(..BestandLocatie), ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("APPS.VisiDot.ZijkantAfhandelaar.OutputType", ##class(APPS.common.Print.enu.OutputType).XML(), ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("BL.Sys.FOP.CommonTasks_RunFopTask", $$$False, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.AansturingService.Printer", "98", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.PPS.AansturingService.Printer.GekleurdPapier", "98", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("HADETIK_GenereerRandomBestand", 0, ..#Applicatie)
 ]]></Implementation>
 </Method>
 
 <Method name="AssertActieIDsPerActiviteitGroep">
 <FormalSpec>StartBatchActieIDs:%ArrayOfObjects(ELEMENTTYPE="%ListOfDataTypes"),ResetBatchActieIDs:%ArrayOfObjects(ELEMENTTYPE="%ListOfDataTypes")</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set GroepIteratorStartBatch = ##class(TECH.ListIterator).%New(StartBatchActieIDs)
-	Set GroepIteratorResetBatch = ##class(TECH.ListIterator).%New(ResetBatchActieIDs)
-	If $$$AssertEquals(StartBatchActieIDs.Count(),ResetBatchActieIDs.Count()) {
-		While( GroepIteratorResetBatch.HasNext()){
+	#dim GroepIteratorStartBatch As TECH.Iterator = ##class(TECH.ListIterator).%New(StartBatchActieIDs)
+	#dim GroepIteratorResetBatch As TECH.Iterator = ##class(TECH.ListIterator).%New(ResetBatchActieIDs)
+	
+	If $$$AssertEquals(StartBatchActieIDs.Count(), ResetBatchActieIDs.Count()) {
+		While (GroepIteratorResetBatch.HasNext()){
 			#dim ZijnGelijk As %Boolean = ##class(TECH.ListUtils).ListHasEqualValues(GroepIteratorStartBatch.Next(), GroepIteratorResetBatch.Next())
 			Do $$$AssertTrue(ZijnGelijk)
 		}
@@ -250,75 +254,85 @@
 <ReturnType>%ArrayOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="%ListOfDataTypes"</ReturnTypeParams>
 <Implementation><![CDATA[
-	Set ActieIDsPerActiviteitGroep = ##class(%ArrayOfObjects).%New()
+	#dim ActieIDsPerActiviteitGroep As %ArrayOfObjects = ##class(%ArrayOfObjects).%New()
 	
-	if ..Configuratie.AansturingActies {
-	
+	If (..Configuratie.AansturingActies) {
 		Do ##class(TECH.Context).Instance().GeefFileAPI().GeefFileNameGenerator().Reset()
-		set AansturingService = ##class(WS.Halux.PPS.AansturingService).%New()
-		set ActiviteitGroepIterator = ##class(TECH.ListIterator).%New(AansturingService.GeefActiviteitGroepen(..GeefCategorie()))
-		while ActiviteitGroepIterator.HasNext() {
-			set ActieIDs = ##class(%ListOfDataTypes).%New()
+		
+		#dim AansturingService As WS.Halux.PPS.AansturingService = ##class(WS.Halux.PPS.AansturingService).%New()
+		#dim ActiviteitGroepIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(AansturingService.GeefActiviteitGroepen(..GeefCategorie()))
+		
+		While (ActiviteitGroepIterator.HasNext()) {
+			#dim ActieIDs As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 			#dim ActiviteitGroepData As APPS.Halux.PPS.dto.ActiviteitGroepData = ActiviteitGroepIterator.Next()
-			do ##class(vhTest.Integratie.FakeFileNameGenerator).Instance().ZetGroep(ActiviteitGroepData.Omschrijving)
-			set AansturingActiesIterator = ##class(TECH.ListIterator).%New(AansturingService.GeefAansturingActies(ActiviteitGroepData.ID, ..#BatchID))
-			while AansturingActiesIterator.HasNext() {
+			
+			Do ##class(vhTest.Integratie.FakeFileNameGenerator).Instance().ZetGroep(ActiviteitGroepData.Omschrijving)
+			
+			#dim AansturingActiesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(AansturingService.GeefAansturingActies(ActiviteitGroepData.ID, ..#BatchID))
+			
+			While AansturingActiesIterator.HasNext() {
 				#dim AansturingActie As APPS.Halux.PPS.dto.AansturingActieData = AansturingActiesIterator.Next()
-				if ..IsVerwerkingNodig(AansturingActie) {
-					do ActieIDs.Insert(AansturingActie.ID) 
-				}
-				do ActieIDsPerActiviteitGroep.SetAt(ActieIDs,ActiviteitGroepData.ID)
+				
+				Do:(..IsVerwerkingNodig(AansturingActie)) ActieIDs.Insert(AansturingActie.ID)				
+				Do ActieIDsPerActiviteitGroep.SetAt(ActieIDs,ActiviteitGroepData.ID)
 			}
-			Set ActieParametersArray = ##class(APPS.Halux.PPS.dto.ActieParametersLijst).%New()
+			
+			#dim ActieParametersArray As APPS.Halux.PPS.dto.ActieParametersLijst = ##class(APPS.Halux.PPS.dto.ActieParametersLijst).%New()
 			#dim ActiviteitGroepAansturingStatus As APPS.Halux.PPS.dto.ActiviteitGroepAansturingStatus  = AansturingService.VoerUitAansturingActiesVoorBatch(..#BatchID,ActiviteitGroepData.ID,ActieIDs,ActieParametersArray)
-			do ..DataExporteerder.ExporteerDataTransferObject(ActiviteitGroepAansturingStatus, ActiviteitGroepData.Omschrijving_".xml", "Activiteitgroep_Aansturing_Status")
+			
+			Do ..DataExporteerder.ExporteerDataTransferObject(ActiviteitGroepAansturingStatus, ActiviteitGroepData.Omschrijving_".xml", "Activiteitgroep_Aansturing_Status")
 		}
 		
-		do ..ExporteerExterneData()
+		Do ..ExporteerExterneData()
 	}
 	
-	quit ActieIDsPerActiviteitGroep
+	Quit ActieIDsPerActiviteitGroep
 ]]></Implementation>
 </Method>
 
 <Method name="ProcessOptiBoxRequests">
 <Private>1</Private>
 <Implementation><![CDATA[
-	do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("APPS.Halux.PPS.Verpakking.KartonEchtSnijden",$$$true,..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("APPS.Halux.PPS.Verpakking.KartonEchtSnijden", $$$True, ..#Applicatie)
 	
 	#dim WerkpostIterator As TECH.Iterator = ##class(APPS.Halux.PPS.Verpakking.enu.KartonWerkpost).ValueListIterator()
-	while WerkpostIterator.HasNext() {
+	
+	While (WerkpostIterator.HasNext()) {
 		#dim Werkpost As %String = WerkpostIterator.Next()
 	
-		kill %blPPSTBXSequence ; noodzakelijke kill om de juiste instantie per werkpost type te verkrijgen
+		Kill %blPPSTBXSequence ; noodzakelijke kill om de juiste instantie per werkpost type te verkrijgen
 		
+		#dim OptimizeService As vhTest.Fake.APPS.Halux.PPS.Verpakking.RequestsLoggendeOptimizeService = ##class(vhTest.Fake.APPS.Halux.PPS.Verpakking.RequestsLoggendeOptimizeService).%New()
 		#dim VerpakkingAPI As vhTest.Mock.APPS.Halux.PPS.Verpakking.VerpakkingAPI = ##class(vhTest.Mock.APPS.Halux.PPS.Verpakking.VerpakkingAPI).MockInstance()
 		
-		set OptimizeService = ##class(vhTest.Fake.APPS.Halux.PPS.Verpakking.RequestsLoggendeOptimizeService).%New()
-		do VerpakkingAPI.IndienMethodCall("GeefOptimizeService").DanReturn(OptimizeService)
+		Do VerpakkingAPI.IndienMethodCall("GeefOptimizeService").DanReturn(OptimizeService)
 	
 		#dim SessionID As %String = "2JXxcXRV3oeSK6Fa5FsQ1g==" ; Random existing SessionID
-		
 		#dim OptiServer As WS.Prod.OptiBox.OptiServer = ##class(WS.Prod.OptiBox.OptiServer).%New()
 		#dim QueueDataSet As %XML.DataSet
-		do OptiServer.GetWPQueueViaBatchID(SessionID,Werkpost,..#BatchID,.QueueDataSet)
-		while QueueDataSet.Next() {
+		
+		Do OptiServer.GetWPQueueViaBatchID(SessionID, Werkpost, ..#BatchID, .QueueDataSet)
+		
+		While (QueueDataSet.Next()) {
 			#dim ID As %String = QueueDataSet.GetDataByName("ID")
 			#dim ReProcessItemDataSet As %XML.DataSet
-			do OptiServer.ReProcessItem(SessionID,Werkpost,..#BatchID,ID,.ReProcessItemDataSet)
+			
+			Do OptiServer.ReProcessItem(SessionID, Werkpost, ..#BatchID, ID, .ReProcessItemDataSet)
 		}
-		do ..DataExporteerder.ExporteerStream(OptimizeService.GetRequestsAsStream(),"OptiboxRequests_"_##class(APPS.Halux.PPS.Verpakking.enu.KartonWerkpost).LogicalToDisplay(Werkpost))
+		
+		Do ..DataExporteerder.ExporteerStream(OptimizeService.GetRequestsAsStream(), "OptiboxRequests_" _ ##class(APPS.Halux.PPS.Verpakking.enu.KartonWerkpost).LogicalToDisplay(Werkpost))
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="ExporteerExterneData">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set ExterneDataBewaarderIterator = ##class(TECH.ListIterator).%New(..ExterneDataBewaarders)
-	while ExterneDataBewaarderIterator.HasNext() {
+	#dim ExterneDataBewaarderIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..ExterneDataBewaarders)
+	
+	While (ExterneDataBewaarderIterator.HasNext()) {
 		#dim ExterneDataBewaarder As vhTest.Fake.TECH.ExterneDataBewaarder = ExterneDataBewaarderIterator.Next()
-		do ..DataExporteerder.ExporteerObjectList(ExterneDataBewaarder.GeefBewaardeObjecten(),ExterneDataBewaarder.GeefOmschrijving()_".xml",..StartOfReset)
+		Do ..DataExporteerder.ExporteerObjectList(ExterneDataBewaarder.GeefBewaardeObjecten(), ExterneDataBewaarder.GeefOmschrijving() _ ".xml", ..StartOfReset)
 	}
 ]]></Implementation>
 </Method>
@@ -350,18 +364,21 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim CurrentId As %Integer = ^APPS.Halux.common.BatchD
-	set ^APPS.Halux.common.BatchD = ( ..#BatchID - 1 )
-	try { 
-		set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
+	Set ^APPS.Halux.common.BatchD = (..#BatchID - 1)
+	
+	Try { 
+		#dim BatchService As APPS.Halux.Planning.BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
 		#dim GeplandOp As %Date = $$INTDATE^vhLib.DataTypes(..#ReferentieDatum)
-		#dim Batch As APPS.Halux.common.Batch = BatchService.MaakNieuweLegeBatch(GeplandOp , ..GeefCategorie())
-		do ..UpdateBatch(Batch)
-		do Batch.Save()
-	} catch {
-		set ^APPS.Halux.common.BatchD = CurrentId
-		do ##class(TECH.ExceptionHandler).Rethrow()
+		#dim Batch As APPS.Halux.common.Batch = BatchService.MaakNieuweLegeBatch(GeplandOp, ..GeefCategorie())
+		
+		Do ..UpdateBatch(Batch)
+		Do Batch.Save()
+	} Catch {
+		Set ^APPS.Halux.common.BatchD = CurrentId
+		Do ##class(TECH.ExceptionHandler).Rethrow()
 	}
-	set ^APPS.Halux.common.BatchD = CurrentId
+	
+	Set ^APPS.Halux.common.BatchD = CurrentId
 ]]></Implementation>
 </Method>
 
@@ -383,8 +400,10 @@
 <Implementation><![CDATA[
 	#dim Product As DOM.PM.MaatwerkProduct = ..ProductMaker.MaakProductVanIngegevenKenmerken(IngegevenKenmerken)
 	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = Product.GeefBerekeningsSpecificatie()
+	
 	Do BerekeningsSpecificatie.ZetBerekeningWijze(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing())
 	Do ..Producten.Insert(Product)
+	
 	Quit Product.GeefPRNr()
 ]]></Implementation>
 </Method>
@@ -393,16 +412,18 @@
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Aantal:TECH.Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>vhTest.Integratie.Productie.Setup.ProductInfo</ReturnType>
-<Implementation><![CDATA[	Quit ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(IngegevenKenmerken),Aantal)
+<Implementation><![CDATA[	Quit ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(IngegevenKenmerken), Aantal)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwijderGemaakteProducten">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ProductIterator = ##class(TECH.ListIterator).%New(..Producten)
-	While ProductIterator.HasNext() {
+	#dim ProductIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..Producten)
+	
+	While (ProductIterator.HasNext()) {
 		#dim Product As DOM.PM.Product = ProductIterator.Next()
+		
 		If ##class(DOM.DomeinContext).Instance().GeefProductAPI().BestaatProduct(Product.GeefID()) {
 			Do DELETE^PRODUKT2(Product.GeefID())
 		}
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test006Binnenlade.cls.xml
===================================================================
diff -u -r32733 -r33417
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test006Binnenlade.cls.xml	(.../Test006Binnenlade.cls.xml)	(revision 32733)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/Test006Binnenlade.cls.xml	(.../Test006Binnenlade.cls.xml)	(revision 33417)
@@ -13,7 +13,7 @@
 	#dim LadesPerToelevering As vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
 	#dim Lades As vhTest.Integratie.Productie.Setup.ProductInfoLijst = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
 	
-	Do Lades.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New($$$Taorbox, $$$Aantal))
+	Do Lades.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New($$$Taorbox, $$$Aantal))
 	Do LadesPerToelevering.SetAt(Lades, $$$ToeleveringID)
 
 	Quit LadesPerToelevering
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestLosseComponent.cls.xml
===================================================================
diff -u -r31001 -r33417
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestLosseComponent.cls.xml	(.../TestLosseComponent.cls.xml)	(revision 31001)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestLosseComponent.cls.xml	(.../TestLosseComponent.cls.xml)	(revision 33417)
@@ -6,19 +6,21 @@
 <Method name="GeefProductenPerToeleveringArray">
 <ReturnType>vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray</ReturnType>
 <Implementation><![CDATA[
-	#define ToeleveringID 222222
-	#define Aantal 			  10 
+	#define ToeleveringID 	222222
+	#define Aantal			10 
 	
-	set LadenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
-	
+	#dim LadesPerToelevering As vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
 	#dim ProductieWijzen As TECH.Iterator = ..GeefLosseComponentProductieWijzeIterator()
-	while (ProductieWijzen.HasNext()) {
+	
+	While (ProductieWijzen.HasNext()) {		
 		#dim ProductieWijze As DOM.PM.enu.TAORProductieWijze = ProductieWijzen.Next()
-		set Laden = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
-		do Laden.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..GeefTAORProductID(ProductieWijze),$$$Aantal))
-		do LadenPerToeleveringArray.SetAt(Laden,$$$ToeleveringID+ProductieWijzen.Key())
+		#dim Lades As vhTest.Integratie.Productie.Setup.ProductInfoLijst = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
+
+		Do Lades.Insert(##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..GeefTAORProductID(ProductieWijze), $$$Aantal))
+		Do LadesPerToelevering.SetAt(Lades, $$$ToeleveringID + ProductieWijzen.Key())
 	}
-	quit LadenPerToeleveringArray
+	
+	Quit LadesPerToelevering
 ]]></Implementation>
 </Method>
 
@@ -28,15 +30,17 @@
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim TAORIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).BiColourBodemAfwBinnenladeVerpaktIn(..Enum.VerpakkingType.LosseComponentenInBulk)
+	
 	Set TAORIngegevenKenmerken.ProductieWijze = ProductieWijze
+	
 	Quit ..MaakProduct(TAORIngegevenKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBatchProductieLijn">
 <Private>1</Private>
 <ReturnType>APPS.Halux.common.enu.ProductieLijn</ReturnType>
-<Implementation><![CDATA[	quit ##class(APPS.Halux.common.enu.ProductieLijn).Drie()
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.common.enu.ProductieLijn).Drie()
 ]]></Implementation>
 </Method>
 </Class>