Index: BL/Flow/Proxy/pxPakbon.cls.xml
===================================================================
diff -u -r71144 -r71302
--- BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 71144)
+++ BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 71302)
@@ -101,6 +101,9 @@
 <FormalSpec>BONNr:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	#dim Basis,BevatTBXBulkMetOnderdelen,KLNr,KLNrPakbon,KlantNaam,LevAdresNaam,MoederList,PRNr,PalletID,lbPickInfo,lbProduct,SortKey,Taal,User,VNR,i
+	#dim arProduct As TECH.MultiDim
+	
 	Set oHoofding=##class(Flow.OrderWMS.Hoofding).%OpenId(BONNr)
 	Set KlantNaam=oHoofding.Klant.Naam
 	Set LevAdresNaam=$Piece($G(^ORDW("D",BONNr,"A")),"\",2)
@@ -114,7 +117,13 @@
 	Set ..VerzendWijze=oHoofding.VerzendWijze
 	Set BevatTBXBulkMetOnderdelen=0   ; Comm./VHoss/Probox met losse onderdelen 
 	
-	Do ..ZoekKindProducten(oHoofding,.arProduct)
+	#dim IsTegroeperenPerKlaarzetLocatie As %Boolean = (oHoofding.VerzendWijze = "DI1")
+	Do ..ZoekKindProducten(oHoofding,.arProduct, IsTegroeperenPerKlaarzetLocatie)
+	
+	If (IsTegroeperenPerKlaarzetLocatie) {
+		Do ..MaakPakbonKlaarzetlocatieOverzicht(.arProduct)
+	}
+	
 	Set SortKey=""
 	For  Set SortKey=$O(arProduct(SortKey)) Quit:SortKey=""  Do
 	. Set Product=arProduct(SortKey)
@@ -154,6 +163,71 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakPakbonKlaarzetlocatieOverzicht">
+<FormalSpec>arProduct:TECH.MultiDim</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Try {
+		#dim LijstKlaarzetlocaties As %ListOfDataTypes = ..GeefLijstKlaarzetlocaties(.arProduct, $$$True)
+		#dim pxLijn As BL.Flow.Proxy.pxPakbonLijn = ..GeefPakbonLijnMetKlaarzetlocatieOverzicht(LijstKlaarzetlocaties)
+		Do ..Lijnen.Insert(pxLijn)
+	}
+	Catch {
+		#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set NewExceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("Fout in MaakPakbonKlaarzetlocatieOverzicht voor BonNr '"_..LeveringsBon_"' van klant '"_..KlantNaam_"'. "_$$$CRLF_"De pakbon PDF wordt gerendered zonder KlaarzetLocatieOverzicht.")
+		Do NewExceptie.VoegToeInnerExceptie(GecatchteException)
+		Do ##class(vhLib.Logger).%New("pxPakbon").LogEnMailExceptie(NewExceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstKlaarzetlocaties">
+<FormalSpec>arProduct:TECH.MultiDim,IsTegroeperenPerKlaarzetLocatie:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim SortKey,User,VNR,lbPickInfo
+	#dim KlaarzetLocatieId As %String = ""
+	#dim mdUniekeIds As TECH.MultiDim
+	
+	Set LijstKlaarzetlocaties = ##class(%ListOfDataTypes).%New()
+	If IsTegroeperenPerKlaarzetLocatie {
+		Set SortKey = ""
+		For { Set SortKey = $Order(arProduct(SortKey)) Quit:(SortKey="")
+			Set User = ""
+			For { Set User = $Order(arProduct(SortKey,User)) Quit:(User="")
+				Set VNR=""
+				For { Set VNR = $Order(arProduct(SortKey,User,VNR)) Quit:(VNR="")
+					Set lbPickInfo = $G(arProduct(SortKey,User,VNR))
+					Set KlaarzetLocatieId = $ListGet(lbPickInfo,4)
+					Set:($$$HasLength(KlaarzetLocatieId)) mdUniekeIds(KlaarzetLocatieId) = ""
+				}
+			}
+		}
+		
+		Set LijstKlaarzetlocaties = ##class(TECH.ListUtils).MultiDimensionalIndicesToListOfDataTypes(.mdUniekeIds)
+	}
+	Quit LijstKlaarzetlocaties
+]]></Implementation>
+</Method>
+
+<Method name="GeefPakbonLijnMetKlaarzetlocatieOverzicht">
+<FormalSpec>LijstKlaarzetlocaties:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<ReturnType>BL.Flow.Proxy.pxPakbonLijn</ReturnType>
+<Implementation><![CDATA[
+	#define HardeSpatie   $Char(160)
+	
+	Set pxLijn=##class(BL.Flow.Proxy.pxPakbonLijn).%New()
+	Set pxLijn.LIJNTYPE="P"
+	Set pxLijn.Product=##class(BL.Flow.Proxy.pxPakbonProduct).%New()
+	Set pxLijn.Product.KORTTEKST = " --> Klaarzetlocaties :"
+	Set pxLijn.Product.TEKST = ##class(BL.FOP.Basis.pxTekstBlok).CreateFromRichTextBlock($$$CRLF_##class(TECH.ListUtils).ListToPieces(LijstKlaarzetlocaties,$$$CRLF)_$$$CRLF_$$$HardeSpatie)
+
+	Quit pxLijn
+]]></Implementation>
+</Method>
+
 <Method name="AddInfoTBXBulkMetOnderdelen">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -193,9 +267,8 @@
 </Method>
 
 <Method name="ZoekKindProducten">
-<FormalSpec><![CDATA[oHoofding:Flow.OrderWMS.Hoofding,&arProduct:%String]]></FormalSpec>
+<FormalSpec><![CDATA[oHoofding:Flow.OrderWMS.Hoofding,&arProduct:%String,IsTegroeperenPerKlaarzetLocatie:%Boolean]]></FormalSpec>
 <Implementation><![CDATA[
-	#dim IsTegroeperenPerKlaarzetLocatie As %Boolean = (oHoofding.VerzendWijze = "DI1")
 	#dim SortKeyZonderKlaarzetLocatie As %String
 	#dim SortKey As %String
 	
@@ -241,8 +314,9 @@
 	. . Set:(User="") User="?"
 	. . Set PalletID=oSub.PickPalletID
 	. . Set Tijdstip=..GeefTijdstipVoorPickingInfo(oSub.Tijdstip) 
+	. . Set KlaarzetLocatieId = $S(IsTegroeperenPerKlaarzetLocatie : ..GeefKlaarzetLocatieId(oSub.PickPalletID), 1:"")
 	. . Set VNR=$O( arProduct(SortKey,User,""),-1)+1
-	. . Set arProduct(SortKey,User,VNR)=$LB(PalletID,Tijdstip,AantalSub)
+	. . Set arProduct(SortKey,User,VNR)=$LB(PalletID,Tijdstip,AantalSub, KlaarzetLocatieId)
 ]]></Implementation>
 </Method>
 
@@ -264,13 +338,23 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	#dim KlaarzetLocatieId As %String = ..GeefKlaarzetLocatieId(WmsDeelPicking.PickPalletID)
+	Quit $Select($$$HasLength(KlaarzetLocatieId) : KlaarzetLocatieId, 1:"zzz") _ ";"   ; FYI : indien KlaarzetLocatie leeg, dan de lijn achteraan toevoegen, daarom "zzz" als Prefix.
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlaarzetLocatieId">
+<FormalSpec>PickPalletID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
 	#define IsPickIdMetHoedje(%v)  (%v?.E1"-"3.5AN)
 	
 	#dim KlaarzetLocatieId As %String = ""
-	If $$$IsPickIdMetHoedje(WmsDeelPicking.PickPalletID) {
-		Set KlaarzetLocatieId = ##class(TECH.StringUtils).GetLastPart(WmsDeelPicking.PickPalletID,"-")
+	If $$$IsPickIdMetHoedje(PickPalletID) {
+		Set KlaarzetLocatieId = ##class(TECH.StringUtils).GetLastPart(PickPalletID,"-")
 	}
-	Quit $Select($$$HasLength(KlaarzetLocatieId) : KlaarzetLocatieId, 1:"zzz") _ ";"   ; FYI : indien KlaarzetLocatie leeg, dan de lijn achteraan toevoegen, daarom "zzz" als Prefix.
+	Quit KlaarzetLocatieId
 ]]></Implementation>
 </Method>