IRubricatorDictionaryLookup.WhereRevisionBetween

Синтаксис

WhereRevisionBetween(First: Integer; Last: Integer);

Параметры

First. Ключ первой ревизии;

Last. Ключ последней ревизии.

Описание

Метод WhereRevisionBetween осуществляет поиск показателей, измененных между двумя ревизиями.

Пример

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

Sub Main;

Var

MB: IMetabase;

RubDesc: IMetabaseObjectDescriptor;

Factors: Array;

RubrIn: IRubricatorInstance;

FactsLookup: IRubricatorFactsLookup;

f: IRubricatorFactor;

Record: IRubricatorRecord;

a: Array;

i: Integer;

Begin

MB := MetabaseClass.Active;

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

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

FactsLookup := RubrIn.CreateFactsLookup;

FactsLookup.WhereFactorKey := 12195998;

FactsLookup.WhereRevisionBetween(1, 13);

Factors := FactsLookup.GetFactors;

If Factors <> Null Then

f := Factors[0];

Record := f.FactData As IRubricatorRecord;

a := Record.Record.Value As Array;

If a <> Null Then

For i := 0 To a.Length - 1 Do

Debug.WriteLine(a[i] As String);

End For;

End If;

End If;

End Sub Main;

После выполнения примера будет проведен поиск показателя с ключом «12195998», измененного между первой и тринадцатой ревизией. Если показатель будет найден, то в окно консоли будет выведена запись, содержащая информацию о показателе.

См. также:

IRubricatorDictionaryLookup