Index: vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Save/TestVereisteVelden.cls.xml
===================================================================
diff -u -r45934 -r45935
--- vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Save/TestVereisteVelden.cls.xml	(.../TestVereisteVelden.cls.xml)	(revision 45934)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Save/TestVereisteVelden.cls.xml	(.../TestVereisteVelden.cls.xml)	(revision 45935)
@@ -51,6 +51,17 @@
 	Do Product.Save()
 ]]></Implementation>
 </Method>
+
+<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 Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("SubGroep is vereist.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	
+	Do Product.Save()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml
===================================================================
diff -u -r45934 -r45935
--- vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml	(.../Test.cls.xml)	(revision 45934)
+++ vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml	(.../Test.cls.xml)	(revision 45935)
@@ -156,6 +156,19 @@
 	Do DataMProductMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: ZetSubGroep zet de SubGroep">
+<Implementation><![CDATA[
+	set DataMProductMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New()
+	#dim Product As DOM.PM.Product = ##class(DOM.PM.impl.ProductImpl).%New(..#ProductId,DataMProductMock)
+	
+	Do DataMProductMock.VerwachtMethodCall("ZetSubGroep","SubGroep").DanDoeNiks()
+	
+	Do Product.ZetSubGroep("SubGroep")
+	
+	Do DataMProductMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r45934 -r45935
--- vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45934)
+++ vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45935)
@@ -290,6 +290,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSubGroep">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("GeefSubGroep")
+]]></Implementation>
+</Method>
+
 <Method name="GeefTelbaar">
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTelbaar")
@@ -371,6 +376,12 @@
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetLeverancierId",LeverancierId)
 ]]></Implementation>
 </Method>
+
+<Method name="ZetSubGroep">
+<FormalSpec>SubGroep:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetSubGroep",SubGroep)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/PM/Product.cls.xml
===================================================================
diff -u -r45934 -r45935
--- vhTest/Mock/DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45934)
+++ vhTest/Mock/DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45935)
@@ -316,6 +316,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSubGroep">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefSubGroep")
+]]></Implementation>
+</Method>
+
 <Method name="GeefTelbaar">
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTelbaar")
@@ -417,6 +423,12 @@
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetLeverancierId",LeverancierId)
 ]]></Implementation>
 </Method>
+
+<Method name="ZetSubGroep">
+<FormalSpec>SubGroep:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetSubGroep",SubGroep)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml
===================================================================
diff -u -r45934 -r45935
--- vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 45934)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 45935)
@@ -43,7 +43,9 @@
 	Do Product.ZetLeverancierId("L||LeverancierId")
 	Do Product.ZetHoofdGroep("HoofdGroep")	
 	Do Product.ZetGroep("Groep")
+	Do Product.ZetSubGroep("SubGroep")
 	
+	Do $$$AssertEquals(Product.GeefSubGroep(),"SubGroep")
 	Do $$$AssertEquals(Product.GeefGroep(),"Groep")
 	Do $$$AssertEquals(Product.GeefHoofdGroep(),"HoofdGroep")
 	Do $$$AssertEquals(Product.GeefLeverancierID(),"L||LeverancierId")
Index: DOM/PM/Product.cls.xml
===================================================================
diff -u -r45934 -r45935
--- DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45934)
+++ DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45935)
@@ -321,6 +321,11 @@
 <ReturnType>%String</ReturnType>
 </Method>
 
+<Method name="GeefSubGroep">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
 <Method name="IsFysiekHetzelfdeProductAls">
 <Abstract>1</Abstract>
 <FormalSpec>AnderProductID:%String</FormalSpec>
@@ -352,6 +357,11 @@
 <FormalSpec>Groep:%String</FormalSpec>
 </Method>
 
+<Method name="ZetSubGroep">
+<Abstract>1</Abstract>
+<FormalSpec>SubGroep:%String</FormalSpec>
+</Method>
+
 <Method name="Save">
 <Abstract>1</Abstract>
 </Method>
Index: vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r45934 -r45935
--- vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45934)
+++ vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45935)
@@ -296,6 +296,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSubGroep">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="GeefTelbaar">
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[	Quit ""
@@ -378,6 +383,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetSubGroep">
+<FormalSpec>SubGroep:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="GeefMultiples">
 <FormalSpec>MultipleGroep:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r45934 -r45935
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45934)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45935)
@@ -571,6 +571,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSubGroep">
+<Implementation><![CDATA[	Quit ..DataI1.GeefPiece(3)
+]]></Implementation>
+</Method>
+
 <Method name="ZetIdentNr">
 <FormalSpec>IdentNr:%String</FormalSpec>
 <Implementation><![CDATA[	Do ..Data2.ZetPiece(25, IdentNr)
@@ -599,6 +604,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetSubGroep">
+<FormalSpec>SubGroep:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..DataI1.ZetPiece(3,SubGroep)
+]]></Implementation>
+</Method>
+
 <Method name="Data0Get">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
@@ -697,6 +708,7 @@
 	Do:'$Length(..GeefLeverancierID()) Messages.Insert("LeverancierId is vereist.")
 	Do:'$Length(..GeefHoofdGroep()) Messages.Insert("Hoofdgroep is vereist.")
 	Do:'$Length(..GeefGroep()) Messages.Insert("Groep is vereist.")
+	Do:'$Length(..GeefSubGroep()) Messages.Insert("SubGroep is vereist.")
 	
 	Do:Messages.Count() ##class(TECH.Exceptions.InvalidInputException).Throw(##class(TECH.ListUtils).ListToPieces(Messages,$$$CRLF))
 ]]></Implementation>
Index: DOM/PM/impl/ProductImpl.cls.xml
===================================================================
diff -u -r45934 -r45935
--- DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 45934)
+++ DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 45935)
@@ -536,6 +536,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSubGroep">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Product.GeefSubGroep()
+]]></Implementation>
+</Method>
+
 <Method name="ZetIdentNr">
 <FormalSpec>IdentNr:%String</FormalSpec>
 <Implementation><![CDATA[	Do ..Product.ZetIdentNr(IdentNr)
@@ -565,6 +571,12 @@
 <Implementation><![CDATA[	Do ..Product.ZetGroep(Groep)
 ]]></Implementation>
 </Method>
+
+<Method name="ZetSubGroep">
+<FormalSpec>SubGroep:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Product.ZetSubGroep(SubGroep)
+]]></Implementation>
+</Method>
 </Class>