Index: EWPAL2.mac.rou
===================================================================
diff -u -r48455 -r49067
--- EWPAL2.mac.rou	(.../EWPAL2.mac.rou)	(revision 48455)
+++ EWPAL2.mac.rou	(.../EWPAL2.mac.rou)	(revision 49067)
@@ -82,6 +82,7 @@
  . Set LUNr=""
  . For  Set LUNr=$O(^TO("IP",MPRNr,TOENr,LUNr)) Quit:LUNr=""  Do
  . . Set LEVNr=$P(^KTO1(TOENr),"\")
+ . . Quit:LEVNr=##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefLeverancierNummerVoorPartijID(##class(DOM.AKP.enu.Leverancier).Halux())
  . . Set TLNr=^TO("IP",MPRNr,TOENr,LUNr)
  . . Set Rec=$G(^KTO(LEVNr,TOENr,TLNr))
  . . Set Qty=Qty+$P(Rec,"\",3)