Index: TRANSP.mac.rou
===================================================================
diff -u -r66395 -r67820
--- TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 66395)
+++ TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 67820)
@@ -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")||($E(OldVerzW,1,2)="DA"))
+ .Quit:(($E(OldVerzW,1,2)="HD")||($E(OldVerzW,1,2)="DA")||($E(OldVerzW,1,2)="DO"))
  .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