Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r903 -r937
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 903)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 937)
@@ -1,9 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-03 13:49:48">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-03-14 12:31:37">
 <Class name="DOM.PM.impl.DataM.DataMProduct">
+<IncludeCode>BL.Kenm.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62153,49856.656689</TimeChanged>
+<TimeChanged>62164,45096.985816</TimeChanged>
+<TimeCreated>62159,61822.534455</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Data">
@@ -182,6 +184,25 @@
 	Quit IsLanggoed
 ]]></Implementation>
 </Method>
+
+<Method name="GeefMultipleGroepen">
+<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))
+		{
+			Do MultipleGroepen.Insert(KenmerkGroep)
+		}
+		Set KenmerkGroep = $Order(^Prod.Ken.DataIndexD(KenmerkGroep))
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(MultipleGroepen)
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="3573935308"/>
+<Checksum value="463500986"/>
 </Export>