Index: DOM/PM/KADProduct/impl/KADKaderdeurImpl.cls.xml
===================================================================
diff -u -r946 -r994
--- DOM/PM/KADProduct/impl/KADKaderdeurImpl.cls.xml	(.../KADKaderdeurImpl.cls.xml)	(revision 946)
+++ DOM/PM/KADProduct/impl/KADKaderdeurImpl.cls.xml	(.../KADKaderdeurImpl.cls.xml)	(revision 994)
@@ -1,22 +1,51 @@
 <?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-23 07:43:03">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-25 15:08:22">
 <Class name="DOM.PM.KADProduct.impl.KADKaderdeurImpl">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.impl.MaatwerkProductImpl,DOM.PM.KADProduct.KADKaderdeur</Super>
-<TimeChanged>62173,27869.11488</TimeChanged>
+<TimeChanged>62175,54588.414133</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="Kaderdeur">
+<Type>Prod.GADef.KaderDeur</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="GeefFamilie">
 <ReturnType>DOM.PM.enu.Familie</ReturnType>
 <Implementation><![CDATA[	Quit ##class(DOM.PM.enu.Familie).AluKader()
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVerpakking">
+<ReturnType>DOM.PM.KADProduct.enu.KADVerpakking</ReturnType>
+<Implementation><![CDATA[
+	Set Verpakking = ""
+	If ($IsObject(..Kaderdeur))
+	{
+		Set Verpakking = ..Kaderdeur.Verpakking
+	}
+	Quit Verpakking
+]]></Implementation>
+</Method>
+
 <Method name="GeefVariant">
 <ReturnType>DOM.PM.enu.Variant</ReturnType>
 <Implementation><![CDATA[	Quit ##class(DOM.PM.enu.AluKaderVariant).Basis()
 ]]></Implementation>
 </Method>
+
+<Method name="KaderdeurGet">
+<Private>1</Private>
+<ReturnType>Prod.GADef.KaderDeur</ReturnType>
+<Implementation><![CDATA[
+	If (r%Kaderdeur = "")
+	{
+		Set r%Kaderdeur = ##class(Prod.GADef.KaderDeur).%OpenId(..GeefGADataID())
+	}
+	Quit r%Kaderdeur
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="987293698"/>
+<Checksum value="4273616235"/>
 </Export>