Index: BL/Flow/Proxy/pxPakbon.cls.xml
===================================================================
diff -u -r68073 -r68130
--- BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 68073)
+++ BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 68130)
@@ -195,6 +195,13 @@
 <Method name="ZoekKindProducten">
 <FormalSpec><![CDATA[oHoofding:Flow.OrderWMS.Hoofding,&arProduct:%String]]></FormalSpec>
 <Implementation><![CDATA[
+	#dim IsTegroeperenPerKlaarzetLocatie As %Boolean = (oHoofding.VerzendWijze = "DI1")
+	#dim SortKeyZonderKlaarzetLocatie As %String
+	#dim SortKey As %String
+	
+	#dim arSortKeyLookup As TECH.MultiDim
+	Kill arSortKeyLookup
+	
 	Set AantalLijnen=oHoofding.Lijnen.Count()
 	For i=1:1:AantalLijnen Do
 	. Set oLijn=oHoofding.Lijnen.GetAt(i)
@@ -210,7 +217,11 @@
 	. . Set Product=oSub.Product
 	. . Quit:'$IsObject(Product)
 	. . Set PRNr=Product.ProductNr
-	. . Set SortKey = ..GeefSortKeyVolgensKlaarzetLocatie(PRNr, oLijn.Subs.GetAt(1), oHoofding.VerzendWijze)
+	. . Set SortKeyZonderKlaarzetLocatie = $$SORTKEY^PRODUKT(PRNr)
+	. . Set SortKey = SortKeyZonderKlaarzetLocatie
+	. . If IsTegroeperenPerKlaarzetLocatie Do 
+	. . . Set SortKey = ..GeefSortKeyVolgensKlaarzetLocatie(SortKeyZonderKlaarzetLocatie, .arSortKeyLookup, oSub)
+	. . 
 	. . 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
@@ -236,25 +247,30 @@
 </Method>
 
 <Method name="GeefSortKeyVolgensKlaarzetLocatie">
-<FormalSpec>PRNr:%String,WmsDeelPicking:Flow.OrderWMS.Sub,Verzendwijze:%String</FormalSpec>
+<FormalSpec><![CDATA[SortKeyZonderKlaarzetLocatie:%String,&arSortKeyLookup:TECH.MultiDim,WmsDeelPicking:Flow.OrderWMS.Sub]]></FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	If $$$Not($$$aHasData(arSortKeyLookup(SortKeyZonderKlaarzetLocatie))) {
+		#dim PrefixSortKey As %String = ..GeefKlaarzetLocatiePrefix(WmsDeelPicking)
+		Set arSortKeyLookup(SortKeyZonderKlaarzetLocatie) = PrefixSortKey _ SortKeyZonderKlaarzetLocatie
+	}
+	Quit arSortKeyLookup(SortKeyZonderKlaarzetLocatie)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlaarzetLocatiePrefix">
+<FormalSpec>WmsDeelPicking:Flow.OrderWMS.Sub</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
 	#define IsPickIdMetHoedje(%v)  (%v?.E1"-"3AN)
 	
-	#dim SortKey As %String = $$SORTKEY^PRODUKT(PRNr)
-	#dim PrefixSortKey As %String = ""
-	#dim IsTegroeperenPerKlaarzetLocatie As %Boolean = (Verzendwijze = "DI1")
-	
-	If (IsTegroeperenPerKlaarzetLocatie) {
-		#dim KlaarzetLocatieId As %String = ""
-		If $$$IsPickIdMetHoedje(WmsDeelPicking.PickPalletID) {
-			Set KlaarzetLocatieId = ##class(TECH.StringUtils).GetLastPart(WmsDeelPicking.PickPalletID,"-")
-		}
-		Set PrefixSortKey = $Select($$$HasLength(KlaarzetLocatieId) : KlaarzetLocatieId, 1:"zzz") _ ";"   ; FYI : indien KlaarzetLocatie leeg, dan de lijn achteraan toevoegen, daarom "zzz" als Prefix. 
+	#dim KlaarzetLocatieId As %String = ""
+	If $$$IsPickIdMetHoedje(WmsDeelPicking.PickPalletID) {
+		Set KlaarzetLocatieId = ##class(TECH.StringUtils).GetLastPart(WmsDeelPicking.PickPalletID,"-")
 	}
-	
-	Quit PrefixSortKey _ SortKey
+	Quit $Select($$$HasLength(KlaarzetLocatieId) : KlaarzetLocatieId, 1:"zzz") _ ";"   ; FYI : indien KlaarzetLocatie leeg, dan de lijn achteraan toevoegen, daarom "zzz" als Prefix.
 ]]></Implementation>
 </Method>