Index: FLOWHALUX.mac.rou
===================================================================
diff -u -r2782 -r3289
--- FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 2782)
+++ FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 3289)
@@ -194,6 +194,7 @@
  . . Do KWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
  . . Set $P(ToeRec,D,25)=ProductieWeek,^KTO(LEVNr,TOENr,TLNr)=ToeRec
  . . Do SWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
+ . . Do ProductToeleveringLijnGewijzigd^FLOWTOE2(LEVNr,TOENr,TLNr,##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Leverdatum())
  . Kill ProdKey,Modify
  Do:$G(ViaToelevering) WL^PROC
  Quit
@@ -217,6 +218,7 @@
  . . . Do KWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
  . . . Set $P(ToeRec,D,25)=ProductieWeek,^KTO(LEVNr,TOENr,TLNr)=ToeRec
  . . . Do SWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
+ . . . Do ProductToeleveringLijnGewijzigd^FLOWTOE2(LEVNr,TOENr,TLNr,##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Leverdatum())
  Do:$G(ViaToelevering) WL^PROC
  Quit
  ;