Index: EWTOE.mac.rou
===================================================================
diff -u -r50786 -r50808
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 50786)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 50808)
@@ -208,6 +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
+ ...Set ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LEVNr,TOENr,TLNr)
  ...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