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