Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71362 -r71364
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71362)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71364)
@@ -51,11 +51,29 @@
 		#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 SequentieNummerBinnenToelevering As %Integer = 0
 		
 		If (..IsActiefVoorMES(Batch.GeefLijn())) {
-			While ToeleveringenIterator.HasNext() {
-				#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringenIterator.Next().GeefID())
+			While ToeleveringenIterator.HasNext() {				
+				#dim ToeleveringId As %String = ToeleveringenIterator.Next().GeefID()
+				#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
 				#dim BatchData As APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerBatchDataVoorToelevering(Batch, Toelevering)
+				Set BatchData.Opties = ##class(%ListOfObjects).%New()
+				
+				While (UitvoeringInfoLijstIterator.HasNext()) {
+					#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.DetailBladUitvoeringInfo = UitvoeringInfoLijstIterator.Next()
+					
+					If (UitvoeringInfo.ToeleveringID = ToeleveringId) {
+						Set SequentieNummerBinnenToelevering = SequentieNummerBinnenToelevering + 1
+						#dim OptiesVoorAlleLades As %ListOfObjects = ..BatchNaarObjectiveDataGenerator.GenereerOptiesVoorLade(Toelevering, UitvoeringInfo, SequentieNummerBinnenToelevering)
+						Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, OptiesVoorAlleLades)
+					} Else {
+						Set SequentieNummerBinnenToelevering = 0
+					}
+				}
+				
+				Do UitvoeringInfoLijstIterator.Reset()
 				Do BatchDataLijst.Insert(BatchData)
 			}	
 		}