Index: FLOWHALUX.mac.rou
===================================================================
diff -u -r3289 -r3482
--- FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 3289)
+++ FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 3482)
@@ -24,9 +24,21 @@
  Quit:LevNr'=$$$LevHalux
  Quit:'$G(Forced)&&($P(^KTO(LevNr,TOENr,1),D,19)) ; reeds ingevuld
  Set VroegsteDueOut=$$GetDueOutProductieTOELEV(LevNr,TOENr)
- Set $P(^KTO(LevNr,TOENr,1),D,19)=VroegsteDueOut
+ Do PutDueOutProductieTOELEV(LevNr,TOENr,VroegsteDueOut)
  Quit
  
+  ; Invullen van het fabricatietijdstip in de toelevering
+PutDueOutProductieTOELEV(LEVNr,TOENr,DueOutProductie)
+ New TLNr,OldDueOutProductie,WijzigingType
+ Set OldDueOutProductie=$P(^KTO(LEVNr,TOENr,1),D,19)
+ Set $P(^KTO(LEVNr,TOENr,1),D,19)=DueOutProductie
+ Do:DueOutProductie'=OldDueOutProductie  ; Indien niet gelijk, dan event voor alle lijnen
+ . Set WijzigingType=##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Leverdatum()
+ . Set TLNr=100
+ . For  Set TLNr=$O(^KTO(LEVNr,TOENr,TLNr)) Quit:'TLNr  Do
+ . . Do:$P(^KTO(LEVNr,TOENr,TLNr),D,2) ProductToeleveringLijnGewijzigd^FLOWTOE2(LEVNr,TOENr,TLNr,WijzigingType)
+ Quit
+ 
  ;opm : blVerzendWije en blLeveringsTermijn moeten geinitieerd zijn
  ;berekend de vroegste DueOutTime van een toelevering
 GetDueOutProductieTOELEV(LevNr,TOENr) 
@@ -97,7 +109,8 @@
  . ; Opslaan in de toelevering
  . Set LEVNr=$P(^KTO1(TOENr),D)
  . For  Do ADD^vhLock("^KTO(LEVNr,TOENr)") Quit:%TC  D LDISP^vhLock("^KTO(LEVNr,TOENr)","Toelevering "_TOENr)
- . Set ToeRec=^KTO(LEVNr,TOENr,1),$P(ToeRec,D,19)=$P(sFL(1),D,3),^KTO(LEVNr,TOENr,1)=ToeRec,TOENr(TOENr)=""
+ . Set TOENr(TOENr)=""
+ . Do PutDueOutProductieTOELEV(LEVNr,TOENr,$P(sFL(1),D,3))
  . Do REMOVE^vhLock("^KTO(LEVNr,TOENr)")
  . Do:'$G(ViaToelevering) ^KF12
  . //Do:'$$LeverDatumOk(ORDNr,ProductieGroep) RecalcLeverweken(ORDNr,$G(ViaToelevering))