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,"") Index: TRANSP.mac.rou =================================================================== diff -u -r57626 -r57645 --- TRANSP.mac.rou (.../TRANSP.mac.rou) (revision 57626) +++ TRANSP.mac.rou (.../TRANSP.mac.rou) (revision 57645) @@ -102,7 +102,7 @@ Quit ; INITGRP - New R,Rembours,Rembours,Gewicht,ColTyp,Omschr,Count,BONNr,Node,BarCode,OphVoorz,RemboursVoorBon, LegacyTRANSP + New R,Rembours,Gewicht,ColTyp,Omschr,Count,BONNr,Node,BarCode,OphVoorz,RemboursVoorBon, LegacyTRANSP Set R=^KU1(GroepNr,"F"),KLNr=$P(R,D),Node=$$NODE(GroepNr) Set R=$G(^KUL(KLNr,Node,GroepNr,3)) If $$IsBonMetEnkelVerwijzingNaarLeveradres(R) Set R = ^KKL(^KK1(KLNr),"L"_##class(TECH.StringUtils).AlignRight($P(R,D)," ",3))