IMetaDictionaryLookup.RevisionAttributes

Синтаксис

RevisionAttributes(Index: Integer): String;

Параметры

Index - индекс наименования атрибута в коллекции.

Описание

Свойство RevisionAttributes определяет коллекцию наименований атрибутов.

Комментарии

Данное свойство используется вместе со свойством WhereRevisionBetween или WhereRevisionKey.

Пример

Для выполнения примера предполагается наличие в репозитории базы данных временных рядов с идентификатором OBJ_FC. В данной базе должны присутствовать атрибуты показателя с идентификаторами COUNTRY, UNIT и REV.

Добавьте ссылки на системные сборки: Metabase, Cube, Rds, Orm.

Sub UserProc;
Var
    MB: IMetabase;
    RubDesc: IMetabaseObjectDescriptor;
    RubrIn: IRubricatorInstance;
    DictInst: IMetaDictionaryInstance;
    MetaDLookup: IMetaDictionaryLookup;
    Conditions: IOrmConditions;
    Cond: IOrmCondition;
    i: Integer;
    Res: Array Of Integer;
Begin
    MB := MetabaseClass.Active;
    RubDesc := MB.ItemById("OBJ_FC");
    RubrIn := RubDesc.Open(NullAs IRubricatorInstance;
    DictInst := RubrIn.Facts;
    MetaDLookup := DictInst.CreateLookup("");
    Conditions := MetaDLookup.Where;
    Cond := Conditions.Add;
    Cond.AttributeName := "COUNTRY";
    Cond.Value := 512;
    MetaDLookup.RevisionAttributes(0) := "REV";
    MetaDLookup.RevisionAttributes(1) := "UNIT";
    MetaDLookup.WhereRevisionBetween(6066);
    i := MetaDLookup.LookupKeys("FACTOR").Length;
    Res := New Integer[i];
    Res := MetaDLookup.LookupKeys("FACTOR");
    For i := 0 To Res.Length - 1 Do
        Debug.WriteLine(Res[i].ToString);
    End For;
End Sub UserProc;

После выполнения примера в окно консоли будут выведены ключи показателей, соответствующих следующим условиям: значение атрибута «COUNTRIES» у показателя равняется «512», а значение атрибутов «UNIT» и «REV» находится в диапазоне от «60» до «66».

См. также:

IMetaDictionaryLookup