Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r45761 -r45918
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45761)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45918)
@@ -4,7 +4,7 @@
 <ClassType/>
 <IncludeCode>BL.Kenm.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.RegisteredObject,TECH.Mockable</Super>
 
 <Property name="Data0">
 <Type>TECH.Persistentie.GlobalNode</Type>
@@ -41,12 +41,22 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IdentNr">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="IsNieuwProduct">
 <Type>%Boolean</Type>
 <InitialExpression>1</InitialExpression>
 <Private>1</Private>
 </Property>
 
+<Property name="Korttekst">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ProductNummer">
 <Type>%Integer</Type>
 <Private>1</Private>
@@ -94,6 +104,10 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Save">
+<ReturnType>%Status</ReturnType>
+</Method>
+
 <Method name="IsNieuwProduct">
 <Implementation><![CDATA[	Quit ..IsNieuwProduct
 ]]></Implementation>
@@ -531,13 +545,20 @@
 
 <Method name="ZetIdentNr">
 <FormalSpec>IdentNr:%String</FormalSpec>
-<Implementation><![CDATA[	Do ..Data2.ZetPiece(25, IdentNr)
+<Implementation><![CDATA[
+	Set ..IdentNr = IdentNr
+	Do ..Data2.ZetPiece(25, IdentNr)
 ]]></Implementation>
 </Method>
 
 <Method name="ZetKorttekst">
 <FormalSpec>Korttekst:%String</FormalSpec>
-<Implementation><![CDATA[	Do ..Data0.ZetPiece(1, Korttekst)
+<Implementation><![CDATA[
+	If ($Length(Korttekst) > 25) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Maximum toegelaten aantal karakters is 25. De ingegeven tekst is "_$Length(Korttekst)_" lang.")
+	}
+	Set ..Korttekst = Korttekst
+	Do ..Data0.ZetPiece(1, Korttekst)
 ]]></Implementation>
 </Method>