Index: AX/Uitgaand/PM/Product/impl/Product.cls.xml
===================================================================
diff -u -r40866 -r41170
--- AX/Uitgaand/PM/Product/impl/Product.cls.xml	(.../Product.cls.xml)	(revision 40866)
+++ AX/Uitgaand/PM/Product/impl/Product.cls.xml	(.../Product.cls.xml)	(revision 41170)
@@ -19,8 +19,16 @@
 <Type>Prod.ProductPrijs</Type>
 </Property>
 
+<Property name="PakketOnderdeel">
+<Type>DOM.PM.impl.DataM.PakketOnderdeel</Type>
+</Property>
+
+<Property name="Pakket">
+<Type>DOM.PM.impl.DataM.Pakket</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ProductId:%String=""</FormalSpec>
+<FormalSpec>ProductId:%String="",PakketId:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -30,6 +38,9 @@
 	set ..Klassificatie = $$$If($$$HasLength(ProductId),##class(Prod.ProductKlas).%OpenId(ProductId),##class(Prod.ProductKlas).%New())
 	set ..Tekst = $$$If($$$HasLength(ProductId),##class(Prod.ProductTekst).%OpenId(ProductId),##class(Prod.ProductTekst).%New())
 	set ..Prijs = $$$If($$$HasLength(ProductId),##class(Prod.ProductPrijs).%OpenId(ProductId),##class(Prod.ProductPrijs).%New())
+	set ..PakketOnderdeel = $$$If($$$HasLength(PakketId),##class(DOM.PM.impl.DataM.PakketOnderdeel).%OpenId(PakketId),##class(DOM.PM.impl.DataM.PakketOnderdeel).%New())
+	set ..Pakket = $$$If($$$HasLength(PakketId),##class(DOM.PM.impl.DataM.Pakket).%OpenId(PakketId),##class(DOM.PM.impl.DataM.Pakket).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>