Index: APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep.cls.xml
===================================================================
diff -u -r62051 -r62054
--- APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep.cls.xml	(.../VoormontageSpaceStep.cls.xml)	(revision 62051)
+++ APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep.cls.xml	(.../VoormontageSpaceStep.cls.xml)	(revision 62054)
@@ -30,10 +30,10 @@
 	Set ..PrinterAPI = ##class(APPS.ApplicatieContext).%New().GeefPrintAPI()
 	
 	Set DocumentBundel = ##class(APPS.common.Document.impl.DocumentBundel).%New()
-	#dim LijstMetSpaceSteps As %ListOfObjects = ..GeefMaatwerkProductenLijstMetSpaceSteps(BatchID)
-	Set LijstMetSpaceSteps = ..SorteerLijstOpSequentienummer(LijstMetSpaceSteps, BatchID)
+	#dim LijstMetSpaceSteps As %ListOfObjects = ..GeefMaatwerkProductenLijstMetSpaceSteps(BatchID)	
 	
 	If (LijstMetSpaceSteps.Count() > 0 ) {
+		Set LijstMetSpaceSteps = ..SorteerLijstOpSequentienummer(LijstMetSpaceSteps, BatchID)
 		#dim AantalSpaceSteps As %Integer = LijstMetSpaceSteps.Count()
 		#dim ProductIterator = ##class(TECH.ListIterator).%New(LijstMetSpaceSteps)
 		
@@ -183,17 +183,20 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.impl.AansturingActie.common.VoormontageSpaceStep.dto.ProductKenmerken"</ReturnTypeParams>
 <Implementation><![CDATA[
-	#dim ProductID As %String 
-	#dim VoormontageProductKenmerken As APPS.Halux.PPS.impl.AansturingActie.common.VoormontageSpaceStep.dto.ProductKenmerken
+	#dim ProductID, Query As %String
+	#dim ResultSet As TECH.ResultSet
+	#dim VoormontageProductKenmerken As APPS.Halux.PPS.impl.AansturingActie.common.VoormontageSpaceStep.dto.ProductKenmerken	
 	Set SpaceStepIterator  = ##class(TECH.ListIterator).%New(LijstMetSpaceSteps)
 	
 	While (SpaceStepIterator.HasNext()) {
 		Set VoormontageProductKenmerken = SpaceStepIterator.Next()
 		Set ProductID = VoormontageProductKenmerken.ProductID
 		
-		#dim Query As %String = "SELECT TOP 1 * FROM APPS_Halux_common.ProductieSequentieItem where BatchID = ? and ProductID = ? ORDER BY SequentieNummer"
-		#dim ResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(BatchID, ProductID))
-		Set VoormontageProductKenmerken.Sequentienummer = ResultSet.Next().Data("SequentieNummer")		
+		Set Query = "SELECT TOP 1 * FROM APPS_Halux_common.ProductieSequentieItem where BatchID = ? and ProductID = ?"
+		Set ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(BatchID, ProductID))
+		While ResultSet.Next() {
+			Set VoormontageProductKenmerken.Sequentienummer = ResultSet.Data("SequentieNummer")
+		}
 	}
 	
 	Set LijstMetSpaceSteps = ..SorteerVolgensSequentienummer(LijstMetSpaceSteps)