Index: DOM/TRANSP/enu/Transporteur/AutoComplete.cls.xml
===================================================================
diff -u
--- DOM/TRANSP/enu/Transporteur/AutoComplete.cls.xml	(revision 0)
+++ DOM/TRANSP/enu/Transporteur/AutoComplete.cls.xml	(revision 59644)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.TRANSP.enu.Transporteur.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="DHL">
+<Type>%String</Type>
+<InitialExpression>"6960"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="GLSBelgiumFreight">
+<Type>%String</Type>
+<InitialExpression>"5036"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="GLSBelgiumParcel">
+<Type>%String</Type>
+<InitialExpression>"6612"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="TMJ">
+<Type>%String</Type>
+<InitialExpression>"6173"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="TTC">
+<Type>%String</Type>
+<InitialExpression>"6671"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="VRD">
+<Type>%String</Type>
+<InitialExpression>"5803"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: DOM/TRANSP/enu/Transporteur/Verwerker.cls.xml
===================================================================
diff -u
--- DOM/TRANSP/enu/Transporteur/Verwerker.cls.xml	(revision 0)
+++ DOM/TRANSP/enu/Transporteur/Verwerker.cls.xml	(revision 59644)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.TRANSP.enu.Transporteur.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>Transporteur:DOM.TRANSP.enu.Transporteur</FormalSpec>
+<Implementation><![CDATA[
+	If Transporteur = "6960" {
+		Do ..VerwerkDHL()
+	} ElseIf Transporteur = "5036" {
+		Do ..VerwerkGLSBelgiumFreight()
+	} ElseIf Transporteur = "6612" {
+		Do ..VerwerkGLSBelgiumParcel()
+	} ElseIf Transporteur = "6173" {
+		Do ..VerwerkTMJ()
+	} ElseIf Transporteur = "6671" {
+		Do ..VerwerkTTC()
+	} ElseIf Transporteur = "5803" {
+		Do ..VerwerkVRD()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Transporteur,"DOM.TRANSP.enu.Transporteur",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDHL">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkGLSBelgiumFreight">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkGLSBelgiumParcel">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkTMJ">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkTTC">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkVRD">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/TRANSP/enu/Transporteur.cls.xml
===================================================================
diff -u -r50567 -r59644
--- DOM/TRANSP/enu/Transporteur.cls.xml	(.../Transporteur.cls.xml)	(revision 50567)
+++ DOM/TRANSP/enu/Transporteur.cls.xml	(.../Transporteur.cls.xml)	(revision 59644)
@@ -1,29 +1,27 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.TRANSP.enu.Transporteur">
-<ClassType>datatype</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
+<Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,6173,6671,5036,6612</Default>
+<Default>,6173,6671,5036,6612,5803,6960</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;TMJ TRANSPORT;TTC;GLS BELGIUM DISTRIBUTION;GLS BELGIUM</Default>
+<Default>;TMJ TRANSPORT;TTC;GLS BELGIUM DISTRIBUTION;GLS BELGIUM;VRD;DHL</Default>
 </Parameter>
 
 <Method name="TMJ">
 <ClassMethod>1</ClassMethod>
-<CodeMode>expression</CodeMode>
-<Implementation><![CDATA["6173"
+<ReturnType>DOM.TRANSP.enu.Transporteur</ReturnType>
+<Implementation><![CDATA[	Quit "6173"
 ]]></Implementation>
 </Method>
 
 <Method name="TTC">
 <ClassMethod>1</ClassMethod>
-<CodeMode>expression</CodeMode>
-<Implementation><![CDATA["6671"
+<ReturnType>DOM.TRANSP.enu.Transporteur</ReturnType>
+<Implementation><![CDATA[	Quit "6671"
 ]]></Implementation>
 </Method>
 
@@ -32,19 +30,39 @@
 Dit is de transporteur waarmee we ten tijde van de ABX LINK mee werken.
 Vanaf integratie met Freightbox en Unibox (ipv ABX LINK), is deze voor palletten e.d.</Description>
 <ClassMethod>1</ClassMethod>
-<CodeMode>expression</CodeMode>
-<Implementation><![CDATA["5036"
+<ReturnType>DOM.TRANSP.enu.Transporteur</ReturnType>
+<Implementation><![CDATA[	Quit "5036"
 ]]></Implementation>
 </Method>
 
 <Method name="GLSBelgiumParcel">
 <Description>
 Vanaf integratie met Freightbox en Unibox (ipv ABX LINK), is deze voor pakjes e.d.</Description>
 <ClassMethod>1</ClassMethod>
-<CodeMode>expression</CodeMode>
-<Implementation><![CDATA["6612"
+<ReturnType>DOM.TRANSP.enu.Transporteur</ReturnType>
+<Implementation><![CDATA[	Quit "6612"
 ]]></Implementation>
 </Method>
+
+<Method name="VRD">
+<Description><![CDATA[
+introductie Transsmart -> Pallet]]></Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.TRANSP.enu.Transporteur</ReturnType>
+<Implementation><![CDATA[	Quit "5803"
+]]></Implementation>
+</Method>
+
+<Method name="DHL">
+<Description><![CDATA[
+introductie Transsmart -> collie]]></Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.TRANSP.enu.Transporteur</ReturnType>
+<Implementation><![CDATA[
+	
+	Quit "6960"
+]]></Implementation>
+</Method>
 </Class>