Index: ULTOER.mac.rou
===================================================================
diff -u -r41121 -r50547
--- ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 41121)
+++ ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 50547)
@@ -461,12 +461,11 @@
  ;
  ; Ophalen van de verpakkingsgegevens ABX
 ABXData(%J)
- New I,R,ABXData,VervRef,Verpakking
+ New I,R,ABXData,VervRef,Verpakking,DefaultTransporteur
+ Set DefaultTransporteur = $P($G(^TRANSP("U",io,"T")),D,1)
  Set (VervRef,Verpakking)=""
- For I=1:1 Set R=$G(^HULP(%J,"D",I)) Quit:R=""  Do  Quit:VervRef
- . Set VervRef=$P($P(R,D,13),";")
- . Quit:'VervRef
- . Set:##class(BL.Flow.Cons.TransportData).IsClosed(VervRef) VervRef=""
+ For  Set VervRef=$O(^TRANSP("IO",VervRef),-1) Quit:VervRef=""  Do  Quit:(DefaultTransporteur=Transporteur)
+ . Set Transporteur = $P($G(^TRANSP("D",VervRef)),D)
  Set:VervRef Verpakking=$$CalcVerpak^TRANSP(VervRef)
  Set ABXData=VervRef_D_Verpakking
  Quit ABXData