BL.Derde.KlantSpecifiek 1 %RegisteredObject,DOM.VKP.VerkoopPrijsAPI 0 Product:DOM.PM.Product,BasisPrijs:%Float,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie DOM.VKP.info.VerkoopPrijsInfo = ? AND Tag is null") Do ResultSet.Execute(Product.GeefPRNr(),BerekeningsSpecificatie.GeefKlantID(),BerekeningsSpecificatie.GeefPersonality().%Id(),BerekeningsSpecificatie.GeefBerekenDatum(),BerekeningsSpecificatie.GeefBerekenDatum()) Set VerkoopPrijsBerekening = ..GeefVerkoopPrijsBerekening(ResultSet) } Else { $$$ThrowError($$$errGeneralError,"Geen datum of tag meegegeven in de berekeningsspecificatie") } Quit VerkoopPrijsBerekening.GeefVerkoopPrijsInfo(Product, BasisPrijs, BerekeningsSpecificatie) ]]> ResultSet:%ResultSet 1 DOM.VKP.impl.VerkoopPrijsBerekening