%RegisteredObject 1 Event:TECH.Events.KenmerkModifiedEvent 1 Event:TECH.Events.KenmerkenModifiedEvent 1 EventData:TECH.Events.KenmerkModifiedEventData 0) { Set arUpdates(IndexSleutel,EventData.Waarden.GetAt(1))=$LB("A") #dim lbValidate As %List = blIndex.ValidateKenmerk(.arUpdates) If ($LL(lbValidate)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(blIndex.MaakLeesbaarValidatieResultaat(lbValidate))) } } Do blIndex.DeleteIndex() Do blIndex.BuildIndex() } } ]]>