Index: APPS/Halux/Planning/impl/BatchService/Utils.cls.xml
===================================================================
diff -u -r58401 -r58430
--- APPS/Halux/Planning/impl/BatchService/Utils.cls.xml	(.../Utils.cls.xml)	(revision 58401)
+++ APPS/Halux/Planning/impl/BatchService/Utils.cls.xml	(.../Utils.cls.xml)	(revision 58430)
@@ -1,14 +1,40 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.Planning.impl.BatchService.Utils">
-<Super>TECH.Mockable</Super>
+<Super>TECH.RegisteredObject,APPS.Halux.Planning.BatchService.Utils</Super>
 
+<Property name="ProductieService">
+<Type>APPS.Halux.common.ProductieService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringSplitserBepaler">
+<Type>APPS.Halux.common.ToeleveringSplitserBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductieService:APPS.Halux.common.ProductieService,ToeleveringSplitserBepaler:APPS.Halux.common.ToeleveringSplitserBepaler</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductieService = $$$Inject(ProductieService, ##class(APPS.Halux.common.ProductieService).%New())
+	Set ..ToeleveringSplitserBepaler = $$$Inject(ToeleveringSplitserBepaler, ##class(APPS.Halux.common.impl.ToeleveringSplitserBepaler).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefDueOutTijdstipOmschrijving">
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Omschrijving As %String = ""
-	If (Batch.GeefVroegsteDueOut() '= "") Set Omschrijving = ##class(TECH.DateTime).Uur(Batch.GeefVroegsteDueOut())_"u"
+	If $$$Not($$$HasLength(Batch.GeefVroegsteDueOut())) {
+		Set Omschrijving = ##class(TECH.DateTime).Uur(Batch.GeefVroegsteDueOut())_"u"
+	}
 	Quit Omschrijving
 ]]></Implementation>
 </Method>
@@ -18,16 +44,16 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.common.enu.ProductieGroep"</ReturnTypeParams>
 <Implementation><![CDATA[
-	#dim ToeleveringSplitser As APPS.Halux.common.impl.ToeleveringSplitser = ..GeefToeleveringSplitser(Toelevering)
+	#dim ToeleveringSplitser As APPS.Halux.common.impl.ToeleveringSplitser = ..ToeleveringSplitserBepaler.GeefToeleveringSplitser(Toelevering)
 	#dim ProductieGroepenIndex As array of APPS.Halux.common.enu.ProductieGroep = ##class(%ArrayOfDataTypes).%New()
-	Set ProductieService = ##class(APPS.Halux.common.ProductieService).%New()
+
 	#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
 	While (ProductLijnIterator.HasNext()) {
 		#dim ProductToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
 		#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 		#dim KlantID As DOM.VKP.VanHoeckeKlantID = Toelevering.GeefKlantID()
 		#dim ProductID As %String = ProductToeleveringLijn.GeefProductID()
-		Do ProductieGroepenIndex.SetAt("",ProductieService.GeefProductieGroep(KlantID,ProductID,ToeleveringSplitser))
+		Do ProductieGroepenIndex.SetAt("", ..ProductieService.GeefProductieGroep(KlantID,ProductID,ToeleveringSplitser))
 	}
 	
 	#dim ProductieGroepen As list of APPS.Halux.common.enu.ProductieGroep = ##class(%ListOfDataTypes).%New()
@@ -40,33 +66,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefToeleveringSplitser">
-<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.Halux.common.impl.ToeleveringSplitser</ReturnType>
-<Implementation><![CDATA[
-	Set AantallenInToeleveringTeller = ##class(APPS.Halux.common.impl.AantallenInToeleveringTeller).%New()
-	
-	#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefProductLijnIterator()
-
-	while ProductLijnIterator.HasNext() {
-		#dim ProductLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = ProductLijnIterator.Next()
-		Do AantallenInToeleveringTeller.VoegToe(ProductLijn.GeefAantal(), ProductLijn.GeefProductID(), Toelevering.GeefKlantID())
-	}
-
-	Quit ##class(APPS.Halux.common.impl.ToeleveringSplitser).%New(AantallenInToeleveringTeller)
-]]></Implementation>
-</Method>
-
 <Method name="GeefProfielTypes">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="%String"</ReturnTypeParams>
 <Implementation><![CDATA[
 	Set ProfielTypesNietUniek = ##class(%ListOfDataTypes).%New()
 	
-	set ProductieService = ##class(APPS.Halux.common.ProductieService).%New()
-	Set Iterator = ##class(TECH.ListIterator).%New(ProductieService.GeefKaderdeurProducten(Toelevering))
+	Set Iterator = ##class(TECH.ListIterator).%New(..ProductieService.GeefKaderdeurProducten(Toelevering))
 	While (Iterator.HasNext()) {
 		#dim Kaderdeur As DOM.PM.KADProduct.KADKaderdeur = Iterator.Next()
 		Do ProfielTypesNietUniek.Insert(Kaderdeur.GeefProfielType()_" "_Kaderdeur.GeefProfielAfwerking())