Index: BL/PPS/WPLosOnderdeel.cls.xml
===================================================================
diff -u -r32575 -r38442
--- BL/PPS/WPLosOnderdeel.cls.xml	(.../WPLosOnderdeel.cls.xml)	(revision 32575)
+++ BL/PPS/WPLosOnderdeel.cls.xml	(.../WPLosOnderdeel.cls.xml)	(revision 38442)
@@ -34,7 +34,7 @@
 	INTO :QueueID 
 	FROM PPS.TBX_Queue 
 	WHERE BatchID= :BatchID and Status='W' and WPLosOnderdeel_WPStatus='W'
-	ORDER BY Sequence)
+	ORDER BY SorteerSleutel,Sequence)
 	Quit QueueID
 ]]></Implementation>
 </Method>
@@ -56,7 +56,7 @@
 	INTO :QueueID 
 	FROM PPS.TBX_Queue 
 	WHERE BatchID= :BatchID and Status='W' and WPLosOnderdeel_WPStatus='W' and Sequence>:Sequence 
-	ORDER BY Sequence)
+	ORDER BY SorteerSleutel,Sequence)
 	Quit QueueID
 ]]></Implementation>
 </Method>
@@ -152,7 +152,7 @@
 	FROM PPS.TBX_Queue as Q
 	JOIN APPS_Halux_common_impl.BatchImpl as B on B.ID=Q.BatchID
 	WHERE BatchID=:BatchID and (WPLosOnderdeel_WPStatus is not null and WPLosOnderdeel_WPStatus <> 'X')
-	ORDER BY Sequence]]></SqlQuery>
+	ORDER BY SorteerSleutel,Sequence]]></SqlQuery>
 </Query>
 
 <Method name="Bulk">
@@ -206,7 +206,7 @@
 	#dim IDs As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	#dim ResultSet As TECH.ResultSet = ##class(TECH.ResultSet).%New()
 	
-	Do ResultSet.Prepare("SELECT ID FROM PPS.TBX_Queue WHERE BatchID=? and Status='W' and (WPLosOnderdeel_SnijStatus='W') ORDER BY Sequence")
+	Do ResultSet.Prepare("SELECT ID FROM PPS.TBX_Queue WHERE BatchID=? and Status='W' and (WPLosOnderdeel_SnijStatus='W') ORDER BY SorteerSleutel,Sequence")
 	Do ResultSet.Execute(BatchID)
 	
 	While (ResultSet.Next()) { 
Index: BL/PPS/TBX/Sequencer.cls.xml
===================================================================
diff -u -r29059 -r38442
--- BL/PPS/TBX/Sequencer.cls.xml	(.../Sequencer.cls.xml)	(revision 29059)
+++ BL/PPS/TBX/Sequencer.cls.xml	(.../Sequencer.cls.xml)	(revision 38442)
@@ -302,7 +302,7 @@
 <SqlQuery>	Select ID, Product, WPVerpak_KlantSort as KlantSort,WPVerpak_UnitNr as UnitNr,WPVerpak_SubNr as SubNr,WPVerpak_SlotNr as SlotNr, Sequence,Status
 	from PPS.TBX_Queue 
 	where BatchID=:BatchID 
-	order by Sequence</SqlQuery>
+	order by SorteerSleutel,Sequence</SqlQuery>
 </Query>
 
 <Query name="GetSequenceByDate">
@@ -311,7 +311,7 @@
 <SqlQuery>	Select ID 
 	from PPS.TBX_Queue 
 	where WPPers_FirstChanged like :Datum
-	order by Sequence</SqlQuery>
+	order by SorteerSleutel,Sequence</SqlQuery>
 </Query>
 
 <Query name="GetSequenceOrderByKlantSort">
Index: BL/PPS/TBX/WPPers.cls.xml
===================================================================
diff -u -r37402 -r38442
--- BL/PPS/TBX/WPPers.cls.xml	(.../WPPers.cls.xml)	(revision 37402)
+++ BL/PPS/TBX/WPPers.cls.xml	(.../WPPers.cls.xml)	(revision 38442)
@@ -126,7 +126,7 @@
 	SELECT ID INTO :ID 
 	FROM PPS.TBX_Queue 
 	WHERE BatchID= :BatchID and Status='W' and WPPers_WPStatus='W' 
-	ORDER BY Sequence)
+	ORDER BY SorteerSleutel,Sequence)
 	;	WHERE BatchID= :BatchID and Status='W' and WPPers_WPStatus='W'
 
 	Quit ID
@@ -149,7 +149,7 @@
 	INTO :NewID 
 	FROM PPS.TBX_Queue 
 	WHERE BatchID= :BatchID and Status='W' and WPPers_WPStatus='W' and Sequence>:Sequence 
-	ORDER BY Sequence)
+	ORDER BY SorteerSleutel,Sequence)
 	Quit $G(NewID)
 ]]></Implementation>
 </Method>
@@ -406,7 +406,7 @@
 	FROM PPS.TBX_Queue as Q
 	JOIN APPS_Halux_common_impl.BatchImpl as B on B.ID=Q.BatchID
 	WHERE BatchID=:BatchID and (WPPers_WPStatus is not null and WPPers_WPStatus <> 'X') 
-	ORDER BY Sequence]]></SqlQuery>
+	ORDER BY SorteerSleutel,Sequence]]></SqlQuery>
 </Query>
 
 <Method name="Create">
@@ -433,7 +433,7 @@
 <SqlQuery><![CDATA[	SELECT  %Id as ID, Product->ProductNr as PRNr
 	FROM PPS.TBX_Queue as Q
 	WHERE BatchID=:BatchID and (WPPers_WPStatus is not null and WPPers_WPStatus <> 'X') 
-	ORDER BY Sequence]]></SqlQuery>
+	ORDER BY SorteerSleutel,Sequence]]></SqlQuery>
 </Query>
 
 <UDLText name="T">
Index: APPS/Halux/PPS/TBXZaag/impl/MaakBatch.cls.xml
===================================================================
diff -u -r34186 -r38442
--- APPS/Halux/PPS/TBXZaag/impl/MaakBatch.cls.xml	(.../MaakBatch.cls.xml)	(revision 34186)
+++ APPS/Halux/PPS/TBXZaag/impl/MaakBatch.cls.xml	(.../MaakBatch.cls.xml)	(revision 38442)
@@ -60,7 +60,7 @@
 <Type>%SQLQuery</Type>
 <FormalSpec>BatchID:%Integer</FormalSpec>
 <SqlQuery>	Select %ID from PPS.TBX_Queue where BatchId = :BatchID
-	order by Sequence</SqlQuery>
+	order by SorteerSleutel,Sequence</SqlQuery>
 <Parameter name="CONTAINID" value="1"/>
 </Query>
 
Index: BL/PPS/TBX/WPZaag.cls.xml
===================================================================
diff -u -r29059 -r38442
--- BL/PPS/TBX/WPZaag.cls.xml	(.../WPZaag.cls.xml)	(revision 29059)
+++ BL/PPS/TBX/WPZaag.cls.xml	(.../WPZaag.cls.xml)	(revision 38442)
@@ -55,7 +55,7 @@
 	SELECT top 1 ID, Sequence INTO :pID, :pSequence
 	FROM PPS.TBX_Queue 
 	WHERE BatchID= :BatchID and Status='W' and WPZaag_WPStatus='W'
-	ORDER BY Sequence)
+	ORDER BY SorteerSleutel,Sequence)
 	if (SQLCODE'=0) do
 	. Set pID=""
 	. Set pSequence=""
@@ -70,7 +70,7 @@
 	SELECT top 1 ID, Sequence INTO :pID, :pSequence
 	FROM PPS.TBX_Queue 
 	WHERE BatchID= :BatchID and Sequence> :pSequence and Status='W' and WPZaag_WPStatus='W' 
-	ORDER BY Sequence)
+	ORDER BY SorteerSleutel,Sequence)
 	//Do WLIP^vhDBG(139,"SqlCode="_SQLCODE)
 	if (SQLCODE'=0) do
 	. Set pID=""