Index: FLOWTOE3.mac.rou
===================================================================
diff -u -r32598 -r33292
--- FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 32598)
+++ FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 33292)
@@ -322,7 +322,7 @@
  Quit
  ;
 BUILDEDI(EDIORDNr,FBRef) 
- New EDIKLNr,ToeRef,BINr,Next
+ New EDIKLNr,ToeRef,BINr,Next,LEVNr,PRNr,R
  Set EDIKLNr="",BINr=$P(EDIORDNr,".")
  For  Set EDIKLNr=$O(^MBLOG("EDI",EDIKLNr)) Quit:EDIKLNr=""  Quit:$D(^MBLOG("EDI",EDIKLNr,BINr,EDIORDNr))
  Do:EDIKLNr
@@ -409,7 +409,7 @@
  Quit
  ;
 DELIU(LEVNr,TOENr,TLNr) 
- New R,OneLev,OneToe,OneLine,TLUNr
+ New R,OneLev,OneToe,OneLine,TLUNr,PRNr
  Set LEVNr=$G(LEVNr,0),TOENr=$G(TOENr),TLNr=$G(TLNr)
  Set (OneLev,OneToe,OneLine)=0
  Set:LEVNr OneLev=1 Set:TOENr OneToe=1 Set:TLNr OneLine=1
@@ -573,7 +573,7 @@
  ;    + extra splits toegevoegd .. Baliko , Dekaply --> per kleur..
  ;    + extra split KAD & TBX
 SplitHaluxProd(TOENr,NTLNr)
- New R,LEVNr,TLNr,NTOENr,LCount
+ New R,LEVNr,TLNr,NTOENr,LCount, TLUNr,PRNr
  New arSplit,SortKey,LastSortKey
  new Toelevering, KlantID,Product,ProductAPI
  new ProductieService set ProductieService = ##class(APPS.Halux.common.ProductieService).%New()