Index: APPS/OV/impl/TranssmartTrackAndTrace.cls.xml
===================================================================
diff -u -r60020 -r61123
--- APPS/OV/impl/TranssmartTrackAndTrace.cls.xml	(.../TranssmartTrackAndTrace.cls.xml)	(revision 60020)
+++ APPS/OV/impl/TranssmartTrackAndTrace.cls.xml	(.../TranssmartTrackAndTrace.cls.xml)	(revision 61123)
@@ -76,6 +76,8 @@
 		set URL = ..GeefFreightTrackAndTraceURL(Levering,Taal)
 	} elseif  Transporteur = ##class(DOM.TRANSP.enu.Transporteur).DHL() {
 		set URL = ..GeefParcelTrackAndTraceURL(Levering,Taal)
+	} elseif  Transporteur = ##class(DOM.TRANSP.enu.Transporteur).Hamann() {
+		set URL = ..GeefHamannTrackAndTraceURL(Levering,Taal)
 	} else {
 		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Voor transporteur '"_Transporteur_"' is Track And Trace niet mogelijk. Levering: "_Levering.GeefID())
 		do ##class(TECH.ExceptionHandler).Throw(Exception)
@@ -85,6 +87,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHamannTrackAndTraceURL">
+<FormalSpec>Levering:DOM.TRANSP.Levering,Taal:DOM.enu.Taal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DistributeurData As APPS.TRANSP.Transsmart.data.VerzendData = ..GeefLeveringVerzendData(Levering)
+	#dim URL As %String = DistributeurData.TrackAndTraceUrl	
+	quit URL
+]]></Implementation>
+</Method>
+
 <Method name="GeefFreightTrackAndTraceURL">
 <FormalSpec>Levering:DOM.TRANSP.Levering,Taal:DOM.enu.Taal</FormalSpec>
 <Private>1</Private>