Index: APPS/Halux/Planning/impl/BatchService.cls.xml
===================================================================
diff -u -r69012 -r69013
--- APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 69012)
+++ APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 69013)
@@ -120,11 +120,25 @@
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Planning.dto.Toelevering"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim ToeleveringenNietInBatch As %ListOfObjects = ##class(%ListOfObjects).%New()
-	#dim Builder As APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilder = ..GeefMaatwerkBatchBuilder(Categorie)
 	#dim VolgNr As %Integer = 1
 	#dim LeverancierHalux As DOM.AKP.Leverancier = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancier(##class(DOM.AKP.enu.Leverancier).Halux())
-	#dim ToeleveringIterator As TECH.Iterator = LeverancierHalux.GeefToeleveringIterator()
+	#dim LeverancierVanHoecke As DOM.AKP.Leverancier = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancier(##class(DOM.AKP.enu.Leverancier).VanHoecke())
+	#dim ToeleveringenVoorHaluxIterator As TECH.Iterator = LeverancierHalux.GeefToeleveringIterator()
+	#dim ToeleveringenVoorSpecialWorkshopIterator As TECH.Iterator = LeverancierVanHoecke.GeefToeleveringSpecialWorkshopIterator()
 	
+	Do ..VoegToeToeleveringenNietInBatch(.ToeleveringenNietInBatch, .VolgNr, Datum, Categorie, ToeleveringenVoorHaluxIterator)
+	Do ..VoegToeToeleveringenNietInBatch(.ToeleveringenNietInBatch, .VolgNr, Datum, Categorie, ToeleveringenVoorSpecialWorkshopIterator)
+	
+	Quit ToeleveringenNietInBatch
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeToeleveringenNietInBatch">
+<FormalSpec><![CDATA[&ToeleveringenNietInBatch:%ListOfObjects,&VolgNr:%Integer,Datum:%Date,Categorie:APPS.Halux.common.enu.Categorie,ToeleveringIterator:TECH.Iterator]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Builder As APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilder = ..GeefMaatwerkBatchBuilder(Categorie)
+	
 	While (ToeleveringIterator.HasNext()) {
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
 		#dim GeplandOpDatum As %Date = ..GeefGeplandOpDatum(Toelevering.GeefID())
@@ -140,8 +154,6 @@
 			}
 		}
 	}
-	
-	Quit ToeleveringenNietInBatch
 ]]></Implementation>
 </Method>