Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r994 -r1012
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 994)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1012)
@@ -1,10 +1,10 @@
 <?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-04-06 12:11:29">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-12 13:38:10">
 <Class name="DOM.PM.impl.DataM.DataMProduct">
 <IncludeCode>BL.Kenm.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62187,43895.729068</TimeChanged>
+<TimeChanged>62193,49101.267172</TimeChanged>
 <TimeCreated>62159,61822.534455</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -209,6 +209,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOpeningDatum">
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..Data,"\",28)
+]]></Implementation>
+</Method>
+
 <Method name="GeefBerekeningsSpecificatie">
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</ReturnType>
 <Implementation><![CDATA[
@@ -269,28 +275,7 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	
-	Set Multiples = ##class(%ListOfDataTypes).%New()
-	
-	/*Set MultipleGroepenIt = ..GeefMultipleGroepen()
-	While (MultipleGroepenIt.HasNext())
-	{
-		Set MultipleGroep = MultipleGroepenIt.Next()
-		If ($Data(^Prod.Ken.DataIndexD(MultipleGroep,$$$KenmMultiPRNr,..ProductNummer)))
-		{
-			Set Multiple = ""
-			Set Multiple = $Order(^Prod.Ken.DataIndexD(MultipleGroep,$$$KenmMultiPRNr,..ProductNummer,Multiple))
-			While ((Multiple '= ""))
-			{	
-				If $Data(^Prod.Ken.DataIndexD(MultipleGroep,$$$KenmMultiPRNr,..ProductNummer,Multiple))
-				{
-					Do Multiples.Insert(Multiple)
-				}
-				Set Multiple = $Order(^Prod.Ken.DataIndexD(MultipleGroep,$$$KenmMultiPRNr,..ProductNummer, Multiple))
-			}
-			
-		}
-	}*/
-	
+	Set Multiples = ##class(%ListOfDataTypes).%New()	
 	Set MultipleGroepenIt = ..GeefMultipleGroepen()				
 	While (MultipleGroepenIt.HasNext()){		
 		Set MultipleGroep = MultipleGroepenIt.Next()	    		
@@ -349,5 +334,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3103658822"/>
+<Checksum value="1135376779"/>
 </Export>