Index: FLOWHALUX.mac.rou
===================================================================
diff -u -r1079 -r1134
--- FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 1079)
+++ FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 1134)
@@ -101,6 +101,7 @@
  . Do REMOVE^vhLock("^KTO(LEVNr,TOENr)")
  . Do:'$G(ViaToelevering) ^KF12
  . //Do:'$$LeverDatumOk(ORDNr,ProductieGroep) RecalcLeverweken(ORDNr,$G(ViaToelevering))
+ . Do RecalcLeverwekenToelevering(TOENr,$G(ViaToelevering))
  Do REMOVE^vhLock("^KOD(KLNr,""F"",ORDNr)")
  Quit
  
@@ -196,6 +197,28 @@
  Do:$G(ViaToelevering) WL^PROC
  Quit
  ;
+ ; Controle leverweken toelevering met productiedatum, eventueel met aanpassing
+RecalcLeverwekenToelevering(TOENr,ViaToelevering)
+ New R,LEVNr,ToeRec,ProductieTijdstip
+ Set LEVNr=$P(^KTO1(TOENr),D),ToeRec=^KTO(LEVNr,TOENr,1),ProductieTijdstip=$P(ToeRec,D,19)
+ Do:ProductieTijdstip
+ . New TLNr,ProductieWeek,PRNr,ProdKey,LeverWeken
+ . Set ProductieWeek=$$EXTDATE^vhDTyp(ProductieTijdstip,"DW"),TLNr=100
+ . For  Set TLNr=$O(^KTO(LEVNr,TOENr,TLNr)) Quit:TLNr=""  Do
+ . . Set ToeRec=^KTO(LEVNr,TOENr,TLNr),PRNr=$P(ToeRec,D,2)
+ . . Quit:'PRNr
+ . . Set ProdKey=##class(Prod.Product).%OpenId(PRNr,0)
+ . . Do:ProdKey.GenerischeRoutine
+ . . . Set ProdKey=##class(Prod.ProductPrijs).%OpenId(PRNr,0)
+ . . . Set LeverWeken=ProdKey.LeveringsTermijn
+ . . . Quit:LeverWeken
+ . . . Quit:$P(ToeRec,D,25)=ProductieWeek
+ . . . Do KWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
+ . . . Set $P(ToeRec,D,25)=ProductieWeek,^KTO(LEVNr,TOENr,TLNr)=ToeRec
+ . . . Do SWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
+ Do:$G(ViaToelevering) WL^PROC
+ Quit
+ ;
  ; Controle van de gelinkte toelevering
 CheckProductieToelevering(TOENr)
  New R,ORNr