Index: OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(revision 0)
+++ OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml	(revision 66464)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.WMSOrder.PrintKlantEtiket">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="VertrekplaatsConverteerder">
+<Type>OBJTimpl.WMSOrder.VertrekplaatsConverteerder</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VertrekplaatsConverteerder:OBJTimpl.WMSOrder.VertrekplaatsConverteerder=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VertrekplaatsConverteerder = $$$Inject(VertrekplaatsConverteerder, ##class(OBJTimpl.WMSOrder.VertrekplaatsConverteerder).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="PrintKlantEtiket">
+<FormalSpec>KlantEtiketRequest:OBJTimpl.WMSOrder.dtoKlantEtiketRequest</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Do EXTERN^FLOWBON4(KlantEtiketRequest.ConsNr, ..ConverteerVertrekplaats(KlantEtiketRequest.Vertrekplaats))
+	Quit "OK"
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerVertrekplaats">
+<FormalSpec>Vertrekplaats:%String</FormalSpec>
+<ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
+<Implementation><![CDATA[	Quit ..VertrekplaatsConverteerder.Converteer(Vertrekplaats)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.OBJT.WMSService.txt
===================================================================
diff -u -r66286 -r66464
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.OBJT.WMSService.txt	(.../WS.OBJT.WMSService.txt)	(revision 66286)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.OBJT.WMSService.txt	(.../WS.OBJT.WMSService.txt)	(revision 66464)
@@ -35,6 +35,32 @@
                     </s:sequence>
                 </s:complexType>
             </s:element>
+            <s:element name="PrintKlantEtiket">
+                <s:complexType>
+                    <s:sequence>
+                        <s:element minOccurs="0" name="KlantEtiketRequest" type="s0:dtoKlantEtiketRequest"/>
+                    </s:sequence>
+                </s:complexType>
+            </s:element>
+            <s:complexType name="dtoKlantEtiketRequest">
+                <s:complexContent>
+                    <s:extension base="s0:DataTransferObject">
+                        <s:sequence>
+                            <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:sequence>
+                    </s:extension>
+                </s:complexContent>
+            </s:complexType>
+            <s:complexType abstract="true" name="DataTransferObject"/>
+            <s:element name="PrintKlantEtiketResponse">
+                <s:complexType>
+                    <s:sequence>
+                        <s:element name="PrintKlantEtiketResult" type="s:string"/>
+                    </s:sequence>
+                </s:complexType>
+            </s:element>
             <s:element name="VoorraadWijzigen">
                 <s:complexType>
                     <s:sequence>
@@ -60,6 +86,12 @@
     <message name="AfmeldenPickingSoapOut">
         <part name="parameters" element="s0:AfmeldenPickingResponse"/>
     </message>
+    <message name="PrintKlantEtiketSoapIn">
+        <part name="parameters" element="s0:PrintKlantEtiket"/>
+    </message>
+    <message name="PrintKlantEtiketSoapOut">
+        <part name="parameters" element="s0:PrintKlantEtiketResponse"/>
+    </message>
     <message name="VoorraadWijzigenSoapIn">
         <part name="parameters" element="s0:VoorraadWijzigen"/>
     </message>
@@ -71,6 +103,10 @@
             <input message="s0:AfmeldenPickingSoapIn"/>
             <output message="s0:AfmeldenPickingSoapOut"/>
         </operation>
+        <operation name="PrintKlantEtiket">
+            <input message="s0:PrintKlantEtiketSoapIn"/>
+            <output message="s0:PrintKlantEtiketSoapOut"/>
+        </operation>
         <operation name="VoorraadWijzigen">
             <input message="s0:VoorraadWijzigenSoapIn"/>
             <output message="s0:VoorraadWijzigenSoapOut"/>
@@ -87,6 +123,15 @@
                 <soap:body use="literal"/>
             </output>
         </operation>
+        <operation name="PrintKlantEtiket">
+            <soap:operation soapAction="http://cache01.vanhoecke.be/objt/WS.OBJT.WMSService.PrintKlantEtiket" style="document"/>
+            <input>
+                <soap:body use="literal"/>
+            </input>
+            <output>
+                <soap:body use="literal"/>
+            </output>
+        </operation>
         <operation name="VoorraadWijzigen">
             <soap:operation soapAction="http://cache01.vanhoecke.be/objt/WS.OBJT.WMSService.VoorraadWijzigen" style="document"/>
             <input>
Index: vhUnitTest/OBJTimpl/WMSOrder/VertrekplaatsConverteerder/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/OBJTimpl/WMSOrder/VertrekplaatsConverteerder/Test.cls.xml	(revision 0)
+++ vhUnitTest/OBJTimpl/WMSOrder/VertrekplaatsConverteerder/Test.cls.xml	(revision 66464)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.OBJTimpl.WMSOrder.VertrekplaatsConverteerder.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test Converteerder">
+<Implementation><![CDATA[
+	Set Vertrekplaatsen = ##class(OBJTimpl.WMSOrder.enu.VertrekPlaats.AutoComplete).%New()
+	Set VertrekplaatsConverteerder = ##class(OBJTimpl.WMSOrder.VertrekplaatsConverteerder).%New()
+	
+	Do $$$AssertEquals(VertrekplaatsConverteerder.Converteer("willekeurgewaarde"),Vertrekplaatsen.Default)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: OBJTimpl/WMSOrder/dtoKlantEtiketRequest.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/dtoKlantEtiketRequest.cls.xml	(revision 0)
+++ OBJTimpl/WMSOrder/dtoKlantEtiketRequest.cls.xml	(revision 66464)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.WMSOrder.dtoKlantEtiketRequest">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="ConsNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="LPN">
+<Type>%String</Type>
+</Property>
+
+<Property name="Vertrekplaats">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: OBJTimpl/WMSOrder/enu/VertrekPlaats.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/enu/VertrekPlaats.cls.xml	(revision 0)
+++ OBJTimpl/WMSOrder/enu/VertrekPlaats.cls.xml	(revision 66464)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.WMSOrder.enu.VertrekPlaats">
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;DEFAULT;EWMS;GROEP 1;GROEP 2;HALUX;LANG;ORGALUX;TANDEM/AVENT;TAOR indeling;UGLY</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;DEFAULT;EWMS;GROEP 1;GROEP 2;HALUX;LANG;ORGALUX;TANDEM/AVENT;TAOR indeling;UGLY</Default>
+</Parameter>
+
+<Method name="Default">
+<ClassMethod>1</ClassMethod>
+<ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
+<Implementation><![CDATA[	Quit "DEFAULT"
+]]></Implementation>
+</Method>
+
+<Method name="EWMS">
+<ClassMethod>1</ClassMethod>
+<ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
+<Implementation><![CDATA[	Quit "EWMS"
+]]></Implementation>
+</Method>
+
+<Method name="Groep1">
+<ClassMethod>1</ClassMethod>
+<ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
+<Implementation><![CDATA[	Quit "GROEP 1"
+]]></Implementation>
+</Method>
+
+<Method name="Groep2">
+<ClassMethod>1</ClassMethod>
+<ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
+<Implementation><![CDATA[	Quit "GROEP 2"
+]]></Implementation>
+</Method>
+
+<Method name="Halux">
+<ClassMethod>1</ClassMethod>
+<ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
+<Implementation><![CDATA[	Quit "HALUX"
+]]></Implementation>
+</Method>
+
+<Method name="Lang">
+<ClassMethod>1</ClassMethod>
+<ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
+<Implementation><![CDATA[	Quit "LANG"
+]]></Implementation>
+</Method>
+
+<Method name="Orgalux">
+<ClassMethod>1</ClassMethod>
+<ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
+<Implementation><![CDATA[	Quit "ORGALUX"
+]]></Implementation>
+</Method>
+
+<Method name="TandemAvent">
+<ClassMethod>1</ClassMethod>
+<ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
+<Implementation><![CDATA[	Quit "TANDEM/AVENT"
+]]></Implementation>
+</Method>
+
+<Method name="TAORIndeling">
+<ClassMethod>1</ClassMethod>
+<ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
+<Implementation><![CDATA[	Quit "TAOR indeling"
+]]></Implementation>
+</Method>
+
+<Method name="Ugly">
+<ClassMethod>1</ClassMethod>
+<ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
+<Implementation><![CDATA[	Quit "UGLY"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: OBJTimpl/WMSOrder/enu/VertrekPlaats/Verwerker.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/enu/VertrekPlaats/Verwerker.cls.xml	(revision 0)
+++ OBJTimpl/WMSOrder/enu/VertrekPlaats/Verwerker.cls.xml	(revision 66464)
@@ -0,0 +1,104 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.WMSOrder.enu.VertrekPlaats.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>VertrekPlaats:OBJTimpl.WMSOrder.enu.VertrekPlaats</FormalSpec>
+<Implementation><![CDATA[
+	If VertrekPlaats = "DEFAULT" {
+		Do ..VerwerkDefault()
+	} ElseIf VertrekPlaats = "EWMS" {
+		Do ..VerwerkEWMS()
+	} ElseIf VertrekPlaats = "GROEP 1" {
+		Do ..VerwerkGroep1()
+	} ElseIf VertrekPlaats = "GROEP 2" {
+		Do ..VerwerkGroep2()
+	} ElseIf VertrekPlaats = "HALUX" {
+		Do ..VerwerkHalux()
+	} ElseIf VertrekPlaats = "LANG" {
+		Do ..VerwerkLang()
+	} ElseIf VertrekPlaats = "ORGALUX" {
+		Do ..VerwerkOrgalux()
+	} ElseIf VertrekPlaats = "TAOR indeling" {
+		Do ..VerwerkTAORIndeling()
+	} ElseIf VertrekPlaats = "TANDEM/AVENT" {
+		Do ..VerwerkTandemAvent()
+	} ElseIf VertrekPlaats = "UGLY" {
+		Do ..VerwerkUgly()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(VertrekPlaats,"OBJTimpl.WMSOrder.enu.VertrekPlaats",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDefault">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkEWMS">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkGroep1">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkGroep2">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkHalux">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkLang">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkOrgalux">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkTAORIndeling">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkTandemAvent">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkUgly">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: OBJTimpl/WMSOrder/VertrekplaatsConverteerder.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/VertrekplaatsConverteerder.cls.xml	(revision 0)
+++ OBJTimpl/WMSOrder/VertrekplaatsConverteerder.cls.xml	(revision 66464)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.WMSOrder.VertrekplaatsConverteerder">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Converteer">
+<FormalSpec>VertrekPlaats:%String</FormalSpec>
+<ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
+<Implementation><![CDATA[
+	Set Vertrekplaatsen = ##class(OBJTimpl.WMSOrder.enu.VertrekPlaats.AutoComplete).%New()
+	
+	Quit Vertrekplaatsen.Default
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/OBJT/WMSService.cls.xml
===================================================================
diff -u -r66284 -r66464
--- WS/OBJT/WMSService.cls.xml	(.../WMSService.cls.xml)	(revision 66284)
+++ WS/OBJT/WMSService.cls.xml	(.../WMSService.cls.xml)	(revision 66464)
@@ -52,6 +52,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PrintKlantEtiket">
+<Description>
+Afdrukken van het klantetiket om op de verpakking van de gepickte goederen te kleven
+Consignatie nummer (Bonnr), lpn en vertrek plaats als parameters in xml structuur.</Description>
+<FormalSpec>KlantEtiketRequest:OBJTimpl.WMSOrder.dtoKlantEtiketRequest</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(OBJTimpl.WMSOrder.PrintKlantEtiket).%New().PrintKlantEtiket(KlantEtiketRequest)
+]]></Implementation>
+</Method>
+
 <Method name="Test">
 <Description>
 d ##class(WS.OBJT.WMSService).Test()</Description>
Index: OBJTimpl/WMSOrder/enu/VertrekPlaats/AutoComplete.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/enu/VertrekPlaats/AutoComplete.cls.xml	(revision 0)
+++ OBJTimpl/WMSOrder/enu/VertrekPlaats/AutoComplete.cls.xml	(revision 66464)
@@ -0,0 +1,84 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.WMSOrder.enu.VertrekPlaats.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Default">
+<Type>%String</Type>
+<InitialExpression>"DEFAULT"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="EWMS">
+<Type>%String</Type>
+<InitialExpression>"EWMS"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Groep1">
+<Type>%String</Type>
+<InitialExpression>"GROEP 1"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Groep2">
+<Type>%String</Type>
+<InitialExpression>"GROEP 2"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Halux">
+<Type>%String</Type>
+<InitialExpression>"HALUX"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Lang">
+<Type>%String</Type>
+<InitialExpression>"LANG"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Orgalux">
+<Type>%String</Type>
+<InitialExpression>"ORGALUX"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="TAORIndeling">
+<Type>%String</Type>
+<InitialExpression>"TAOR indeling"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="TandemAvent">
+<Type>%String</Type>
+<InitialExpression>"TANDEM/AVENT"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Ugly">
+<Type>%String</Type>
+<InitialExpression>"UGLY"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>