Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFRugv001.cls.xml
===================================================================
diff -u -r1635 -r1655
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 1635)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 1655)
@@ -36,7 +36,7 @@
 <Method name="PostProcessHalffabItem">
 <FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,&HalffabList:%ListOfObjects]]></FormalSpec>
 <Implementation><![CDATA[
-	Set RugLengte = IngegevenKenmerken.CorpusBreedte - 22
+	Set RugLengte = IngegevenKenmerken.CorpusBinnenbreedte - 22
 	
 	Set Halffab = HalffabItem.Halffab
 	Set BewerkingsCalculator = Context.GeefBewerkingsInfo(Halffab.UnID).GeefBewerkingsCalculator()
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFBodemv001.cls.xml
===================================================================
diff -u -r1635 -r1655
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 1635)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 1655)
@@ -25,7 +25,7 @@
 	
 	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
 	Set IngegevenKenmerken.LadeDiepte = 250
-	Set IngegevenKenmerken.CorpusBreedte = 650
+	Set IngegevenKenmerken.CorpusBinnenbreedte = 650
 	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAOOLadeKleur).SmokedWalnut()
 	
 	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFBodemv001).%New("")
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFRugv001.cls.xml
===================================================================
diff -u -r1635 -r1655
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 1635)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 1655)
@@ -25,7 +25,7 @@
 	
 	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAOOLadeHoogte).N()
-	Set IngegevenKenmerken.CorpusBreedte = 650
+	Set IngegevenKenmerken.CorpusBinnenbreedte = 650
 	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAOOLadeKleur).SmokedWalnut()
 	
 	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOO.HFRugv001).%New("")
Index: DOM/PM/Maatwerk/Calc/Common/impl/TAOOKenmerken.cls.xml
===================================================================
diff -u -r1636 -r1655
--- DOM/PM/Maatwerk/Calc/Common/impl/TAOOKenmerken.cls.xml	(.../TAOOKenmerken.cls.xml)	(revision 1636)
+++ DOM/PM/Maatwerk/Calc/Common/impl/TAOOKenmerken.cls.xml	(.../TAOOKenmerken.cls.xml)	(revision 1655)
@@ -18,7 +18,7 @@
 <Type>DOM.PM.enu.TAOOLadeHoogte</Type>
 </Property>
 
-<Property name="CorpusBreedte">
+<Property name="CorpusBinnenbreedte">
 <Type>%Integer</Type>
 </Property>
 
@@ -60,7 +60,7 @@
 <Value>BodemKleur</Value>
 </Value>
 <Value name="5">
-<Value>CorpusBreedte</Value>
+<Value>CorpusBinnenbreedte</Value>
 </Value>
 <Value name="6">
 <Value>RugHoogte</Value>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFBodemv001.cls.xml
===================================================================
diff -u -r1635 -r1655
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 1635)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFBodemv001.cls.xml	(.../HFBodemv001.cls.xml)	(revision 1655)
@@ -36,7 +36,7 @@
 <Method name="PostProcessHalffabItem">
 <FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,&HalffabList:%ListOfObjects]]></FormalSpec>
 <Implementation><![CDATA[
-	Set BodemLengte = IngegevenKenmerken.CorpusBreedte - 34
+	Set BodemLengte = IngegevenKenmerken.CorpusBinnenbreedte - 34
 	
 	Set Halffab = HalffabItem.Halffab
 	Set BewerkingsCalculator = Context.GeefBewerkingsInfo(Halffab.UnID).GeefBewerkingsCalculator()
Index: zTryout/CSC/TAOOLade.cls.xml
===================================================================
diff -u -r1635 -r1655
--- zTryout/CSC/TAOOLade.cls.xml	(.../TAOOLade.cls.xml)	(revision 1635)
+++ zTryout/CSC/TAOOLade.cls.xml	(.../TAOOLade.cls.xml)	(revision 1655)
@@ -24,7 +24,7 @@
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAOOLadeHoogte).N()
 	Set IngegevenKenmerken.IsBinnenlade = 0
 	Set IngegevenKenmerken.Draagkracht = 30
-	Set IngegevenKenmerken.CorpusBreedte = 650
+	Set IngegevenKenmerken.CorpusBinnenbreedte = 650
 	
 	Do Context.GeefHalffabSpec().BerekenHalffabDetails(Context,IngegevenKenmerken)
 	Set WriterVisitor=##class(DOM.PM.Maatwerk.Calc.HF.impl.WriterVisitor).%New()
Index: zTryout/CSC/PersistenteKlasse.cls.xml
===================================================================
diff -u -r1547 -r1655
--- zTryout/CSC/PersistenteKlasse.cls.xml	(.../PersistenteKlasse.cls.xml)	(revision 1547)
+++ zTryout/CSC/PersistenteKlasse.cls.xml	(.../PersistenteKlasse.cls.xml)	(revision 1655)
@@ -11,6 +11,38 @@
 <Collection>list</Collection>
 </Property>
 
+<Property name="Test2">
+<Type>%String</Type>
+</Property>
+
+<Property name="Test3">
+<Type>zTryout.CSC.PersistenteKlasse</Type>
+</Property>
+
+<Method name="%OnOpen">
+<Description><![CDATA[
+This callback method is invoked by the <METHOD>%Open</METHOD> method to 
+provide notification that the object specified by <VAR>oid</VAR> is being opened.
+
+<P>If this method returns an error then the object will not be opened.]]></Description>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	w "Ik ben geopend",!
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="%OnAfterSave">
+<FormalSpec>insert:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	w "Ik ben opgeslagen",!
+	Quit ##class(DbUtils).OnAfterSave(##this, insert)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^zTryout.CSC.PersistenteKlasseD</DataLocation>
@@ -48,6 +80,12 @@
 <Value name="9">
 <Value>Test</Value>
 </Value>
+<Value name="10">
+<Value>Test2</Value>
+</Value>
+<Value name="11">
+<Value>Test3</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFFrontv001.cls.xml
===================================================================
diff -u -r1635 -r1655
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFFrontv001.cls.xml	(.../HFFrontv001.cls.xml)	(revision 1635)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOO/HFFrontv001.cls.xml	(.../HFFrontv001.cls.xml)	(revision 1655)
@@ -36,7 +36,7 @@
 <Method name="PostProcessHalffabItem">
 <FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,&HalffabList:%ListOfObjects]]></FormalSpec>
 <Implementation><![CDATA[
-	Set FrontLengte = IngegevenKenmerken.CorpusBreedte - 4
+	Set FrontLengte = IngegevenKenmerken.CorpusBinnenbreedte - 4
 	
 	Set Halffab = HalffabItem.Halffab
 	Set BewerkingsCalculator = Context.GeefBewerkingsInfo(Halffab.UnID).GeefBewerkingsCalculator()
Index: APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml
===================================================================
diff -u -r1639 -r1655
--- APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 1639)
+++ APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 1655)
@@ -22,7 +22,7 @@
 <Implementation><![CDATA[
 	Set ..IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.TAOOKenmerken).%New()
 	
-	Set ..IngegevenKenmerken.CorpusBreedte = TAOOKenmerken.CorpusBreedte
+	Set ..IngegevenKenmerken.CorpusBinnenbreedte = TAOOKenmerken.CorpusBinnenbreedte
 	Set ..IngegevenKenmerken.Draagkracht = TAOOKenmerken.Draagkracht
 	Set ..IngegevenKenmerken.IsBinnenlade = TAOOKenmerken.IsBinnenlade
 	Set ..IngegevenKenmerken.LadeDiepte = TAOOKenmerken.LadeDiepte
Index: APPS/PM/Maatwerk/dto/TAOOKenmerken.cls.xml
===================================================================
diff -u -r1574 -r1655
--- APPS/PM/Maatwerk/dto/TAOOKenmerken.cls.xml	(.../TAOOKenmerken.cls.xml)	(revision 1574)
+++ APPS/PM/Maatwerk/dto/TAOOKenmerken.cls.xml	(.../TAOOKenmerken.cls.xml)	(revision 1655)
@@ -16,7 +16,7 @@
 ]]></Implementation>
 </Method>
 
-<Property name="CorpusBreedte">
+<Property name="CorpusBinnenbreedte">
 <Type>%Float</Type>
 </Property>
 
@@ -67,7 +67,7 @@
 <Method name="IsVolledig">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Quit (..CorpusBreedte '= "") &&
+	Quit (..CorpusBinnenbreedte '= "") &&
 		(..IsBinnenbreedte || (..CorpusWandDikte '= "")) && // CorpusWandDikte moet enkel ingevuld zijn indien geen binnenmaat
 		(..Draagkracht '= "") &&
 		(..IsBinnenbreedte '= "") &&
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFFrontv001.cls.xml
===================================================================
diff -u -r1635 -r1655
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFFrontv001.cls.xml	(.../HFFrontv001.cls.xml)	(revision 1635)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/TAOO/HFFrontv001.cls.xml	(.../HFFrontv001.cls.xml)	(revision 1655)
@@ -25,7 +25,7 @@
 	
 	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAOOLadeHoogte).N()
-	Set IngegevenKenmerken.CorpusBreedte = 650
+	Set IngegevenKenmerken.CorpusBinnenbreedte = 650
 	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAOOLadeKleur).SmokedWalnut()
 	Set IngegevenKenmerken.IsBinnenlade = 1
 	
@@ -46,7 +46,7 @@
 	
 	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
 	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAOOLadeHoogte).N()
-	Set IngegevenKenmerken.CorpusBreedte = 650
+	Set IngegevenKenmerken.CorpusBinnenbreedte = 650
 	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAOOLadeKleur).SmokedWalnut()
 	Set IngegevenKenmerken.IsBinnenlade = 0