Index: DOM/PM/impl/DataM/DataMProduct.cls.xml =================================================================== diff -u -r45941 -r45942 --- DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 45941) +++ DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 45942) @@ -110,8 +110,8 @@ Do ..Valideer() #dim NodeIndex As %String - for NodeIndex = 0,1,2,3,15,"I1","J","G" { - do $method($property($this,"Data"_NodeIndex),"Save") + For NodeIndex = 0,1,2,3,15,"I1","J","G" { + Do $method($property($this,"Data"_NodeIndex),"Save") } ]]> @@ -709,7 +709,7 @@ 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:'$Length(..GeefSubGroep()) Messages.Insert("Subgroep is vereist.") Do:Messages.Count() ##class(TECH.Exceptions.InvalidInputException).Throw(##class(TECH.ListUtils).ListToPieces(Messages,$$$CRLF)) ]]>