Index: APPS/TRANSP/ToerLijstService.cls.xml
===================================================================
diff -u -r50567 -r50577
--- APPS/TRANSP/ToerLijstService.cls.xml	(.../ToerLijstService.cls.xml)	(revision 50567)
+++ APPS/TRANSP/ToerLijstService.cls.xml	(.../ToerLijstService.cls.xml)	(revision 50577)
@@ -8,6 +8,24 @@
 <Private>1</Private>
 </Property>
 
+<Property name="TransportApi">
+<Type>DOM.TRANSP.TransportAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..TransportApi = ##class(DOM.DomeinContext).Instance().GeefTransportAPI()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="PrintVerpakkingLabelsIndienNodig">
 <Description>
 De RePrintModus-parameter bestaat nog tijdelijk tot aan de vervanging van ABX LINK door Freightbox en Unibox.</Description>
@@ -40,10 +58,9 @@
 	Quit:('$Length(TransportRitID)) 0
 	
 	#dim TransportAPI As DOM.TRANSP.TransportAPI = ##class(DOM.DomeinContext).Instance().GeefTransportAPI()
-	Set FactuurIDs = ##class(%ListOfDataTypes).%New()
 	#dim Rit As DOM.TRANSP.Rit = TransportAPI.GeefRit( TransportRitID )
 	
-	Quit (Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumFreight()) || (Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumParcel())
+	Quit ..TransportApi.IsGLS(Rit.GeefTransporteur())
 ]]></Implementation>
 </Method>