Index: APPS/Halux/common/impl/SequentieService.cls.xml
===================================================================
diff -u -r32564 -r32574
--- APPS/Halux/common/impl/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 32564)
+++ APPS/Halux/common/impl/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 32574)
@@ -18,26 +18,21 @@
 <Method name="GeefSequentieIterator">
 <FormalSpec>BatchID:%Integer</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[
-	// TODOPA bekijken of het nodig is hier new style seqnenties te ondersteunen
-	Quit ##class(BL.PPS.TBX.Sequencer).GeefQueueIterator(BatchID)
+<Implementation><![CDATA[	Quit ##class(BL.PPS.TBX.Sequencer).GeefQueueIterator(BatchID)
 ]]></Implementation>
 </Method>
 
 <Method name="HeeftSequentie">
 <FormalSpec>BatchID:%Integer</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	// TODOPA bekijken of het nodig is hier new style seqnenties te ondersteunen
-	Quit ..GeefSequentieIterator(BatchID).HasNext()
+<Implementation><![CDATA[	Quit ..GeefSequentieIterator(BatchID).HasNext()
 ]]></Implementation>
 </Method>
 
 <Method name="GeefProductieSequentie">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.common.ProductieSequentie</ReturnType>
 <Implementation><![CDATA[
-	// enkel voor productiesequentie new style
 	#dim SequentieID As %String = ..GeefSequentieIDVoorBatch(BatchID)
 	#dim Sequentie As APPS.Halux.common.ProductieSequentie = ##class(APPS.Halux.common.ProductieSequentie).OpenId(SequentieID)
 	
@@ -276,11 +271,12 @@
 
 		#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Toelevering.GeefKlantID())
 		#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
+		#dim SorteerSleutelBepaler As APPS.Halux.common.impl.ProductieSequentie.Taor.SorteerSleutelBepaler = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.SorteerSleutelBepaler).%New()		
 		
 		While (ProductLijnIterator.HasNext()) {
 			#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
 
-			If (ProductTypeAPI.IsTAORboxProduct(ProductLijn.GeefProductID())) {
+			If (ProductTypeAPI.IsTAORboxProduct(ProductLijn.GeefProductID())) {				
 				#dim TAORbox As DOM.PM.TAORProduct.TAORLade = ProductTypeAPI.GeefTAORboxProduct(ProductLijn.GeefProductID())
 				#dim WPLosOnderdeel As DS.PPS.TBX.sub.emWPLosOnderdeel = ..GeefWPLosOnderdeel(TAORbox.GeefID())
 				#dim WPVerpak As DS.PPS.TBX.sub.emWPVerpak = ..GeefWPVerpak(TAORbox.GeefID())
@@ -302,6 +298,7 @@
 					Set Queue.Status = "W"
 					Set Queue.WPLosOnderdeel = WPLosOnderdeel
 					Set Queue.WPVerpak = WPVerpak
+					Set Queue.SorteerSleutel = SorteerSleutelBepaler.Bepaal(TAORbox, ..MaakProductieSequentieItemVanQueue(Queue))
 					
 					Do Queue.Save()
 				}
@@ -318,6 +315,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakProductieSequentieItemVanQueue">
+<FormalSpec>Queue:DS.PPS.TBX.Queue</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.ProductieSequentieItem</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
+	
+	Set ProductieSequentieItem.TotaalAantal = Queue.TotaalAantal
+	Set ProductieSequentieItem.ProductID = Queue.Product
+	Set ProductieSequentieItem.DeelAantal = Queue.DeelAantal
+	Set ProductieSequentieItem.SequentieNummer = Queue.Sequence
+	Set ProductieSequentieItem.ToeleveringID = Queue.TOENr
+	Set ProductieSequentieItem.ToeleveringLijnID = Queue.TLUNr
+	Set ProductieSequentieItem.ToeleveringSequentieNummer = Queue.TOENr
+	
+	Quit ProductieSequentieItem
+]]></Implementation>
+</Method>
+
 <Method name="GeefWPLosOnderdeel">
 <FormalSpec>ProductID:%String</FormalSpec>
 <Private>1</Private>