Index: OBJTimpl/WMSOrder/GepicktePallet/Docs.cls.xml
===================================================================
diff -u -r67859 -r67876
--- OBJTimpl/WMSOrder/GepicktePallet/Docs.cls.xml	(.../Docs.cls.xml)	(revision 67859)
+++ OBJTimpl/WMSOrder/GepicktePallet/Docs.cls.xml	(.../Docs.cls.xml)	(revision 67876)
@@ -44,10 +44,10 @@
 		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)
+			#dim Document As APPS.common.Print.Kolommen.Document = Builder.GeefDocument(ConsolidatieNr,rsPallet.GetDataByName("DOELPALLET"))
 			while PalletIterator.HasNext() {
 				set rsPallet = PalletIterator.Next()
-				#dim TempDoc as APPS.common.Print.Kolommen.Document = Builder.GeefDocument(ConsolidatieNr,rsPallet.GetDataByName("DOELPALLET"))				
+				#dim TempDoc as APPS.common.Print.Kolommen.Document = Builder.GeefDocument(ConsolidatieNr,rsPallet.GetDataByName("DOELPALLET"))
 				Do Document.Append(TempDoc)
 			}
 			Do Document.Print("Magazijn",$Select(Printer="": ..BepaalPrinter(ConsolidatieNr),1:Printer))
@@ -106,7 +106,7 @@
 <Method name="GeefVerzendwijze">
 <FormalSpec>BONNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $Piece( $Get(^ORDW("D",BONNr)),"\",2)
+<Implementation><![CDATA[	Quit $Piece($Piece($Get(^ORDW("D",BONNr)),"\",2),"#",1)
 ]]></Implementation>
 </Method>
 </Class>
Index: OBJTimpl/WMSOrder/GepicktePallet/DocumentBuilder.cls.xml
===================================================================
diff -u -r67859 -r67876
--- OBJTimpl/WMSOrder/GepicktePallet/DocumentBuilder.cls.xml	(.../DocumentBuilder.cls.xml)	(revision 67859)
+++ OBJTimpl/WMSOrder/GepicktePallet/DocumentBuilder.cls.xml	(.../DocumentBuilder.cls.xml)	(revision 67876)
@@ -105,7 +105,7 @@
 <Method name="GeefVerzendwijze">
 <FormalSpec>BONNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $Piece( $Get(^ORDW("D",BONNr)),"\",2)
+<Implementation><![CDATA[	Quit $Piece($Piece($Get(^ORDW("D",BONNr)),"\",2),"#",1)
 ]]></Implementation>
 </Method>
 </Class>