Index: TRANSP.mac.rou
===================================================================
diff -u -r52861 -r55587
--- TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 52861)
+++ TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 55587)
@@ -113,7 +113,7 @@
  .Set (BONNr,Rembours,Gewicht)=""
  .For  Set BONNr=$O(Bons("BON",BONNr)) Quit:BONNr=""  Do
  ..Set Node=$$NODE(BONNr)
- ..Set Rembours=Rembours+$S($$ISREMB^REMBOURS(KLNr,BONNr):##class(BL.Legacy.TRANSP).%New().GeefRemboursBedragVoorBon(BONNr),1:"")
+ ..Set Rembours=Rembours+$S($$ISREMB^REMBOURS(KLNr,BONNr):##class(BL.Legacy.TRANSP).%New().GeefRemboursBedragVoorBon(BONNr,KLNr),1:"")
  ..Set R=^KUL(KLNr,Node,BONNr,1),Gewicht=Gewicht+$J($P($P(R,D,13),"#",3),0,1)
  .Set sFL(1)=KLNr_D_Rembours_D_Gewicht,$P(sFL(1),D,9)=$$DEVUSER^vhUSER(),$P(sFL(1),D,10)=$H
  Set sFL("V")=$G(^TRANSP("D",VervRef))
@@ -293,7 +293,7 @@
  .Set (BONNr,Rembours,Gewicht)=""
  .For  Set BONNr=$O(Bons("BON",BONNr)) Quit:BONNr=""  Do
  ..Set Node=$$NODE(BONNr)
- ..Set Rembours=Rembours+$S($$ISREMB^REMBOURS(KLNr,BONNr):##class(BL.Legacy.TRANSP).%New().GeefRemboursBedragVoorBon(BONNr),1:"")
+ ..Set Rembours=Rembours+$S($$ISREMB^REMBOURS(KLNr,BONNr):##class(BL.Legacy.TRANSP).%New().GeefRemboursBedragVoorBon(BONNr,KLNr),1:"")
  ..Set R=^KUL(KLNr,Node,BONNr,1),Gewicht=Gewicht+$J($P($P(R,D,13),"#",3),0,1)
  .If Rembours>0,'##class(CHUI.Flow.Cons.Transport).CheckMaximumRembours(VervRef,GroepNr,Rembours,1) Kill Bons Merge Bons=TempBons,ColList=TempColList Quit
  .Do:$P(sFL(1),D,2,3)'=(Rembours_D_Gewicht)