Index: OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml
===================================================================
diff -u -r66464 -r67027
--- OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 66464)
+++ OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 67027)
@@ -23,7 +23,7 @@
 <FormalSpec>KlantEtiketRequest:OBJTimpl.WMSOrder.dtoKlantEtiketRequest</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Do EXTERN^FLOWBON4(KlantEtiketRequest.ConsNr, ..ConverteerVertrekplaats(KlantEtiketRequest.Vertrekplaats))
+	Do EXTERN^FLOWBON4(KlantEtiketRequest.ConsNr, ..ConverteerVertrekplaats(KlantEtiketRequest.Vertrekplaats),KlantEtiketRequest.LPN)
 	Quit "OK"
 ]]></Implementation>
 </Method>
Index: FLOWBON4.mac.rou
===================================================================
diff -u -r29059 -r67027
--- FLOWBON4.mac.rou	(.../FLOWBON4.mac.rou)	(revision 29059)
+++ FLOWBON4.mac.rou	(.../FLOWBON4.mac.rou)	(revision 67027)
@@ -143,8 +143,9 @@
  Do:'Extern REFRESH^vhTERMINA()
  Quit
  
-EXTERN(BONNr,Magazijn)
+EXTERN(BONNr,Magazijn,LPN)
  New Printer Set Printer = ""
+ Set LPN=$Get(LPN)
  Set Magazijn = $G(Magazijn)
  If Magazijn = "" {
 	 Set Printer = $$SelectPrinter    // indien geen magazijn opgegeven vragen naar printer
@@ -160,14 +161,15 @@
 	 
 	Do ##class(vhLib.Logger).%New().ErrorMail("EXTERN^FLOWBON4",Bericht)	 
  }
- do PrintLabel(BONNr,Printer,1,##class(APPS.MAG.UGLYPicking.enu.Magazijn).DisplayToLogical(Magazijn))
+ do PrintLabel(BONNr,Printer,1,##class(APPS.MAG.UGLYPicking.enu.Magazijn).DisplayToLogical(Magazijn),LPN)
  Quit
  
-PrintLabel(BONNR,Printer,Aantal,MagazijnID)
+PrintLabel(BONNR,Printer,Aantal,MagazijnID,LPN)
  Set Aantal = $G(Aantal,1)
+ Set LPN = $Get(LPN)
  new blLabel 
  Set blLabel=##class(BL.Flow.Levering.Label).Instantiate()
- Do blLabel.Init(BONNr)
+ Do blLabel.Init(BONNr,,LPN)
  Do blLabel.PrintLabelKlantAdres(Printer,Aantal,.MagazijnID)
  Quit
  
Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r64135 -r67027
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 64135)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 67027)
@@ -100,8 +100,9 @@
 <FormalSpec>BONNr:%Numeric,PRNr:%Numeric,PalID:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..BONNr=BONNr
+	Set PalID= $Get(PalID)
 	If $G(PRNr) Set ..PRNr=PRNr
-	If $G(PalID) Set ..PalID=PalID
+	If $Length(PalID) Set ..PalID=PalID
 ]]></Implementation>
 </Method>