IRubricatorDictionaryLookup.CurrentRevision

Синтаксис

CurrentRevision: IRubricatorRevision;

Описание

Свойство CurrentRevision определяет ревизию для редактирования.

Пример

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

Sub Main;

Var

MB: IMetabase;

RubDesc: IMetabaseObjectDescriptor;

RubrIn: IRubricatorInstance;

FactsLookup: IRubricatorFactsLookup;

MetaDLookup: IMetaDictionaryLookup;

cond: IOrmCondition;

i: Integer;

key: Array Of integer;

Begin

MB := MetabaseClass.Active;

RubDesc := MB.ItemById("OBJ_RUBRICATOR");

RubrIn := RubDesc.Open(Null) As IRubricatorInstance;

FactsLookup := RubrIn.CreateFactsLookup;

MetaDLookup := FactsLookup.Lookup;

cond := MetaDLookup.Where.Add;

cond.AttributeName := "COUNTRIES";

cond.Value := 512;

FactsLookup.CurrentRevision := RubrIn.OpenRevision("Новая ревизия");

FactsLookup.CurrentRevision.Save;

i := FactsLookup.LookupFactors.Length;

key := New Integer[i];

key := FactsLookup.LookupFactors;

End Sub Main;

После выполнения примера массив «Key» будет содержать ключи показателей соответствующих следующему условию: значение атрибута «COUNTRIES» у показателя равняется «512».

См. также:

IRubricatorDictionaryLookup