Index: EWTOE.mac.rou
===================================================================
diff -u -r50513 -r50786
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 50513)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 50786)
@@ -208,8 +208,7 @@
  ...Set Rec=^KTO(LEVNr,TOENr,TLNr)
  ...New r Set r=$P(Rec,D,28),$P(r,";")=OLNr,$P(Rec,D,28)=r
  ...Set ^KTO(LEVNr,TOENr,TLNr)=Rec
- ...w !,"hier"
- //...Do ProductToeleveringLijnGesplitst(LEVNr,TOENr,ToeleveringLijnCode,PRNr,$P(Rec,D,30),AantWMS,$P(Rec,D,56),$P(Rec,D,55),$P(Rec,D,57))
+ ...Do ProductToeleveringLijnGesplitst(LEVNr,TOENr,ToeleveringLijnCode,PRNr,$P(Rec,D,30),AantWMS,$P(Rec,D,56),$P(Rec,D,55),$P(Rec,D,57))
  ..Do REMOVE^vhLock("^KOD(KLNr,""F"",ORDNr)")
  If ORDNr Do
  .Quit:'$D(^KO1(ORDNr,"F"))