Index: APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased.cls.xml
===================================================================
diff -u -r32589 -r32595
--- APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased.cls.xml	(.../ProductieSequentieGroepeerderResultSetBased.cls.xml)	(revision 32589)
+++ APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased.cls.xml	(.../ProductieSequentieGroepeerderResultSetBased.cls.xml)	(revision 32595)
@@ -20,7 +20,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..ProductieSequentieRepository = $$$Inject(ProductieSequentieRepository,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository())
+	Set ..ProductieSequentieRepository = $$$Inject(ProductieSequentieRepository, ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefProductieSequentieRepository())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -93,6 +93,7 @@
 
 		Do ..MaakGroeperingPerToelevering(BatchID, ToeleveringID, ToeleveringLijnID, SequentieInfo)		
 	}
+	
 	Quit ..Groepering
 ]]></Implementation>
 </Method>
@@ -143,7 +144,7 @@
 		
 		#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ..GeefSequentieInfo(ResultSet)
 		Set SequentieInfo.DeelAantal = ""
-		Do ..Groepering.VoegToe(ToeleveringID,SequentieInfo)
+		Do ..Groepering.VoegToe(ToeleveringID, SequentieInfo)
 	}
 	
 	Quit ..Groepering
@@ -272,9 +273,9 @@
 	If $Data(^TO("IU",ToeleveringID,ToeleveringLijnID)) {
 		Set CorrecteToeleveringLijnID = ToeleveringLijnID	
 	} Else {
-		#dim MogelijksCorrecteToeleveringLijnID As %String = $O(^TO("IU",ToeleveringID,ToeleveringLijnID))
-		#dim OrinigeleEersteDeel As %String = $E(ToeleveringLijnID,1,($Length(ToeleveringLijnID)-2))
-		#dim MogelijksCorrecteEersteDeel As %String = $E(MogelijksCorrecteToeleveringLijnID,1,($Length(MogelijksCorrecteToeleveringLijnID)-2))
+		#dim MogelijksCorrecteToeleveringLijnID As %String = $Order(^TO("IU",ToeleveringID,ToeleveringLijnID))
+		#dim OrinigeleEersteDeel As %String = $Extract(ToeleveringLijnID,1,($Length(ToeleveringLijnID)-2))
+		#dim MogelijksCorrecteEersteDeel As %String = $Extract(MogelijksCorrecteToeleveringLijnID,1,($Length(MogelijksCorrecteToeleveringLijnID)-2))
 		
 		If (OrinigeleEersteDeel = MogelijksCorrecteEersteDeel) {
 			Set CorrecteToeleveringLijnID = MogelijksCorrecteToeleveringLijnID