Index: PRODUKT4.mac.rou
===================================================================
diff -u -r948 -r1079
--- PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 948)
+++ PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 1079)
@@ -1,3 +1,4 @@
+#include BL.Derde.LevSpecifiek
 PRODUKT4 ;VOORRAAD [ 10/29/2003  11:06 AM ]
  ;
 DYNSTOCK(PRNr,Type,Week) 
@@ -138,8 +139,10 @@
  . . For  Set TLUNr=$O(^TO("IP",MPRNr,TOENr,TLUNr)) Quit:TLUNr=""  Do
  . . . Set TLNr=^TO("IP",MPRNr,TOENr,TLUNr)
  . . . Set TLRec=^KTO(LEVNr,TOENr,TLNr)
- . . . Set WK=$P(TLRec,D,25)
- . . . If Week Quit:$$INTDATE^vhDTyp(WK,"DW")>Week  ; LeverWeek ligt verder in de toekomst
+ . . . If Week Do  Quit:WK>Week  ; LeverWeek ligt verder in de toekomst
+ . . . . Set WK=$S(LEVNr=$$$LevHalux:$P(^KTO(LEVNr,TOENr,1),"\",19),1:"") ; via dueouttime
+ . . . . Set:'WK WK=$$INTDATE^vhDTyp($P(TLRec,D,25),"DW") ; via leverweek
+ . . . . ;Write:io=1015 MPRNr," ",TOENr," ",WK," ",$P(TLRec,D,3),!
  . . . If FaktorH Do ; Als er geen KOM-link is, dus product is reeds gefabriceerd en de halffabr reeds in mindering gebracht
  . . . . Set Aantal=$P(TLRec,D,3)*(FaktorH)
  . . . . Set TotaalH=TotaalH+Aantal