Index: APPS/OV/impl/TrackAndTraceService.cls.xml
===================================================================
diff -u -r59732 -r74677
--- APPS/OV/impl/TrackAndTraceService.cls.xml	(.../TrackAndTraceService.cls.xml)	(revision 59732)
+++ APPS/OV/impl/TrackAndTraceService.cls.xml	(.../TrackAndTraceService.cls.xml)	(revision 74677)
@@ -97,7 +97,7 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set TransporteurID = ..GeefTransporteurVoorBonId(BonID)
+	#dim TransporteurID as %String = ..GeefTransporteurVoorBonId(BonID)
 	#dim IsTransportGLS As %Boolean = ##class(TECH.StringUtils).Equals(TransporteurID , ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumFreight(), ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumParcel())
 	Quit IsTransportGLS
 ]]></Implementation>
@@ -108,9 +108,10 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set TransporteurID = ..GeefTransporteurVoorBonId(BonID)
-	#dim IsTransportGLS As %Boolean = ##class(TECH.StringUtils).Equals(TransporteurID , ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
-	Quit IsTransportGLS
+	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
+	#dim TransporteurID as %String = ..GeefTransporteurVoorBonId(BonID)
+	#dim IsTransportTranssmart As %Boolean = ##class(TECH.StringUtils).Equals(TransporteurID , Transporteur.VRD, Transporteur.DHL, Transporteur.HamannHDE, Transporteur.Dachser, Transporteur.Weiss,Transporteur.Schenker,Transporteur.Streck)
+	Quit IsTransportTranssmart
 ]]></Implementation>
 </Method>