Index: ULTOER.mac.rou
===================================================================
diff -u -r50547 -r50586
--- ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 50547)
+++ ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 50586)
@@ -216,7 +216,7 @@
  If $L(VervRef),$L(GroepNr) Do
  .Set R=$G(^TRANSP("D",VervRef)),TranspNr=$P(R,D)
  .If R="" Set Colli=""
- .Else  If TranspNr'=5036 Do
+ .Else  If '##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(TranspNr) Do
  ..If $L($$LevAdresNrsOpTransport(KLNr),";")<2 Set Colli="" Quit
  ..Set Colli=$$GetAdresNr^LEVADR(KLNr,$$GetLevAdr^KFLAD("L",BONNr))
  .Else  Set:GroepNr=BONNr Colli=$$COLIAANT^TRANSP(VervRef,GroepNr)
@@ -635,7 +635,7 @@
  . Quit:'Transport
  . If $G(CheckClosed),##class(BL.Flow.Cons.TransportData).IsClosed(Transport) Quit  ; Afsluiten transport en het transport is gesloten
  . Set Transporteur=$$TRANSPORTEUR^TRANSP(Transport)
- . Set:Transporteur'=5036 TransportOk=1 ; Indien niet ABX
+ . Set:'##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(Transporteur) TransportOk=1 ; Indien niet ABX
  Quit TransportOk
  ;
  ; Printen van een transportlijst