Index: FLOWHALUX.mac.rou
===================================================================
diff -u -r1134 -r2782
--- FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 1134)
+++ FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 2782)
@@ -185,6 +185,7 @@
  . . Do KWNODE^FLOWORD(KLNr,ORDNr,OLNr)
  . . Set $P(OrdRec,D,25)=BeloofdeWeek,^KOD(KLNr,"F",ORDNr,OLNr)=OrdRec,TOENr=$P(OrdRec,D,27),TLNr=$P(OrdRec,D,28)
  . . Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr)
+ . . Do ProductOrderLijnGewijzigd^FLOWORD2(KLNr,ORDNr,OLNr,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
  . . Quit:'TOENr  Quit:'TLNr
  . . Set LEVNr=$P(^KTO1(TOENr),D),ToeRec=^KTO(LEVNr,TOENr,1),ProductieTijdstip=$P(ToeRec,D,19)
  . . Quit:ProductieTijdstip=""