Index: EWTOE.mac.rou
===================================================================
diff -u -r38004 -r46411
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 38004)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 46411)
@@ -164,8 +164,8 @@
  Set CifPPL=$$CifPPL(PRNr)
  Do HIST(LEVNr,TOENr,TLUNr,PRNr,AantWMS,RCPODate,HistRef,.WMS,,,OverKind)
  Do ##class(BL.Legacy.EWRCPS2).RegistreerReceptieTijdstipIndienGelinktInOrder(TOENr, TLUNr)
- Do KWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
  Do ProductToeleveringLijnIngeboekt^EWRCPS2(LEVNr,TOENr,TLNr)
+ Do KWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
  For  Do ADD^vhLock("^KSPW(PRNr)") Quit:%TC  Hang 1
  Set Decimals=$$MUNT^vhRtn1(,4),R=TOENr
  For  Quit:'$D(^KSPW(PRNr,LevTW,R))  Set R=R+.1
Index: FLOWTOER.mac.rou
===================================================================
diff -u -r29059 -r46411
--- FLOWTOER.mac.rou	(.../FLOWTOER.mac.rou)	(revision 29059)
+++ FLOWTOER.mac.rou	(.../FLOWTOER.mac.rou)	(revision 46411)
@@ -226,8 +226,8 @@
  .Do ONE^BLHIST(PRNr,RDate,Receive,(CifPPL*Receive),("T;"_TOENr))
  .Do ##class(BL.Flow.RecuPak.Main).ToelevDO(LEVNr,PRNr,Receive,TOENr,TLUNr)
  Do ##class(BL.Legacy.EWRCPS2).RegistreerReceptieTijdstipIndienGelinktInOrder(TOENr, TLUNr)
- Do KWNODE^FLOWTOE(LEVNr,TOENr,TLLNr)
  Do ProductToeleveringLijnIngeboekt^EWRCPS2(LEVNr,TOENr,TLLNr)
+ Do KWNODE^FLOWTOE(LEVNr,TOENr,TLLNr)
  For  Do ADD^vhLock("^KSPW(PRNr)") Quit:%TC  Hang 1
  Set Decimals=$$MUNT^vhRtn1(,4),R=TOENr
  For  Quit:'$D(^KSPW(PRNr,LevTW,R))  Set R=R+.1