Index: APPS/PM/Maatwerk/impl/VhConfigRepository.cls.xml
===================================================================
diff -u -r72881 -r75030
--- APPS/PM/Maatwerk/impl/VhConfigRepository.cls.xml	(.../VhConfigRepository.cls.xml)	(revision 72881)
+++ APPS/PM/Maatwerk/impl/VhConfigRepository.cls.xml	(.../VhConfigRepository.cls.xml)	(revision 75030)
@@ -9,19 +9,43 @@
 </Parameter>
 
 <Method name="SaveVhConfig">
-<FormalSpec>CID:%String,VhConfig:APPS.PM.Maatwerk.dto.VhConfig,IsTestData:%Boolean=0</FormalSpec>
+<FormalSpec>CID:%String,VhConfig:APPS.PM.Maatwerk.dto.VhConfig,ProductHash:%String,IsTestData:%Boolean=0,InventTransId:%String="",AdminProductNr:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	Set MaatwerkConfiguratieData = ##class(APPS.PM.Maatwerk.dto.MaatwerkConfiguratieData).%New()
+	Set MaatwerkConfiguratieData.AdminProductNr = AdminProductNr
 	Set MaatwerkConfiguratieData.CID = CID
+	Set MaatwerkConfiguratieData.InventTransId = InventTransId
 	Set MaatwerkConfiguratieData.VhConfig = VhConfig
+	Set MaatwerkConfiguratieData.ProductHash = ProductHash
 	Set MaatwerkConfiguratieData.IsTestData = IsTestData
 	
 	Do MaatwerkConfiguratieData.Save()
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderCID">
+<FormalSpec>CID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim SQLTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
+	#dim SqlStatement As TECH.String = "DELETE FROM " _SQLTableName _" WHERE (CID = ?)"
+	#dim lbParams As %List = $LB(CID)
+	
+	Do ..QueryAPI.ExecuteDynamicQuery(SqlStatement,lbParams)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderInventTransId">
+<FormalSpec>InventTransId:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim SQLTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
+	#dim SqlStatement As TECH.String = "DELETE FROM " _SQLTableName _" WHERE (InventTransId = ?)"
+	#dim lbParams As %List = $LB(InventTransId)
+	
+	Do ..QueryAPI.ExecuteDynamicQuery(SqlStatement,lbParams)
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderTestData">
-<FormalSpec>OfferteID:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim SQLTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
 	#dim SqlStatement As TECH.String = "DELETE FROM " _SQLTableName _" WHERE (IsTestData = ?)"
@@ -38,6 +62,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatVhConfigVoorInventTransId">
+<FormalSpec>InventTransId:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..BestaatViaFilter("InventTransId = ?", $LB(InventTransId))
+]]></Implementation>
+</Method>
+
 <Method name="GeefVhConfig">
 <FormalSpec>CID:%String,IsTestData:%Boolean=0</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.dto.VhConfig</ReturnType>
@@ -47,6 +78,26 @@
 	Quit MaatwerkConfiguratieData.VhConfig
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAdminProductNrVoorInventTransId">
+<FormalSpec>InventTransId:%String</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.VhConfig</ReturnType>
+<Implementation><![CDATA[
+	#dim MaatwerkConfiguratieData As APPS.PM.Maatwerk.dto.MaatwerkConfiguratieData = ..GeefViaFilter("InventTransId = ?", $LB(InventTransId))
+	
+	Quit MaatwerkConfiguratieData.AdminProductNr
+]]></Implementation>
+</Method>
+
+<Method name="GeefAdminProductNrVoorCID">
+<FormalSpec>CID:%String</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.VhConfig</ReturnType>
+<Implementation><![CDATA[
+	#dim MaatwerkConfiguratieData As APPS.PM.Maatwerk.dto.MaatwerkConfiguratieData = ..GeefViaFilter("CID = ?", $LB(CID))
+	
+	Quit MaatwerkConfiguratieData.AdminProductNr
+]]></Implementation>
+</Method>
 </Class>