Index: OBJTimpl/WMSOrder/GepicktePallet/Docs.cls.xml
===================================================================
diff -u -r67787 -r67853
--- OBJTimpl/WMSOrder/GepicktePallet/Docs.cls.xml	(.../Docs.cls.xml)	(revision 67787)
+++ OBJTimpl/WMSOrder/GepicktePallet/Docs.cls.xml	(.../Docs.cls.xml)	(revision 67853)
@@ -3,6 +3,23 @@
 <Class name="OBJTimpl.WMSOrder.GepicktePallet.Docs">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="InhoudOphaler">
+<Type>OBJTimpl.WMSOrder.OphalenGepicktePalletInhoud</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>InhoudOphaler:OBJTimpl.WMSOrder.OphalenGepicktePalletInhoud="",IdentLookupService:OBJTimpl.PM.OBJTIdentLookupService="",OrderAPI:DOM.VKP.OrderAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..InhoudOphaler = $$$Inject(InhoudOphaler,##class(OBJTimpl.WMSOrder.OphalenGepicktePalletInhoud).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GepicktePalletInhoud">
 <Description>
 d ##class(OBJTimpl.WMSOrder.GepicktePallet.Docs).%New().GepicktePalletInhoud("AAAAA","BBBBB")</Description>
@@ -17,6 +34,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GepicktePallettenInhoudVia1LPN">
+<FormalSpec>LPN:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(207).String("pallet " _ LPN)
+	#dim PalletIterator as TECH.ResultSetIterator = ..InhoudOphaler.GeefAllePallettenInOrderViaLPN(LPN)
+	if PalletIterator.HasNext() {
+		#dim rsPallet as %ResultSet = PalletIterator.Next()
+		#dim ConsolidatieNr as %String = rsPallet.GetDataByName("CONSNR")
+		If ..MoetDocumentAfgedruktworden(ConsolidatieNr) {
+			Do ##class(vhLib.Logger).%New().Info("Afdrukken alle gepickte pallet inhoud ","Cons : "_ConsolidatieNr)
+			Set Builder = ##class(OBJTimpl.WMSOrder.GepicktePallet.DocumentBuilder).%New()
+			#dim Document As APPS.common.Print.Kolommen.Document = Builder.GeefDocument(ConsolidatieNr,LPN)
+			while PalletIterator.HasNext() {
+				set rsPallet = PalletIterator.Next()
+				#dim TempDoc as APPS.common.Print.Kolommen.Document = Builder.GeefDocument(ConsolidatieNr,rsPallet.GetDataByName("DOELPALLET"))				
+				Do Document.Append(TempDoc)
+			}
+			Do Document.Print("Magazijn", ..BepaalPrinter(ConsolidatieNr))
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="BepaalPrinter">
 <FormalSpec>ConsolidatieNr:%String</FormalSpec>
 <Private>1</Private>
Index: OBJTimpl/WMSOrder/GepicktePallet/DocumentBuilder.cls.xml
===================================================================
diff -u -r67713 -r67853
--- OBJTimpl/WMSOrder/GepicktePallet/DocumentBuilder.cls.xml	(.../DocumentBuilder.cls.xml)	(revision 67713)
+++ OBJTimpl/WMSOrder/GepicktePallet/DocumentBuilder.cls.xml	(.../DocumentBuilder.cls.xml)	(revision 67853)
@@ -39,36 +39,47 @@
 <Implementation><![CDATA[
 	#dim BONNr as %String = $Extract(ConsolidatieNummer,5,10)
 	;#dim Bon as DOM.VKP.Bon = ..OrderAPI.GeefBon(BONNr)
+	Do ##class(Tools.Wlip).%New(207).String("Bon " _BONNr)
 	#dim Titel as %String = ..GeefVerzendwijze(BONNr)_" : "_ ..GeefKlantNaam(BONNr)
 	Set Document = ##class(APPS.common.Print.Kolommen.Document).%New("GepicktePalletInhoud",Titel,"Consolidatie:"_ConsolidatieNummer)
 	Do Document.VoegKolomToe() ; sorteerkolom, na sorteren terug verwijderen
 	Set Document.SubSubtitel = "LPN:"_LPN
+
+	Do Document.GeefKolom(1).Insert("========")
+	Do Document.GeefKolom(2).Insert("========")
+	Do Document.GeefKolom(3).Insert("============")
+	Do Document.GeefKolom(4).Insert("=>"_ LPN _ "<==============================")
+	Do Document.GeefKolom(5).Insert(" 1")
 	
+	Do Document.VoegLijnToe("\\\\ 2","\")
+	
 	#dim InhoudIterator as TECH.ResultSetIterator = ..InhoudOphaler.GeefIterator(ConsolidatieNummer,LPN)
 	While InhoudIterator.HasNext() {
 		#dim rs as %ResultSet = InhoudIterator.Next()
 		Do Document.GeefKolom(1).Insert(+rs.GetDataByName("QTYTARGET"))
 		Do Document.GeefKolom(2).Insert(+rs.GetDataByName("AANTAL"))
-
+		#dim PrevPRNR as %String = ""
 		#dim identrs as %ResultSet = ..IdentLookupService.GeefAdminIdentNrs(rs.GetDataByName("IDENTNR"))
 		if identrs.HasNext() {
 			#dim rsi = identrs.Next()
 			#dim PRNr as %String = rsi.GetDataByName("Product")
 			Do Document.GeefKolom(3).Insert(rsi.GetDataByName("ItemID"))
 			Do Document.GeefKolom(4).Insert(rsi.GetDataByName("KortTekst"))
 			do Document.GeefKolom(5).Insert($$SORTKEY^PRODUKT(PRNr))
-			Do Document.GeefKolom(5).Insert($$SORTKEY^PRODUKT(PRNr) _ "1")
+			Do:($$$Not(PrevPRNR=PRNr)) Document.GeefKolom(5).Insert($$SORTKEY^PRODUKT(PRNr) _ "1")
 		} else {
 			Do Document.GeefKolom(3).Insert(rsi.GetDataByName("IDENTNR"))
 			Do Document.GeefKolom(4).Insert("gn korttekst")
 			Do Document.GeefKolom(5).Insert(rsi.GetDataByName("IDENTNR"))
-			Do Document.GeefKolom(5).Insert(rsi.GetDataByName("IDENTNR"))
+			Do:($$$Not(PrevPRNR=PRNr)) Document.GeefKolom(5).Insert(rsi.GetDataByName("IDENTNR" _ "1"))
 		}
-		Do Document.GeefKolom(1).Insert("")
-		Do Document.GeefKolom(2).Insert("")
-		Do Document.GeefKolom(3).Insert("")
-		Do Document.GeefKolom(4).Insert("")
 		
+		Do:($$$Not(PrevPRNR=PRNr)) Document.GeefKolom(1).Insert("")
+		Do:($$$Not(PrevPRNR=PRNr)) Document.GeefKolom(2).Insert("")
+		Do:($$$Not(PrevPRNR=PRNr)) Document.GeefKolom(3).Insert("")
+		Do:($$$Not(PrevPRNR=PRNr)) Document.GeefKolom(4).Insert("")
+		
+		Set PrevPRNR = PRNr
 	}
 	
 	Do Document.Sorteer(##class(TECH.Comparator.StringComparator).%New(),5)
Index: APPS/common/Print/Kolommen/Document.cls.xml
===================================================================
diff -u -r67659 -r67853
--- APPS/common/Print/Kolommen/Document.cls.xml	(.../Document.cls.xml)	(revision 67659)
+++ APPS/common/Print/Kolommen/Document.cls.xml	(.../Document.cls.xml)	(revision 67853)
@@ -149,6 +149,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Append">
+<FormalSpec>DocToAppend:APPS.common.Print.Kolommen.Document</FormalSpec>
+<Implementation><![CDATA[
+	If DocToAppend.GeefAantalKolommen() = ..GeefAantalKolommen() {	
+		for i=1:1:DocToAppend.GeefAantalRijen(){
+			for j=1:1:..GeefAantalKolommen(){
+				Do ..GeefKolom(j).Insert(DocToAppend.GeefKolom(j).GetAt(i))
+			}
+		}	
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefAantalRijen">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[