Index: OBJTimpl/WMSOrder/GepicktePallet/Docs.cls.xml
===================================================================
diff -u -r70198 -r71034
--- OBJTimpl/WMSOrder/GepicktePallet/Docs.cls.xml	(.../Docs.cls.xml)	(revision 70198)
+++ OBJTimpl/WMSOrder/GepicktePallet/Docs.cls.xml	(.../Docs.cls.xml)	(revision 71034)
@@ -34,8 +34,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Inhoud1GepicktePallet">
+<FormalSpec>LPN:%String,Printer:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Ophaler = ##class(OBJTimpl.WMSOrder.OphalenGepicktePalletInhoud).%New()
+	#dim OrderIterator as TECH.ResultSetIterator = Ophaler.GeefOutBoundOrderVoorLPN(LPN)
+	#dim ResultSet as TECH.ResultSet = OrderIterator.Next()
+	#dim ConsolidatieNr = ResultSet.GetDataByName("CONSNR")
+	#dim Locatie as %String = ResultSet.GetDataByName("TOLOC")
+
+	Set Builder = ##class(OBJTimpl.WMSOrder.GepicktePallet.DocumentBuilder).%New()
+	#dim Document As APPS.common.Print.Kolommen.Document = Builder.GeefDocument(ConsolidatieNr,LPN,Locatie)
+	Do Document.Print("Magazijn",$Select(Printer="": ..BepaalPrinter(ConsolidatieNr),1:Printer))
+]]></Implementation>
+</Method>
+
 <Method name="GepicktePallettenInhoudVia1LPN">
-<FormalSpec>LPN:%String,Printer:%String=""</FormalSpec>
+<FormalSpec>LPN:%String,Printer:%String="",SinglePallet:%Boolean=$$$false</FormalSpec>
 <Implementation><![CDATA[
 	#dim PalletIterator as TECH.ResultSetIterator = ..InhoudOphaler.GeefAllePallettenInOrderViaLPN(LPN)
 	if PalletIterator.HasNext() {
@@ -126,6 +141,7 @@
 	Quit:(Printer="LEVBON_EXPORT") 33
 	Quit:(Printer="LEVBON_GLS2") 34
 	Quit:(Printer="LEVBON_ORGALUX") 35
+	Quit:(Printer="VHIP2") 12
 	Quit 32 ;fallback LEBVON_PS
 ]]></Implementation>
 </Method>