Index: BL/Flow/Proxy/pxPakbon.cls.xml
===================================================================
diff -u -r73297 -r74166
--- BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 73297)
+++ BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 74166)
@@ -130,6 +130,7 @@
 	If (IsTegroeperenPerKlaarzetLocatie) {
 		Do ..MaakPakbonKlaarzetlocatieOverzicht(.arProduct)
 	}
+	Do ..MaakPakbonPalletCodeOverzicht(.arProduct)
 	
 	Set SortKey=""
 	For  Set SortKey=$O(arProduct(SortKey)) Quit:SortKey=""  Do
@@ -240,6 +241,70 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakPakbonPalletCodeOverzicht">
+<FormalSpec>arProduct:TECH.MultiDim</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Try {
+		#dim LijstPalletCodes As %ListOfDataTypes = ..GeefLijstPalletCodes(.arProduct)
+		#dim pxLijn As BL.Flow.Proxy.pxPakbonLijn = ..GeefPakbonLijnMetPalletCodeOverzicht(LijstPalletCodes)
+		Do ..Lijnen.Insert(pxLijn)
+	}
+	Catch {
+		#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set NewExceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("MaakPakbonPalletCodeOverzicht", "Fout voor BonNr '"_..LeveringsBon_"' van klant '"_..KlantNaam_"'. "_$$$CRLF_"De pakbon PDF wordt gerendered zonder PalletCodeOverzicht")
+		Do NewExceptie.VoegToeInnerExceptie(GecatchteException)
+		Do ##class(vhLib.Logger).%New("pxPakbon").LogEnMailExceptie(NewExceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstPalletCodes">
+<FormalSpec>arProduct:TECH.MultiDim</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim SortKey,User,VNR,lbPickInfo
+	#dim PalletCode As %String = ""
+	#dim mdUniekePalletCodes As TECH.MultiDim
+	
+	Set LijstPalletCodes = ##class(%ListOfDataTypes).%New()
+	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 PalletCode = $ListGet(lbPickInfo,1)
+				Set:($$$HasLength(PalletCode)) mdUniekePalletCodes(PalletCode) = ""
+			}
+		}
+		
+		Set LijstPalletCodes = ##class(TECH.ListUtils).MultiDimensionalIndicesToListOfDataTypes(.mdUniekePalletCodes)
+	}
+	
+	Quit LijstPalletCodes
+]]></Implementation>
+</Method>
+
+<Method name="GeefPakbonLijnMetPalletCodeOverzicht">
+<FormalSpec>LijstPalletCodes:%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 = " --> Voorgemonteerde lades :"
+	Set pxLijn.Product.TEKST = ##class(BL.FOP.Basis.pxTekstBlok).CreateFromRichTextBlock($$$CRLF_##class(TECH.ListUtils).ListToPieces(LijstPalletCodes,$$$CRLF)_$$$CRLF_$$$HardeSpatie)
+
+	Quit pxLijn
+]]></Implementation>
+</Method>
+
 <Method name="AddInfoTBXBulkMetOnderdelen">
 <Private>1</Private>
 <Implementation><![CDATA[