Index: OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml
===================================================================
diff -u -r67356 -r67357
--- OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 67356)
+++ OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 67357)
@@ -42,8 +42,8 @@
 <FormalSpec>KlantEtiketRequest:OBJTimpl.WMSOrder.dtoKlantEtiketRequest</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Do ..StoreLPN(KlantEtiketRequest)
-	#Dim PickerUserId = ..PickerUserIdOphaler.GeefUserIdPickerVanLPN(KlantEtiketRequest.ConsNr,KlantEtiketRequest.LPN)
+	#dim PickerUserId = ..PickerUserIdOphaler.GeefUserIdPickerVanLPN(KlantEtiketRequest.ConsNr,KlantEtiketRequest.LPN)
+	Do ..StoreLPN(KlantEtiketRequest, PickerUserId)
 	Do EXTERN^FLOWBON4($e(KlantEtiketRequest.ConsNr,5,10), ..ConverteerVertrekplaats(KlantEtiketRequest.Vertrekplaats),KlantEtiketRequest.LPN,PickerUserId)
 	Quit "OK"
 ]]></Implementation>
@@ -57,12 +57,12 @@
 </Method>
 
 <Method name="StoreLPN">
-<FormalSpec>KlantEtiketRequest:OBJTimpl.WMSOrder.dtoKlantEtiketRequest</FormalSpec>
+<FormalSpec>KlantEtiketRequest:OBJTimpl.WMSOrder.dtoKlantEtiketRequest,PickerUserId:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	Set CONSNr=$E(KlantEtiketRequest.ConsNr,5,10)
 	If (CONSNr?1"3"5N) && $D(^ORDW("D",CONSNr))
 	{
-		Set ^ORDW("D",CONSNr,"OBJT",$O(^ORDW("D",CONSNr,"OBJT",""),-1)+1)=KlantEtiketRequest.Vertrekplaats_"\"_KlantEtiketRequest.LPN_"\"_$H_"\"_KlantEtiketRequest.UserIdPicker
+		Set ^ORDW("D",CONSNr,"OBJT",$O(^ORDW("D",CONSNr,"OBJT",""),-1)+1)=KlantEtiketRequest.Vertrekplaats_"\"_KlantEtiketRequest.LPN_"\"_$H_"\"_PickerUserId
 	}
 ]]></Implementation>
 </Method>