Index: FLOWORD4.mac.rou
===================================================================
diff -u -r2589 -r2782
--- FLOWORD4.mac.rou	(.../FLOWORD4.mac.rou)	(revision 2589)
+++ FLOWORD4.mac.rou	(.../FLOWORD4.mac.rou)	(revision 2782)
@@ -155,6 +155,7 @@
  . Set:$P(OrdRec,D,29)="" $P(OrdRec,D,29)=$P(OrdRec,D,25)
  . Set $P(OrdRec,D,25)=OrdLevWk,^KOD(KLNr,"F",ORDNr,OLNr)=OrdRec
  . Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr)
+ . Do ProductOrderLijnGewijzigd^FLOWORD2(KLNr,ORDNr,OLNr,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
  Quit
  ;
  ; Order onder rembours, afgehandeld en gewijzigd
@@ -517,6 +518,7 @@
 	Do KWNODE^FLOWORD(KLNr,ORDNr,OLNr)
 	Set $P(^KOD(KLNr,"F",ORDNr,OLNr),D,25)=LeverDatum
 	Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr)
+	Do ProductOrderLijnGewijzigd^FLOWORD2(KLNr,ORDNr,OLNr,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
 	Quit
  
 	;---------------------------------------------------------------------
@@ -774,4 +776,5 @@
 	. Set:$L($G(LCORRTekst)) $P(OrdRec,D,50)=LCORRTekst
 	. Set ^KOD(KLNr,"F",ORDNr,OLNr)=OrdRec
 	. Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr)
+	. Do ProductOrderLijnGewijzigd^FLOWORD2(KLNr,ORDNr,OLNr,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
 	Quit
\ No newline at end of file