IRubricator.UseDistinctSequence

Синтаксис Fore

UseDistinctSequence: Boolean;

Синтаксис Fore.NET

UseDistinctSequence: boolean;

Описание

Свойство UseDistinctSequence определяет, генерировать ли ключи показателей для базы данных временных рядов отдельно от остальных баз данных временных рядов в репозитории.

True. Ключи показателей для базы данных временных рядов генерируются отдельно. После установки данной опции её нельзя отменить;
False. Ключи показателей для базы данных временных рядов генерируются вместе с остальными базами данных временных рядов в репозитории.

Пример Fore

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

Добавьте ссылки на системные сборки «Cubes», «Db», «Metabase».

Sub UserProc;
Var
    mb: IMetabase;
    Rub: IRubricator;
    Seq: ISequence;
    Name: String;
Begin
    mb := MetabaseClass.Active;
    Rub := mb.ItemById("FC").Edit As IRubricator;
    If Not Rub.UseDistinctSequence Then
        Rub.UseDistinctSequence := True;
        (Rub As IMetabaseObject).Save;
    End If;
    Seq := Rub.Sequence;
    Debug.WriteLine("Параметры генерации ключей показателей:");
    Debug.WriteLine(" - стартовое значение :" + Seq.StartValue.ToString);
    Debug.WriteLine(" - шаг:" + Seq.IncrementStep.ToString);
    Name := (Seq.Database As IMetabaseObject).Name;
    Debug.WriteLine(" - база данных:" + Name);
    Debug.WriteLine(" - имя таблицы:" + Seq.NativeName);
End Sub UserProc;

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

Пример Fore.NET

Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Db;
…
[STAThread]
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    Rub: IRubricator;
    Seq: ISequence;
    Name: String;
Begin
    mb := Params.Metabase;
    Rub := mb.ItemById["FC"].Edit() As IRubricator;
    If Not Rub.UseDistinctSequence Then
        Rub.UseDistinctSequence := True;
        (Rub As IMetabaseObject).Save();
    End If;
    Seq := Rub.Sequence;
    System.Diagnostics.Debug.WriteLine("Параметры генерации ключей показателей:");
    System.Diagnostics.Debug.WriteLine(" - стартовое значение :" + Seq.StartValue.ToString());
    System.Diagnostics.Debug.WriteLine(" - шаг:" + Seq.IncrementStep.ToString());
    Name := (Seq.Database As IMetabaseObject).Name;
    System.Diagnostics.Debug.WriteLine(" - база данных:" + Name);
    System.Diagnostics.Debug.WriteLine(" - имя таблицы:" + Seq.NativeName);
End Sub;

См. также: