Index: TRANSP.mac.rou
===================================================================
diff -u -r73084 -r74677
--- TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 73084)
+++ TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 74677)
@@ -584,7 +584,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")||($E(OldVerzW,1,2)="DO")||($E(OldVerzW,1,2)="HW")||($E(OldVerzW,1,2)="BS"))
+ .Quit:(($E(OldVerzW,1,2)="HD")||($E(OldVerzW,1,2)="DA")||($E(OldVerzW,1,2)="DO")||($E(OldVerzW,1,2)="HW")||($E(OldVerzW,1,2)="BS")||($E(OldVerzW,1,2)="HS"))
  .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