Index: BL/Flow/Cons/TransportFlow.cls.xml
===================================================================
diff -u -r50562 -r50579
--- BL/Flow/Cons/TransportFlow.cls.xml	(.../TransportFlow.cls.xml)	(revision 50562)
+++ BL/Flow/Cons/TransportFlow.cls.xml	(.../TransportFlow.cls.xml)	(revision 50579)
@@ -131,7 +131,7 @@
 	. Set Propertys("Groeperen")=$P($G(^TRANSP("T",Transporteur)),"\",11)
 	. If $G(Type)="O",$$ISTERUGN^FLOWORD5(Object) Set Propertys("TransportType")="T"
 	. If $G(Type)="L",$$ISTERUGN^FLOWBON5(Object) Set Propertys("TransportType")="T"
-	. Do:Transporteur=5036
+	. Do:##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(Transporteur)
 	. . Set OphVoorz=$$INTTIME^vhLib.DataTypes("16:00"),OphVoorz=($S(OphVoorz<$P($H,",",2):$$CALCDATE^vhLib.DataTypes(,"A",1),1:+$H))_","_OphVoorz
 	. . Set Propertys("TijdstipOphalingVoorzien")=OphVoorz
 	. Set Transport=##class(BL.Flow.Cons.TransportData).CreateHoofding(.Propertys)
@@ -310,7 +310,7 @@
 	. . Set Adres=$P($O(Transporten("")),"||",2)
 	. Set:Adres="" Adres=BONNr 
 	. Quit:##class(BL.Flow.Cons.TransportData).ShowKennisAnker($P(^KU1(BONNr,"F"),D))="ANNULEER"
-	. If ((Obj.Transporteur=5036)||(Obj.Transporteur=6612)) Do  ; ABX
+	. If ##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(Obj.Transporteur) Do  ; ABX
 	. . Set Bons("BON",BONNr)=""
 	. . Do SELBON^TRANSP($NAME(Bons))
 	. . Quit:$D(Bons("ANUL"))
@@ -331,15 +331,15 @@
 	New R,TransportLink,Actie,Obj,BonNrs,TransportAdres,AddRef,Bons
 	Set Obj=##class(Flow.Cons.Transport).%OpenId(Transport)
 	Do:$IsObject(Obj)
-	. Set Actie=$S(Obj.Transporteur=5036:"W",1:##class(CHUI.Flow.Cons.Transport).BonExistInTransport(BONNr,$G(NoMod)))
+	. Set Actie=$S(##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(Obj.Transporteur):"W",1:##class(CHUI.Flow.Cons.Transport).BonExistInTransport(BONNr,$G(NoMod)))
 	. If Actie="V" Do  ; Verwijderen uit het transport
 	. . Do ..DeleteLevering(Transport,Adres,BONNr)
 	. . Do:$O(^TRANSP("D",Transport,"D",""))=""
 	. . . Quit:##class(CHUI.Flow.Cons.Transport).DeleteTransport(Transport)'="V"
 	. . . Do ##class(BL.Flow.Cons.TransportData).DeleteHoofding(Transport)
 	. . Set:$D(^TRANSP("D",Transport)) Actie="B"
 	. If Actie="W" Do  ; Het transport wijzigen
-	. . If Obj.Transporteur=5036 Do  ; ABX
+	. . If ##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(Obj.Transporteur) Do  ; ABX
 	. . . Do MODGRP^TRANSP(Transport,Adres)
 	. . Else  Do MODGRP^TRANSPX(Transport,Adres)
 	. If Actie="R" Do RPLGRP^TRANSPX(Transport,Adres) ; Het transport is reeds afgesloten, enkel raadplegen