Index: PRODUKT4.mac.rou
===================================================================
diff -u -r45452 -r48688
--- PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 45452)
+++ PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 48688)
@@ -136,7 +136,7 @@
  . . Set:FabrTyp="K" FaktorK=FaktorK+Aantal
  . Set TOENr=""
  . For  Set TOENr=$O(^TO("IP",MPRNr,TOENr)) Quit:TOENr=""  Do
- . . Set LEVNr=$E($O(^KPR(MPRNr,"J")),2,99)
+ . . Set LEVNr=^KTO1(TOENr)
  . . Quit:LEVNr=""
  . . Set TLUNr=""
  . . For  Set TLUNr=$O(^TO("IP",MPRNr,TOENr,TLUNr)) Quit:TLUNr=""  Do
@@ -523,4 +523,3 @@
  .Set StockUpd=$P(R,D,14)'["S" Set:StockUpd StockUpd=$P(R,D,14)'["Z"
  Quit StockUpd
  ;
-