Index: FLOWBON4.mac.rou
===================================================================
diff -u -r72585 -r72900
--- FLOWBON4.mac.rou	(.../FLOWBON4.mac.rou)	(revision 72585)
+++ FLOWBON4.mac.rou	(.../FLOWBON4.mac.rou)	(revision 72900)
@@ -177,15 +177,16 @@
  Do blLabel.PrintLabelKlantAdres(Printer,Aantal,.MagazijnID,UserIdPicker,LPNMOP)
  Quit
  
-GEEFLABELDATA(BONNr,MagazijnID,LPN,UserIdPicker)
+GEEFLABELDATA(BONNr,MagazijnID,LPN,UserIdPicker,Positie)
  Set Aantal = $G(Aantal,1)
  Set LPN = $Get(LPN)
+ Set Positie = $Get(Positie)
  Set UserIdPicker=$Get(UserIdPicker)
  Set Printer = ##class(BL.Sys.LabelPrinter).DefaultDevice("KLANT_ADRES",MagazijnID)
  new blLabel 
  Set blLabel=##class(BL.Flow.Levering.Label).Instantiate()
  Do blLabel.Init(BONNr,,LPN)
- Quit blLabel.GeefKlantLabelBartenderData(Printer,Aantal,.MagazijnID,UserIdPicker)
+ Quit blLabel.GeefKlantLabelBartenderData(Printer,Aantal,.MagazijnID,UserIdPicker,Positie)
   
  New C
  ;Set:'$L($G(Dev)) Dev=$$DEV^vhPRINTER("lbl Uitvoer EWMS") ; Device labelprinter : \\REQ DATKON\Generic / Text Only 
Index: OBJTimpl/WMSOrder/dtoKlantEtiketRequest.cls.xml
===================================================================
diff -u -r70508 -r72900
--- OBJTimpl/WMSOrder/dtoKlantEtiketRequest.cls.xml	(.../dtoKlantEtiketRequest.cls.xml)	(revision 70508)
+++ OBJTimpl/WMSOrder/dtoKlantEtiketRequest.cls.xml	(.../dtoKlantEtiketRequest.cls.xml)	(revision 72900)
@@ -15,6 +15,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="Positie">
+<Type>%String</Type>
+</Property>
+
 <Property name="FromNodeRed">
 <Type>%Boolean</Type>
 <InitialExpression>0</InitialExpression>
Index: OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml
===================================================================
diff -u -r72585 -r72900
--- OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 72585)
+++ OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 72900)
@@ -56,8 +56,7 @@
 <Implementation><![CDATA[
 	#dim PickerUserId = ..PickerUserIdOphaler.GeefUserIdPickerVanLPN(KlantEtiketRequest.ConsNr,KlantEtiketRequest.LPN)
 	Do ..StoreLPN(KlantEtiketRequest.ConsNr,KlantEtiketRequest.Vertrekplaats,KlantEtiketRequest.LPN, PickerUserId)
-	
-	Quit $$GEEFLABELDATA^FLOWBON4($e($TR(KlantEtiketRequest.ConsNr,"b"),5,10), ..ConverteerVertrekplaats(KlantEtiketRequest.Vertrekplaats),KlantEtiketRequest.LPN,PickerUserId)
+	Quit $$GEEFLABELDATA^FLOWBON4($e($TR(KlantEtiketRequest.ConsNr,"b"),5,10), ..ConverteerVertrekplaats(KlantEtiketRequest.Vertrekplaats),KlantEtiketRequest.LPN,PickerUserId,KlantEtiketRequest.Positie)
 ]]></Implementation>
 </Method>
 
Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.OBJT.WMSService.txt
===================================================================
diff -u -r72585 -r72900
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.OBJT.WMSService.txt	(.../WS.OBJT.WMSService.txt)	(revision 72585)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.OBJT.WMSService.txt	(.../WS.OBJT.WMSService.txt)	(revision 72900)
@@ -49,6 +49,7 @@
                             <s:element minOccurs="0" name="ConsNr" type="s:string"/>
                             <s:element minOccurs="0" name="LPN" type="s:string"/>
                             <s:element minOccurs="0" name="Vertrekplaats" type="s:string"/>
+                            <s:element minOccurs="0" name="Positie" type="s:string"/>
                             <s:element minOccurs="0" name="FromNodeRed" type="s:boolean"/>
                         </s:sequence>
                     </s:extension>
Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r72724 -r72900
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 72724)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 72900)
@@ -130,7 +130,7 @@
 </Method>
 
 <Method name="HaalopLabelKlantAdresData">
-<FormalSpec>Printer:%String="0",Aantal:%Numeric=1,MagazijnID:%String="",UserIdPicker:%String="",LPNMOP:%String="",ReturnDtoOnly:%Boolean=$$$False</FormalSpec>
+<FormalSpec>Printer:%String="0",Aantal:%Numeric=1,MagazijnID:%String="",UserIdPicker:%String="",Positie:%String=""</FormalSpec>
 <Implementation><![CDATA[
     If ..BONNr="" Quit $$$ERROR($$$GeneralError,"BONNr is leeg")
     If Printer="" Quit $$$ERROR($$$GeneralError,"Printer is niet ingevuld")
@@ -208,7 +208,7 @@
     Set ..pxLabelKlant.CommRef=..CommissieRef(KLNr,..BONNr)
     Set ..pxLabelKlant.UserIDPicker = UserIdPicker
     Set ..pxLabelKlant.MagazijnID = MagazijnID
-    set ..pxLabelKlant.LPNMOP = LPNMOP
+    set ..pxLabelKlant.LPNMOP = Positie
     ; inherited properties
     Set ..pxLabelKlant.Taal=$Piece(^KKL(^KK1(KLNr),0),"\",9)
     Set ..pxLabelKlant.Aantal=Aantal
@@ -251,10 +251,10 @@
 </Method>
 
 <Method name="GeefKlantLabelBartenderData">
-<FormalSpec>Printer:%String="0",Aantal:%Numeric=1,MagazijnID:%String="",UserIdPicker:%String="",LPNMOP:%String=""</FormalSpec>
+<FormalSpec>Printer:%String="0",Aantal:%Numeric=1,MagazijnID:%String="",UserIdPicker:%String="",Positie:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Do ..HaalopLabelKlantAdresData(Printer,Aantal,MagazijnID,MagazijnID,UserIdPicker,LPNMOP)
+	Do ..HaalopLabelKlantAdresData(Printer,Aantal,MagazijnID,UserIdPicker,Positie)
     Set blPrint = ##class(APPS.ApplicatieContext).Instance().GeefPrintAPI().GeefLabelPrinter("EWMSKlant",Printer)
     If $$$ISERR(blPrint)||('$IsObject(blPrint)) Do  Quit $$$ERROR($$$GeneralError,"Afdruk mislukt: Toepassing niet geregistreerd")
     . Do ..Logger.ErrorMail("PrintLabelKlantAdres - GetPrinter","Failed : "_$$ParseStatus^vhLib(blPrint))