Index: APPS/OV/impl/TrackAndTraceService.cls.xml
===================================================================
diff -u -r59732 -r61122
--- APPS/OV/impl/TrackAndTraceService.cls.xml	(.../TrackAndTraceService.cls.xml)	(revision 59732)
+++ APPS/OV/impl/TrackAndTraceService.cls.xml	(.../TrackAndTraceService.cls.xml)	(revision 61122)
@@ -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,8 +108,9 @@
 <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())
+	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
+	#dim TransporteurID as %String = ..GeefTransporteurVoorBonId(BonID)
+	#dim IsTransportGLS As %Boolean = ##class(TECH.StringUtils).Equals(TransporteurID , Transporteur.VRD, Transporteur.DHL, Transporteur.Hamann)
 	Quit IsTransportGLS
 ]]></Implementation>
 </Method>