Index: FLOWHALUX.mac.rou
===================================================================
diff -u -r948 -r1079
--- FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 948)
+++ FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 1079)
@@ -4,7 +4,7 @@
  ;opm : blVerzendWije en blLeveringsTermijn moeten geinitieerd zijn
  ;Voor alle HALUX toeleveringen waarmee het order gekoppeld wordt
 SetDueOutProductieORD(ORDNr,Forced)
- New CacheTOENr,OLNr,R
+ New CacheTOENr,OLNr,R,KLNr,PRNr,TOENr
  Set KLNr=$P(^KO1(ORDNr,"F"),D)
  Set CacheTOENr=""
  Set OLNr=100
@@ -19,6 +19,7 @@
  ;opm : blVerzendWije en blLeveringsTermijn moeten geinitieerd zijn
  ;Invullen van de vroegste DueOutTime van een toelevering
 SetDueOutProductieTOELEV(TOENr,Forced)
+ New LevNr,VroegsteDueOut
  Set LevNr=$P(^KTO1(TOENr),D)
  Quit:LevNr'=$$$LevHalux
  Quit:'$G(Forced)&&($P(^KTO(LevNr,TOENr,1),D,19)) ; reeds ingevuld
@@ -29,6 +30,7 @@
  ;opm : blVerzendWije en blLeveringsTermijn moeten geinitieerd zijn
  ;berekend de vroegste DueOutTime van een toelevering
 GetDueOutProductieTOELEV(LevNr,TOENr) 
+ New VroegsteDueOut,TLNr,ToeRec,PRNr,ToeLevWk,ORDNr,OLNr,LeverDatum,KLNr,DueOut
  Quit:LevNr'=$$$LevHalux ""
  Set VroegsteDueOut=""
  Set TLNr=100