Index: DOM/AKP/Toelevering.cls.xml
===================================================================
diff -u -r51342 -r58778
--- DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 51342)
+++ DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 58778)
@@ -182,6 +182,21 @@
 <FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="GeefProductieGroepen">
+<Abstract>1</Abstract>
+<ReturnType>%ListOfDataTypes</ReturnType>
+</Method>
+
+<Method name="ZetProductieGroepen">
+<Abstract>1</Abstract>
+<FormalSpec>ProductieGroepen:%ListOfDataTypes</FormalSpec>
+</Method>
+
+<Method name="ZetProductieGroepenEnSave">
+<Abstract>1</Abstract>
+<FormalSpec>ProductieGroepen:%ListOfDataTypes</FormalSpec>
+</Method>
 </Class>
 
 
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)
Index: vhTest/Mock/DOM/AKP/Toelevering.cls.xml
===================================================================
diff -u -r51342 -r58778
--- vhTest/Mock/DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 51342)
+++ vhTest/Mock/DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 58778)
@@ -93,6 +93,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductieGroepen">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefProductieGroepen")
+]]></Implementation>
+</Method>
+
 <Method name="GeefReferentie">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefReferentie")
@@ -182,6 +188,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetProductieGroepen">
+<FormalSpec>ProductieGroepen:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetProductieGroepen",ProductieGroepen)
+]]></Implementation>
+</Method>
+
+<Method name="ZetProductieGroepenEnSave">
+<FormalSpec>ProductieGroepen:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetProductieGroepenEnSave",ProductieGroepen)
+]]></Implementation>
+</Method>
+
 <Method name="ZetReferentie">
 <FormalSpec>Referentie:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetReferentie",Referentie)