Index: APPS/EC/impl/ConfiguratorService/ConfiguratorServiceTemplate.cls.xml
===================================================================
diff -u -r31192 -r31268
--- APPS/EC/impl/ConfiguratorService/ConfiguratorServiceTemplate.cls.xml	(.../ConfiguratorServiceTemplate.cls.xml)	(revision 31192)
+++ APPS/EC/impl/ConfiguratorService/ConfiguratorServiceTemplate.cls.xml	(.../ConfiguratorServiceTemplate.cls.xml)	(revision 31268)
@@ -19,15 +19,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DefaultsToepasserRepository">
+<Type>APPS.EC.impl.ConfiguratorService.DefaultsToepasserRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>KenmerkMogelijkhedenMeerdereIKenPostProcessor:APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenMeerdereIKenPostProcessor="",MaatwerkConfiguratorService:APPS.VKP.Maatwerk.ConfiguratorService=""</FormalSpec>
+<FormalSpec>KenmerkMogelijkhedenMeerdereIKenPostProcessor:APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenMeerdereIKenPostProcessor="",MaatwerkConfiguratorService:APPS.VKP.Maatwerk.ConfiguratorService="",DefaultsToepasserRepository:APPS.EC.impl.ConfiguratorService.DefaultsToepasserRepository=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..KenmerkMogelijkhedenMeerdereIKenPostProcessor = $$$Implementation(KenmerkMogelijkhedenMeerdereIKenPostProcessor, ##class(APPS.EC.impl.ConfiguratorService.KenmerkMogelijkhedenMeerdereIKenPostProcessor).%New())
 	Set ..MaatwerkConfiguratorService = $$$Implementation(MaatwerkConfiguratorService, ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefMaatwerkConfiguratorService())
+	set ..DefaultsToepasserRepository = $$$Implementation(DefaultsToepasserRepository, ##class(APPS.EC.impl.ConfiguratorService.DefaultsToepasserRepository).%New())
 	Set ..IsActiefValidator = ..GeefIsActiefValidator()
 	
 	Quit $$$OK
@@ -167,7 +173,7 @@
 	
 	#Dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaatwerkConfiguratorService.GeefIngegevenKenmerkenVanDto(LegeIngegevenKenmerken)
 	#Dim VisitorsAccepteerder As TECH.Visitor.impl.VisitorsAccepteerder = ..GeefVisitorAccepteerder()
-	#Dim DefaultsToepassers As %ListOfObjects = ..GeefDefaultsToepassers(Winkelkar,Pad)
+	#dim DefaultsToepassers As %ListOfObjects = ..DefaultsToepasserRepository.GeefDefaultsToepassers(Winkelkar, Pad)
 
 	Do VisitorsAccepteerder.Accepteer(IngegevenKenmerken,DefaultsToepassers)
 
@@ -192,36 +198,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDefaultsToepassers">
-<FormalSpec>Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar,Pad:APPS.VKP.Maatwerk.dto.TemplateExternPad</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<ReturnTypeParams>ELEMENTTYPE="APPS.PM.Maatwerk.MaatwerkDefaultsToepasser"</ReturnTypeParams>
-<Implementation><![CDATA[
-	Set DefaultsToepassers=##class(%ListOfObjects).%New()
-	Do:$IsObject(Winkelkar) DefaultsToepassers.Insert(..GeefMaatwerkDefaultsViaWinkelkarToepasser(Winkelkar))
-	
-	Do DefaultsToepassers.Insert(##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaGebruikerToepasser).%New(Pad))
-	Do DefaultsToepassers.Insert(##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaProductProgrammaToepasser).%New())
-	Do DefaultsToepassers.Insert(##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaConfiguratieToepasser).%New())
-	
-	Quit DefaultsToepassers
-]]></Implementation>
-</Method>
-
-<Method name="GeefMaatwerkDefaultsViaWinkelkarToepasser">
-<FormalSpec>Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaWinkelkarToepasser</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.PM.Maatwerk.impl.MaatwerkDefaultsViaWinkelkarToepasser).%New(Winkelkar)
-]]></Implementation>
-</Method>
-
 <Method name="BewaarIngegevenKenmerken">
 <FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Naam:%String="Defaults",Pad:APPS.VKP.Maatwerk.dto.TemplateExternPad</FormalSpec>
 <Implementation><![CDATA[
 	#Define Overschrijf 1
-
 	#Dim GebruikerID As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerID()
 	
 	Do ..MaatwerkConfiguratorService.BewaarIngegevenKenmerken(GebruikerID, IngegevenKenmerken, Pad, Naam, $$$Overschrijf)