Index: APPS/Halux/Planning/impl/BatchService.cls.xml
===================================================================
diff -u -r31163 -r31164
--- APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 31163)
+++ APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 31164)
@@ -4,6 +4,11 @@
 <IncludeCode>%occIO</IncludeCode>
 <Super>TECH.RegisteredObject,APPS.Halux.Planning.BatchService</Super>
 
+<Property name="BatchService">
+<Type>APPS.Halux.common.BatchService</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ProductieService">
 <Type>APPS.Halux.common.ProductieService</Type>
 <Private>1</Private>
@@ -16,6 +21,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	set ..BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
 	set ..ProductieService = $$$Implementation(ProductieService, ##class(APPS.Halux.common.ProductieService).%New())
 	
 	quit $$$OK
@@ -42,11 +48,9 @@
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Planning.dto.MaatwerkBatch"</ReturnTypeParams>
 <Implementation><![CDATA[
 	Set MaatwerkBatches = ##class(%ListOfObjects).%New()
-	
-	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
 	Set VoorbereidingService = ##class(APPS.Halux.Voorbereiding.VoorbereidingService).%New()
 	
-	#dim BatchIterator As TECH.Iterator = BatchService.GeefBatchesGeplandOpIterator(Datum)
+	#dim BatchIterator As TECH.Iterator = ..BatchService.GeefBatchesGeplandOpIterator(Datum)
 	While (BatchIterator.HasNext())
 	{
 		#dim Batch As APPS.Halux.common.Batch = BatchIterator.Next()
@@ -75,10 +79,9 @@
 <Implementation><![CDATA[
 	Set BatchToeleveringen = ##class(APPS.Halux.Planning.dto.BatchToeleveringen).%New()
 	Set BatchToeleveringen.BatchID = BatchID	
-	
-	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
+
 	#dim VolgNr As %Integer = 1
-	#dim Batch As APPS.Halux.common.Batch = BatchService.GeefBatch(BatchID)
+	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchID)
 	#dim Builder As APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilder = ..GeefMaatwerkBatchBuilder(Batch.GeefCategorie())
 	#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
 	While (ToeleveringIterator.HasNext()) {
@@ -102,7 +105,6 @@
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Planning.dto.Toelevering"</ReturnTypeParams>
 <Implementation><![CDATA[
 	Set Toeleveringen = ##class(%ListOfObjects).%New()
-	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
 	#dim Builder As APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilder = ..GeefMaatwerkBatchBuilder(Categorie)
 	
 	#dim VolgNr As %Integer = 1
@@ -112,7 +114,7 @@
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
 		#dim GeplandOpDatum As %Date = ..GeefGeplandOpDatum(Toelevering.GeefID())
 		If (GeplandOpDatum = Datum) {
-			#dim Batch As APPS.Halux.common.Batch = BatchService.GeefBijhorendeBatch(Toelevering)
+			#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBijhorendeBatch(Toelevering)
 
 			if ($$$Not($IsObject(Batch))) && ((..ProductieService.GeefCategorieVoorToelevering(Toelevering) = Categorie)) {
 				#dim dtoToelevering As APPS.Halux.Planning.dto.Toelevering = Builder.GeefToelevering(Toelevering)
@@ -133,8 +135,7 @@
 <Implementation><![CDATA[
 	Set VerplaatsResultaat = ##class(APPS.Halux.Planning.dto.VerplaatsResultaat).%New()
 	Set VerplaatsResultaat.BatchOverzicht = ##class(APPS.Halux.Planning.dto.BatchOverzicht).%New()
-	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
-	#dim Batch As APPS.Halux.common.Batch = BatchService.GeefBatch(BatchID)
+	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchID)
 	#dim MaatwerkBatch As APPS.Halux.Planning.dto.MaatwerkBatch = ..GeefMaatwerkBatch(Batch)
 	Set GewijzigdeBatches = ##class(%ArrayOfObjects).%New()
 	
@@ -150,7 +151,7 @@
 		If (VerplaatsProblemen.Count() = 0)
 		{
 			Try{ 
-				#dim BatchVan As APPS.Halux.common.Batch = BatchService.GeefBijhorendeBatch(Toelevering)
+				#dim BatchVan As APPS.Halux.common.Batch = ..BatchService.GeefBijhorendeBatch(Toelevering)
 				If ($IsObject(BatchVan))
 				{
 					Do BatchVan.VerwijderToelevering(Toelevering)
@@ -221,8 +222,7 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	Set VerplaatsProblemen = ##class(%ListOfDataTypes).%New()
-	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
-	
+
 	If $$$Not(MaatwerkBatch.Categorie = ..ProductieService.GeefCategorieVoorToelevering(Toelevering)) {
 		Do VerplaatsProblemen.Insert("De toelevering "_Toelevering.GeefID()_" heeft een andere categorie dan de batch")
 	}
@@ -241,7 +241,7 @@
 	//	Do VerplaatsProblemen.Insert("De toelevering "_Toelevering.GeefID()_" is gepland voor een andere datum dan de batch")
 	//}
 	
-	#dim BatchVan As APPS.Halux.common.Batch = BatchService.GeefBijhorendeBatch(Toelevering)
+	#dim BatchVan As APPS.Halux.common.Batch = ..BatchService.GeefBijhorendeBatch(Toelevering)
 	If ($IsObject(BatchVan)) && (BatchVan.GeefStatus() = ##class(APPS.Halux.common.enu.BatchStatus).Gestart())
 	{
 		Do VerplaatsProblemen.Insert("De toelevering wordt verplaatst vanuit een batch die reeds is gestart")
@@ -252,7 +252,7 @@
 		Do VerplaatsProblemen.Insert("De batch is reeds gestart")
 	}
 	
-	#dim BatchNaar As APPS.Halux.common.Batch = BatchService.GeefBatch(MaatwerkBatch.ID)
+	#dim BatchNaar As APPS.Halux.common.Batch = ..BatchService.GeefBatch(MaatwerkBatch.ID)
 	#dim NaarToeleveringIterator As TECH.Iterator = BatchNaar.GeefToeleveringIterator()
 	// FMA 7/01/2014. Deze test tijdelijk uitgezet op vraag van Halux.  Zal voor een half jaar of zo zijn.
 	// Zie ook vhUnitTest.APPS.Halux.Planning.TestBatchService
@@ -300,7 +300,7 @@
 <FormalSpec>Datum:%Date,Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.MaatwerkBatch</ReturnType>
 <Implementation><![CDATA[
-	#dim Batch As APPS.Halux.common.impl.BatchService = ##class(APPS.Halux.common.BatchFactory).MaakNieuweLegeBatch(Datum,Categorie)
+	#dim Batch As APPS.Halux.common.Batch = ##class(APPS.Halux.common.BatchFactory).MaakNieuweLegeBatch(Datum, Categorie)
 	Do Batch.Save()
 	Quit ..GeefMaatwerkBatch(Batch)
 ]]></Implementation>
@@ -309,11 +309,10 @@
 <Method name="VerwijderBatch">
 <FormalSpec>BatchID:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
-	#dim Batch As APPS.Halux.common.Batch = BatchService.GeefBatch(BatchID)
+	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchID)
 	If ('Batch.IsActief())
 	{
-		Do BatchService.VerwijderBatch(BatchID)
+		Do ..BatchService.VerwijderBatch(BatchID)
 	}
 	Else
 	{
@@ -338,8 +337,7 @@
 	#dim ToeleveringInfo As APPS.Halux.Planning.impl.ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).OpenId(ToeleveringID)
 	Set Resultaat.ToeleveringGeplandTijdstip = ToeleveringInfo.Gepland
 	Set Resultaat.Categorie = ..ProductieService.GeefCategorieVoorToelevering(Toelevering)
-	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
-	#dim Batch As APPS.Halux.common.Batch = BatchService.GeefBijhorendeBatch(Toelevering)
+	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBijhorendeBatch(Toelevering)
 	If ($IsObject(Batch))
 	{
 		Set Resultaat.BatchDatum = Batch.GeefGeplandOp()
@@ -411,7 +409,6 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Planning.dto.TandemboxBatch"</ReturnTypeParams>
 <Implementation><![CDATA[
-	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
 	#dim MaatwerkBatches As array of APPS.Halux.Planning.dto.TandemboxBatch = ##class(%ArrayOfObjects).%New()
 		
 	#dim ToeleveringIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancier(##class(DOM.AKP.enu.Leverancier).Halux()).GeefToeleveringIterator()
@@ -421,7 +418,7 @@
 		Try
 		{
 			#dim GeplandOpDatum As %Date = ..GeefGeplandOpDatum(Toelevering.GeefID())
-			If (GeplandOpDatum = Datum) && ('$IsObject(BatchService.GeefBijhorendeBatch(Toelevering)))
+			If (GeplandOpDatum = Datum) && ('$IsObject(..BatchService.GeefBijhorendeBatch(Toelevering)))
 			{
 				#dim Categorie As APPS.Halux.common.enu.Categorie = ..ProductieService.GeefCategorieVoorToelevering(Toelevering)
 				#dim Builder As APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilder = ..GeefMaatwerkBatchBuilder(Categorie)
@@ -465,8 +462,7 @@
 <Implementation><![CDATA[
 	#dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
 	
-	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
-	#dim Batch As APPS.Halux.common.Batch = BatchService.GeefBatch(BatchID)
+	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchID)
 	#dim TeWijzigenBatch As APPS.Halux.common.Batch
 	
 	Set BatchOverzicht = ##class(APPS.Halux.Planning.dto.BatchOverzicht).%New()
@@ -528,7 +524,7 @@
 		Set BatchIDIt = ##class(TECH.ListIterator).%New(BatchIDs)
 		While BatchIDIt.HasNext() {
 			#dim BatchID As %String = BatchIDIt.Next()
-			#dim Batch As APPS.Halux.common.Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchID)	
+			#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchID)	
 			If Batch.GeefStatus() '= ##class(APPS.Halux.common.enu.BatchStatus).Gestart(){
 				Set BatchOverzicht.Datum = Batch.GeefGeplandOp()
 				Do Batch.ZetLijn(ProductieLijn)
@@ -600,8 +596,7 @@
 <Implementation><![CDATA[
 	Set BatchToeleveringenEnMaatwerkBatch = ##class(APPS.Halux.Planning.dto.BatchToeleveringenEnMaatwerkBatch).%New()
 	
-	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
-	#dim Batch As APPS.Halux.common.Batch = BatchService.GeefBatch(BatchID)
+	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchID)
 	Do Batch.ZetToeleveringSorteerType(SorteerType)	
 	Do Batch.Save()
 	
@@ -616,9 +611,7 @@
 <FormalSpec>BatchID:%String,ToeleveringID:%String,VerplaatsNaarVolgNr:%Integer</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.BatchToeleveringen</ReturnType>
 <Implementation><![CDATA[
-	
-	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
-	#dim Batch As APPS.Halux.common.Batch = BatchService.GeefBatch(BatchID)
+	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchID)
 	If Batch.GeefToeleveringSorteerType() = ##class(APPS.Halux.Planning.enu.ToeleveringSorteerType).Automatisch(){
 		#dim Feedback As %String = "De toeleveringen in batch '"_BatchID_"' zijn automatisch gesorteerd. U kan geen toelevering wijzigen van volgorde."
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New(Feedback))