Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r946 -r994
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 946)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 994)
@@ -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-03-18 09:26:26">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-06 12:11:29">
 <Class name="DOM.PM.impl.DataM.DataMProduct">
 <IncludeCode>BL.Kenm.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62168,34068.195504</TimeChanged>
+<TimeChanged>62187,43895.729068</TimeChanged>
 <TimeCreated>62159,61822.534455</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -13,11 +13,26 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Data1">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Data2">
 <Type>%String</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="DataJ">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DataG">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ProductNummer">
 <Type>%Integer</Type>
 <Private>1</Private>
@@ -27,8 +42,16 @@
 <FormalSpec>ProductNummer:%Integer</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..ProductNummer = ProductNummer
-	Quit $$$OK
+	Set Status = $$$OK
+	If ($Data(^KPR(ProductNummer)))
+	{
+		Set ..ProductNummer = ProductNummer
+	}
+	Else
+	{
+		Set Status = $$$ERROR("Geen bestaand product")
+	}
+	Quit Status
 ]]></Implementation>
 </Method>
 
@@ -43,6 +66,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Data1Get">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (i%Data1 = "") {
+		Set i%Data1 = ^KPR(..ProductNummer,1)
+	}
+	Quit i%Data1
+]]></Implementation>
+</Method>
+
 <Method name="Data2Get">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
@@ -54,6 +88,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="DataJGet">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (i%DataJ = "") {
+		Set i%DataJ = ^KPR(..ProductNummer,$Order(^KPR(..ProductNummer,"J")))
+	}
+	Quit i%DataJ
+]]></Implementation>
+</Method>
+
+<Method name="DataGGet">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (i%DataG = "") {
+		Set i%DataG = ^KPR(..ProductNummer,"G")
+	}
+	Quit i%DataG
+]]></Implementation>
+</Method>
+
 <Method name="GeefKorttekst">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit $P(..Data,"\",1)
@@ -80,19 +136,19 @@
 
 <Method name="GeefDossierNr">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $P(^KPR(..ProductNummer,"G"),"\",1)
+<Implementation><![CDATA[	Quit $P(..DataG,"\",1)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKostBouwstenenIterator">
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..GeefKostBouwsteenLijst("BS"))
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..GeefKostBouwsteenLijst(0))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKostSchaduwBouwstenenIt">
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..GeefKostBouwsteenLijst("BSS"))
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..GeefKostBouwsteenLijst(1))
 ]]></Implementation>
 </Method>
 
@@ -108,19 +164,37 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLinkType">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..Data,"\",23)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKostBouwsteenLijst">
-<Description>
-Type is BS of BSS</Description>
-<FormalSpec>Type:%String</FormalSpec>
+<FormalSpec>IsSchaduw:%Boolean</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set BouwsteenLijst = ##class(%ListOfObjects).%New()
-	
+	If ('IsSchaduw)
+	{
+		Set Type = "BS"
+	}
+	Else
+	{
+		Set Type = "BSS"
+	}
 	Set Key = $Order(^PRBS(Type,..ProductNummer,"KST."))
 	While ((Key '= "") && (Key [ "KST."))
 	{
-		Set Bouwsteen = ##class(DOM.PR.BouwStenen.BouwSteen).%OpenId(..ProductNummer_"||"_Key)
+		If ('IsSchaduw)
+		{
+			Set Bouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..ProductNummer_"||"_Key)
+		}
+		Else
+		{
+			Set Bouwsteen = ##class(DOM.PM.Bouwstenen.SchBouwsteen).%OpenId(..ProductNummer_"||"_Key)
+		}
 		Do BouwsteenLijst.Insert(Bouwsteen)
 		Set Key = $Order(^PRBS(Type,..ProductNummer,Key))
 	}
@@ -191,6 +265,47 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMultiples">
+<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 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))){
+		 	for i=1:1:$ll(MultipleNrs)
+			{	
+				Do Multiples.Insert($lg(MultipleNrs,i))
+			}
+		}
+	}
+	Quit Multiples
+]]></Implementation>
+</Method>
+
 <Method name="GeefMultipleGroepen">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
@@ -209,6 +324,30 @@
 	Quit ##class(TECH.ListIterator).%New(MultipleGroepen)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefGADataID">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..DataG,"\",13)
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrijs">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..DataJ,"\",19)
+]]></Implementation>
+</Method>
+
+<Method name="GeefActiefStatus">
+<ReturnType>DOM.PM.enu.ActiefStatus</ReturnType>
+<Implementation><![CDATA[
+	Set ActiefStatus = $Piece(..Data1,"\",25)
+	If (ActiefStatus = "")
+	{
+		Set ActiefStatus = ##class(DOM.PM.enu.ActiefStatus).Actief()
+	}
+	Quit ActiefStatus
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="3996982216"/>
+<Checksum value="3103658822"/>
 </Export>