Index: vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r47151 -r47498
--- vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 47151)
+++ vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 47498)
@@ -14,6 +14,18 @@
 <Type>%Integer</Type>
 </Property>
 
+<Method name="GeefKlasId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ZetKlasId">
+<FormalSpec>KlasId:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="GeefWerkvloerGrootteNetto">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ""
Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r47438 -r47498
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 47438)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 47498)
@@ -592,6 +592,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlasId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..DataI1.GeefPiece(4)
+]]></Implementation>
+</Method>
+
 <Method name="GeefFSCHout">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Data3.GeefPiece(5)
@@ -686,6 +692,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetKlasId">
+<FormalSpec>KlasId:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..DataI1.ZetPiece(4,KlasId)
+]]></Implementation>
+</Method>
+
 <Method name="ZetFSCHout">
 <FormalSpec>FSCHout:%String</FormalSpec>
 <Implementation><![CDATA[	Do ..Data3.ZetPiece(5,FSCHout)
Index: DOM/PM/Product.cls.xml
===================================================================
diff -u -r47151 -r47498
--- DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 47151)
+++ DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 47498)
@@ -326,6 +326,11 @@
 <ReturnType>%String</ReturnType>
 </Method>
 
+<Method name="GeefKlasId">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
 <Method name="GeefFSCHout">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
@@ -417,6 +422,11 @@
 <FormalSpec>SubGroep:%String</FormalSpec>
 </Method>
 
+<Method name="ZetKlasId">
+<Abstract>1</Abstract>
+<FormalSpec>KlasId:%String</FormalSpec>
+</Method>
+
 <Method name="ZetFSCHout">
 <Abstract>1</Abstract>
 <FormalSpec>FSCHout:%String</FormalSpec>
Index: DOM/PM/impl/ProductImpl.cls.xml
===================================================================
diff -u -r47151 -r47498
--- DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 47151)
+++ DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 47498)
@@ -542,6 +542,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlasId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Product.GeefKlasId()
+]]></Implementation>
+</Method>
+
 <Method name="GeefFSCHout">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Product.GeefFSCHout()
@@ -638,6 +644,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetKlasId">
+<FormalSpec>KlasId:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Product.ZetKlasId(KlasId)
+]]></Implementation>
+</Method>
+
 <Method name="ZetFSCHout">
 <FormalSpec>FSCHout:%String</FormalSpec>
 <Implementation><![CDATA[	Do ..Product.ZetFSCHout(FSCHout)
Index: vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r47151 -r47498
--- vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 47151)
+++ vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 47498)
@@ -194,6 +194,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlasId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKlasId")
+]]></Implementation>
+</Method>
+
 <Method name="GeefKortingsPercentageAankoop">
 <ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKortingsPercentageAankoop")
@@ -472,6 +478,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetKlasId">
+<FormalSpec>KlasId:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetKlasId",KlasId)
+]]></Implementation>
+</Method>
+
 <Method name="ZetKorttekst">
 <FormalSpec>Korttekst:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetKorttekst",Korttekst)