Index: EWPAL2.mac.rou
===================================================================
diff -u -r49067 -r49068
--- EWPAL2.mac.rou	(.../EWPAL2.mac.rou)	(revision 49067)
+++ EWPAL2.mac.rou	(.../EWPAL2.mac.rou)	(revision 49068)
@@ -82,7 +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())
+ . . Quit:LEVNr=##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().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)