Index: KPRIJS.mac.rou
===================================================================
diff -u -r46546 -r47276
--- KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 46546)
+++ KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 47276)
@@ -203,6 +203,7 @@
  Set R=PPL_D_PrMunt_D_$S(EenhAank=1:"E",EenhAank=100:"H",EenhAank=1000:"M",1:"")_D_EenhAank
  Set R=R_D_%Korting_D_CifPPL_D_FaMunt_D_GrOrde_D_GrOrdNum_D_%Cif_D_DB_D_%DB_D_Vork_D_%Vork_D_LijstPr
  Set R=R_D_KatPrInd_D_KatPrHan_D_KatPrKs_D_LEVNr_D_CorFakt
+ Set R=##class(AXimpl.Admin.Context).Instance().GeefSalesPriceService().ModifyPrijsGeg(KLNr,PRNr,R)
  Quit R
  
 GETPROD(PRNr,NoSa,SimPPL) ; Ophalen productgegevens
@@ -449,4 +450,3 @@
  . Set J=$O(^KPR(PRNr,"J")),R=^(J),PPL=$P(R,D,19)
  . Set:+PPL=+SchaduwPPL SchaduwPPL=""
  Quit SchaduwPPL
-