Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71503 -r71524
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71503)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71524)
@@ -89,21 +89,7 @@
 				#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 = ##class(%ListOfObjects).%New()
-				Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..ToeleveringProductInfoOptiesGenerator.GenereerOptiesVoorLade(Toelevering))				
-				
-				While (UitvoeringInfoLijstIterator.HasNext()) {
-					#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = UitvoeringInfoLijstIterator.Next()
-					
-					If (UitvoeringInfo.ToeleveringID = ToeleveringId) {
-						#dim OptiesVoorAlleLades As %ListOfObjects = ..BatchNaarObjectiveDataGenerator.GenereerOptiesVoorLade(Toelevering, UitvoeringInfo)
-						
-						Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, OptiesVoorAlleLades)
-					}
-				}
-				
-				Do UitvoeringInfoLijstIterator.Reset()
+				#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..GeefBatchData(Batch, Toelevering, IndexToelevering, UitvoeringInfoLijstIterator)
 				Do BatchDataLijst.Insert(BatchData)
 			}
 		}
@@ -113,6 +99,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBatchData">
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,IndexToelevering:%Integer,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 = ##class(%ListOfObjects).%New()
+	
+	Do ##class(TECH.ListUtils).AppendList(BatchData.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 UitvoeringInfoLijstIterator.Reset()
+	
+	Quit BatchData
+]]></Implementation>
+</Method>
+
 <Method name="ExporteerDataNaarXmlDocument">
 <FormalSpec>BatchDataLijst:%ListOfObjects</FormalSpec>
 <Private>1</Private>