Index: TRANSPX.mac.rou
===================================================================
diff -u -r57645 -r57646
--- TRANSPX.mac.rou	(.../TRANSPX.mac.rou)	(revision 57645)
+++ TRANSPX.mac.rou	(.../TRANSPX.mac.rou)	(revision 57646)
@@ -44,6 +44,7 @@
  ;
 INITGRP 
  New R,Rembours,Gewicht,Temp,Node,ORDNr,FANr
+ S Rembours = ""
  Set sFL("V")=$G(^TRANSP("D",VervRef))
  If $L(sFL("V")) Set TranspNr=$P(sFL("V"),D)
  Else  Do
@@ -57,7 +58,6 @@
  . 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,"")