Index: WS/Config/ConfigService.cls.xml
===================================================================
diff -u
--- WS/Config/ConfigService.cls.xml	(revision 0)
+++ WS/Config/ConfigService.cls.xml	(revision 1740)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="WS.Config.ConfigService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.WebService</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="SERVICENAME">
+<Default>Planningstool</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/Config</Default>
+</Parameter>
+
+<Method name="GeefConfigItems">
+<ReturnType>TECH.Config.dto.ConfigItems</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigService).%New().GeefConfigItems()
+]]></Implementation>
+</Method>
+
+<Method name="ZetConfigItem">
+<FormalSpec>Sleutel:%String,Omgeving:%String,Waarde:%String</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Set ConfigItem = ##class(TECH.Config.ConfigItem).%OpenId(Omgeving||Sleutel)
+	If ('$IsObject(ConfigItem))
+	{
+		Set ConfigItem = ##class(TECH.Config.ConfigItem).%New()
+	}
+	Set ConfigItem.Sleutel = Sleutel
+	Set ConfigItem.Omgeving = Omgeving
+	Set ConfigItem.Waarde = Waarde
+	
+	Set Status = ConfigItem.%Save()
+	
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),"Het configitem("_Sleutel_","_Omgeving_","_Waarde_") kon niet worden opgeslagen",Status))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderSleutel">
+<FormalSpec>Sleutel:%String</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Do ##class(TECH.Config.ConfigMgr).%New().WisSleutel(Sleutel)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Config/dto/ConfigItems.cls.xml
===================================================================
diff -u
--- TECH/Config/dto/ConfigItems.cls.xml	(revision 0)
+++ TECH/Config/dto/ConfigItems.cls.xml	(revision 1740)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Config.dto.ConfigItems">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Lijst">
+<Type>TECH.Config.dto.ConfigItem</Type>
+<Collection>list</Collection>
+</Property>
+</Class>
+</Export>
Index: TECH/Config/ConfigService.cls.xml
===================================================================
diff -u
--- TECH/Config/ConfigService.cls.xml	(revision 0)
+++ TECH/Config/ConfigService.cls.xml	(revision 1740)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Config.ConfigService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefConfigItems">
+<ReturnType>TECH.Config.dto.ConfigItems</ReturnType>
+<Implementation><![CDATA[
+	Set ConfigItems = ##class(TECH.Config.dto.ConfigItems).%New()
+	
+	Set ResultSetConfigItem = ##class(%ResultSet).%New()
+	Do ResultSetConfigItem.Prepare("SELECT ID FROM TECH_Config.ConfigItem WHERE Sleutel = ?")
+	
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT Distinct Sleutel FROM TECH_Config.ConfigItem")
+	Do ResultSet.Execute()
+	While (ResultSet.Next())
+	{
+		Set Sleutel = ResultSet.Data("Sleutel")
+		
+		Set ConfigItem = ##class(TECH.Config.dto.ConfigItem).%New()
+		Set ConfigItem.Sleutel = Sleutel
+		
+		Do ResultSetConfigItem.Execute(Sleutel)
+		While (ResultSetConfigItem.Next())
+		{
+			Set TechConfigItem = ##class(TECH.Config.ConfigItem).%OpenId(ResultSetConfigItem.Data("ID"))
+			Set ConfigItemWaarde = ##class(TECH.Config.dto.ConfigWaarde).%New()
+			Set ConfigItemWaarde.Omgeving = TechConfigItem.Omgeving
+			Set ConfigItemWaarde.Waarde = TechConfigItem.Waarde
+			
+			Do ConfigItem.Waarden.Insert(ConfigItemWaarde)
+		}
+		
+		Do ConfigItems.Lijst.Insert(ConfigItem)
+	}
+	
+	Quit ConfigItems
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Config/dto/ConfigWaarde.cls.xml
===================================================================
diff -u
--- TECH/Config/dto/ConfigWaarde.cls.xml	(revision 0)
+++ TECH/Config/dto/ConfigWaarde.cls.xml	(revision 1740)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Config.dto.ConfigWaarde">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Omgeving">
+<Type>%String</Type>
+</Property>
+
+<Property name="Waarde">
+<Type>%String</Type>
+</Property>
+</Class>
+</Export>
Index: CSC ConfiguratorService.prj.xml
===================================================================
diff -u -r1733 -r1740
--- CSC ConfiguratorService.prj.xml	(.../CSC ConfiguratorService.prj.xml)	(revision 1733)
+++ CSC ConfiguratorService.prj.xml	(.../CSC ConfiguratorService.prj.xml)	(revision 1740)
@@ -1,7 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC ConfiguratorService" LastModified="2011-08-03 08:23:20">
+<Project name="CSC ConfiguratorService" LastModified="2011-08-03 12:57:31">
   <Items>
+    <ProjectItem name="APPS.PM.dto.Kenm.AutoVariantenVanMaster" type="CLS"/>
+    <ProjectItem name="APPS.PM.dto.Kenm.AutoVariantenVanMasters" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.ConfiguratorService" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.dto.ConfiguratorParameters" type="CLS"/>
     <ProjectItem name="APPS.VKP.Maatwerk.dto.ProductToevoegenParameters" type="CLS"/>
Index: TECH/Config/dto/ConfigItem.cls.xml
===================================================================
diff -u
--- TECH/Config/dto/ConfigItem.cls.xml	(revision 0)
+++ TECH/Config/dto/ConfigItem.cls.xml	(revision 1740)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Config.dto.ConfigItem">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Sleutel">
+<Type>%String</Type>
+</Property>
+
+<Property name="Waarden">
+<Type>TECH.Config.dto.ConfigWaarde</Type>
+<Collection>list</Collection>
+</Property>
+</Class>
+</Export>