Index: APPS/Halux/Planning/impl/BatchService.cls.xml
===================================================================
diff -u -r31128 -r31163
--- APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 31128)
+++ APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 31163)
@@ -4,6 +4,24 @@
 <IncludeCode>%occIO</IncludeCode>
 <Super>TECH.RegisteredObject,APPS.Halux.Planning.BatchService</Super>
 
+<Property name="ProductieService">
+<Type>APPS.Halux.common.ProductieService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductieService:APPS.Halux.common.ProductieService=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..ProductieService = $$$Implementation(ProductieService, ##class(APPS.Halux.common.ProductieService).%New())
+	
+	quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefBatchOverzicht">
 <FormalSpec>Datum:%Date</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.BatchOverzicht</ReturnType>
@@ -95,8 +113,8 @@
 		#dim GeplandOpDatum As %Date = ..GeefGeplandOpDatum(Toelevering.GeefID())
 		If (GeplandOpDatum = Datum) {
 			#dim Batch As APPS.Halux.common.Batch = BatchService.GeefBijhorendeBatch(Toelevering)
-			Set ProductieService = ##class(APPS.Halux.common.ProductieService).%New()
-			If ('$IsObject(Batch)) && (ProductieService.GeefCategorieVoorToelevering(Toelevering) = Categorie) {
+
+			if ($$$Not($IsObject(Batch))) && ((..ProductieService.GeefCategorieVoorToelevering(Toelevering) = Categorie)) {
 				#dim dtoToelevering As APPS.Halux.Planning.dto.Toelevering = Builder.GeefToelevering(Toelevering)
 				Set dtoToelevering.Volgnummer = VolgNr
 				Do Toeleveringen.Insert(dtoToelevering)
@@ -177,14 +195,13 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Lijn As %String = ""
-	Set ProductieService = ##class(APPS.Halux.common.ProductieService).%New()
-	#dim Categorie As APPS.Halux.common.enu.Categorie = ProductieService.GeefCategorieVoorToelevering(Toelevering)
+	#dim Categorie As APPS.Halux.common.enu.Categorie = ..ProductieService.GeefCategorieVoorToelevering(Toelevering)
 	#dim Lijnen As list of %String = ..GeefProductieLijnNamen(Categorie)
 	If (Lijnen.Count() = 1)	{
 		Set Lijn = Lijnen.GetAt(1)
 	} ElseIf ##class(TECH.StringUtils).Equals(Categorie,##class(APPS.Halux.common.enu.Categorie).Tandembox(),##class(APPS.Halux.common.enu.Categorie).Legrabox(),##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
 		#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product()).Next()
-		#dim ProductieGroep As APPS.Halux.common.enu.ProductieGroep = ProductieService.GeefProductieGroep(Toelevering.GeefKlantID(), ProductLijn.GeefProductID())
+		#dim ProductieGroep As APPS.Halux.common.enu.ProductieGroep = ..ProductieService.GeefProductieGroep(Toelevering.GeefKlantID(), ProductLijn.GeefProductID())
 		If ##class(TECH.StringUtils).Equals(ProductieGroep,##class(APPS.Halux.common.enu.ProductieGroep).Stuk(),##class(APPS.Halux.common.enu.ProductieGroep).Kast()) {
 			Set Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Een()
 		} ElseIf ##class(TECH.StringUtils).Equals(ProductieGroep,"TAX-LC","TAX-BOG") {
@@ -205,10 +222,8 @@
 <Implementation><![CDATA[
 	Set VerplaatsProblemen = ##class(%ListOfDataTypes).%New()
 	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
-	Set ProductieService = ##class(APPS.Halux.common.ProductieService).%New()
 	
-	If (MaatwerkBatch.Categorie '= ProductieService.GeefCategorieVoorToelevering(Toelevering))
-	{
+	If $$$Not(MaatwerkBatch.Categorie = ..ProductieService.GeefCategorieVoorToelevering(Toelevering)) {
 		Do VerplaatsProblemen.Insert("De toelevering "_Toelevering.GeefID()_" heeft een andere categorie dan de batch")
 	}
 	
@@ -322,8 +337,7 @@
 	Set Resultaat.ToeleveringID = ToeleveringID
 	#dim ToeleveringInfo As APPS.Halux.Planning.impl.ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).OpenId(ToeleveringID)
 	Set Resultaat.ToeleveringGeplandTijdstip = ToeleveringInfo.Gepland
-	Set ProductieService = ##class(APPS.Halux.common.ProductieService).%New()
-	Set Resultaat.Categorie = ProductieService.GeefCategorieVoorToelevering(Toelevering)
+	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)
 	If ($IsObject(Batch))
@@ -398,8 +412,6 @@
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Planning.dto.TandemboxBatch"</ReturnTypeParams>
 <Implementation><![CDATA[
 	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
-	Set ProductieService = ##class(APPS.Halux.common.ProductieService).%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()
@@ -411,7 +423,7 @@
 			#dim GeplandOpDatum As %Date = ..GeefGeplandOpDatum(Toelevering.GeefID())
 			If (GeplandOpDatum = Datum) && ('$IsObject(BatchService.GeefBijhorendeBatch(Toelevering)))
 			{
-				#dim Categorie As APPS.Halux.common.enu.Categorie = ProductieService.GeefCategorieVoorToelevering(Toelevering)
+				#dim Categorie As APPS.Halux.common.enu.Categorie = ..ProductieService.GeefCategorieVoorToelevering(Toelevering)
 				#dim Builder As APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilder = ..GeefMaatwerkBatchBuilder(Categorie)
 				If ('MaatwerkBatches.IsDefined(Categorie))
 				{