Index: vhUnitTest/OBJTimpl/WMSOrder/VertrekplaatsConverteerder/Test.cls.xml
===================================================================
diff -u -r66464 -r67171
--- vhUnitTest/OBJTimpl/WMSOrder/VertrekplaatsConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 66464)
+++ vhUnitTest/OBJTimpl/WMSOrder/VertrekplaatsConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 67171)
@@ -7,8 +7,17 @@
 <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)
+
+	#dim it as TECH.ListIterator = ##class(OBJTimpl.WMSOrder.enu.VertrekPlaats).ValueListIterator()
+	while it.HasNext(){
+		Do $$$AssertNotEquals(VertrekplaatsConverteerder.Converteer(it.Next()),"Ongekende Vertrekplaats")
+	}
+	Do $$$AssertEquals(VertrekplaatsConverteerder.Converteer(Vertrekplaatsen.Kardex),"KARDEX")
+	Do $$$AssertEquals(VertrekplaatsConverteerder.Converteer(Vertrekplaatsen.Hal1p1Pick),"ORGALUX")
+	Do $$$AssertEquals(VertrekplaatsConverteerder.Converteer(Vertrekplaatsen.Hal1p4Pick),"UGLY")
+	Do $$$AssertEquals(VertrekplaatsConverteerder.Converteer(Vertrekplaatsen.Hal1p6Pick),"HAL1.6PICK")
+	Do $$$AssertEquals(VertrekplaatsConverteerder.Converteer(Vertrekplaatsen.Hal1p6Uit),"HAL1.6UIT")
+	Do $$$AssertEquals(VertrekplaatsConverteerder.Converteer(Vertrekplaatsen.Hal1p7Pick),"HAL1.7PICK")
 ]]></Implementation>
 </Method>
 </Class>
Index: OBJTimpl/WMSOrder/enu/VertrekPlaats/Verwerker.cls.xml
===================================================================
diff -u -r66464 -r67171
--- OBJTimpl/WMSOrder/enu/VertrekPlaats/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 66464)
+++ OBJTimpl/WMSOrder/enu/VertrekPlaats/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 67171)
@@ -12,92 +12,68 @@
 <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()
+	If VertrekPlaats = "HAL1.1PICK" {
+		Do ..VerwerkHal1p1Pick()
+	} ElseIf VertrekPlaats = "HAL1.4PICK" {
+		Do ..VerwerkHal1p4Pick()
+	} ElseIf VertrekPlaats = "HAL1.6PICK" {
+		Do ..VerwerkHal1p6Pick()
+	} ElseIf VertrekPlaats = "HAL1.6UIT" {
+		Do ..VerwerkHal1p6Uit()
+	} ElseIf VertrekPlaats = "HAL1.7PICK" {
+		Do ..VerwerkHal1p7Pick()
+	} ElseIf VertrekPlaats = "ICT" {
+		Do ..VerwerkICT()
+	} ElseIf VertrekPlaats = "KARDEX" {
+		Do ..VerwerkKardex()
 	} 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">
+<Method name="VerwerkHal1p1Pick">
 <Abstract>1</Abstract>
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="VerwerkEWMS">
+<Method name="VerwerkHal1p4Pick">
 <Abstract>1</Abstract>
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="VerwerkGroep1">
+<Method name="VerwerkHal1p6Pick">
 <Abstract>1</Abstract>
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="VerwerkGroep2">
+<Method name="VerwerkHal1p6Uit">
 <Abstract>1</Abstract>
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="VerwerkHalux">
+<Method name="VerwerkHal1p7Pick">
 <Abstract>1</Abstract>
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="VerwerkLang">
+<Method name="VerwerkICT">
 <Abstract>1</Abstract>
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="VerwerkOrgalux">
+<Method name="VerwerkKardex">
 <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>
 
 
Index: OBJTimpl/WMSOrder/enu/VertrekPlaats/AutoComplete.cls.xml
===================================================================
diff -u -r66464 -r67171
--- OBJTimpl/WMSOrder/enu/VertrekPlaats/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 66464)
+++ OBJTimpl/WMSOrder/enu/VertrekPlaats/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 67171)
@@ -9,75 +9,54 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%SerialObject</Super>
 
-<Property name="Default">
+<Property name="Hal1p1Pick">
 <Type>%String</Type>
-<InitialExpression>"DEFAULT"</InitialExpression>
+<InitialExpression>"HAL1.1PICK"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
 
-<Property name="EWMS">
+<Property name="Hal1p4Pick">
 <Type>%String</Type>
-<InitialExpression>"EWMS"</InitialExpression>
+<InitialExpression>"HAL1.4PICK"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
 
-<Property name="Groep1">
+<Property name="Hal1p6Pick">
 <Type>%String</Type>
-<InitialExpression>"GROEP 1"</InitialExpression>
+<InitialExpression>"HAL1.6PICK"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
 
-<Property name="Groep2">
+<Property name="Hal1p6Uit">
 <Type>%String</Type>
-<InitialExpression>"GROEP 2"</InitialExpression>
+<InitialExpression>"HAL1.6UIT"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
 
-<Property name="Halux">
+<Property name="Hal1p7Pick">
 <Type>%String</Type>
-<InitialExpression>"HALUX"</InitialExpression>
+<InitialExpression>"HAL1.7PICK"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
 
-<Property name="Lang">
+<Property name="ICT">
 <Type>%String</Type>
-<InitialExpression>"LANG"</InitialExpression>
+<InitialExpression>"ICT"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
 
-<Property name="Orgalux">
+<Property name="Kardex">
 <Type>%String</Type>
-<InitialExpression>"ORGALUX"</InitialExpression>
+<InitialExpression>"KARDEX"</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>
 
 
Index: OBJTimpl/WMSOrder/VertrekplaatsConverteerder.cls.xml
===================================================================
diff -u -r66464 -r67171
--- OBJTimpl/WMSOrder/VertrekplaatsConverteerder.cls.xml	(.../VertrekplaatsConverteerder.cls.xml)	(revision 66464)
+++ OBJTimpl/WMSOrder/VertrekplaatsConverteerder.cls.xml	(.../VertrekplaatsConverteerder.cls.xml)	(revision 67171)
@@ -4,12 +4,31 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="Converteer">
-<FormalSpec>VertrekPlaats:%String</FormalSpec>
-<ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
+<FormalSpec>VertrekPlaats:OBJTimpl.WMSOrder.enu.VertrekPlaats</FormalSpec>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set Vertrekplaatsen = ##class(OBJTimpl.WMSOrder.enu.VertrekPlaats.AutoComplete).%New()
 	
-	Quit Vertrekplaatsen.Default
+	#dim Resultaat as OBJTimpl.WMSOrder.enu.VertrekPlaats 
+	
+	If (VertrekPlaats = Vertrekplaatsen.Kardex) {
+		Set Resultaat = "KARDEX"
+	} ElseIf (VertrekPlaats = Vertrekplaatsen.Hal1p1Pick) {
+		Set Resultaat = "ORGALUX"
+	} ElseIf (VertrekPlaats = Vertrekplaatsen.Hal1p4Pick) {
+		Set Resultaat = "UGLY" ;????
+	} ElseIf (VertrekPlaats = Vertrekplaatsen.Hal1p6Pick) {
+		Set Resultaat = "HAL1.6PICK"
+	} ElseIf (VertrekPlaats = Vertrekplaatsen.Hal1p6Uit) {
+		Set Resultaat = "HAL1.6UIT"
+	} ElseIf (VertrekPlaats = Vertrekplaatsen.Hal1p7Pick) {
+		Set Resultaat = "HAL1.7PICK"
+	} ElseIf (VertrekPlaats = Vertrekplaatsen.ICT) {
+		Set Resultaat = "ICT"
+	} else {
+		Set Resultaat = "Ongekende Vertrekplaats"
+	}
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 </Class>
Index: OBJTimpl/WMSOrder/enu/VertrekPlaats.cls.xml
===================================================================
diff -u -r66464 -r67171
--- OBJTimpl/WMSOrder/enu/VertrekPlaats.cls.xml	(.../VertrekPlaats.cls.xml)	(revision 66464)
+++ OBJTimpl/WMSOrder/enu/VertrekPlaats.cls.xml	(.../VertrekPlaats.cls.xml)	(revision 67171)
@@ -4,82 +4,61 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>;DEFAULT;EWMS;GROEP 1;GROEP 2;HALUX;LANG;ORGALUX;TANDEM/AVENT;TAOR indeling;UGLY</Default>
+<Default>;HAL1.1PICK;HAL1.4PICK;HAL1.6PICK;HAL1.6UIT;HAL1.7PICK;KARDEX;ICT</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;DEFAULT;EWMS;GROEP 1;GROEP 2;HALUX;LANG;ORGALUX;TANDEM/AVENT;TAOR indeling;UGLY</Default>
+<Default>;HAL1.1PICK;HAL1.4PICK;HAL1.6PICK;HAL1.6UIT;HAL1.7PICK;KARDEX;ICT</Default>
 </Parameter>
 
-<Method name="Default">
+<Method name="Kardex">
 <ClassMethod>1</ClassMethod>
 <ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
-<Implementation><![CDATA[	Quit "DEFAULT"
+<Implementation><![CDATA[	Quit "KARDEX"
 ]]></Implementation>
 </Method>
 
-<Method name="EWMS">
+<Method name="Hal1p1Pick">
 <ClassMethod>1</ClassMethod>
 <ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
-<Implementation><![CDATA[	Quit "EWMS"
+<Implementation><![CDATA[	Quit "HAL1.1PICK"
 ]]></Implementation>
 </Method>
 
-<Method name="Groep1">
+<Method name="Hal1p4Pick">
 <ClassMethod>1</ClassMethod>
 <ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
-<Implementation><![CDATA[	Quit "GROEP 1"
+<Implementation><![CDATA[	Quit "HAL1.4PICK"
 ]]></Implementation>
 </Method>
 
-<Method name="Groep2">
+<Method name="Hal1p6Pick">
 <ClassMethod>1</ClassMethod>
 <ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
-<Implementation><![CDATA[	Quit "GROEP 2"
+<Implementation><![CDATA[	Quit "HAL1.6PICK"
 ]]></Implementation>
 </Method>
 
-<Method name="Halux">
+<Method name="Hal1p6Uit">
 <ClassMethod>1</ClassMethod>
 <ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
-<Implementation><![CDATA[	Quit "HALUX"
+<Implementation><![CDATA[	Quit "HAL1.6UIT"
 ]]></Implementation>
 </Method>
 
-<Method name="Lang">
+<Method name="Hal1p7Pick">
 <ClassMethod>1</ClassMethod>
 <ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
-<Implementation><![CDATA[	Quit "LANG"
+<Implementation><![CDATA[	Quit "HAL1.7PICK"
 ]]></Implementation>
 </Method>
 
-<Method name="Orgalux">
+<Method name="ICT">
 <ClassMethod>1</ClassMethod>
 <ReturnType>OBJTimpl.WMSOrder.enu.VertrekPlaats</ReturnType>
-<Implementation><![CDATA[	Quit "ORGALUX"
+<Implementation><![CDATA[	Quit "ICT"
 ]]></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>