Index: FLOWTOER.mac.rou
===================================================================
diff -u -r1079 -r2782
--- FLOWTOER.mac.rou	(.../FLOWTOER.mac.rou)	(revision 1079)
+++ FLOWTOER.mac.rou	(.../FLOWTOER.mac.rou)	(revision 2782)
@@ -262,6 +262,7 @@
  .Set $P(Rec,D,3)=Receive,$P(Rec,D,27,28)="\KOM"
  .Set ^KOD(KLNr,"F",ORDNr,OLNr)=Rec
  .Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr)
+ .Do ProductOrderLijnGewijzigd^FLOWORD2(KLNr,ORDNr,OLNr,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
  .Do:ASAP ASAP^EWTOE(ORDNr)
  .Set OLUNr=$P(Rec,D,15)
  .If LEVNr=$$$LevHalux Do:OLUNr MergeOLUNrs^FLOWORD6(ORDNr,OLUNr)
@@ -286,6 +287,7 @@
  ..Set $P(Rec,D,3)=BackOrd,$P(Rec,D,15)="",$P(Rec,D,27,28)=TOENr_D_TLLNr
  ..Set ^KOD(KLNr,"F",ORDNr,OLNr)=Rec
  ..Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr)
+ ..Do ProductOrderLijnGemaakt^FLOWORD2(KLNr,ORDNr,OLNr)
  ..If $D(^KTOK(LEVNr,TOENr,TLLNr)) Set $P(^KTOK(LEVNr,TOENr,TLLNr),D,5)=OLNr
  ..Set Rec=^KTO(LEVNr,TOENr,TLLNr)
  ..New r Set r=$P(Rec,D,28),$P(r,";")=OLNr,$P(Rec,D,28)=r