Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r48000 -r48031
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 48000)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 48031)
@@ -834,6 +834,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDummyVeldOm1NodeTeBewaren">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Data1.GeefPiece(26)
+]]></Implementation>
+</Method>
+
+<Method name="ZetDummyVeldOm1NodeTeBewaren">
+<FormalSpec>Waarde:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Data1.ZetPiece(26,Waarde)
+]]></Implementation>
+</Method>
+
 <Method name="Data0Get">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
@@ -936,10 +948,11 @@
 	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()_"'.")
+		If $$$Not(Validator.IsGeldigIdentNummer(..GeefIdentNr(),..#JohanB)){
+			 Do Messages.Insert("Identnummer '"_ ..GeefIdentNr()_"' is niet geldig voor leverancier '"_..GeefLeverancierID()_"'.")
+		}		
 	}
  	
 	Do:Messages.Count() ##class(TECH.Exceptions.InvalidInputException).Throw(##class(TECH.ListUtils).ListToPieces(Messages,$$$CRLF))