Index: TRANSPX.mac.rou
===================================================================
diff -u -r53410 -r55587
--- TRANSPX.mac.rou	(.../TRANSPX.mac.rou)	(revision 53410)
+++ TRANSPX.mac.rou	(.../TRANSPX.mac.rou)	(revision 55587)
@@ -57,7 +57,7 @@
  . Set sFL(1)=KLNr,$P(sFL(1),D,9)=$$DEVUSER^vhUSER(),$P(sFL(1),D,10)=$H
  Else  Set KLNr=$P(sFL(1),D)
  Do:'$D(^TRANSP("D",VervRef,"D",GroepNr,"B",BONNr))
- . Set Rembours=$S($$ISREMB^REMBOURS(KLNr,BONNr):##class(BL.Legacy.TRANSP).%New().GeefRemboursBedragVoorBon(BONNr),1:"")
+ . Set Rembours=$S($$ISREMB^REMBOURS(KLNr,BONNr):##class(BL.Legacy.TRANSP).%New().GeefRemboursBedragVoorBon(BONNr,KLNr),1:"")
  . Set Node=$$NODE(BONNr),R=^KUL(KLNr,Node,BONNr,1),Gewicht=$J($P($P(R,D,13),"#",3),0,1)
  . Set $P(sFL("V"),D,3)=$P(sFL("V"),D,3)+Gewicht
  . Set $P(sFL(1),D,2)=$P(sFL(1),D,2)+Rembours