Index: APPS/VKP/Maatwerk/ConfiguratorService.cls.xml
===================================================================
diff -u -r2004 -r2008
--- APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 2004)
+++ APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 2008)
@@ -140,6 +140,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKenmerkenViaNaam">
+<FormalSpec>Pad:APPS.VKP.Maatwerk.dto.Pad,Naam:%String,GevraagdeVersie:%Integer</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set DtoToPadVisitor = ##class(APPS.VKP.Maatwerk.impl.DtoToPadVisitor).%New()
+	Do Pad.Accept(DtoToPadVisitor)
+	Set PadImpl = DtoToPadVisitor.GeefPad()
+	If ('PadImpl.HeeftBewaardeKenmerken(Naam))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Er zijn geen kenmerken opgeslagen in dit pad onder de naam "_Naam))
+	}
+	Set BewaardeKenmerken = PadImpl.GeefBewaardeKenmerken(Naam)
+	Set IngegevenKenmerken = ##class(APPS.PM.Maatwerk.IngegevenKenmUpgrade).GeefIngegevenKenmerkenVersie(BewaardeKenmerken.GeefIngegevenKenmerken(), GevraagdeVersie)
+	
+	Set KenmerkNaarDtoVisitor = ##class(APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor).%New()
+	Do IngegevenKenmerken.Accept(KenmerkNaarDtoVisitor)
+	
+	Quit KenmerkNaarDtoVisitor.GeefIngegevenKenmerken()
+]]></Implementation>
+</Method>
+
 <Method name="GeefParameters">
 <FormalSpec>ParameterID:%String</FormalSpec>
 <ReturnType>APPS.VKP.Maatwerk.dto.ConfiguratorParameters</ReturnType>