Index: FLOWTOE6.mac.rou
===================================================================
diff -u -r1134 -r2782
--- FLOWTOE6.mac.rou	(.../FLOWTOE6.mac.rou)	(revision 1134)
+++ FLOWTOE6.mac.rou	(.../FLOWTOE6.mac.rou)	(revision 2782)
@@ -24,6 +24,7 @@
  .Set OLUNr=$O(^ORD("IU",ORDNr,OLUNr),-1)+1,$P(R,D,15)=OLUNr,$P(R,D,28)=TLNr
  .Set ^KOD(KLNr,"F",ORDNr,OLNr)=R
  .Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr)
+ .Do ProductOrderLijnGemaakt^FLOWORD2(KLNr,ORDNr,OLNr)
  .Set R=^KTO(LEVNr,TOENr,TLNr),$P(R,D,28)=OLNr,^KTO(LEVNr,TOENr,TLNr)=R
  .Set SwapFrom=OLNr
  .For  Do  Quit:SwapTo'>ModOLNr
@@ -65,6 +66,7 @@
  .For I=9,10,16 Set:OldAant $P(R,D,I)=$P(R,D,I)/OldAant Set $P(R,D,I)=$J($P(R,D,I)*Aantal,0,2)
  .Set $P(R,D,3)=Aantal,^KOD(KLNr,"F",ORDNr,OLNr)=R
  .Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr)
+ .Do ProductOrderLijnGewijzigd^FLOWORD2(KLNr,ORDNr,OLNr,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
  Else  Do
  .Kill ^KOD(KLNr,"F",ORDNr,OLNr)
  .Do:$O(^KOD(KLNr,"F",ORDNr,100))="" DELOBJ^FLOWORD(ORDNr)