IMetaMember.SetConditions

Синтаксис

SetConditions(Conditions: IOrmConditions; Recursive: Boolean; PrevLevelIndex: Integer);

Параметры

Conditions. Условие;

Recursive. Параметр, определяющий отображать ли в иерархии дочерние элементы указанного уровня;

PrevLevelIndex. Уровень иерархии.

Описание

Метод SetConditions задает условия присутствия элемента в иерархии.

Пример

Для выполнения примера предполагается наличие в репозитории базы данных временных рядов с идентификатором «OBJ_FC». В данной базе должен присутствовать атрибут «INDICATOR», являющийся корневым атрибутом иерархии показателей.

Sub Main;

Var

Mb: IMetabase;

RubrObj: IMetabaseObject;

CatInst: IRubricatorInstance;

DictInst: IMetaDictionaryInstance;

HierarchyInst: IMetaHierarchyInstance;

Mems: IMetaMembersSet;

Mem: IMetaMember;

Conditions: IOrmConditions;

Cond: IOrmCondition;

Begin

Mb := MetabaseClass.Active;

RubrObj := Mb.ItemById("OBJ_FC").Bind;

CatInst := RubrObj.Open(Null) As IRubricatorInstance;

DictInst := CatInst.GetDictionary(RubricatorDictionary.Facts);

HierarchyInst := DictInst.DefaultHierarchy;

Debug.WriteLine("До изменения условий");

Mems := HierarchyInst.GetRootMembers;

If Not Mems.Eof Then

Mem := Mems.Current;

Repeat

Debug.WriteLine(" " + Mem.Name);

Conditions := HierarchyInst.CustomWhere;

Conditions.Clear;

Cond := Conditions.Add;

Cond.AttributeName := "INDICATOR";

Cond.Value := 1009;

Mem.SetConditions(Conditions, False, 0);

Mems.Next;

Until Mems.Eof;

End If;

Debug.WriteLine("");

Debug.WriteLine("После изменения условий");

Mems := HierarchyInst.GetRootMembers;

If Not Mems.Eof Then

Mem := Mems.Current;

Repeat

Debug.WriteLine(" " + Mem.Name);

Mems.Next;

Until Mems.Eof;

End If;

End Sub Main;

После выполнения примера в окно консоли будут выведены наименования корневых элементов иерархии атрибутов до создания условия и после.

См. также:

IMetaMember