Index: DOM/PM/Product.cls.xml
===================================================================
diff -u -r35039 -r45761
--- DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 35039)
+++ DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45761)
@@ -316,6 +316,16 @@
 <FormalSpec>AnderProductID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 </Method>
+
+<Method name="ZetIdentNr">
+<Abstract>1</Abstract>
+<FormalSpec>IdentNr:%String</FormalSpec>
+</Method>
+
+<Method name="ZetKorttekst">
+<Abstract>1</Abstract>
+<FormalSpec>Korttekst:%String</FormalSpec>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml
===================================================================
diff -u -r45743 -r45761
--- vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml	(.../Test.cls.xml)	(revision 45743)
+++ vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml	(.../Test.cls.xml)	(revision 45761)
@@ -80,6 +80,30 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="Test: ZetKorttekst zet de korttekst">
+<Implementation><![CDATA[
+	#dim Product As DOM.PM.Product = ##class(DOM.PM.impl.ProductImpl).%New(..#ProductId)
+	
+	Do $$$AssertEquals(Product.GeefKorttekst(),"")
+	Do Product.ZetKorttekst("Korttekst")
+	Do $$$AssertEquals(Product.GeefKorttekst(),"Korttekst")
+	Do Product.ZetKorttekst("Korttekst2")
+	Do $$$AssertEquals(Product.GeefKorttekst(),"Korttekst2")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZetIdentNr zet het identnummer">
+<Implementation><![CDATA[
+	#dim Product As DOM.PM.Product = ##class(DOM.PM.impl.ProductImpl).%New(..#ProductId)
+	
+	Do $$$AssertEquals(Product.GeefIdentNr(),"")
+	Do Product.ZetIdentNr("IdentNummer")
+	Do $$$AssertEquals(Product.GeefIdentNr(),"IdentNummer")
+	Do Product.ZetIdentNr("IdentNummer2")
+	Do $$$AssertEquals(Product.GeefIdentNr(),"IdentNummer2")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r45758 -r45761
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45758)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45761)
@@ -529,6 +529,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetIdentNr">
+<FormalSpec>IdentNr:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Data2.ZetPiece(25, IdentNr)
+]]></Implementation>
+</Method>
+
+<Method name="ZetKorttekst">
+<FormalSpec>Korttekst:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Data0.ZetPiece(1, Korttekst)
+]]></Implementation>
+</Method>
+
 <Method name="Data0Get">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
Index: DOM/PM/impl/ProductImpl.cls.xml
===================================================================
diff -u -r45740 -r45761
--- DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 45740)
+++ DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 45761)
@@ -512,9 +512,21 @@
 
 <Method name="GeefOpeningDatum">
 <ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[	quit ..Product.GeefOpeningDatum()
+<Implementation><![CDATA[	Quit ..Product.GeefOpeningDatum()
 ]]></Implementation>
 </Method>
+
+<Method name="ZetIdentNr">
+<FormalSpec>IdentNr:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Product.ZetIdentNr(IdentNr)
+]]></Implementation>
+</Method>
+
+<Method name="ZetKorttekst">
+<FormalSpec>Korttekst:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Product.ZetKorttekst(Korttekst)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/PM/Product.cls.xml
===================================================================
diff -u -r35039 -r45761
--- vhTest/Mock/DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 35039)
+++ vhTest/Mock/DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 45761)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.DOM.PM.Product">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Product,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
@@ -371,6 +370,18 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("IsStockOverKinderen")
 ]]></Implementation>
 </Method>
+
+<Method name="ZetIdentNr">
+<FormalSpec>IdentNr:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetIdentNr",IdentNr)
+]]></Implementation>
+</Method>
+
+<Method name="ZetKorttekst">
+<FormalSpec>Korttekst:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetKorttekst",Korttekst)
+]]></Implementation>
+</Method>
 </Class>