Index: FLOWORD6.mac.rou
===================================================================
diff -u -r33262 -r43053
--- FLOWORD6.mac.rou	(.../FLOWORD6.mac.rou)	(revision 33262)
+++ FLOWORD6.mac.rou	(.../FLOWORD6.mac.rou)	(revision 43053)
@@ -2,7 +2,7 @@
  ;
 BACKORD(KLNr,ORDNr,OLNr,BOQty,RestQty,LevWk,ReturnLocal) 
  ; RestQty is optioneel
- New R,ModAant,Aantal,OLUNr,LEVNr,TOENr,TLNr,ModTLNr,TLUNr,ModOLNr,SwapFrom,SwapTo,PakFact
+ New R,ModAant,Aantal,OLUNr,LEVNr,TOENr,TLNr,ModTLNr,TLUNr,ModOLNr,SwapFrom,SwapTo,PakFact,I
  Set ModAant=$G(RestQty),LevWk=$G(LevWk),ModOLNr=OLNr
  Set R=^KOD(KLNr,"F",ORDNr,OLNr),$P(R,D,23)=$P(R,D,3),^KOD(KLNr,"F",ORDNr,OLNr)=R
  Set Aantal=$P(R,D,3),$P(R,D,23)="",PakFact=$P(R,D,36)
@@ -56,7 +56,7 @@
 	Quit OLUNr
  ;
 MODAANT(KLNr,ORDNr,OLNr,Aantal,LevWk) 
- New R,OldAant,TOENr,TLNr
+ New R,OldAant,TOENr,TLNr,I
  Set LevWk=$G(LevWk) Set:'$G(KLNr) KLNr=$P(^KO1(ORDNr,"F"),D)
  Do KWNODE^FLOWORD(KLNr,ORDNr,OLNr)
  Set R=^KOD(KLNr,"F",ORDNr,OLNr),OldAant=$P(R,D,3),TOENr=$P(R,D,27),TLNr=$P(R,D,28)
@@ -71,7 +71,7 @@
  Quit
  ;
 MODTAANT(LEVNr,TOENr,TLNr,Aantal) 
- New R,OldAant
+ New R,OldAant,I
  Set:'$G(LEVNr) LEVNr=$P(^KTO1(TOENr),D)
  Do KWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
  Set R=^KTO(LEVNr,TOENr,TLNr),OldAant=$P(R,D,3)