Index: DOM/AKP/impl/DataM/DataMToelevering.cls.xml
===================================================================
diff -u -r57053 -r58778
--- DOM/AKP/impl/DataM/DataMToelevering.cls.xml	(.../DataMToelevering.cls.xml)	(revision 57053)
+++ DOM/AKP/impl/DataM/DataMToelevering.cls.xml	(.../DataMToelevering.cls.xml)	(revision 58778)
@@ -106,6 +106,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductieGroepen">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductieGroepen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	If $$$HasLength(..HoofdingData.GeefPiece(28)) {
+		Set ProductieGroepen = ##class(TECH.ListUtils).PiecesToList(..HoofdingData.GeefPiece(28), "#")
+	}
+	Quit ProductieGroepen
+]]></Implementation>
+</Method>
+
+<Method name="ZetProductieGroepen">
+<FormalSpec>ProductieGroepen:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[	Do ..HoofdingData.ZetPiece(28,##class(TECH.ListUtils).ListToPieces(ProductieGroepen, "#"))
+]]></Implementation>
+</Method>
+
+<Method name="ZetProductieGroepenEnSave">
+<FormalSpec>ProductieGroepen:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ZetProductieGroepen(ProductieGroepen)
+	Do ..HoofdingData.Save()
+]]></Implementation>
+</Method>
+
 <Method name="GeefDueOutTime">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..HoofdingData.GeefPiece(19)