Index: FLOWBON6.mac.rou
===================================================================
diff -u -r29059 -r49995
--- FLOWBON6.mac.rou	(.../FLOWBON6.mac.rou)	(revision 29059)
+++ FLOWBON6.mac.rou	(.../FLOWBON6.mac.rou)	(revision 49995)
@@ -38,7 +38,7 @@
  For  Set BLNr=$O(^KUL(KLNr,FakSoort,BONNr,BLNr),-1) Quit:BLNr<100  Do  Quit:$G(C("ORDNR"))
  .Set R=^KUL(KLNr,FakSoort,BONNr,BLNr)
  .Quit:$P(R,D,17)'="KF5"
- .Set ORDNr=$P($P(R,D,5)," - "),OrdRef=$P($P(R,D,5)," - ",3),OrgalRef=$P(R,D,20)
+ .Set ORDNr=$P($P(R,D,5)," - ",1),OrdRef=$P($P(R,D,5)," - ",3,99),OrgalRef=$P(R,D,20)
  .Set C("ORDREF")=OrdRef
  .Set C("ORGLREF")=OrgalRef
  .Set C("FETCHORD")=1,C("ORDNR")=ORDNr