Index: TRANSPX.mac.rou
===================================================================
diff -u -r55587 -r57626
--- TRANSPX.mac.rou	(.../TRANSPX.mac.rou)	(revision 55587)
+++ TRANSPX.mac.rou	(.../TRANSPX.mac.rou)	(revision 57626)
@@ -57,7 +57,11 @@
  . 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,KLNr),1:"")
+ .If ($$ISREMB^REMBOURS(KLNr,BONNr))  Do
+ ..Set LegacyTRANSP = ##class(BL.Legacy.TRANSP).%New()
+ ..Do LegacyTRANSP.ZetRemboursBedragVoorBon(BONNr,KLNr,"") 
+ ..Set Rembours = LegacyTRANSP.GeefRemboursBedragVoorBon(BONNr,KLNr)
+ ..Do:(Rembours>0) LegacyTRANSP.ZetRemboursBedragVoorBon(BONNr,KLNr,Rembours) 
  . 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