Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r1609 -r1619
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1609)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1619)
@@ -296,8 +296,8 @@
 	Set MultipleGroepenIt = ..GeefMultipleGroepen()				
 	While (MultipleGroepenIt.HasNext()){		
 		Set MultipleGroep = MultipleGroepenIt.Next()	    		
-		Set MultipleNrs = ##class(BL.Kenm.ProdMulti).Create(MultipleGroep).GetMultiplesLB(..GeefPRNr())   ; [Review WV   JBL Kenm-Pref]  De oproep ##class(BL.Kenm.ProdMulti).Create() genereert 'veel' overhead, en zou mogelijks maar 1x opgeroepen moeten worden per MultiGroep (???) 
-		If (($ll(MultipleNrs)> 0) && ($Data(MultipleNrs))) {   ; [Review WV   JBL Kenm-Pref]  Wat is het nut van de $Data() test ? 
+		Set MultipleNrs = ##class(BL.Kenm.ProdMulti).Create(MultipleGroep).GetMultiplesLB(..GeefPRNr())  
+		If ($ll(MultipleNrs) > 0) {
 		 	for i=1:1:$ll(MultipleNrs)
 			{	
 				Do Multiples.Insert($lg(MultipleNrs,i))
@@ -309,14 +309,15 @@
 </Method>
 
 <Method name="GeefMultipleGroepen">
+<ClassMethod>1</ClassMethod>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	Set MultipleGroepen = ##class(%ListOfDataTypes).%New()
 	Set KenmerkGroep = ""
 	Set KenmerkGroep = $Order(^Prod.Ken.DataIndexD(KenmerkGroep))
 	While ((KenmerkGroep '= ""))
 	{	
-		If $Data(^Prod.Ken.DataIndexD(KenmerkGroep,$$$KenmMultiPRNr,..ProductNummer))   ; [Review WV   JBL Kenm-Pref]  De subnode ..ProductNummer weglaten, dan kan deze method elders als classmethod geïmplementeerd worden.
+		If $Data(^Prod.Ken.DataIndexD(KenmerkGroep,$$$KenmMultiPRNr))
 		{
 			Do MultipleGroepen.Insert(KenmerkGroep)
 		}