Index: BL/Flow/Proxy/pxPakbon.cls.xml
===================================================================
diff -u -r67915 -r68049
--- BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 67915)
+++ BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 68049)
@@ -210,7 +210,7 @@
 	. . Set Product=oSub.Product
 	. . Quit:'$IsObject(Product)
 	. . Set PRNr=Product.ProductNr
-	. . Set SortKey=$$SORTKEY^PRODUKT(PRNr)
+	. . Set SortKey = ..GeefSortKeyVolgensKlaarzetLocatie(PRNr, oLijn.Subs.GetAt(1), oHoofding.VerzendWijze)
 	. . Set (AantalSub,Aantal)=oSub.AantalGepicked  
 	. . Set:((Delta)&&('oSub.SUBOLNr#100)) Aantal = Aantal+(Delta*$$GetMoederKindFactor^PRBS(MPPRNr,PRNr))  // indien delta aantal aanpassen rekening houden met factor moeder/kind
 	. . Set KortTekst=oSub.Product.KortTekst
@@ -235,6 +235,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSortKeyVolgensKlaarzetLocatie">
+<FormalSpec>PRNr:%String,WmsDeelPicking:Flow.OrderWMS.Sub,Verzendwijze:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim SortKey As %String = $$SORTKEY^PRODUKT(PRNr)
+	#dim PrefixSortKey As %String = ""
+	#dim IsTegroeperenPerKlaarzetLocatie As %Boolean = (Verzendwijze = "DI1")
+	
+	If (IsTegroeperenPerKlaarzetLocatie) {
+		#dim KlaarzetLocatieId As %String = $Piece(WmsDeelPicking.PickPalletID,"-",2)
+		Set PrefixSortKey = $Select($$$HasLength(KlaarzetLocatieId) : KlaarzetLocatieId, 1:"zzz") _ ";"   ; FYI : indien KlaarzetLocatie leeg, dan de lijn achteraan toevoegen, daarom "zzz" als Prefix. 
+	}
+	
+	Quit PrefixSortKey _ SortKey
+]]></Implementation>
+</Method>
+
 <Method name="GeefTijdstipVoorPickingInfo">
 <FormalSpec>Tijdstip:Sys.cTimeStamp</FormalSpec>
 <Private>1</Private>