Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71524 -r71684
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71524)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71684)
@@ -34,7 +34,7 @@
 	Set ..ToeleveringApi = $$$Inject(ToeleveringApi,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
 	Set ..BatchNaarObjectiveDataGenerator = $$$Inject(BatchNaarObjectiveDataGenerator, ..GeefBatchNaarObjectiveDataGenerator())
 	Set ..MESService = ##class(APPS.Halux.PPS.MES.MESService).%New()
-	Set ..ToeleveringProductInfoOptiesGenerator = ..GeefToeleveringProductInfoOptiesGenerator()
+	Set ..ToeleveringProductInfoOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGenerator).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -47,13 +47,6 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="GeefToeleveringProductInfoOptiesGenerator">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGenerator</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
 <Method name="VerwerkUitvoeringInfoLijst">
 <FormalSpec>Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.UitvoeringResultaat</ReturnType>
@@ -105,23 +98,33 @@
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData</ReturnType>
 <Implementation><![CDATA[
 	#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerBatchDataVoorToelevering(Batch, Toelevering, IndexToelevering)
-	Set BatchData.Opties = ##class(%ListOfObjects).%New()
+	Set BatchData.Opties = ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator)
 	
-	Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..ToeleveringProductInfoOptiesGenerator.GenereerOptiesVoorLade(Toelevering))				
+	Quit BatchData
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptiesVoorToelevering">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Opties = ##class(%ListOfObjects).%New()
 	
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..ToeleveringProductInfoOptiesGenerator.GenereerOptiesVoorLade(Toelevering))				
+	
 	While (UitvoeringInfoLijstIterator.HasNext()) {
 		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = UitvoeringInfoLijstIterator.Next()
 		
 		If (UitvoeringInfo.ToeleveringID = Toelevering.GeefID()) {
 			#dim OptiesVoorAlleLades As %ListOfObjects = ..BatchNaarObjectiveDataGenerator.GenereerOptiesVoorLadePerUitvoeringInfo(Toelevering, UitvoeringInfo)
 			
-			Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, OptiesVoorAlleLades)
+			Do ##class(TECH.ListUtils).AppendList(Opties, OptiesVoorAlleLades)
 		}
 	}
 	
 	Do UitvoeringInfoLijstIterator.Reset()
 	
-	Quit BatchData
+	Quit Opties
 ]]></Implementation>
 </Method>