Index: vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml
===================================================================
diff -u -r46214 -r48000
--- vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 46214)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 48000)
@@ -132,7 +132,7 @@
 	#dim EventRaiserSpy As vhTest.Spy.TECH.PubSub.EventRaiser = ##class(vhTest.Spy.TECH.PubSub.EventRaiser).PushedInstance()
 	
  	Set Product = ##class(DOM.PM.impl.DataM.DataMProduct).%New(..#ProductId)
- 	Do Product.ZetIdentNr("IdentNummer")
+ 	Do Product.ZetIdentNr("8.321.654.9")
 	Do Product.ZetKorttekst("Korttekst")
 	Do Product.ZetLeverancierId("L||LeverancierId")
 	Do Product.ZetHoofdGroep("HoofdGroep")	
@@ -152,6 +152,24 @@
  	do $$$AssertEquals(NieuwGesavedProduct.GeefKorttekst(),"Korttekst")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Ongeldig Ident nummer smijt fout">
+<Implementation><![CDATA[
+	Set Product = ##class(DOM.PM.impl.DataM.DataMProduct).%New(..#ProductId)
+	
+	Do Product.ZetIdentNr("IdentNummer")
+	Do Product.ZetKorttekst("Korttekst")
+	Do Product.ZetLeverancierId("L||1234")
+	Do Product.ZetHoofdGroep("HoofdGroep")	
+	Do Product.ZetGroep("Groep")
+	Do Product.ZetSubGroep("SubGroep")
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("IdentNummer' is niet geldig voor leverancier 'L||1234'.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+
+	Do Product.Save()
+]]></Implementation>
+</Method>
 </Class>
 
 
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>