Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r47910 -r48000
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 47910)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 48000)
@@ -6,6 +6,11 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject,TECH.Mockable</Super>
 
+<Parameter name="JohanB">
+<Type>%String</Type>
+<Default>1009</Default>
+</Parameter>
+
 <Property name="Data0">
 <Type>TECH.Persistentie.GlobalNode</Type>
 <Private>1</Private>
@@ -925,13 +930,18 @@
 <Implementation><![CDATA[
 	Set Messages = ##class(%ListOfDataTypes).%New()
 	
-	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.")
-	Do:'$Length(..GeefGroep()) Messages.Insert("Groep is vereist.")
-	Do:'$Length(..GeefSubGroep()) Messages.Insert("Subgroep is vereist.")
-	
+	Do:$$$Not($Length(..GeefLeverancierID())) Messages.Insert("LeverancierId is vereist.")
+	Do:$$$Not($Length(..GeefIdentNr())) Messages.Insert("IdentNr is vereist.")
+	Do:$$$Not($Length(..GeefKorttekst())) Messages.Insert("Korttekst is vereist.")
+	Do:$$$Not($Length(..GeefHoofdGroep())) Messages.Insert("Hoofdgroep is vereist.")
+	Do:$$$Not($Length(..GeefGroep())) Messages.Insert("Groep is vereist.")
+	Do:$$$Not($Length(..GeefSubGroep())) Messages.Insert("Subgroep is vereist.")
+ 	
+	If $Length(..GeefLeverancierID()) {
+		Set Validator = ##class(DOM.PM.Product.impl.IdentNummerValidatorFactory).%New().GeefIdentNummerValidator(..GeefLeverancierID())
+		Do:$$$Not(Validator.IsGeldigIdentNummer(..GeefIdentNr(),..#JohanB)) Messages.Insert("Identnummer '"_ ..GeefIdentNr()_"' is niet geldig voor leverancier '"_..GeefLeverancierID()_"'.")
+	}
+ 	
 	Do:Messages.Count() ##class(TECH.Exceptions.InvalidInputException).Throw(##class(TECH.ListUtils).ListToPieces(Messages,$$$CRLF))
 ]]></Implementation>
 </Method>