Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestBase.cls.xml
===================================================================
diff -u -r35513 -r35543
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 35513)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 35543)
@@ -21,7 +21,7 @@
 
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestCase:%String</FormalSpec>
-<Implementation><![CDATA[ 	do ##super(aTestCase)
+<Implementation><![CDATA[ 	Do ##super(aTestCase)
 ]]></Implementation>
 </Method>
 
@@ -35,25 +35,25 @@
 <Method name="GeefConcept">
 <Private>1</Private>
 <ReturnType>DOM.PM.enu.TAORConcept</ReturnType>
-<Implementation><![CDATA[	quit ##class(DOM.PM.enu.TAORConcept).Valinge()
+<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.TAORConcept).Valinge()
 ]]></Implementation>
 </Method>
 
 <Method name="InitialiseSettings">
 <FormalSpec>SubLocatie:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	do ##super(SubLocatie)
+	Do ##super(SubLocatie)
 	
-	do ##class(TECH.Config.ConfigMgr).Instance().SetString("ZijkantKamerFreesMachine_Storage","Local",..#Applicatie)
-	do ##class(TECH.Config.ConfigMgr).Instance().SetString("KantenbandMachine_Storage","Local",..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("ZijkantKamerFreesMachine_Storage", "Local", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("KantenbandMachine_Storage", "Local", ..#Applicatie)
 	
-	do ..InitialiseKantenbandDataBewaarder()
-	do ..InitialiseZijkantKamerFreesDataBewaarder()
-	do ..InitialiseBodemSlicingDataBewaarder()
+	Do ..InitialiseKantenbandDataBewaarder()
+	Do ..InitialiseZijkantKamerFreesDataBewaarder()
+	Do ..InitialiseBodemSlicingDataBewaarder()
 	
-	do ##class(APPS.Halux.Machine.ZijkantFrees.data.ZijkantFreesDataLocal).%KillExtent()
-	do ##class(TECH.File.IoCContainer).Instance().Register("FileExtension",##class(vhTest.Fake.TECH.File.FileExtension).%New())
+	Do ##class(APPS.Halux.Machine.ZijkantFrees.data.ZijkantFreesDataLocal).%KillExtent()
+	Do ##class(TECH.File.IoCContainer).Instance().Register("FileExtension",##class(vhTest.Fake.TECH.File.FileExtension).%New())
 	
 	#dim Sleutel As %String = "APPS.Halux.Machine.OpdeelZaag.impl.OptimalisatieBestandGenerator"	
 	#dim AfhandelingIterator As TECH.Iterator = ##class(APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling).ValueListIterator()
@@ -66,80 +66,69 @@
 			#dim Client As APPS.Halux.Machine.OpdeelZaag.enu.Client = ClientIterator.Next()
 			#dim BestandLocatie As %String = ##class(TECH.Files).AppendSubPath(..BestandLocatie, Client)
 			#dim ImportBestandLocatie As %String = ##class(TECH.Files).AppendSubPath(BestandLocatie, "Import" _ Afhandeling)
-	
-			Do ##class(Tools.Wlip).%New(42).String("Bestandlocatie::::" _ BestandLocatie _ " ||| " _ ..BestandLocatie)
-			
+
 			Do ##class(TECH.Config.ConfigMgr).Instance().ZetString(Sleutel _ "_FileLocation_" _ Afhandeling _ "_" _ Client, ImportBestandLocatie, ..#Applicatie)
 		}
 	}
 	
-	
 	#dim WatchFolderBestandLocatie As TECH.String = ##class(TECH.Files).AppendSubPath(..BestandLocatie, "Biesse")
 	Set WatchFolderBestandLocatie = ##class(TECH.Files).AppendSubPath(WatchFolderBestandLocatie, "WatchFolder")
 	
 	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString(Sleutel _ "_BatchFileLocation", WatchFolderBestandLocatie, ..#Applicatie)
-	
 
-	/*
-	#dim BiesseBestandLocatie As TECH.String = ##class(TECH.Files).AppendFile(..BestandLocatie,"Biesse")
-	#dim BiesseImportBestandLocatie As TECH.String = ##class(TECH.Files).AppendFile(BiesseBestandLocatie,"Import")
-	
-	#dim AfhandelingIterator As TECH.Iterator = ##class(APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling).ValueListIterator()
-	while AfhandelingIterator.HasNext() {
-		#dim Afhandeling AS APPS.Halux.Machine.Opdeelzaag.enu.Afhandeling = AfhandelingIterator.Next()
-		do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.Machine.OpdeelZaag.impl.OptimalisatieBestandGenerator_FileLocation_"_Afhandeling,BiesseImportBestandLocatie_Afhandeling,..#Applicatie)
-	}
-	
-	#dim BiesseWatchFolderBestandLocatie As TECH.String = ##class(TECH.Files).AppendFile(BiesseBestandLocatie,"WatchFolder")
-	do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.Machine.OpdeelZaag.impl.OptimalisatieBestandGenerator_BatchFileLocation",BiesseWatchFolderBestandLocatie,..#Applicatie)
-	*/
-	set AssemblageKarRepository = ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
-	do AssemblageKarRepository.VerwijderViaBatchID(..#BatchID)
+	#dim AssemblageKarRepository As APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository = ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
+	Do AssemblageKarRepository.VerwijderViaBatchID(..#BatchID)
 ]]></Implementation>
 </Method>
 
 <Method name="InitialiseKantenbandDataBewaarder">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set FakeKantenbandDataBewaarder = ##class(vhTest.Fake.APPS.Halux.Machine.Kantenband.impl.DataBewaarder).%New()
-	do ##class(APPS.Halux.PPS.TAORProductie.IoCContainer).Instance().Register("KantenbandDataBewaarder",FakeKantenbandDataBewaarder)
-	do ..ExterneDataBewaarders.Insert(FakeKantenbandDataBewaarder)
+	#dim FakeKantenbandDataBewaarder As vhTest.Fake.APPS.Halux.Machine.Kantenband.impl.DataBewaarder = ##class(vhTest.Fake.APPS.Halux.Machine.Kantenband.impl.DataBewaarder).%New()
+	
+	Do ##class(APPS.Halux.PPS.TAORProductie.IoCContainer).Instance().Register("KantenbandDataBewaarder", FakeKantenbandDataBewaarder)
+	Do ..ExterneDataBewaarders.Insert(FakeKantenbandDataBewaarder)
 ]]></Implementation>
 </Method>
 
 <Method name="InitialiseZijkantKamerFreesDataBewaarder">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set FakeZijkantKamerFreesDataBewaarder = ##class(vhTest.Fake.APPS.Halux.Machine.ZijkantFrees.impl.DataBewaarder).%New()
-	do ##class(APPS.Halux.PPS.TAORProductie.IoCContainer).Instance().Register("ZijkantKamerFreesDataBewaarder",FakeZijkantKamerFreesDataBewaarder)
-	do ..ExterneDataBewaarders.Insert(FakeZijkantKamerFreesDataBewaarder)
+	#dim FakeZijkantKamerFreesDataBewaarder As vhTest.Fake.APPS.Halux.Machine.ZijkantFrees.impl.DataBewaarder = ##class(vhTest.Fake.APPS.Halux.Machine.ZijkantFrees.impl.DataBewaarder).%New()
+	
+	Do ##class(APPS.Halux.PPS.TAORProductie.IoCContainer).Instance().Register("ZijkantKamerFreesDataBewaarder", FakeZijkantKamerFreesDataBewaarder)
+	Do ..ExterneDataBewaarders.Insert(FakeZijkantKamerFreesDataBewaarder)
 ]]></Implementation>
 </Method>
 
 <Method name="InitialiseBodemSlicingDataBewaarder">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set FakeBodemSlicingDataBewaarder = ##class(vhTest.Fake.APPS.Halux.Machine.BodemSlicing.impl.DataBewaarder).%New()
-	do ##class(APPS.Halux.PPS.TAORProductie.IoCContainer).Instance().Register("BodemSlicingDataBewaarder",FakeBodemSlicingDataBewaarder)
-	do ..ExterneDataBewaarders.Insert(FakeBodemSlicingDataBewaarder)
+	#dim FakeBodemSlicingDataBewaarder As vhTest.Fake.APPS.Halux.Machine.BodemSlicing.impl.DataBewaarder = ##class(vhTest.Fake.APPS.Halux.Machine.BodemSlicing.impl.DataBewaarder).%New()
+	
+	Do ##class(APPS.Halux.PPS.TAORProductie.IoCContainer).Instance().Register("BodemSlicingDataBewaarder", FakeBodemSlicingDataBewaarder)
+	Do ..ExterneDataBewaarders.Insert(FakeBodemSlicingDataBewaarder)
 ]]></Implementation>
 </Method>
 
 <Method name="Arrange">
 <Private>1</Private>
 <Implementation><![CDATA[
-	do ##super()
-	Set TAORActiviteitServiceMock = ##class(vhTest.Mock.APPS.Halux.PPS.TAORActiviteitService).%New()
-	Set VolgnummerBepaler = ##class(vhTest.Integratie.Productie.Planning.ActieveBatches.Common.Aansturing.VolgnummerBepalerFake).%New()	
+	Do ##super()
+	
+	#dim VolgnummerBepaler As vhTest.Integratie.Productie.Planning.ActieveBatches.Common.Aansturing.VolgnummerBepalerFake = ##class(vhTest.Integratie.Productie.Planning.ActieveBatches.Common.Aansturing.VolgnummerBepalerFake).%New()
+	#dim TAORActiviteitServiceMock As vhTest.Mock.APPS.Halux.PPS.TAORActiviteitService = ##class(vhTest.Mock.APPS.Halux.PPS.TAORActiviteitService).%New()
+	
 	Do TAORActiviteitServiceMock.IndienMethodCall("GeefVolgnummerBepaler").DanReturn(VolgnummerBepaler)
+	
 	Do ..ProductieAPI.IndienMethodCall("GeefTAORActiviteitService").DanReturn(TAORActiviteitServiceMock)
 ]]></Implementation>
 </Method>
 
 <Method name="UpdateBatch">
 <FormalSpec><![CDATA[&Batch:APPS.Halux.common.Batch]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	do Batch.ZetConcept(..GeefConcept())
+<Implementation><![CDATA[	Do Batch.ZetConcept(..GeefConcept())
 ]]></Implementation>
 </Method>
 
@@ -149,11 +138,11 @@
 <Implementation><![CDATA[
 	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(..VerpakkingType)
 
-	set TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte400
-	set TAORKenmerken.InterneBreedte = 878
-	set TAORKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.AluminiumLook
+	Set TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte400
+	Set TAORKenmerken.InterneBreedte = 878
+	Set TAORKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.AluminiumLook
 	
-	quit TAORKenmerken
+	Quit TAORKenmerken
 ]]></Implementation>
 </Method>
 
@@ -163,9 +152,9 @@
 <Implementation><![CDATA[
 	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefStandaardLade()
 	
-	set TAORKenmerken.IsBinnenlade = $$$True
+	Set TAORKenmerken.IsBinnenlade = $$$True
 	
-	quit TAORKenmerken
+	Quit TAORKenmerken
 ]]></Implementation>
 </Method>
 </Class>