Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r46998 -r47079
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 46998)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 47079)
@@ -268,7 +268,6 @@
 		}
 		Set Key = $Order(^PRBS(Node,..ProductNummer,Key))
 	}
-	
 	Quit BouwsteenLijst
 ]]></Implementation>
 </Method>
@@ -870,7 +869,7 @@
 <Implementation><![CDATA[
 	Set Messages = ##class(%ListOfDataTypes).%New()
 	
-	Do:'$Length(..GeefKorttekst()) Messages.Insert("IdentNr is vereist.")
+	Do:'$Length(..GeefIdentNr()) Messages.Insert("IdentNr is vereist.")
 	Do:'$Length(..GeefKorttekst()) Messages.Insert("Korttekst is vereist.")
 	Do:'$Length(..GeefLeverancierID()) Messages.Insert("LeverancierId is vereist.")
 	Do:'$Length(..GeefHoofdGroep()) Messages.Insert("Hoofdgroep is vereist.")