Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71684 -r71770
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71684)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71770)
@@ -72,35 +72,36 @@
 	If (UitvoeringInfoLijst.Count() > 0) {
 		#dim BatchId As %String  = UitvoeringInfoLijst.GetAt(1).BatchID
 		#dim Batch As APPS.Halux.common.Batch  = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchId)
-		#dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
 		#dim UitvoeringInfoLijstIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
-		#dim IndexToelevering As %Integer = 0
 		
 		If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), MesFaseActief)) {			
-			While ToeleveringenIterator.HasNext() {
-				#dim ToeleveringId As %String = ToeleveringenIterator.Next().GeefID()
-				#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
-				Set IndexToelevering = IndexToelevering + 1
-				
-				#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..GeefBatchData(Batch, Toelevering, IndexToelevering, UitvoeringInfoLijstIterator)
-				Do BatchDataLijst.Insert(BatchData)
-			}
+			Set BatchDataLijst = ..GeefBatchDataLijstVoorNietVhoss(Batch, UitvoeringInfoLijstIterator)
 		}
 	}
 		
 	Quit BatchDataLijst
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBatchData">
-<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,IndexToelevering:%Integer,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
+<Method name="GeefBatchDataLijstVoorNietVhoss">
+<FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
-<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 = ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator)
+	Set BatchDataLijst = ##class(%ListOfObjects).%New()
+	#dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
+	#dim IndexToelevering As %Integer = 0
 	
-	Quit BatchData
+	While ToeleveringenIterator.HasNext() {
+		#dim ToeleveringId As %String = ToeleveringenIterator.Next().GeefID()
+		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
+		Set IndexToelevering = IndexToelevering + 1
+		
+		#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerBatchDataVoorToelevering(Batch, Toelevering, IndexToelevering)
+		Set BatchData.Opties = ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator)
+		Do BatchDataLijst.Insert(BatchData)
+	}
+	
+	Quit BatchDataLijst
 ]]></Implementation>
 </Method>