Index: APPS/TRANSP/impl/TransportAPI.cls.xml
===================================================================
diff -u -r40505 -r59668
--- APPS/TRANSP/impl/TransportAPI.cls.xml	(.../TransportAPI.cls.xml)	(revision 40505)
+++ APPS/TRANSP/impl/TransportAPI.cls.xml	(.../TransportAPI.cls.xml)	(revision 59668)
@@ -1,8 +1,26 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.TRANSP.impl.TransportAPI">
-<Super>%RegisteredObject,APPS.TRANSP.TransportAPI</Super>
+<Super>TECH.RegisteredObject,APPS.TRANSP.TransportAPI</Super>
 
+<Property name="ProjectSettingsAPI">
+<Type>DOM.common.impl.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProjectSettingsAPI:DOM.common.impl.ProjectSettingsAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProjectSettingsAPI = $$$Inject(ProjectSettingsAPI, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefGLSEigenschappen">
 <ReturnType>APPS.TRANSP.GLS.GLSv1.GLSEigenschappen</ReturnType>
 <Implementation><![CDATA[	Quit ##class(APPS.TRANSP.GLS.GLSv1.impl.GLSEigenschappen).%New()
@@ -27,7 +45,11 @@
 <Implementation><![CDATA[
 	#dim CommunicatieService As APPS.TRANSP.CommunicatieService
 	if ..IsGLS(Transporteur) {
-		set CommunicatieService = ##class(APPS.TRANSP.GLS.impl.CommunicatieService).%New()
+		if ..ProjectSettingsAPI.IsTranssmartActive(){
+			set CommunicatieService = ##class(APPS.TRANSP.Transsmart.impl.CommunicatieService).%New()
+		} else {
+			set CommunicatieService = ##class(APPS.TRANSP.GLS.impl.CommunicatieService).%New()
+		}
 	} else {
 		set CommunicatieService = ##class(APPS.TRANSP.impl.CommunicatieService).%New()
 	}
@@ -37,9 +59,8 @@
 
 <Method name="IsGLS">
 <FormalSpec>TransporteurID:%String</FormalSpec>
-<Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit ( ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumDistribution() ) || ( ##class(DOM.TRANSP.enu.Transporteur).GLSBelgium() )
+<Implementation><![CDATA[	Quit ##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(TransporteurID)
 ]]></Implementation>
 </Method>
 </Class>