Index: OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml
===================================================================
diff -u -r67289 -r67345
--- OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 67289)
+++ OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 67345)
@@ -24,9 +24,10 @@
 d ##class(OBJTimpl.WMSOrder.PrintKlantEtiket).%New().Test()</Description>
 <Implementation><![CDATA[
 	Set Req = ##class(OBJTimpl.WMSOrder.dtoKlantEtiketRequest).%New()
-	Set Req.Vertrekplaats="ZONE12"
+	Set Req.Vertrekplaats="HAL1.1PICK"
 	Set Req.ConsNr="2203378576"
 	Set Req.LPN="D-0011155"
+	Set Req.UserIdPicker = "JoW"
 	Do ..PrintKlantEtiket(Req)
 ]]></Implementation>
 </Method>
@@ -36,7 +37,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Do ..StoreLPN(KlantEtiketRequest)
-	Do EXTERN^FLOWBON4($e(KlantEtiketRequest.ConsNr,5,10), ..ConverteerVertrekplaats(KlantEtiketRequest.Vertrekplaats),KlantEtiketRequest.LPN)
+	Do EXTERN^FLOWBON4($e(KlantEtiketRequest.ConsNr,5,10), ..ConverteerVertrekplaats(KlantEtiketRequest.Vertrekplaats),KlantEtiketRequest.LPN,KlantEtiketRequest.UserIdPicker)
 	Quit "OK"
 ]]></Implementation>
 </Method>
Index: FLOWBON4.mac.rou
===================================================================
diff -u -r67027 -r67345
--- FLOWBON4.mac.rou	(.../FLOWBON4.mac.rou)	(revision 67027)
+++ FLOWBON4.mac.rou	(.../FLOWBON4.mac.rou)	(revision 67345)
@@ -143,9 +143,10 @@
  Do:'Extern REFRESH^vhTERMINA()
  Quit
  
-EXTERN(BONNr,Magazijn,LPN)
+EXTERN(BONNr,Magazijn,LPN,UserIdPicker)
  New Printer Set Printer = ""
  Set LPN=$Get(LPN)
+ Set UserIdPicker= $Get(UserIdPicker)
  Set Magazijn = $G(Magazijn)
  If Magazijn = "" {
 	 Set Printer = $$SelectPrinter    // indien geen magazijn opgegeven vragen naar printer
@@ -161,16 +162,17 @@
 	 
 	Do ##class(vhLib.Logger).%New().ErrorMail("EXTERN^FLOWBON4",Bericht)	 
  }
- do PrintLabel(BONNr,Printer,1,##class(APPS.MAG.UGLYPicking.enu.Magazijn).DisplayToLogical(Magazijn),LPN)
+ do PrintLabel(BONNr,Printer,1,##class(APPS.MAG.UGLYPicking.enu.Magazijn).DisplayToLogical(Magazijn),LPN,UserIdPicker)
  Quit
  
-PrintLabel(BONNR,Printer,Aantal,MagazijnID,LPN)
+PrintLabel(BONNR,Printer,Aantal,MagazijnID,LPN,UserIdPicker)
  Set Aantal = $G(Aantal,1)
  Set LPN = $Get(LPN)
+ Set UserIdPicker=$Get(UserIdPicker)
  new blLabel 
  Set blLabel=##class(BL.Flow.Levering.Label).Instantiate()
  Do blLabel.Init(BONNr,,LPN)
- Do blLabel.PrintLabelKlantAdres(Printer,Aantal,.MagazijnID)
+ Do blLabel.PrintLabelKlantAdres(Printer,Aantal,.MagazijnID,UserIdPicker)
  Quit
  
  
Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r67027 -r67345
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 67027)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 67345)
@@ -119,10 +119,9 @@
 <Method name="PrintLabelKlantAdres">
 <Description>
 Afdruk van een label voor een klantpallet</Description>
-<FormalSpec>Printer:%String="0",Aantal:%Numeric=1,MagazijnID:%String=""</FormalSpec>
+<FormalSpec>Printer:%String="0",Aantal:%Numeric=1,MagazijnID:%String="",UserIdPicker:%String=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set UserIDPicker = ""
     If ..BONNr="" Quit $$$ERROR($$$GeneralError,"BONNr is leeg")
     If Printer="" Quit $$$ERROR($$$GeneralError,"Printer is niet ingevuld")
 	If $D(^ORDW("D",..BONNr))
@@ -145,7 +144,7 @@
 		    	}
 		    	If (Sublijn.VerwerkingSoftware = MagazijnID)
 		    	{
-			    	Set UserIDPicker = Sublijn.UserID
+			    	Set UserIdPicker = Sublijn.UserID
 		    	}
 	    	}
     	}
@@ -180,7 +179,7 @@
     Set ..pxLabelKlant.PalID=..PalID
     Set ..pxLabelKlant.Verzendwijze = $$VerzendWijzeCompact^EWORDSW(Verzw,$$HeeftBonAndereControleWijze^EWORDSW(..BONNr))
     Set ..pxLabelKlant.CommRef=..CommissieRef(KLNr,..BONNr)
-    Set ..pxLabelKlant.UserIDPicker = UserIDPicker
+    Set ..pxLabelKlant.UserIDPicker = UserIdPicker
     Set ..pxLabelKlant.MagazijnID = MagazijnID
     ; inherited properties
     Set ..pxLabelKlant.Taal=$Piece(^KKL(^KK1(KLNr),0),"\",9)
Index: OBJTimpl/WMSOrder/dtoKlantEtiketRequest.cls.xml
===================================================================
diff -u -r66464 -r67345
--- OBJTimpl/WMSOrder/dtoKlantEtiketRequest.cls.xml	(.../dtoKlantEtiketRequest.cls.xml)	(revision 66464)
+++ OBJTimpl/WMSOrder/dtoKlantEtiketRequest.cls.xml	(.../dtoKlantEtiketRequest.cls.xml)	(revision 67345)
@@ -14,6 +14,10 @@
 <Property name="Vertrekplaats">
 <Type>%String</Type>
 </Property>
+
+<Property name="UserIdPicker">
+<Type>%String</Type>
+</Property>
 </Class>