Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r734 -r802
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 734)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 802)
@@ -1,9 +1,9 @@
 <?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-01-27 17:00:59">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-07 11:35:14">
 <Class name="DOM.PM.impl.DataM.DataMProduct">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Product,%RegisteredObject</Super>
-<TimeChanged>62118,53999.551279</TimeChanged>
+<TimeChanged>62129,41762.675744</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Data">
@@ -31,18 +31,78 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLangtekst">
+<FormalSpec>Taal:%String="N"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set ProductTekst = ##class(Prod.ProductTekst).%OpenId(..ProductNummer)
+	do ProductTekst.GetOmschrijvingArray(Taal,.Array)
+	
+	set idx = ""
+	set Langtekst = ""
+	for { set idx = $order(Array(idx)) quit:idx="" 
+		set Langtekst = Langtekst_Array(idx)_" "
+	}
+	set Langtekst = $extract(Langtekst,1,$length(Langtekst)-1)
+	quit Langtekst
+]]></Implementation>
+</Method>
+
 <Method name="GeefDossierNr">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit $P(^KPR(..ProductNummer,"G"),"\")
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKostBouwstenenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set BouwsteenLijst = ##class(%ListOfObjects).%New()
+	
+	Set Key = $Order(^PRBS("BS",..ProductNummer,"KST."))
+	While ((Key '= "") && (Key [ "KST."))
+	{
+		Set Bouwsteen = ##class(DOM.PR.BouwStenen.BouwSteen).%OpenId(..ProductNummer_"||"_Key)
+		Do BouwsteenLijst.Insert(Bouwsteen)
+		Set Key = $Order(^PRBS("BS",..ProductNummer,Key))
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(BouwsteenLijst)
+]]></Implementation>
+</Method>
+
 <Method name="GeefOmschrijving">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit $P(..Data,"\",2) _ " " _ $P(..Data,"\",11)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBerekeningsSpecificatie">
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</ReturnType>
+<Implementation><![CDATA[
+	Set ID = $Piece(^KPR(..ProductNummer,15),"\",14)
+	Set BerekeningsSpecificatie = ""
+	If (ID '= "")
+	{
+		Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%OpenId(ID)
+	}
+	Quit BerekeningsSpecificatie
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductSpecificatie">
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie</ReturnType>
+<Implementation><![CDATA[
+	Set ID = $Piece(^KPR(..ProductNummer,15),"\",13)
+	Set ProductSpecificatie = ""
+	If (ID '= "")
+	{
+		Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%OpenId(ID)
+	}
+	Quit ProductSpecificatie
+]]></Implementation>
+</Method>
+
 <Method name="GeefPRNr">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit ..ProductNummer
@@ -70,5 +130,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="901031838"/>
+<Checksum value="4291367209"/>
 </Export>