Index: DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItem.cls.xml
===================================================================
diff -u -r52905 -r52908
--- DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItem.cls.xml	(.../SamengesteldKostItem.cls.xml)	(revision 52905)
+++ DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItem.cls.xml	(.../SamengesteldKostItem.cls.xml)	(revision 52908)
@@ -98,15 +98,17 @@
 </Method>
 
 <Method name="GeefExtraKostVoorTaxSifonlade">
+<FormalSpec>KostItemsToExcludeFilter:TECH.Filter</FormalSpec>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
 	#dim Kost As %Decimal = 0
 	#dim Iterator As TECH.Iterator = ..GeefKostItemsIterator()
 	
 	While (Iterator.HasNext()) {
 		#dim KostItem As KostItem = Iterator.Next()
-		
-		If $$$Not(KostItem.%Extends("DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem")) {
+		If (KostItem.%Extends(##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%ClassName($$$True))) {
+			Set Kost = Kost + KostItem.GeefExtraKostVoorTaxSifonlade(KostItemsToExcludeFilter)
+		} ElseIf ($$$Not(KostItem.%Extends(##class(DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem).%ClassName($$$True))) && $$$Not(KostItemsToExcludeFilter.IsValid(KostItem.GeefNaam()))) {
 			Set Kost = Kost + KostItem.GeefKost()
 		}
 	}
Index: vhUnitTest/DOM/PM/Maatwerk/Kost/TestKostItem.cls.xml
===================================================================
diff -u -r52903 -r52908
--- vhUnitTest/DOM/PM/Maatwerk/Kost/TestKostItem.cls.xml	(.../TestKostItem.cls.xml)	(revision 52903)
+++ vhUnitTest/DOM/PM/Maatwerk/Kost/TestKostItem.cls.xml	(.../TestKostItem.cls.xml)	(revision 52908)
@@ -7,7 +7,7 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="TestGeefKost">
+<Method name="Test: GeefKost">
 <Implementation><![CDATA[
 	Set Samengesteld1=##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New("Samengesteld1")
 	
@@ -34,29 +34,27 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestProcentueelKostItem">
+<Method name="Test: ProcentueelKostItem">
 <Implementation><![CDATA[
 	Set SamengesteldKostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New("Samengesteld1")
 	Do SamengesteldKostItem.VoegToe(##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New("Sub1",700,"De details"))
 	Do SamengesteldKostItem.VoegToe(##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New("Sub2",600,"De details"))
 	Set Sub3 = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New("Samengesteld2")
-	Set ProcentueelKostItem2 = ##class(DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem).%New("","","",0.07,Sub3)
+	Set ProcentueelKostItem2 = ##class(DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem).%New("",,,0.07,Sub3)
 	Do SamengesteldKostItem.VoegToe(ProcentueelKostItem2)
 	Do SamengesteldKostItem.VoegToe(Sub3)
 	Do Sub3.VoegToe(##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New("Sub5",400,"De details"))
 	Do Sub3.VoegToe(##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New("Sub6",200,"De details"))
 	Do SamengesteldKostItem.VoegToe(##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New("Sub4",300,"De details"))
-	Set ProcentueelKostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem).%New("","","",0.03,SamengesteldKostItem)
+	Set ProcentueelKostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem).%New("",,,0.03,SamengesteldKostItem)
 	Do SamengesteldKostItem.VoegToe(ProcentueelKostItem)
 	
 	Do $$$AssertEquals(SamengesteldKostItem.GeefKost(),2308,"De kost") // Vroeger 2309.26
 ]]></Implementation>
 </Method>
 
-<Method name="Test: TaxVerdubbelingEnProcentueelKostItem alle KostItems verdubbelen">
+<Method name="Test: TaxVerdubbelingEnProcentueelKostItem alle KostItems verdubbelen plus Percentage">
 <Implementation><![CDATA[
-	// Sub1 Sub2 Sub3 + niveau dieper Sub4 Sub5  --> resultaat is nu nog gelijk aan de totale som van de 5 Subs
-	
 	Set Samengesteld1=##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New("Samengesteld1")
 	Do Samengesteld1.VoegToe(##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New("Sub11",700,"De details"))
 	Do Samengesteld1.VoegToe(##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New("Sub12",600,"De details"))
@@ -75,9 +73,62 @@
 	Set TaxVerdubbelingEnProcentueelKostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.TaxVerdubbelingEnProcentueelKostItem).%New("",,,0.03,Samengesteld1)
 	Do Samengesteld1.VoegToe(TaxVerdubbelingEnProcentueelKostItem)
 	
-	Do $$$AssertEquals(Samengesteld1.GeefKost(),2163,"De Kost")
+	Do $$$AssertEquals(Samengesteld1.GeefKost(),4326,"De kost is: 2100 * 2 = 4200 + 126 (3%) = 4326")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: TaxVerdubbelingEnProcentueelKostItem alleen de gefilterde KostItems verdubbelen plus Percentage - 1 level">
+<Implementation><![CDATA[
+	Set Samengesteld1=##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New("Samengesteld1")
+	Set Sub11 = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New("Sub11",700,"De details")
+	Set Sub12 = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New("Sub12",600,"De details")
+	Set Sub13 = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New("Sub13",500,"De details")
+	Do Samengesteld1.VoegToe(Sub11)
+	Do Samengesteld1.VoegToe(Sub12)
+	Do Samengesteld1.VoegToe(Sub13)
+	
+	#dim ExcludeList As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do ExcludeList.Insert("Sub12")
+	
+	#dim Filter As TECH.Filter = ##class(TECH.Filter.ValueBasedExcludeFilter).%New(ExcludeList)
+	
+	Set TaxVerdubbelingEnProcentueelKostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.TaxVerdubbelingEnProcentueelKostItem).%New("",,,0.03,Samengesteld1,Filter)
+	Do Samengesteld1.VoegToe(TaxVerdubbelingEnProcentueelKostItem)
+	
+	Do $$$AssertEquals(Samengesteld1.GeefKost(),3090,"De kost is: 700 + 500 = 1200 * 2 = 2400 + 600 = 3000 + 90 (3%) = 3090")
+]]></Implementation>
+</Method>
+
+<Method name="Test: TaxVerdubbelingEnProcentueelKostItem alleen de gefilterde KostItems verdubbelen plus Percentage - meerdere levels">
+<Implementation><![CDATA[
+	Set Samengesteld1=##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New("Samengesteld1")
+	Set Sub11 = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New("Sub11",700,"De details")
+	Set Sub12 = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New("Sub12",600,"De details")
+	Set Sub13 = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New("Sub13",500,"De details")
+	Do Samengesteld1.VoegToe(Sub11)
+	Do Samengesteld1.VoegToe(Sub12)
+	Do Samengesteld1.VoegToe(Sub13)
+	
+	Set Samengesteld2=##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New("Samengesteld2")
+	Set Sub21 = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New("Sub21",200,"De details")
+	Set Sub22 = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New("Sub22",100,"De details")
+	Do Samengesteld2.VoegToe(Sub21)
+	Do Samengesteld2.VoegToe(Sub22)
+	
+	Do Samengesteld1.VoegToe(Samengesteld2)
+	
+	#dim ExcludeList As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do ExcludeList.Insert("Sub12")
+	Do ExcludeList.Insert("Sub21")
+	
+	#dim Filter As TECH.Filter = ##class(TECH.Filter.ValueBasedExcludeFilter).%New(ExcludeList)
+	
+	Set TaxVerdubbelingEnProcentueelKostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.TaxVerdubbelingEnProcentueelKostItem).%New("",,,0.03,Samengesteld1,Filter)
+	Do Samengesteld1.VoegToe(TaxVerdubbelingEnProcentueelKostItem)
+	
+	Do $$$AssertEquals(Samengesteld1.GeefKost(),3502,"De kost is: 700 + 500 + 100 = 1300 * 2 = 2600 + 600 + 200 = 3400 + 102(3%) = 3502")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/Calc/Kost/TaxVerdubbelingEnProcentueelKostItem.cls.xml
===================================================================
diff -u -r52906 -r52908
--- DOM/PM/Maatwerk/Calc/Kost/TaxVerdubbelingEnProcentueelKostItem.cls.xml	(.../TaxVerdubbelingEnProcentueelKostItem.cls.xml)	(revision 52906)
+++ DOM/PM/Maatwerk/Calc/Kost/TaxVerdubbelingEnProcentueelKostItem.cls.xml	(.../TaxVerdubbelingEnProcentueelKostItem.cls.xml)	(revision 52908)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KostItemsToExcludeFilter">
+<Type>TECH.Filter</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Percentage">
 <Type>%Decimal</Type>
 <Private>1</Private>
@@ -21,12 +26,13 @@
 <Method name="%OnNew">
 <Description>
 De parameters TypeCode en Kost moeten niet meegegeven worden </Description>
-<FormalSpec>Naam:%String,Kost:%Float="",Details:%String="",Percentage:%Decimal,KostItemOmPercentageOpTeRekenen:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</FormalSpec>
+<FormalSpec>Naam:%String,Kost:%Float="",Details:%String="",Percentage:%Decimal,KostItemOmPercentageOpTeRekenen:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem,KostItemsToExcludeFilter:TECH.Filter</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ##super(Naam,Kost,Details,Percentage,KostItemOmPercentageOpTeRekenen)
+	Set ..KostItemsToExcludeFilter = $$$Inject(KostItemsToExcludeFilter, ##class(TECH.Filter.ValueBasedExcludeFilter).%New(##class(%ListOfDataTypes).%New()))
 	Set ..FactorVoorIederKostItem = 2
 	Quit $$$OK
 ]]></Implementation>
@@ -52,7 +58,12 @@
 
 <Method name="GeefKost">
 <ReturnType>%Float</ReturnType>
-<Implementation><![CDATA[	Quit ..Afgerond(..KostItemOmPercentageOpTeRekenen.GeefExtraKostVoorTaxSifonlade() * ..Percentage)
+<Implementation><![CDATA[
+	#dim ExtraKostVoorTaxSifonlade = ..KostItemOmPercentageOpTeRekenen.GeefExtraKostVoorTaxSifonlade(..KostItemsToExcludeFilter)
+    #dim OorspronkelijkeKostOmPercentageOpTeRekenen = ..KostItemOmPercentageOpTeRekenen.GeefKostOmPercentageOpTeBerekenen()
+    #dim ProcentueleKostOpTotaleSom = (OorspronkelijkeKostOmPercentageOpTeRekenen + ExtraKostVoorTaxSifonlade) * ..Percentage
+    
+    Quit ..Afgerond(ExtraKostVoorTaxSifonlade + ProcentueleKostOpTotaleSom)
 ]]></Implementation>
 </Method>