Index: APPS/Halux/Planning/impl/BatchService.cls.xml
===================================================================
diff -u -r69025 -r69156
--- APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 69025)
+++ APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 69156)
@@ -120,23 +120,11 @@
 <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 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()
+	#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()
 	
-	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())
@@ -152,6 +140,8 @@
 			}
 		}
 	}
+	
+	Quit ToeleveringenNietInBatch
 ]]></Implementation>
 </Method>
 
@@ -441,29 +431,9 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Planning.dto.TandemboxBatch"</ReturnTypeParams>
 <Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(26).String("Test100")
 	#dim MaatwerkBatches As array of APPS.Halux.Planning.dto.TandemboxBatch = ##class(%ArrayOfObjects).%New()
-	#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 ##class(Tools.Wlip).%New(26).String("Test200")
-	Do ..VoegToeleveringToeAanMaatwerkBatches(.MaatwerkBatches, Datum, ToeleveringenVoorHaluxIterator)
-	Do ..VoegToeleveringToeAanMaatwerkBatches(.MaatwerkBatches, Datum, ToeleveringenVoorSpecialWorkshopIterator)
-	Do ##class(Tools.Wlip).%New(26).String("Test300")
-	#dim MaatwerkBatchLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
-	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MaatwerkBatches)
+	#dim ToeleveringIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancier(##class(DOM.AKP.enu.Leverancier).Halux()).GeefToeleveringIterator()
 	
-	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()
 		
@@ -494,6 +464,15 @@
 			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>