Index: PVTRANS.mac.rou
===================================================================
diff -u -r29059 -r50583
--- PVTRANS.mac.rou	(.../PVTRANS.mac.rou)	(revision 29059)
+++ PVTRANS.mac.rou	(.../PVTRANS.mac.rou)	(revision 50583)
@@ -23,7 +23,7 @@
 	Set Transp=""
 	For  Set Transp=$O(^TRANSP("D",Transp)) Quit:Transp=""  Do
 	. Set Transporteur=$P(^TRANSP("D",Transp),"\")
-	. Quit:Transporteur'=5036
+	. Quit:'##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(Transporteur)
 	. Set TransportDatumBegin=$P(^TRANSP("D",Transp),"\",10)	
 	. Set TransportDatumAfgesloten=$P(^TRANSP("D",Transp),"\",11)
 	. Quit:TransportDatumBegin<($H-88)