Index: APPS/PM/Maatwerk/impl/VhConfigRepository.cls.xml
===================================================================
diff -u -r73889 -r75019
--- APPS/PM/Maatwerk/impl/VhConfigRepository.cls.xml	(.../VhConfigRepository.cls.xml)	(revision 73889)
+++ APPS/PM/Maatwerk/impl/VhConfigRepository.cls.xml	(.../VhConfigRepository.cls.xml)	(revision 75019)
@@ -9,10 +9,12 @@
 </Parameter>
 
 <Method name="SaveVhConfig">
-<FormalSpec>CID:%String,VhConfig:APPS.PM.Maatwerk.dto.VhConfig,ProductHash:%String,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
@@ -32,6 +34,17 @@
 ]]></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">
 <Implementation><![CDATA[
 	#dim SQLTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
@@ -49,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>
@@ -58,6 +78,16 @@
 	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>
 </Class>