Index: FLOWTOER.mac.rou
===================================================================
diff -u -r3289 -r3500
--- FLOWTOER.mac.rou	(.../FLOWTOER.mac.rou)	(revision 3289)
+++ FLOWTOER.mac.rou	(.../FLOWTOER.mac.rou)	(revision 3500)
@@ -243,6 +243,7 @@
  .Do ONE^BLHIST(PRNr,RDate,Receive,(CifPPL*Receive),("T;"_TOENr))
  .Do ##class(BL.Flow.RecuPak.Main).ToelevDO(LEVNr,PRNr,Receive,TOENr,TLUNr)
  Do KWNODE^FLOWTOE(LEVNr,TOENr,TLLNr)
+ Do ProductToeleveringLijnIngeboekt^EWRCPS2(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
@@ -273,10 +274,10 @@
  .Set $P(Rec,D,9)=$J(($P(Rec,D,9)/$P(Rec,D,3)*BackOrd),0,2)
  .Set $P(Rec,D,10)=$J(($P(Rec,D,10)/$P(Rec,D,3)*BackOrd),0,2)
  .Set $P(Rec,D,16)=$J(($P(Rec,D,16)/$P(Rec,D,3)*BackOrd),0,2)
- .Set $P(Rec,D,3)=BackOrd
+ .Set $P(Rec,D,3)=BackOrd,$P(Rec,D,15)=$P(Rec,D,15)+1
  .Set ^KTO(LEVNr,TOENr,TLLNr)=Rec
  .Do SWNODE^FLOWTOE(LEVNr,TOENr,TLLNr)
- .Do ProductToeleveringLijnGewijzigd^FLOWTOE2(LEVNr,TOENr,TLLNr,##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Aantal())
+ .Do ProductToeleveringLijnGemaakt^FLOWTOE2(LEVNr,TOENr,TLLNr)
  .If ORDNr Do
  ..Quit:'$D(^KO1(ORDNr,"F"))
  ..For  Do ADD^vhLock("^KOD(KLNr,""F"",ORDNr)") Quit:%TC  Do LDISP^vhLock("^KOD(KLNr,""F"",ORDNr)","Order "_ORDNr)