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