Index: OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml
===================================================================
diff -u -r67729 -r71371
--- OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 67729)
+++ OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(.../PrintKlantEtiket.cls.xml)	(revision 71371)
@@ -44,12 +44,28 @@
 <Implementation><![CDATA[
 	Quit:KlantEtiketRequest.ConsNr?1"HK"1.E ..PrintReplenishmentEtiket(KlantEtiketRequest) ; Herbevoorrading Kardex
 	#dim PickerUserId = ..PickerUserIdOphaler.GeefUserIdPickerVanLPN(KlantEtiketRequest.ConsNr,KlantEtiketRequest.LPN)
-	Do ..StoreLPN(KlantEtiketRequest, PickerUserId)
+	Do ..StoreLPN(KlantEtiketRequest.ConsNr,KlantEtiketRequest.Vertrekplaats,KlantEtiketRequest.LPN, PickerUserId)
 	Do EXTERN^FLOWBON4($e($TR(KlantEtiketRequest.ConsNr,"b"),5,10), ..ConverteerVertrekplaats(KlantEtiketRequest.Vertrekplaats),KlantEtiketRequest.LPN,PickerUserId)
 	Quit "OK"
 ]]></Implementation>
 </Method>
 
+<Method name="PrintKlantEtiketMOP">
+<FormalSpec>KlantEtiketRequestMOP:OBJTimpl.WMSOrder.dtoKlantEtiketRequestMOP</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set It = ##class(TECH.ListIterator).%New(KlantEtiketRequestMOP.TopLPN.SubLPNs)
+	while (It.HasNext()){
+		#dim SubLPN as OBJTimpl.WMSOrder.dtoKlantEtiketRequestMOPSubLPN = It.Next()
+		#dim PickerUserId = ..PickerUserIdOphaler.GeefUserIdPickerVanLPN(SubLPN.ConsNr,SubLPN.SubLPNID)
+		Do ..StoreLPN(SubLPN.ConsNr,KlantEtiketRequestMOP.Vertrekplaats,SubLPN.SubLPNID, PickerUserId)
+		#dim PositieOpKar as %String = KlantEtiketRequestMOP.TopLPN.TopLPNID _ "#"_SubLPN.Positie
+		Do EXTERN^FLOWBON4($e($TR(SubLPN.ConsNr,"b"),5,10), ..ConverteerVertrekplaats(KlantEtiketRequestMOP.Vertrekplaats),SubLPN.SubLPNID,PickerUserId,PositieOpKar)
+	}
+	Quit "OK"
+]]></Implementation>
+</Method>
+
 <Method name="PrintReplenishmentEtiket">
 <FormalSpec>KlantEtiketRequest:OBJTimpl.WMSOrder.dtoKlantEtiketRequest</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -93,6 +109,17 @@
 </Method>
 
 <Method name="StoreLPN">
+<FormalSpec>ConsNr:%String,VertrekPlaats:%String,LPN:%String,PickerUserId:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set CONSNr=$e($TR(ConsNr,"b"),5,10)
+	If (CONSNr?1"3"5N) && $D(^ORDW("D",CONSNr))
+	{
+		Set ^ORDW("D",CONSNr,"OBJT",$O(^ORDW("D",CONSNr,"OBJT",""),-1)+1)=Vertrekplaats_"\"_LPN_"\"_$H_"\"_PickerUserId
+	}
+]]></Implementation>
+</Method>
+
+<Method name="StoreLPNOld">
 <FormalSpec>KlantEtiketRequest:OBJTimpl.WMSOrder.dtoKlantEtiketRequest,PickerUserId:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	Set CONSNr=$e($TR(KlantEtiketRequest.ConsNr,"b"),5,10)
Index: OBJTimpl/WMSOrder/dtoKlantEtiketRequestMOPSubLPN.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/dtoKlantEtiketRequestMOPSubLPN.cls.xml	(revision 0)
+++ OBJTimpl/WMSOrder/dtoKlantEtiketRequestMOPSubLPN.cls.xml	(revision 71371)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.WMSOrder.dtoKlantEtiketRequestMOPSubLPN">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="ConsNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="SubLPNID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Positie">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.OBJT.WMSService.txt
===================================================================
diff -u -r71034 -r71371
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.OBJT.WMSService.txt	(.../WS.OBJT.WMSService.txt)	(revision 71034)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.OBJT.WMSService.txt	(.../WS.OBJT.WMSService.txt)	(revision 71371)
@@ -62,6 +62,56 @@
                     </s:sequence>
                 </s:complexType>
             </s:element>
+            <s:element name="PrintKlantEtiketMOP">
+                <s:complexType>
+                    <s:sequence>
+                        <s:element minOccurs="0" name="KlantEtiketRequestMOP" type="s0:dtoKlantEtiketRequestMOP"/>
+                    </s:sequence>
+                </s:complexType>
+            </s:element>
+            <s:complexType name="dtoKlantEtiketRequestMOP">
+                <s:complexContent>
+                    <s:extension base="s0:DataTransferObject">
+                        <s:sequence>
+                            <s:element minOccurs="0" name="Vertrekplaats" type="s:string"/>
+                            <s:element minOccurs="0" name="TopLPN" type="s0:dtoKlantEtiketRequestMOPTopLPN"/>
+                        </s:sequence>
+                    </s:extension>
+                </s:complexContent>
+            </s:complexType>
+            <s:complexType name="dtoKlantEtiketRequestMOPTopLPN">
+                <s:complexContent>
+                    <s:extension base="s0:DataTransferObject">
+                        <s:sequence>
+                            <s:element minOccurs="0" name="TopLPNID" type="s:string"/>
+                            <s:element minOccurs="0" name="TopLPN" type="s0:ArrayOfSubLPNdtoKlantEtiketRequestMOPSubLPN"/>
+                        </s:sequence>
+                    </s:extension>
+                </s:complexContent>
+            </s:complexType>
+            <s:complexType name="ArrayOfSubLPNdtoKlantEtiketRequestMOPSubLPN">
+                <s:sequence>
+                    <s:element maxOccurs="unbounded" minOccurs="0" name="SubLPN" nillable="true" type="s0:dtoKlantEtiketRequestMOPSubLPN"/>
+                </s:sequence>
+            </s:complexType>
+            <s:complexType name="dtoKlantEtiketRequestMOPSubLPN">
+                <s:complexContent>
+                    <s:extension base="s0:DataTransferObject">
+                        <s:sequence>
+                            <s:element minOccurs="0" name="ConsNr" type="s:string"/>
+                            <s:element minOccurs="0" name="SubLPNID" type="s:string"/>
+                            <s:element minOccurs="0" name="Positie" type="s:string"/>
+                        </s:sequence>
+                    </s:extension>
+                </s:complexContent>
+            </s:complexType>
+            <s:element name="PrintKlantEtiketMOPResponse">
+                <s:complexType>
+                    <s:sequence>
+                        <s:element name="PrintKlantEtiketMOPResult" type="s:string"/>
+                    </s:sequence>
+                </s:complexType>
+            </s:element>
             <s:element name="PrintLPNInhoud">
                 <s:complexType>
                     <s:sequence>
@@ -110,6 +160,12 @@
     <message name="PrintKlantEtiketSoapOut">
         <part name="parameters" element="s0:PrintKlantEtiketResponse"/>
     </message>
+    <message name="PrintKlantEtiketMOPSoapIn">
+        <part name="parameters" element="s0:PrintKlantEtiketMOP"/>
+    </message>
+    <message name="PrintKlantEtiketMOPSoapOut">
+        <part name="parameters" element="s0:PrintKlantEtiketMOPResponse"/>
+    </message>
     <message name="PrintLPNInhoudSoapIn">
         <part name="parameters" element="s0:PrintLPNInhoud"/>
     </message>
@@ -131,6 +187,10 @@
             <input message="s0:PrintKlantEtiketSoapIn"/>
             <output message="s0:PrintKlantEtiketSoapOut"/>
         </operation>
+        <operation name="PrintKlantEtiketMOP">
+            <input message="s0:PrintKlantEtiketMOPSoapIn"/>
+            <output message="s0:PrintKlantEtiketMOPSoapOut"/>
+        </operation>
         <operation name="PrintLPNInhoud">
             <input message="s0:PrintLPNInhoudSoapIn"/>
             <output message="s0:PrintLPNInhoudSoapOut"/>
@@ -160,6 +220,15 @@
                 <soap:body use="literal"/>
             </output>
         </operation>
+        <operation name="PrintKlantEtiketMOP">
+            <soap:operation soapAction="http://cache01.vanhoecke.be/objt/WS.OBJT.WMSService.PrintKlantEtiketMOP" style="document"/>
+            <input>
+                <soap:body use="literal"/>
+            </input>
+            <output>
+                <soap:body use="literal"/>
+            </output>
+        </operation>
         <operation name="PrintLPNInhoud">
             <soap:operation soapAction="http://cache01.vanhoecke.be/objt/WS.OBJT.WMSService.PrintLPNInhoud" style="document"/>
             <input>
Index: WS/OBJT/WMSService.cls.xml
===================================================================
diff -u -r71034 -r71371
--- WS/OBJT/WMSService.cls.xml	(.../WMSService.cls.xml)	(revision 71034)
+++ WS/OBJT/WMSService.cls.xml	(.../WMSService.cls.xml)	(revision 71371)
@@ -77,6 +77,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PrintKlantEtiketMOP">
+<FormalSpec>KlantEtiketRequestMOP:OBJTimpl.WMSOrder.dtoKlantEtiketRequestMOP</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Set ReturnCode = ##class(OBJTimpl.WMSOrder.PrintKlantEtiket).%New().PrintKlantEtiketMOP(KlantEtiketRequestMOP)
+	Quit ReturnCode
+]]></Implementation>
+</Method>
+
 <Method name="PrintLPNInhoud">
 <FormalSpec>LPN:%String,CentralePrinter:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: OBJTimpl/WMSOrder/dtoKlantEtiketRequestMOP.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/dtoKlantEtiketRequestMOP.cls.xml	(revision 0)
+++ OBJTimpl/WMSOrder/dtoKlantEtiketRequestMOP.cls.xml	(revision 71371)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.WMSOrder.dtoKlantEtiketRequestMOP">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="Vertrekplaats">
+<Type>%String</Type>
+</Property>
+
+<Property name="TopLPN">
+<Type>OBJTimpl.WMSOrder.dtoKlantEtiketRequestMOPTopLPN</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: FLOWBON4.mac.rou
===================================================================
diff -u -r67345 -r71371
--- FLOWBON4.mac.rou	(.../FLOWBON4.mac.rou)	(revision 67345)
+++ FLOWBON4.mac.rou	(.../FLOWBON4.mac.rou)	(revision 71371)
@@ -143,11 +143,12 @@
  Do:'Extern REFRESH^vhTERMINA()
  Quit
  
-EXTERN(BONNr,Magazijn,LPN,UserIdPicker)
+EXTERN(BONNr,Magazijn,LPN,UserIdPicker,LPNMOP)
  New Printer Set Printer = ""
  Set LPN=$Get(LPN)
  Set UserIdPicker= $Get(UserIdPicker)
  Set Magazijn = $G(Magazijn)
+ Set LPNMOP = $Get(LPNMOP)
  If Magazijn = "" {
 	 Set Printer = $$SelectPrinter    // indien geen magazijn opgegeven vragen naar printer
  }ElseIf(Printer = "") {
@@ -162,17 +163,18 @@
 	 
 	Do ##class(vhLib.Logger).%New().ErrorMail("EXTERN^FLOWBON4",Bericht)	 
  }
- do PrintLabel(BONNr,Printer,1,##class(APPS.MAG.UGLYPicking.enu.Magazijn).DisplayToLogical(Magazijn),LPN,UserIdPicker)
+ do PrintLabel(BONNr,Printer,1,##class(APPS.MAG.UGLYPicking.enu.Magazijn).DisplayToLogical(Magazijn),LPN,UserIdPicker,LPNMOP)
  Quit
  
-PrintLabel(BONNR,Printer,Aantal,MagazijnID,LPN,UserIdPicker)
+PrintLabel(BONNR,Printer,Aantal,MagazijnID,LPN,UserIdPicker,LPNMOP)
  Set Aantal = $G(Aantal,1)
  Set LPN = $Get(LPN)
  Set UserIdPicker=$Get(UserIdPicker)
+ Set LPNMOP = $Get(LPNMOP)
  new blLabel 
  Set blLabel=##class(BL.Flow.Levering.Label).Instantiate()
  Do blLabel.Init(BONNr,,LPN)
- Do blLabel.PrintLabelKlantAdres(Printer,Aantal,.MagazijnID,UserIdPicker)
+ Do blLabel.PrintLabelKlantAdres(Printer,Aantal,.MagazijnID,UserIdPicker,LPNMOP)
  Quit
  
  
Index: BL/Flow/Levering/sub/pxKlantPallet.cls.xml
===================================================================
diff -u -r70571 -r71371
--- BL/Flow/Levering/sub/pxKlantPallet.cls.xml	(.../pxKlantPallet.cls.xml)	(revision 70571)
+++ BL/Flow/Levering/sub/pxKlantPallet.cls.xml	(.../pxKlantPallet.cls.xml)	(revision 71371)
@@ -85,6 +85,11 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="LPNMOP">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
 <Method name="WriteRow">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
@@ -101,7 +106,8 @@
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..CommRef),$$$TAB
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..PalID),$$$TAB
 	Write ..VervangNietPrintbareKaraktersDoorSpatie(..MagazijnID),$$$TAB
-	Write ..VervangNietPrintbareKaraktersDoorSpatie(..UserIDPicker)
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..UserIDPicker),$$$TAB
+	Write ..VervangNietPrintbareKaraktersDoorSpatie(..LPNMOP)
 	Write $$$CRLF
 	Quit $$$OK
 ]]></Implementation>
@@ -132,6 +138,7 @@
 	Write "PalID", $$$TAB
 	Write "MagazijnID", $$$TAB
 	Write "UserIDPicker", $$$TAB
+	Write "LPNMOP", $$$TAB
 ]]></Implementation>
 </Method>
 
Index: OBJTimpl/WMSOrder/dtoKlantEtiketRequestMOPTopLPN.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/dtoKlantEtiketRequestMOPTopLPN.cls.xml	(revision 0)
+++ OBJTimpl/WMSOrder/dtoKlantEtiketRequestMOPTopLPN.cls.xml	(revision 71371)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.WMSOrder.dtoKlantEtiketRequestMOPTopLPN">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="TopLPNID">
+<Type>%String</Type>
+</Property>
+
+<Property name="SubLPNs">
+<Type>OBJTimpl.WMSOrder.dtoKlantEtiketRequestMOPSubLPN</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="SubLPN"/>
+<Parameter name="XMLNAME" value="TopLPN"/>
+<Parameter name="XMLPROJECTION" value="COLLECTION"/>
+</Property>
+</Class>
+
+
+</Export>
Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r70605 -r71371
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 70605)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 71371)
@@ -126,7 +126,7 @@
 <Method name="PrintLabelKlantAdres">
 <Description>
 Afdruk van een label voor een klantpallet</Description>
-<FormalSpec>Printer:%String="0",Aantal:%Numeric=1,MagazijnID:%String="",UserIdPicker:%String=""</FormalSpec>
+<FormalSpec>Printer:%String="0",Aantal:%Numeric=1,MagazijnID:%String="",UserIdPicker:%String="",LPNMOP:%String=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
     If ..BONNr="" Quit $$$ERROR($$$GeneralError,"BONNr is leeg")
@@ -198,6 +198,7 @@
     Set ..pxLabelKlant.CommRef=..CommissieRef(KLNr,..BONNr)
     Set ..pxLabelKlant.UserIDPicker = UserIdPicker
     Set ..pxLabelKlant.MagazijnID = MagazijnID
+    set ..pxLabelKlant.LPNMOP = LPNMOP
     ; inherited properties
     Set ..pxLabelKlant.Taal=$Piece(^KKL(^KK1(KLNr),0),"\",9)
     Set ..pxLabelKlant.Aantal=Aantal