%RegisteredObject,DOM.PM.Maatwerk.Calc.Kost.IKostItemVisitor DOM.PM.Maatwerk.Aanpassing.dto.MaatwerkAanpassing 1 DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem 1 DOM.PM.Maatwerk.Calc.Kost.KostContext 1 DOM.PM.Maatwerk.Aanpassing.dto.KostVervangenAanpassing array 1 DOM.PM.Maatwerk.Aanpassing.dto.KostVerwijderenAanpassing array 1 DOM.PM.Maatwerk.Aanpassing.dto.KostToevoegenAanpassing array 1 DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem 1 MaatwerkAanpassing:DOM.PM.Maatwerk.Aanpassing.dto.MaatwerkAanpassing,TotaleKost:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem,Context:DOM.PM.Maatwerk.Calc.Kost.KostContext 1 1 %Status 1 0) { Do ..TotaleKost.KostItems.Insert(SpecialsToegevoegd) } ]]> Item:DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem %Status Item:DOM.PM.Maatwerk.Calc.Kost.BewerktHalffabKostItem %Status Item:DOM.PM.Maatwerk.Calc.Kost.ExtraKostItem %Status Item:DOM.PM.Maatwerk.Calc.Kost.KostenPlaatsKostItem %Status Item:DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem %Status Item:DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem %Status Item:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem %Status Item:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem 1 Item:DOM.PM.Maatwerk.Calc.Kost.KostItem 1 %Boolean Item:DOM.PM.Maatwerk.Calc.Kost.KostItem 1 DOM.PM.Maatwerk.Calc.Kost.KostItem 0) { Do ..OuderKostItem.KostItems.RemoveAt(Positie) Set Visitor = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostAanpassingGegevensNaarKostItemVisitor).%New(Item.GeefNaam(),..Context,..TotaleKost) Do ..KostVervangenAanpassingen.GetAt(Item.GeefNaam()).KostAanpassingGegevens.Accept(Visitor) #dim NieuwKostItem As DOM.PM.Maatwerk.Calc.Kost.KostItem = Visitor.GeefKostItem() If (NieuwKostItem.%Extends("DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem")) { #dim ProcentueelKostItem As DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem = NieuwKostItem Do ProcentueelKostItem.GeefSamengesteldKostItemOmPercentageOpTeBerekenen().KostItems.Insert(ProcentueelKostItem) } Else { Do ..OuderKostItem.KostItems.InsertAt(NieuwKostItem,Positie) } } } Quit IsTeVervangen ]]>