Index: DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004.cls.xml =================================================================== diff -u -r51612 -r52913 --- DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004.cls.xml (.../SpecKostv004.cls.xml) (revision 51612) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004.cls.xml (.../SpecKostv004.cls.xml) (revision 52913) @@ -44,14 +44,14 @@ #dim ProcentueelKostItem As DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem #dim Procent As %Decimal = 2 - set:($$$Not(IngegevenKenmerken.LadeBinnenKleur = IngegevenKenmerken.LadeKleur)) Procent = 4 + Set:($$$Not(IngegevenKenmerken.LadeBinnenKleur = IngegevenKenmerken.LadeKleur)) Procent = 4 #dim Naam As TECH.String = "Rework " _ Procent _ "%" #dim DecimaalPercentage As %Decimal = Procent / 100 - set ProcentueelKostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem).%New(Naam,,, DecimaalPercentage, TotaalKostItem) + Set ProcentueelKostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem).%New(Naam,,, DecimaalPercentage, TotaalKostItem) - do TotaalKostItem.VoegToe(ProcentueelKostItem) + Do TotaalKostItem.VoegToe(ProcentueelKostItem) ]]>