Index: TRANSPX.mac.rou
===================================================================
diff -u -r57646 -r62918
--- TRANSPX.mac.rou	(.../TRANSPX.mac.rou)	(revision 57646)
+++ TRANSPX.mac.rou	(.../TRANSPX.mac.rou)	(revision 62918)
@@ -192,7 +192,7 @@
 BONLIST()
  New BonList,BONNr
  Set (BonList,BONNr)=""
- For  Set BONNr=$O(BONNrs(BONNr)) Quit:BONNr=""  Set BonList=BonList_", "_BONNr
+ For  Set BONNr=$O(BONNrs(BONNr)) Quit:BONNr=""  Set BonList=BonList_", "_BONNr_$Select(BONNr=$G(GroepNr):"*",1:"")
  Set $E(BonList)=""
  Quit BonList
  ;