Index: vhTest/Fake/AXimpl/Admin/VKP/SalesPriceService.cls.xml
===================================================================
diff -u
--- vhTest/Fake/AXimpl/Admin/VKP/SalesPriceService.cls.xml	(revision 0)
+++ vhTest/Fake/AXimpl/Admin/VKP/SalesPriceService.cls.xml	(revision 47276)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.AXimpl.Admin.VKP.SalesPriceService">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.Admin.VKP.SalesPriceService</Super>
+
+<Method name="GeefPrijs">
+<FormalSpec>KlantNummer:%String,ProductNummer:%String,CifPPL:%String</FormalSpec>
+<ReturnType>AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ModifyPrijsGeg">
+<FormalSpec>KlantNummer:%String,ProductNummer:%String,Record:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/AXimpl/Admin/VKP/SalesPriceService.cls.xml
===================================================================
diff -u
--- vhTest/Mock/AXimpl/Admin/VKP/SalesPriceService.cls.xml	(revision 0)
+++ vhTest/Mock/AXimpl/Admin/VKP/SalesPriceService.cls.xml	(revision 47276)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.AXimpl.Admin.VKP.SalesPriceService">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.Admin.VKP.SalesPriceService,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefPrijs">
+<FormalSpec>KlantNummer:%String,ProductNummer:%String,CifPPL:%String</FormalSpec>
+<ReturnType>AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPrijs",KlantNummer,ProductNummer,CifPPL)
+]]></Implementation>
+</Method>
+
+<Method name="ModifyPrijsGeg">
+<FormalSpec>KlantNummer:%String,ProductNummer:%String,Record:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ModifyPrijsGeg",KlantNummer,ProductNummer,Record)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Admin/VKP/SalesPriceService.cls.xml
===================================================================
diff -u -r46497 -r47276
--- AXimpl/Admin/VKP/SalesPriceService.cls.xml	(.../SalesPriceService.cls.xml)	(revision 46497)
+++ AXimpl/Admin/VKP/SalesPriceService.cls.xml	(.../SalesPriceService.cls.xml)	(revision 47276)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="AXimpl.Admin.VKP.SalesPriceService">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="MessageManager">
 <Type>AXimpl.MessageManager</Type>
@@ -33,6 +33,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ModifyPrijsGeg">
+<FormalSpec>KlantNummer:%String,ProductNummer:%String,Record:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit Record
+]]></Implementation>
+</Method>
+
 <Method name="GeefPrijs">
 <FormalSpec>KlantNummer:%String,ProductNummer:%String,CifPPL:%String</FormalSpec>
 <ReturnType>AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC</ReturnType>
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
-