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>