Index: Prod/Product.cls.xml
===================================================================
diff -u -r30913 -r34705
--- Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 30913)
+++ Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 34705)
@@ -256,6 +256,27 @@
 <Relationship>0</Relationship>
 </Property>
 
+<Property name="EersteMoederProduct">
+<Description>
+Private opdat het geen tijd zou opnemen indien het niet expliciet is opgenomen in een query.</Description>
+<Type>Prod.Product</Type>
+<Calculated>1</Calculated>
+<Private>1</Private>
+<SqlComputeCode> Set {*}=##class(Prod.Product).GeefEersteMoederProductViaNr({Id})</SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
+<Method name="GeefEersteMoederProductViaNr">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:$$$Not($Data(^PRBS("IP",PRNr))) ""
+	#Dim EersteMoeder As %String = $Order(^PRBS("IP",PRNr,"0"))
+	Quit EersteMoeder
+]]></Implementation>
+</Method>
+
 <Property name="OpeningDatum">
 <Type>%Library.Date</Type>
 </Property>