Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r46998 -r47079
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 46998)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 47079)
@@ -268,7 +268,6 @@
 		}
 		Set Key = $Order(^PRBS(Node,..ProductNummer,Key))
 	}
-	
 	Quit BouwsteenLijst
 ]]></Implementation>
 </Method>
@@ -870,7 +869,7 @@
 <Implementation><![CDATA[
 	Set Messages = ##class(%ListOfDataTypes).%New()
 	
-	Do:'$Length(..GeefKorttekst()) Messages.Insert("IdentNr is vereist.")
+	Do:'$Length(..GeefIdentNr()) Messages.Insert("IdentNr is vereist.")
 	Do:'$Length(..GeefKorttekst()) Messages.Insert("Korttekst is vereist.")
 	Do:'$Length(..GeefLeverancierID()) Messages.Insert("LeverancierId is vereist.")
 	Do:'$Length(..GeefHoofdGroep()) Messages.Insert("Hoofdgroep is vereist.")
Index: vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Save/TestVereisteVelden.cls.xml
===================================================================
diff -u -r45942 -r47079
--- vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Save/TestVereisteVelden.cls.xml	(.../TestVereisteVelden.cls.xml)	(revision 45942)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Save/TestVereisteVelden.cls.xml	(.../TestVereisteVelden.cls.xml)	(revision 47079)
@@ -10,7 +10,7 @@
 
 <Method name="Test: Het IdentNr is vereist om een product te kunnen saven">
 <Implementation><![CDATA[
-	Set Product = ##class(DOM.PM.impl.DataM.DataMProduct).%New(..#ProductId)
+	#dim Product as DOM.PM.impl.DataM.DataMProduct = ..GeefProduct("","Korttekst","Hoofdgroep","Groep","Subgroep","L||5005")
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("IdentNr is vereist.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
@@ -21,7 +21,7 @@
 
 <Method name="Test: De Korttekst is vereist om een product te kunnen saven">
 <Implementation><![CDATA[
-	Set Product = ##class(DOM.PM.impl.DataM.DataMProduct).%New(..#ProductId)
+	#dim Product as DOM.PM.impl.DataM.DataMProduct = ..GeefProduct("IdentNummer","","Hoofdgroep","Groep","Subgroep","L||5005")
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Korttekst is vereist.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
@@ -32,7 +32,7 @@
 
 <Method name="Test: Het LeverancierId is vereist om een product te kunnen saven">
 <Implementation><![CDATA[
-	Set Product = ##class(DOM.PM.impl.DataM.DataMProduct).%New(..#ProductId)
+	#dim Product as DOM.PM.impl.DataM.DataMProduct = ..GeefProduct("IdentNummer","Korttekst","HoofdGroep","Groep","Subgroep","")
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("LeverancierId is vereist.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
@@ -43,7 +43,7 @@
 
 <Method name="Test: De HoofdGroep is vereist om een product te kunnen saven">
 <Implementation><![CDATA[
-	Set Product = ##class(DOM.PM.impl.DataM.DataMProduct).%New(..#ProductId)
+	#dim Product as DOM.PM.impl.DataM.DataMProduct = ..GeefProduct("IdentNummer","Korttekst","","Groep","Subgroep","L||5005")
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Hoofdgroep is vereist.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
@@ -54,7 +54,7 @@
 
 <Method name="Test: De Groep is vereist om een product te kunnen saven">
 <Implementation><![CDATA[
-	Set Product = ##class(DOM.PM.impl.DataM.DataMProduct).%New(..#ProductId)
+	#dim Product as DOM.PM.impl.DataM.DataMProduct = ..GeefProduct("IdentNummer","Korttekst","Hoofdgroep","","Subgroep","L||5005")
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Groep is vereist.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
@@ -65,14 +65,31 @@
 
 <Method name="Test: De SubGroep is vereist om een product te kunnen saven">
 <Implementation><![CDATA[
-	Set Product = ##class(DOM.PM.impl.DataM.DataMProduct).%New(..#ProductId)
+	#dim Product as DOM.PM.impl.DataM.DataMProduct = ..GeefProduct("IdentNummer","Korttekst","Hoofdgroep","Groep","","L||5005")
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Subgroep is vereist.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
 	
 	Do Product.Save()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefProduct">
+<FormalSpec>IdentNummer:%String,Korttekst:%String,Hoofdgroep:%String,Groep:%String,Subgroep:%String,LeverancierId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.impl.DataM.DataMProduct</ReturnType>
+<Implementation><![CDATA[
+	Set Product = ##class(DOM.PM.impl.DataM.DataMProduct).%New(..#ProductId)
+	Do:$Length(IdentNummer) Product.ZetIdentNr(IdentNummer)
+	Do:$Length(Korttekst) Product.ZetKorttekst(Korttekst)
+	Do:$Length(Hoofdgroep) Product.ZetHoofdGroep(Hoofdgroep)
+	Do:$Length(Groep) Product.ZetGroep(Groep)
+	Do:$Length(Subgroep) Product.ZetSubGroep(Subgroep)
+	Do:$Length(LeverancierId) Product.ZetLeverancierId(LeverancierId)
+
+	Quit Product
+]]></Implementation>
+</Method>
 </Class>