Index: DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItem.cls.xml =================================================================== diff -u -r52908 -r52909 --- DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItem.cls.xml (.../SamengesteldKostItem.cls.xml) (revision 52908) +++ DOM/PM/Maatwerk/Calc/Kost/SamengesteldKostItem.cls.xml (.../SamengesteldKostItem.cls.xml) (revision 52909) @@ -98,7 +98,7 @@ -KostItemsToExcludeFilter:TECH.Filter +KostItemNamenToExcludeFilter:TECH.Filter %Decimal @@ -90,9 +90,9 @@ #dim ExcludeList As %ListOfDataTypes = ##class(%ListOfDataTypes).%New() Do ExcludeList.Insert("Sub12") - #dim Filter As TECH.Filter = ##class(TECH.Filter.ValueBasedExcludeFilter).%New(ExcludeList) + #dim KostItemNamenToExcludeFilter As TECH.Filter = ##class(TECH.Filter.ValueBasedExcludeFilter).%New(ExcludeList) - Set TaxVerdubbelingEnProcentueelKostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.TaxVerdubbelingEnProcentueelKostItem).%New("",,,0.03,Samengesteld1,Filter) + Set TaxVerdubbelingEnProcentueelKostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.TaxVerdubbelingEnProcentueelKostItem).%New("",,,0.03,Samengesteld1,KostItemNamenToExcludeFilter) Do Samengesteld1.VoegToe(TaxVerdubbelingEnProcentueelKostItem) Do $$$AssertEquals(Samengesteld1.GeefKost(),3090,"De kost is: 700 + 500 = 1200 * 2 = 2400 + 600 = 3000 + 90 (3%) = 3090") @@ -121,9 +121,9 @@ Do ExcludeList.Insert("Sub12") Do ExcludeList.Insert("Sub21") - #dim Filter As TECH.Filter = ##class(TECH.Filter.ValueBasedExcludeFilter).%New(ExcludeList) + #dim KostItemNamenToExcludeFilter As TECH.Filter = ##class(TECH.Filter.ValueBasedExcludeFilter).%New(ExcludeList) - Set TaxVerdubbelingEnProcentueelKostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.TaxVerdubbelingEnProcentueelKostItem).%New("",,,0.03,Samengesteld1,Filter) + Set TaxVerdubbelingEnProcentueelKostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.TaxVerdubbelingEnProcentueelKostItem).%New("",,,0.03,Samengesteld1,KostItemNamenToExcludeFilter) Do Samengesteld1.VoegToe(TaxVerdubbelingEnProcentueelKostItem) Do $$$AssertEquals(Samengesteld1.GeefKost(),3502,"De kost is: 700 + 500 + 100 = 1300 * 2 = 2600 + 600 + 200 = 3400 + 102(3%) = 3502") Index: DOM/PM/Maatwerk/Calc/Kost/TaxVerdubbelingEnProcentueelKostItem.cls.xml =================================================================== diff -u -r52908 -r52909 --- DOM/PM/Maatwerk/Calc/Kost/TaxVerdubbelingEnProcentueelKostItem.cls.xml (.../TaxVerdubbelingEnProcentueelKostItem.cls.xml) (revision 52908) +++ DOM/PM/Maatwerk/Calc/Kost/TaxVerdubbelingEnProcentueelKostItem.cls.xml (.../TaxVerdubbelingEnProcentueelKostItem.cls.xml) (revision 52909) @@ -8,7 +8,7 @@ 1 - + TECH.Filter 1 @@ -26,13 +26,13 @@ De parameters TypeCode en Kost moeten niet meegegeven worden -Naam:%String,Kost:%Float="",Details:%String="",Percentage:%Decimal,KostItemOmPercentageOpTeRekenen:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem,KostItemsToExcludeFilter:TECH.Filter +Naam:%String,Kost:%Float="",Details:%String="",Percentage:%Decimal,KostItemOmPercentageOpTeRekenen:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem,KostItemNamenToExcludeFilter:TECH.Filter 1 1 %Status @@ -59,7 +59,7 @@ %Float