Index: TRANSP.mac.rou
===================================================================
diff -u -r57645 -r61127
--- TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 57645)
+++ TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 61127)
@@ -568,7 +568,8 @@
  ..Set Taal=$P(R,D,9) Set:Taal="" Taal="N"
  ..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)=$E(NewVerzW,1,2))
+ .Quit:'(OldVerzW="DD1")
  .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