TECH.Error 1 DOM.PM.ProductAPI,%RegisteredObject 0 ProductNummer:%Integer DOM.PM.Product ProductNummer:%Integer %Boolean TECH.Iterator ProductNummer:%Integer DOM.PM.SamengesteldProduct ProductNummer:%Integer DOM.PM.ProductClassificatie ClassificatieID:%Integer DOM.PM.Classificatie TECH.Iterator Product:DOM.PM.Product DOM.PM.Product ProductSpecificatie:DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,KostItem:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem DOM.PM.Product TECH.Iterator DOM.PM.HoofdgroepClassificatie DOM.PM.Classificatie PRNr:%Integer DOM.PM.ProductKenmerken ProductKenmerkenSet:DOM.PM.ProductKenmerkenSet Prod.Kenmerk.Orgalux ZetKenmerWaarden voor de opgegeven ProductenKenmerken:APPS.PM.dto.Kenm.ProductenKenmerken %Status 0) { Set KenmerkenModifiedEvent = ##class(TECH.Events.KenmerkenModifiedEvent).%New(KenmerkenModifiedEventData) Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(KenmerkenModifiedEvent) } Set $ZTRAP = "" Do OperatieScope.Gelukt() Quit $$$OK ZetKenmerkBulkError Set $ZTRAP = "" Set Exceptie = ##class(TECH.ExceptionHandler).Catch() Do OperatieScope.Gefaald() Do ##class(TECH.ExceptionHandler).Rethrow(Exceptie) ]]>