NameFilter: IStringFilterCondition;
Свойство NameFilter определяет наименование объекта, для которого необходимо отображать записи протокола.
При применении данного фильтра протокол будет содержать записи для объектов, наименование которых содержит заданный текст.
Для выполнения примера предполагается наличие фильтра протокола доступа с идентификатором «FILTER», а также наличие в репозитории отчета с идентификатором «Report».
Добавьте ссылку на системную сборку Metabase.
Sub UserProc;
Var
FilCon: IAuditFiltersContainer;
Objs: IAuditFilterObjects;
Obj: IAuditFilterObject;
Con: IAuditFilterCondition;
Fil: IAuditFilter;
Filter: IStringFilterCondition;
Begin
FilCon := New AuditFiltersContainer.Create;
FilCon.Load;
Objs := FilCon.Filters;
Obj := Objs.FindById("FILTER").Edit;
Fil := Obj.Filter;
If Fil.Count <= 0 Then
Con := Fil.Add;
Else
Con := Fil.Item(0);
End If;
Filter := Con.NameFilter;
Filter.IsON := True;
Filter.CaseSensitive := True;
Filter.WholeWordsOnly := False;
Filter.Value := "Report";
Obj.Save;
FilCon.SaveToFile(FilCon.DefaultFileName);
End Sub UserProc;
После выполнения примера будет изменено свойство условия фильтрации: показывать записи протокола доступа только для объектов, содержащих в наименовании «Report».
См. также: