Index: DOM/TRANSP/enu/Transporteur.cls.xml
===================================================================
diff -u -r59644 -r61111
--- DOM/TRANSP/enu/Transporteur.cls.xml	(.../Transporteur.cls.xml)	(revision 59644)
+++ DOM/TRANSP/enu/Transporteur.cls.xml	(.../Transporteur.cls.xml)	(revision 61111)
@@ -4,11 +4,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,6173,6671,5036,6612,5803,6960</Default>
+<Default>,6173,6671,5036,6612,5803,6960,7159</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;TMJ TRANSPORT;TTC;GLS BELGIUM DISTRIBUTION;GLS BELGIUM;VRD;DHL</Default>
+<Default>;TMJ TRANSPORT;TTC;GLS BELGIUM DISTRIBUTION;GLS BELGIUM;VRD;DHL;HAMANN</Default>
 </Parameter>
 
 <Method name="TMJ">
@@ -63,6 +63,13 @@
 	Quit "6960"
 ]]></Implementation>
 </Method>
+
+<Method name="Hamann">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.TRANSP.enu.Transporteur</ReturnType>
+<Implementation><![CDATA[	Quit "7159"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/TRANSP/enu/Transporteur/AutoComplete.cls.xml
===================================================================
diff -u -r59644 -r61111
--- DOM/TRANSP/enu/Transporteur/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 59644)
+++ DOM/TRANSP/enu/Transporteur/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 61111)
@@ -30,6 +30,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="Hamann">
+<Type>%String</Type>
+<InitialExpression>"7159"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="TMJ">
 <Type>%String</Type>
 <InitialExpression>"6173"</InitialExpression>
Index: DOM/TRANSP/enu/Transporteur/Verwerker.cls.xml
===================================================================
diff -u -r59644 -r61111
--- DOM/TRANSP/enu/Transporteur/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 59644)
+++ DOM/TRANSP/enu/Transporteur/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 61111)
@@ -18,6 +18,8 @@
 		Do ..VerwerkGLSBelgiumFreight()
 	} ElseIf Transporteur = "6612" {
 		Do ..VerwerkGLSBelgiumParcel()
+	} ElseIf Transporteur = "7159" {
+		Do ..VerwerkHamann()
 	} ElseIf Transporteur = "6173" {
 		Do ..VerwerkTMJ()
 	} ElseIf Transporteur = "6671" {
@@ -49,6 +51,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkHamann">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkTMJ">
 <Abstract>1</Abstract>
 <Private>1</Private>