Index: APPS/Halux/Planning/impl/AutoBatch/Maker/MatToeleveringen.cls.xml
===================================================================
diff -u -r59703 -r59704
--- APPS/Halux/Planning/impl/AutoBatch/Maker/MatToeleveringen.cls.xml	(.../MatToeleveringen.cls.xml)	(revision 59703)
+++ APPS/Halux/Planning/impl/AutoBatch/Maker/MatToeleveringen.cls.xml	(.../MatToeleveringen.cls.xml)	(revision 59704)
@@ -8,17 +8,28 @@
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Planning.dto.MaatwerkBatch"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim MaatwerkBatches As list of APPS.Halux.Planning.dto.MaatwerkBatch = ##class(%ListOfObjects).%New()
+	#dim ToeleveringenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..Toeleveringen)
 	
+	While (ToeleveringenIterator.HasNext()) {
+		Do MaatwerkBatches.Insert(..MaakBatchVoorToelevering(ToeleveringenIterator.Next()))
+	}
+	
+	Quit MaatwerkBatches
+]]></Implementation>
+</Method>
+
+<Method name="MaakBatchVoorToelevering">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.Planning.dto.MaatwerkBatch</ReturnType>
+<Implementation><![CDATA[
 	#dim Batch As APPS.Halux.common.Batch = ##class(APPS.Halux.common.BatchFactory).MaakNieuweLegeBatch(..Datum, ##class(APPS.Halux.common.enu.Categorie).Mat())
-	Do Batch.VoegToeToeleveringen(..Toeleveringen)
+	Do Batch.VoegToeToelevering(Toelevering)
 	Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).Auto())
-	Do Batch.ZetLijn(..BatchService.GeefInitieleLijnVoorToelevering(..Toeleveringen.GetAt(1)))
+	Do Batch.ZetLijn(..BatchService.GeefInitieleLijnVoorToelevering(Toelevering))
 	Do Batch.Save()
 	
-	#dim MaatwerkBatch As APPS.Halux.Planning.dto.MaatwerkBatch = ..BatchService.GeefMaatwerkBatch(Batch)
-	Do MaatwerkBatches.Insert(MaatwerkBatch)
-	
-	Quit MaatwerkBatches
+	Quit ..BatchService.GeefMaatwerkBatch(Batch)
 ]]></Implementation>
 </Method>
 </Class>