Index: FLOWORD6.mac.rou
===================================================================
diff -u -r1079 -r2782
--- FLOWORD6.mac.rou	(.../FLOWORD6.mac.rou)	(revision 1079)
+++ FLOWORD6.mac.rou	(.../FLOWORD6.mac.rou)	(revision 2782)
@@ -15,6 +15,7 @@
  Set OLNr=^KOD(KLNr,"F",ORDNr,0),^KOD(KLNr,"F",ORDNr,0)=OLNr+1
  Set ^KOD(KLNr,"F",ORDNr,OLNr)=R,TOENr=$P(R,D,27),(TLNr,ModTLNr)=$P(R,D,28)
  Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr)
+ Do ProductOrderLijnGemaakt^FLOWORD2(KLNr,ORDNr,OLNr)
  If TOENr Do
  .Set LEVNr=$P(^KTO1(TOENr),D),R=^KTO(LEVNr,TOENr,TLNr),Aantal=$P(R,D,3)
  .For I=9,10,16 Set:Aantal $P(R,D,I)=$P(R,D,I)/Aantal Set $P(R,D,I)=$J($P(R,D,I)*BOQty,0,2)
@@ -47,6 +48,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:Aantal'=OldAant ProductOrderLijnGewijzigd^FLOWORD2(KLNr,ORDNr,OLNr,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
  Do:TOENr MODTAANT(,TOENr,TLNr,Aantal)
  Do:$L(LevWk) MODLEVWK(KLNr,ORDNr,OLNr,LevWk)
  Quit
@@ -67,6 +69,7 @@
  Do KWNODE^FLOWORD(KLNr,ORDNr,OLNr)
  Set R=^KOD(KLNr,"F",ORDNr,OLNr),$P(R,D,25)=LevWk,^KOD(KLNr,"F",ORDNr,OLNr)=R
  Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr)
+ Do ProductOrderLijnGewijzigd^FLOWORD2(KLNr,ORDNr,OLNr,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
  Quit
  ;
 SPLITOLN(KLNr,ORDNr,OLNr,Aantal,LevWk,SplitAll,ReturnLocal)