Index: PRODUKT4.mac.rou
===================================================================
diff -u -r48692 -r48696
--- PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 48692)
+++ PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 48696)
@@ -108,7 +108,7 @@
  . . Set:FabrTyp="K" FaktorK=FaktorK+Aantal
  . Set TOENr=""
  . For  Set TOENr=$O(^TO("IP",MPRNr,TOENr)) Quit:TOENr=""  Do
- . . Set LEVNr=^KTO1(TOENr)
+ . . Set LEVNr=$P(^KTO1(TOENr),"\",1)
  . . Quit:(LEVNr="")||(LEVNr=$$$LevVanHoecke)
  . . Set TLUNr=""
  . . For  Set TLUNr=$O(^TO("IP",MPRNr,TOENr,TLUNr)) Quit:TLUNr=""  Do