Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r73778 -r73781
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 73778)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 73781)
@@ -117,8 +117,6 @@
 		#dim IndexSuffixId As %Integer = 1
 		While UitvoeringInfoIterator.HasNext() {
 			#dim UitvoeringInfoLijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst = UitvoeringInfoIterator.Next()
-			Set UitvoeringInfoLijst = ..SorteerLijstVolgensSequentieNummer(UitvoeringInfoLijst)
-			
 			If ($$$Not(LaatstGebruikteToeleveringID = UitvoeringInfoLijst.GetAt(1).ToeleveringID)) {
 				Set LaatstGebruikteToeleveringID = UitvoeringInfoLijst.GetAt(1).ToeleveringID
 				Set IndexSuffixId = 1
@@ -217,16 +215,16 @@
 <Implementation><![CDATA[
 	Set BatchDataLijst = ##class(%ListOfObjects).%New()
 	
-	#dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
-	#dim ToeleveringId As %String = ToeleveringenIterator.Next().GeefID()
+	#dim ToeleveringenIterator As TECH.Iterator = ..GeefLijstIteratorVanToeleveringenInVolgordeVanSequentieNummer(UitvoeringInfoLijstIterator)
+	#dim ToeleveringId As %String = ToeleveringenIterator.Next()
 	#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, UitvoeringLijstNummer, AantalLades, SuffixId)
 	
 	Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorBatch(Batch))
 	Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
 	
 	While ToeleveringenIterator.HasNext() {		
-		Set ToeleveringId = ToeleveringenIterator.Next().GeefID()
+		Set ToeleveringId = ToeleveringenIterator.Next()
 		Set Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
 		
 		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
@@ -238,6 +236,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLijstIteratorVanToeleveringenInVolgordeVanSequentieNummer">
+<FormalSpec>UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim LijstVanToeleveringenInVolgordeVanSequentieNummer As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	Do UitvoeringInfoLijstIterator.Reset()
+	While UitvoeringInfoLijstIterator.HasNext() {
+		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = UitvoeringInfoLijstIterator.Next()
+		If $$$Not(##class(TECH.ListUtils).Contains(LijstVanToeleveringenInVolgordeVanSequentieNummer, UitvoeringInfo.ToeleveringID)) {
+			Do LijstVanToeleveringenInVolgordeVanSequentieNummer.Insert(UitvoeringInfo.ToeleveringID)
+		}
+	}
+	Do UitvoeringInfoLijstIterator.Reset()
+	
+	Quit ##class(TECH.ListIterator).%New(LijstVanToeleveringenInVolgordeVanSequentieNummer)
+]]></Implementation>
+</Method>
+
 <Method name="GeefStandaardBatchDataLijst">
 <FormalSpec>Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator,SuffixId:%String,FilterToeleveringId:%String=""</FormalSpec>
 <Private>1</Private>
@@ -389,15 +406,6 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 </Method>
-
-<Method name="SorteerLijstVolgensSequentieNummer">
-<FormalSpec>UitvoeringInfoLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo")</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo"</ReturnTypeParams>
-<Implementation><![CDATA[	Quit ##class(TECH.Algo.Sort.MergeSort).Sort(UitvoeringInfoLijst, ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo.SequentienummerComparator).%New())
-]]></Implementation>
-</Method>
 </Class>