Index: vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r47784 -r48031
--- vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 47784)
+++ vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 48031)
@@ -14,12 +14,24 @@
 <Type>%Integer</Type>
 </Property>
 
+<Method name="GeefDummyVeldOm1NodeTeBewaren">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="ZetActiefStatus">
 <FormalSpec>ActiefStatus:DOM.PM.enu.ActiefStatus</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
 
+<Method name="ZetDummyVeldOm1NodeTeBewaren">
+<FormalSpec>Waarde:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="ZetLinkType">
 <FormalSpec>LinkType:%String</FormalSpec>
 <Implementation><![CDATA[
Index: DOM/PM/Product.cls.xml
===================================================================
diff -u -r47784 -r48031
--- DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 47784)
+++ DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 48031)
@@ -517,6 +517,16 @@
 <FormalSpec>LinkType:DOM.PM.enu.LinkType</FormalSpec>
 </Method>
 
+<Method name="GeefDummyVeldOm1NodeTeBewaren">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="ZetDummyVeldOm1NodeTeBewaren">
+<Abstract>1</Abstract>
+<FormalSpec>Waarde:%String</FormalSpec>
+</Method>
+
 <Method name="Save">
 <Abstract>1</Abstract>
 </Method>
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))
Index: DOM/PM/impl/ProductImpl.cls.xml
===================================================================
diff -u -r47905 -r48031
--- DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 47905)
+++ DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 48031)
@@ -757,6 +757,18 @@
 <Implementation><![CDATA[	Do ..Product.ZetLinkType(LinkType)
 ]]></Implementation>
 </Method>
+
+<Method name="ZetDummyVeldOm1NodeTeBewaren">
+<FormalSpec>Waarde:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Product.ZetDummyVeldOm1NodeTeBewaren(Waarde)
+]]></Implementation>
+</Method>
+
+<Method name="GeefDummyVeldOm1NodeTeBewaren">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Product.GeefDummyVeldOm1NodeTeBewaren()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/PM/Product.cls.xml
===================================================================
diff -u -r47784 -r48031
--- vhTest/Mock/DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 47784)
+++ vhTest/Mock/DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 48031)
@@ -92,6 +92,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDummyVeldOm1NodeTeBewaren">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefDummyVeldOm1NodeTeBewaren")
+]]></Implementation>
+</Method>
+
 <Method name="GeefEANCode">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefEANCode")
@@ -508,6 +514,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetDummyVeldOm1NodeTeBewaren">
+<FormalSpec>Waarde:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetDummyVeldOm1NodeTeBewaren",Waarde)
+]]></Implementation>
+</Method>
+
 <Method name="ZetFSCHout">
 <FormalSpec>FSCHout:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetFSCHout",FSCHout)
Index: vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r47784 -r48031
--- vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 47784)
+++ vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 48031)
@@ -92,6 +92,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDummyVeldOm1NodeTeBewaren">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefDummyVeldOm1NodeTeBewaren")
+]]></Implementation>
+</Method>
+
 <Method name="GeefEANCode">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefEANCode")
@@ -472,6 +478,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetDummyVeldOm1NodeTeBewaren">
+<FormalSpec>Waarde:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetDummyVeldOm1NodeTeBewaren",Waarde)
+]]></Implementation>
+</Method>
+
 <Method name="ZetFSCHout">
 <FormalSpec>FSCHout:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetFSCHout",FSCHout)