Index: APPS/Halux/PPS/Activiteit/impl/common/dto/BatchNaarObjectiveUitvoeringInfo/SequentienummerComparator.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/common/dto/BatchNaarObjectiveUitvoeringInfo/SequentienummerComparator.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/common/dto/BatchNaarObjectiveUitvoeringInfo/SequentienummerComparator.cls.xml	(revision 73778)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo.SequentienummerComparator">
+<Super>TECH.RegisteredObject,TECH.Comparator.IComparator</Super>
+
+<Method name="IsKleinerDan">
+<FormalSpec>Waarde1:APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo,Waarde2:APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit Waarde1.SequentieNummer < Waarde2.SequentieNummer
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r73777 -r73778
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 73777)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 73778)
@@ -117,6 +117,8 @@
 		#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
@@ -387,6 +389,15 @@
 <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>