Index: DOM/PM/Product.cls.xml
===================================================================
diff -u -r45959 -r45961
--- DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45959)
+++ DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45961)
@@ -372,6 +372,11 @@
 <FormalSpec>FSCHout:%String</FormalSpec>
 </Method>
 
+<Method name="ZetTelbaar">
+<Abstract>1</Abstract>
+<FormalSpec>Telbaar:TECH.String</FormalSpec>
+</Method>
+
 <Method name="Save">
 <Abstract>1</Abstract>
 </Method>
Index: DOM/PM/impl/ProductImpl.cls.xml
===================================================================
diff -u -r45959 -r45961
--- DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 45959)
+++ DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 45961)
@@ -589,6 +589,12 @@
 <Implementation><![CDATA[	Do ..Product.ZetFSCHout(FSCHout)
 ]]></Implementation>
 </Method>
+
+<Method name="ZetTelbaar">
+<FormalSpec>Telbaar:TECH.String</FormalSpec>
+<Implementation><![CDATA[	Do ..Product.ZetTelbaar(Telbaar)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r45959 -r45961
--- vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45959)
+++ vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45961)
@@ -388,6 +388,12 @@
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetSubGroep",SubGroep)
 ]]></Implementation>
 </Method>
+
+<Method name="ZetTelbaar">
+<FormalSpec>Telbaar:TECH.String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetTelbaar",Telbaar)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/PM/Product.cls.xml
===================================================================
diff -u -r45959 -r45961
--- vhTest/Mock/DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45959)
+++ vhTest/Mock/DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45961)
@@ -441,6 +441,12 @@
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetSubGroep",SubGroep)
 ]]></Implementation>
 </Method>
+
+<Method name="ZetTelbaar">
+<FormalSpec>Telbaar:TECH.String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetTelbaar",Telbaar)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r45959 -r45961
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45959)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45961)
@@ -632,6 +632,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetTelbaar">
+<FormalSpec>Telbaar:TECH.String</FormalSpec>
+<Implementation><![CDATA[	Do ..Data1.ZetPiece(7,Telbaar)
+]]></Implementation>
+</Method>
+
 <Method name="Data0Get">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
Index: vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml
===================================================================
diff -u -r45959 -r45961
--- vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml	(.../Test.cls.xml)	(revision 45959)
+++ vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml	(.../Test.cls.xml)	(revision 45961)
@@ -184,6 +184,19 @@
 	Do DataMProductMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: ZetTelbaar zet Telbaar">
+<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("ZetTelbaar","Telbaar").DanDoeNiks()
+	
+	Do Product.ZetTelbaar("Telbaar")
+	
+	Do DataMProductMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml
===================================================================
diff -u -r45959 -r45961
--- vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 45959)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 45961)
@@ -46,7 +46,9 @@
 	Do Product.ZetGroep("Groep")
 	Do Product.ZetSubGroep("SubGroep")
 	Do Product.ZetFSCHout("FSCHout")
+	Do Product.ZetTelbaar("Telbaar")
 	
+	Do $$$AssertEquals(Product.GeefTelbaar(),"Telbaar")
 	Do $$$AssertEquals(Product.GeefFSCHout(),"FSCHout")
 	Do $$$AssertEquals(Product.GeefSubGroep(),"SubGroep")
 	Do $$$AssertEquals(Product.GeefGroep(),"Groep")
Index: vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r45959 -r45961
--- vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45959)
+++ vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45961)
@@ -25,6 +25,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetTelbaar">
+<FormalSpec>Telbaar:TECH.String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="GeefAantalInGrootVerpakking">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit ""