Index: APPS/EC/Winkelkar/impl/AdviesPrijsInstellenOpWinkelkar.cls.xml
===================================================================
diff -u -r29059 -r32679
--- APPS/EC/Winkelkar/impl/AdviesPrijsInstellenOpWinkelkar.cls.xml	(.../AdviesPrijsInstellenOpWinkelkar.cls.xml)	(revision 29059)
+++ APPS/EC/Winkelkar/impl/AdviesPrijsInstellenOpWinkelkar.cls.xml	(.../AdviesPrijsInstellenOpWinkelkar.cls.xml)	(revision 32679)
@@ -14,6 +14,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MaatwerkAPI">
+<Type>APPS.PM.MaatwerkAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopPrijsBepaler">
+<Type>APPS.EC.VerkoopPrijsBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
 <Private>1</Private>
@@ -22,6 +32,8 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..KlantID = KlantID
+	Set ..MaatwerkAPI = ##class(APPS.ApplicatieContext).Instance().GeefMaatwerkAPI()
+	Set ..VerkoopPrijsBepaler = ##class(APPS.EC.impl.VerkoopPrijsBepaler).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -43,13 +55,11 @@
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..KlantID
 	#dim KlantIDVoorPrijsBerekening As DOM.common.PartijID = ..GeefKlantIDVoorPrijsBerekening()
 	
-	#dim MaatwerkAPI As APPS.PM.MaatwerkAPI = ##class(APPS.ApplicatieContext).Instance().GeefMaatwerkAPI()
-	#dim IngegevenKenmerkenConverter As APPS.PM.Maatwerk.IngegevenKenmerkenConverter = MaatwerkAPI.GeefIngegevenKenmerkenConverter()
+	#dim IngegevenKenmerkenConverter As APPS.PM.Maatwerk.IngegevenKenmerkenConverter = ..MaatwerkAPI.GeefIngegevenKenmerkenConverter()
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = IngegevenKenmerkenConverter.NaarObject(MaatwerkLijn.IngegevenKenmerken)
 	
-	Set VerkoopPrijsBepaler = ##class(APPS.EC.impl.VerkoopPrijsBepaler).%New()
 	#dim PersonalityID As DOM.common.enu.Personality = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
-	#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = VerkoopPrijsBepaler.BepaalVerkoopPrijs(IngegevenKenmerken, MaatwerkLijn.Aantal, PersonalityID, KlantID)
+	#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = ..VerkoopPrijsBepaler.BepaalVerkoopPrijs(IngegevenKenmerken, MaatwerkLijn.Aantal, PersonalityID, KlantID)
 	#dim EenheidAdviesPrijs As %Decimal
 	
 	If KlantIDVoorPrijsBerekening = ##class(DOM.VKP.enu.Klant).Hein(){
Index: APPS/EC/Winkelkar/WinkelkarVisitor.cls.xml
===================================================================
diff -u -r29059 -r32679
--- APPS/EC/Winkelkar/WinkelkarVisitor.cls.xml	(.../WinkelkarVisitor.cls.xml)	(revision 29059)
+++ APPS/EC/Winkelkar/WinkelkarVisitor.cls.xml	(.../WinkelkarVisitor.cls.xml)	(revision 32679)
@@ -3,7 +3,7 @@
 <Class name="APPS.EC.Winkelkar.WinkelkarVisitor">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="VerwerkGroepLijn">
 <Final>1</Final>