Index: vhTest/Dummy/DOM/PM/Maatwerk/LadeInfo/impl/TAX/Zijkant.cls.xml
===================================================================
diff -u -r29059 -r29599
--- vhTest/Dummy/DOM/PM/Maatwerk/LadeInfo/impl/TAX/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 29059)
+++ vhTest/Dummy/DOM/PM/Maatwerk/LadeInfo/impl/TAX/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 29599)
@@ -8,8 +8,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Lade">
+<Type>DOM.PM.Maatwerk.LadeInfo.Lade</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Rol:DOM.PM.Maatwerk.Lade.enu.ZijkantRol</FormalSpec>
+<FormalSpec>Rol:DOM.PM.Maatwerk.Lade.enu.ZijkantRol=##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links()</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -58,10 +63,20 @@
 
 <Method name="GeefLade">
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.Lade</ReturnType>
-<Implementation><![CDATA[	Quit ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New()
+<Implementation><![CDATA[
+	If $$$Not($IsObject(..Lade)) {
+		Set ..Lade = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New()
+	}
+	Quit ..Lade
 ]]></Implementation>
 </Method>
 
+<Method name="ZetLade">
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<Implementation><![CDATA[	Set ..Lade = Lade
+]]></Implementation>
+</Method>
+
 <Method name="GeefLengteInMM">
 <ReturnType>TECH.Decimal</ReturnType>
 <Implementation><![CDATA[	Quit 300
@@ -79,6 +94,12 @@
 <Implementation><![CDATA[	do Visitor.VerwerkZijkant($this)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefRol">
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant()
+]]></Implementation>
+</Method>
 </Class>