Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItem/VoegToe/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItem/VoegToe/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItem/VoegToe/Test.cls.xml	(revision 30245)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem.VoegToe.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Exceptie verwacht als Samengesteld item toegevoegd wordt binnen zijn sub-items">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Item kan geen afstammeling zijn van zichzelf.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	
+	Set Root = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New("Root")
+	Do Root.VoegToe(Root)
+]]></Implementation>
+</Method>
+
+<Method name="Test: item niet toegevoegd als één van de parents voor dat item zichzelf is">
+<Implementation><![CDATA[
+	Set Root = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New("Root")
+	try {
+		Do Root.VoegToe(Root)
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch(##class(TECH.Exceptions.InvalidInputException).%ClassName(1))
+	}
+	Do $$$AssertFalse(Root.GeefKostItemsIterator().HasNext())
+	Do $$$AssertNotIsObject(Root.GeefParent())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kan item van het type KostItem toevoegen">
+<Implementation><![CDATA[
+	Set Root = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New("Root")
+	Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New("SubItem", $$$DummyDecimal, $$$DummyString)
+	Do Root.VoegToe(KostItem)
+	
+	#dim KostItemsIterator As TECH.Iterator = Root.GeefKostItemsIterator()
+	If $$$AssertTrue(KostItemsIterator.HasNext()) {
+		#dim KostItemInBoom As DOM.PM.Maatwerk.Calc.Kost.KostItem = KostItemsIterator.Next()
+		Do $$$AssertEquals(KostItemInBoom,KostItem)
+		Do $$$AssertFalse(KostItemsIterator.HasNext())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kan geen item van een ander type dan KostItem toevoegen">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Samengesteld KostItem kan enkel objecten van type "_##class(DOM.PM.Maatwerk.Calc.Kost.KostItem).%ClassName(1)_" toevoegen")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.GeneralErrorException).%ClassName(1),Substrings))
+	
+	Set Root = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New("Root")
+	Set Object = ##class(TECH.RegisteredObject).%New()
+	Do Root.VoegToe(Object)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/Kost/KostSpec.cls.xml
===================================================================
diff -u -r29059 -r30245
--- DOM/PM/Maatwerk/Calc/Kost/KostSpec.cls.xml	(.../KostSpec.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/Kost/KostSpec.cls.xml	(.../KostSpec.cls.xml)	(revision 30245)
@@ -80,7 +80,7 @@
 		If (KostItemBuilder.GeefEvaluator().Evalueer(HalffabItemsBoom, Context, IngegevenKenmerken))
 		{
 			#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.KostItem = KostItemBuilder.Bereken(Context,HalffabItemsBoom,IngegevenKenmerken)
-			Do TotaleKostItem.VoegToe(KostItem)
+			Do:$IsObject(KostItem) TotaleKostItem.VoegToe(KostItem)
 		}
 	}
 	
Index: DOM/PM/Maatwerk/Calc/Kost/KostItem.cls.xml
===================================================================
diff -u -r29059 -r30245
--- DOM/PM/Maatwerk/Calc/Kost/KostItem.cls.xml	(.../KostItem.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/Kost/KostItem.cls.xml	(.../KostItem.cls.xml)	(revision 30245)
@@ -30,6 +30,11 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="Parent">
+<Type>DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Naam:%String,Kost:%Float,Details:%String</FormalSpec>
 <Private>1</Private>
@@ -62,6 +67,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetParent">
+<FormalSpec>Parent:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</FormalSpec>
+<Implementation><![CDATA[	Set ..Parent = Parent
+]]></Implementation>
+</Method>
+
+<Method name="GeefParent">
+<ReturnType>DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</ReturnType>
+<Implementation><![CDATA[	Quit ..Parent
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolledigeNaam">
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Item As DOM.PM.Maatwerk.Calc.Kost.KostItem = $this
+	#dim VolledigeNaam As %String = ""
+	while $IsObject(Item) {
+		set VolledigeNaam = Item.GeefNaam()_ $$$IfLength(VolledigeNaam,".","")
+		set Item = Item.GeefParent()
+	} 
+	quit VolledigeNaam
+]]></Implementation>
+</Method>
+
 <Method name="Accept">
 <Abstract>1</Abstract>
 <FormalSpec>Visitor:DOM.PM.Maatwerk.Calc.Kost.IKostItemVisitor</FormalSpec>
Index: DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItem.cls.xml
===================================================================
diff -u -r29059 -r30245
--- DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItem.cls.xml	(.../SamengesteldKostItem.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItem.cls.xml	(.../SamengesteldKostItem.cls.xml)	(revision 30245)
@@ -35,7 +35,20 @@
 <FormalSpec>KostItem:DOM.PM.Maatwerk.Calc.Kost.KostItem</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do:$IsObject(KostItem) ..KostItems.Insert(KostItem)
+	#if ##class(TECH.Config.ConfigMgr).Instance().GeefOmgeving()="DEV"
+		If $$$Not($IsObject(KostItem)) || $$$Not(KostItem.%Extends(##class(DOM.PM.Maatwerk.Calc.Kost.KostItem).%ClassName(1))){
+			Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Samengesteld KostItem kan enkel objecten van type "_##class(DOM.PM.Maatwerk.Calc.Kost.KostItem).%ClassName(1)_" toevoegen")
+		}
+		#dim Item As DOM.PM.Maatwerk.Calc.Kost.KostItem = $this
+		While $IsObject(Item) {	
+			If Item=KostItem do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Item kan geen afstammeling zijn van zichzelf."))
+			Set Item = Item.GeefParent()
+		}
+	#endif
+	
+	#dim Status As %Status = ..KostItems.Insert(KostItem)
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status,"VoegToe niet gelukt",..E.InvalidInputException)
+	Do KostItem.ZetParent($this)
 	Quit $$$OK
 ]]></Implementation>
 </Method>