Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r73610 -r73640
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 73610)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 73640)
@@ -93,7 +93,7 @@
 			#dim UitvoeringInfoLijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst = UitvoeringInfoIterator.Next()
 			
 			#dim SuffixId As %String = ..GeefSuffixId(AantalUitSublijstenUitvoeringInfo, IndexUitvoeringInfoLijstGesplitst)
-			#dim BatchData As %ListOfObjects = ..GenereerBatchDataVoorUitvoeringInfoLijst(UitvoeringInfoLijst, SuffixId, FilterToeleveringId)
+			#dim BatchData As %ListOfObjects = ..GenereerBatchDataVoorUitvoeringInfoLijst(UitvoeringInfoLijst, SuffixId, IndexUitvoeringInfoLijstGesplitst, FilterToeleveringId)
 			Do ..ExporteerDataNaarXmlDocument(BatchData, SuffixId)
 			
 			Set IndexUitvoeringInfoLijstGesplitst = $Increment(IndexUitvoeringInfoLijstGesplitst)
@@ -135,13 +135,17 @@
 
 <Method name="GeefSuffixId">
 <FormalSpec>AantalUitSublijstenUitvoeringInfo:%Integer,IndexUitvoeringInfoLijstGesplitst:%Integer</FormalSpec>
+<Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $Select((AantalUitSublijstenUitvoeringInfo > 1): IndexUitvoeringInfoLijstGesplitst, 1: "")
+<Implementation><![CDATA[
+	#dim SuffixId As %String = $Select((AantalUitSublijstenUitvoeringInfo > 1): IndexUitvoeringInfoLijstGesplitst, 1: "")
+	
+	Quit SuffixId
 ]]></Implementation>
 </Method>
 
 <Method name="GenereerBatchDataVoorUitvoeringInfoLijst">
-<FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst,SuffixId:%String,FilterToeleveringId:%String=""</FormalSpec>
+<FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst,SuffixId:%String,UitvoeringLijstNummer:%Integer,FilterToeleveringId:%String=""</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData"</ReturnTypeParams>
 <Implementation><![CDATA[
@@ -155,9 +159,9 @@
 		
 		If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), MesFaseActief)) {	
 			If (..BevatBatchVhoss(UitvoeringInfoLijst)) {
-				Set BatchDataLijst = ..GeefVhossBatchDataLijst(Batch, UitvoeringInfoLijstIterator, UitvoeringInfoLijst.Size, SuffixId)
+				Set BatchDataLijst = ..GeefVhossBatchDataLijst(Batch, UitvoeringInfoLijstIterator, UitvoeringInfoLijst.Size, SuffixId, UitvoeringLijstNummer)
 			} Else {
-				Set BatchDataLijst = ..GeefStandaardBatchDataLijst(Batch, UitvoeringInfoLijstIterator, UitvoeringInfoLijst.Size, SuffixId, FilterToeleveringId)
+				Set BatchDataLijst = ..GeefStandaardBatchDataLijst(Batch, UitvoeringInfoLijstIterator, SuffixId, FilterToeleveringId)
 			}	
 			
 		}
@@ -168,15 +172,15 @@
 </Method>
 
 <Method name="GeefVhossBatchDataLijst">
-<FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator,AantalLades:%Integer,SuffixId:%String</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator,AantalLades:%Integer,SuffixId:%String,UitvoeringLijstNummer:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set BatchDataLijst = ##class(%ListOfObjects).%New()
 	
 	#dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
 	#dim ToeleveringId As %String = ToeleveringenIterator.Next().GeefID()
 	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
-	#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorBatch(Batch, Toelevering, SuffixId, AantalLades, SuffixId)
+	#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorBatch(Batch, Toelevering, UitvoeringLijstNummer, AantalLades, SuffixId)
 	
 	Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorBatch(Batch))
 	Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
@@ -195,7 +199,7 @@
 </Method>
 
 <Method name="GeefStandaardBatchDataLijst">
-<FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator,AantalLades:%Integer,SuffixId:%String,FilterToeleveringId:%String=""</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator,SuffixId:%String,FilterToeleveringId:%String=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set BatchDataLijst = ##class(%ListOfObjects).%New()
@@ -207,9 +211,10 @@
 		
 		If (($$$Not(FilterToeleveringId = "") && (ToeleveringId = FilterToeleveringId)) || (FilterToeleveringId = "")) {
 			#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
+			#dim AantalLadesInToelevering As %Integer = ..GeefAantalLadesInToelevering(Toelevering.GeefID(), UitvoeringInfoLijstIterator)
 			Set IndexToelevering = IndexToelevering + 1
 			
-			#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorToelevering(Batch, Toelevering, IndexToelevering, AantalLades, SuffixId)
+			#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorToelevering(Batch, Toelevering, IndexToelevering, AantalLadesInToelevering, SuffixId)
 			Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorToelevering(Toelevering, Batch.GeefCategorie()))
 			Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
 			
@@ -221,6 +226,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAantalLadesInToelevering">
+<FormalSpec>ToeleveringId:%String,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim AantalLades As %Integer = 0
+	
+	Do UitvoeringInfoLijstIterator.Reset()
+	While (UitvoeringInfoLijstIterator.HasNext()) {
+		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = UitvoeringInfoLijstIterator.Next()
+				
+		If (UitvoeringInfo.ToeleveringID = ToeleveringId) {
+			Set AantalLades = AantalLades + 1
+		}
+	}
+	Do UitvoeringInfoLijstIterator.Reset()
+	
+	Quit AantalLades
+]]></Implementation>
+</Method>
+
 <Method name="GeefOptiesVoorToelevering">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>