Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r1376 -r1609
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1376)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1609)
@@ -296,8 +296,8 @@
 	Set MultipleGroepenIt = ..GeefMultipleGroepen()				
 	While (MultipleGroepenIt.HasNext()){		
 		Set MultipleGroep = MultipleGroepenIt.Next()	    		
-		Set MultipleNrs = ##class(BL.Kenm.ProdMulti).Create(MultipleGroep).GetMultiplesLB(..GeefPRNr())
-		If (($ll(MultipleNrs)> 0) && ($Data(MultipleNrs))){
+		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 ? 
 		 	for i=1:1:$ll(MultipleNrs)
 			{	
 				Do Multiples.Insert($lg(MultipleNrs,i))
@@ -316,7 +316,7 @@
 	Set KenmerkGroep = $Order(^Prod.Ken.DataIndexD(KenmerkGroep))
 	While ((KenmerkGroep '= ""))
 	{	
-		If $Data(^Prod.Ken.DataIndexD(KenmerkGroep,$$$KenmMultiPRNr,..ProductNummer))
+		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.
 		{
 			Do MultipleGroepen.Insert(KenmerkGroep)
 		}