Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r46980 -r46998
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 46980)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 46998)
@@ -639,6 +639,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefWerkvloerEenheid">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Data15.GeefPiece(9)
+]]></Implementation>
+</Method>
+
 <Method name="ZetIdentNr">
 <FormalSpec>IdentNr:%String</FormalSpec>
 <Implementation><![CDATA[	Do ..Data2.ZetPiece(25, IdentNr)
@@ -763,6 +769,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetWerkvloerEenheid">
+<FormalSpec>WerkvloerEenheid:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Data15.ZetPiece(9,WerkvloerEenheid)
+]]></Implementation>
+</Method>
+
 <Method name="Data0Get">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>