Index: TRANSP.mac.rou
===================================================================
diff -u -r29059 -r30013
--- TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 29059)
+++ TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 30013)
@@ -104,7 +104,9 @@
 INITGRP 
  New R,Rembours,Rembours,Gewicht,ColTyp,Omschr,Count,BONNr,Node,BarCode,OphVoorz
  Set R=^KU1(GroepNr,"F"),KLNr=$P(R,D),Node=$$NODE(GroepNr)
- Set R=^KUL(KLNr,Node,GroepNr,3) Set:'$P(R,D) R=^KKL(^KK1(KLNr),0)
+ Set R=$G(^KUL(KLNr,Node,GroepNr,3))
+ If $$IsBonMetEnkelVerwijzingNaarLeveradres^ULTOER(R) Set R = ^KKL(^KK1(KLNr),"L"_$Select($L($P(R,D))>2:"",1:" ")_$P(R,D))
+ ELSE  If '$$IsBonMetEigenLeveradres^ULTOER(R) Set R=^KKL(^KK1(KLNr),0)
  Set sFL("L")=R
  Set sFL(1)=$G(^TRANSP("D",VervRef,"D",GroepNr))
  Do:sFL(1)=""