Index: HADETIK.mac.rou
===================================================================
diff -u -r41360 -r49887
--- HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 41360)
+++ HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 49887)
@@ -343,7 +343,7 @@
  .Set BLNr=100
  .For  Set BLNr=$O(^KUL(KLNr,"F",BONNr,BLNr)) Quit:'BLNr  Do  Quit:$L(OrdRef)
  ..Set R=^KUL(KLNr,"F",BONNr,BLNr)
- ..If $P(R,D,17)="KF5",$P($P(R,D,5)," - ")=ORDNr Set OrdRef=$P($P(R,D,5)," - ",3),CommRef=$P(R,D,20)
+ ..If $P(R,D,17)="KF5",$P($P(R,D,5)," - ")=ORDNr Set OrdRef=$P($P(R,D,5)," - ",3,99),CommRef=$P(R,D,20)
  Else  If KLNr Set OrdRef=$P($G(^KOD(KLNr,"F",ORDNr,1)),D,3),CommRef=$P($G(^KOD(KLNr,"F",ORDNr,1)),D,19)
  If $E(OrdRef,1,3)="EDI" Set $E(OrdRef,1,3)="",OrdRef=$TR(OrdRef," ","")
  If $G(StripDatum),OrdRef?1.2N1"."1.2N1"."2N1" ".E!(OrdRef?1.2N1"/"1.2N1"/"2N1" ".E)!(OrdRef?1.2N1"-"1.2N1"-"2N1" ".E) Set OrdRef=$P(OrdRef," ",2,99)