Index: TRANSP.mac.rou
===================================================================
diff -u -r61331 -r61332
--- TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 61331)
+++ TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 61332)
@@ -569,7 +569,7 @@
  ..Set NewVerzW="DI1",NewVerzW=NewVerzW_" #"_^RES("KLANT","PI","VERZENDWIJZE","D",NewVerzW,Taal)
  .Set BonRec=^KUL(KLNr,"F",BONNr,1),OldVerzW=$P(BonRec,D,7)
  .Quit:($E(OldVerzW,1,2)=$E(NewVerzW,1,2))
- .Quit:'($E(OldVerzW,1,2)="HD")
+ .Quit:($E(OldVerzW,1,2)="HD")
  .Set R=$$^vhTXTPOP("TRANSP","NOABX","",BONNr,$TR(OldVerzW,"#",""),$TR(NewVerzW,"#",""))
  .Do KILL^KFVZW("F",BonRec,BONNr)
  .Set $P(BonRec,D,7)=NewVerzW,^KUL(KLNr,"F",BONNr,1)=BonRec