Index: APPS/Halux/Planning/impl/BatchService.cls.xml
===================================================================
diff -u -r69010 -r69011
--- APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 69010)
+++ APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 69011)
@@ -432,8 +432,27 @@
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Planning.dto.TandemboxBatch"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#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()
+	#dim ToeleveringenVoorHaluxIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancier(##class(DOM.AKP.enu.Leverancier).Halux()).GeefToeleveringIterator()
+	#dim ToeleveringenVoorSpecialWorkshopIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancier(##class(DOM.AKP.enu.Leverancier).VanHoecke()).GeefToeleveringIteratorVoorSpecialWorkshop()
 	
+	Do ..VoegToeleveringToeAanMaatwerkBatches(ToeleveringenVoorHaluxIterator)
+	Do ..VoegToeleveringToeAanMaatwerkBatches(ToeleveringenVoorSpecialWorkshopIterator)
+	
+	#dim MaatwerkBatchLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MaatwerkBatches)
+	
+	while (Iterator.HasNext()) {
+		do MaatwerkBatchLijst.Insert(Iterator.Next())
+	}
+	
+	quit MaatwerkBatchLijst
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeleveringToeAanMaatwerkBatches">
+<FormalSpec><![CDATA[&MaatwerkBatches:%ArrayOfObjects,Datum:%Date,ToeleveringIterator:TECH.Iterator]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	While (ToeleveringIterator.HasNext()) {
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
 		
@@ -464,15 +483,6 @@
 			Do ##class(vhLib.Logger).%New().LogEnMailExceptie(##class(TECH.ExceptionHandler).Catch())
 		}
 	}
-	
-	#dim MaatwerkBatchLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
-	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MaatwerkBatches)
-	
-	while (Iterator.HasNext()) {
-		do MaatwerkBatchLijst.Insert(Iterator.Next())
-	}
-	
-	quit MaatwerkBatchLijst
 ]]></Implementation>
 </Method>