Index: EWPAL2.mac.rou
===================================================================
diff -u -r46124 -r48407
--- EWPAL2.mac.rou	(.../EWPAL2.mac.rou)	(revision 46124)
+++ EWPAL2.mac.rou	(.../EWPAL2.mac.rou)	(revision 48407)
@@ -79,11 +79,11 @@
  Set Qty=0
  Set TOENr=""
  Set IsWerkVl="\0\9\"[(D_$$OPSLZONE^PRODUKT2(MPRNr)_D)
- For  Set TOENr=$O(^TO("IP",MPRNr,TOENr)) Quit:TOENr=""  Do:$D(^RCP("IT",TOENr))
+ For  Set TOENr=$O(^TO("IP",MPRNr,TOENr)) Quit:TOENr=""  Do
  . Set LUNr=""
- . For  Set LUNr=$O(^TO("IP",MPRNr,TOENr,LUNr)) Quit:LUNr=""  Do:$D(^RCP("IT",TOENr,LUNr))
+ . For  Set LUNr=$O(^TO("IP",MPRNr,TOENr,LUNr)) Quit:LUNr=""  Do
  . . If IsWerkVl Do
- . . . Set LevNr=$P(^KTO1(TOENr),"\")
+ . . . Set LEVNr=$P(^KTO1(TOENr),"\")
  . . . Set TLNr=^TO("IP",MPRNr,TOENr,LUNr)
  . . . Set Rec=$G(^KTO(LEVNr,TOENr,TLNr))
  . . . Set Qty=Qty+$P(Rec,"\",3)