IAuditFilterCondition.Station

Синтаксис

Station(Index: Integer): String;

Station[Index: integer]: string;

Параметры

Index. Индекс позиции. Количество станций определяется свойством IAuditFilterCondition.StationCount.

Описание

Свойство Station определяет наименование рабочей станции, для которой будут отображаться записи протокола.

Пример

Для выполнения примера предполагается наличие фильтра протокола доступа с идентификатором «FILTER»  и две рабочие станции «CONDRATEVA» и «BASHKIRTSEVA».

Добавьте ссылку на системную сборку Metabase.

Sub UserProc;
Var
    FilCon: IAuditFiltersContainer;
    Objs: IAuditFilterObjects;
    Obj: IAuditFilterObject;
    Con: IAuditFilterCondition;
    Fil: IAuditFilter;
Begin
    FilCon := New AuditFiltersContainer.Create;
    FilCon.Load;
    Objs := FilCon.Filters;
    Obj := Objs.FindById("FILTER").Edit;
    Fil := Obj.Filter;
    Con := Fil.Item(0);
    Con.StationCount := 2;
    Con.Station(0) := "CONDRATEVA";
    Con.Station(1) := "BASHKIRTSEVA";
    Obj.Save;
    FilCon.SaveToFile(FilCon.DefaultFileName);
End Sub UserProc;
Public Shared Sub Main(Params: StartParams);
Var
    FilCon: IAuditFiltersContainer;
    Objs: IAuditFilterObjects;
    Obj: IAuditFilterObject;
    Con: IAuditFilterCondition;
    Fil: IAuditFilter;
Begin
    FilCon := New AuditFiltersContainer.Create();
    FilCon.Load();
    Objs := FilCon.Filters;
    Obj := Objs.FindById("FILTER").Edit();
    Fil := Obj.Filter;
    Con := Fil.Item[0];
    Con.StationCount := 2;
    Con.Station[0] := "CONDRATEVA";
    Con.Station[1] := "BASHKIRTSEVA";
    Obj.Save();
    FilCon.SaveToFile(FilCon.DefaultFileName);
End Sub;

После выполнения примера будет изменено свойство условия фильтрации: показывать записи протокола доступа только для заданных рабочих станций.

См. также:

IAuditFilterCondition