Index: KFLAD.mac.rou
===================================================================
diff -u -r29059 -r50582
--- KFLAD.mac.rou	(.../KFLAD.mac.rou)	(revision 29059)
+++ KFLAD.mac.rou	(.../KFLAD.mac.rou)	(revision 50582)
@@ -63,7 +63,7 @@
  Else  Set K=1
  If VervRef,GroepNr=UR Do
  . Set Transporteur=$P(^TRANSP("D",VervRef),D)
- . If Transporteur=5036 Do  ; Indien ABX
+ . If ##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(Transporteur) Do  ; Indien ABX
  . . If $TR(B(3),D,"")="" Kill ^TRANSP("D",VervRef,"D",GroepNr,"A")
  . . Else  Set ^TRANSP("D",VervRef,"D",GroepNr,"A")="1\"_$P(B(3),D,2,8)
  . Else  Do ##class(BL.Flow.Cons.TransportFlow).EditAdres($S(UGL="OD":"O",1:"L"),UR,VervRef_"||"_GroepNr,"O") ; Niet ABX
@@ -119,15 +119,15 @@
  Set VervRef=$P(R,";"),GroepNr=$P(R,";",2)
  If VervRef,GroepNr Do
  . Set Transporteur=$P(^TRANSP("D",VervRef),D)
- . Do:Transporteur'=5036 ##class(BL.Flow.Cons.TransportFlow).EditAdres(Type,Object,VervRef_"||"_GroepNr,"O")  ; Enkel indien niet ABX
+ . Do:'##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(Transporteur) ##class(BL.Flow.Cons.TransportFlow).EditAdres(Type,Object,VervRef_"||"_GroepNr,"O")  ; Enkel indien niet ABX
  Quit
  ;
 CheckTransport(Type,Object,VervRef,GroepNr)
  New R,Check,KLNr,KlNaam,Transporteur,Transport,TranspDate
  Set Check='VervRef
  Do:'Check
  . Set Transporteur=$P(^TRANSP("D",VervRef),D)
- . Set Check=Transporteur=5036
+ . Set Check=##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(Transporteur)
  . Quit:Check
  . Set KLNr=$P(^TRANSP("D",VervRef,"D",GroepNr),D),KlNaam=$P(^KKL(^KK1(KLNr),0),D,2)
  . Set Transport=$P(^KLE(^KL1(Transporteur),0),D,2),TranspDate=$$EXTDATE^vhLib.DataTypes($P(^TRANSP("D",VervRef),D,10))