Index: EWTOE.mac.rou
===================================================================
diff -u -r50229 -r50513
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 50229)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 50513)
@@ -208,7 +208,8 @@
  ...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
- ...Do ProductToeleveringLijnGesplitst(LEVNr,TOENr,ToeleveringLijnCode,PRNr,$P(Rec,D,30),AantWMS,$P(Rec,D,56),$P(Rec,D,55),$P(Rec,D,57))
+ ...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 REMOVE^vhLock("^KOD(KLNr,""F"",ORDNr)")
  If ORDNr Do
  .Quit:'$D(^KO1(ORDNr,"F"))