Index: APPS/OV/impl/TrackAndTraceService.cls.xml
===================================================================
diff -u -r50565 -r50576
--- APPS/OV/impl/TrackAndTraceService.cls.xml	(.../TrackAndTraceService.cls.xml)	(revision 50565)
+++ APPS/OV/impl/TrackAndTraceService.cls.xml	(.../TrackAndTraceService.cls.xml)	(revision 50576)
@@ -74,13 +74,10 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim IsTransportViaGLS  As %Boolean = 0
-	
 	#dim Bon As DOM.VKP.Bon = ..OrderApi.GeefBon(BonID)
 	#dim Rit As DOM.TRANSP.Rit = ..TransportApi.GeefRit(Bon.GeefRitID())
-	Set IsTransportViaGLS = (Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumFreight())
 	
-	Quit IsTransportViaGLS
+	Quit ..TransportApi.IsGLS(Rit.GeefTransporteur())
 ]]></Implementation>
 </Method>