Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r1645 -r1775
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1645)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1775)
@@ -295,8 +295,10 @@
 	Set Multiples = ##class(%ListOfDataTypes).%New()	
 	Set MultipleGroepenIt = ..GeefMultipleGroepen()				
 	While (MultipleGroepenIt.HasNext()){		
-		Set MultipleGroep = MultipleGroepenIt.Next()	    		
-		Set MultipleNrs = ##class(BL.Kenm.ProdMulti).Create(MultipleGroep).GetMultiplesLB(..GeefPRNr())  
+		Set MultipleGroep = MultipleGroepenIt.Next()	
+		Set ProdMulti = ##class(BL.Kenm.ProdMulti).%New()
+		Do ProdMulti.Initialize(MultipleGroep,0)
+		Set MultipleNrs = ProdMulti.GetMultiplesLB(..GeefPRNr())  
 		If ($ll(MultipleNrs) > 0) {
 		 	for i=1:1:$ll(MultipleNrs)
 			{