Index: APPS/PM/Maatwerk/impl/VhConfigRepository.cls.xml
===================================================================
diff -u -r72870 -r72876
--- APPS/PM/Maatwerk/impl/VhConfigRepository.cls.xml	(.../VhConfigRepository.cls.xml)	(revision 72870)
+++ APPS/PM/Maatwerk/impl/VhConfigRepository.cls.xml	(.../VhConfigRepository.cls.xml)	(revision 72876)
@@ -1,26 +1,50 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.PM.Maatwerk.impl.VhConfigRepository">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Persistentie.impl.Repository</Super>
 
-<Method name="BestaatVhConfigVoorCID">
-<FormalSpec>CID:%String</FormalSpec>
-<Implementation><![CDATA[	Quit $Data(^VhConfigVoorCID(CID))
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>APPS.PM.Maatwerk.dto.MaatwerkConfiguratieData</Default>
+</Parameter>
+
+<Method name="SaveVhConfig">
+<FormalSpec>CID:%String,VhConfig:APPS.PM.Maatwerk.dto.VhConfig,IsTestData:%Boolean=0</FormalSpec>
+<Implementation><![CDATA[
+	Set MaatwerkConfiguratieData = ##class(APPS.PM.Maatwerk.dto.MaatwerkConfiguratieData).%New()
+	Set MaatwerkConfiguratieData.CID = CID
+	Set MaatwerkConfiguratieData.VhConfig = VhConfig
+	Set MaatwerkConfiguratieData.IsTestData = IsTestData
+	
+	Do MaatwerkConfiguratieData.Save()
 ]]></Implementation>
 </Method>
 
-<Method name="SaveVhConfig">
-<FormalSpec>CID:%String,VhConfig:%String</FormalSpec>
+<Method name="VerwijderTestData">
+<FormalSpec>OfferteID:%String</FormalSpec>
 <Implementation><![CDATA[
-	kill ^VhConfigVoorCID(CID)
-	Set ^VhConfigVoorCID(CID) = VhConfig
+	#dim SQLTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
+	#dim SqlStatement As TECH.String = "DELETE FROM " _SQLTableName _" WHERE (IsTestData = ?)"
+	#dim lbParams As %List = $LB($$$True)
+	
+	Do ..QueryAPI.ExecuteDynamicQuery(SqlStatement,lbParams)
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatVhConfigVoorCID">
+<FormalSpec>CID:%String,IsTestData:%Boolean=0</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..BestaatViaFilter("CID = ? AND IsTestData = ?", $LB(CID, IsTestData))
+]]></Implementation>
+</Method>
+
 <Method name="GeefVhConfig">
-<FormalSpec>CID:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ^VhConfigVoorCID(CID)
+<FormalSpec>CID:%String,IsTestData:%Boolean=0</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.VhConfig</ReturnType>
+<Implementation><![CDATA[
+	#dim MaatwerkConfiguratieData As APPS.PM.Maatwerk.dto.MaatwerkConfiguratieData = ..GeefViaFilter("CID = ? AND IsTestData = ?", $LB(CID, IsTestData))
+	
+	Quit MaatwerkConfiguratieData.VhConfig
 ]]></Implementation>
 </Method>
 </Class>