IRubricatorFactor.CompoundFactor

Синтаксис Fore

CompoundFactor: Variant;

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

CompoundFactor: object;

Описание

Свойство CompoundFactor возвращает составной ключ временного ряда.

Пример Fore

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

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

Sub UserProc;
Var
    mb: IMetabase;
    RubI: IRubricatorInstance;
    Key: Array[2];
    KeyRes: Array Of Variant;
    FactD: IRubricatorFactData;
    Factor: IRubricatorFactor;
    i: Integer;
Begin
    mb := MetabaseClass.Active;
    // Получаем  БД временных рядов
    RubI := mb.ItemById("RUBRICATOR_CUBE").Open(Null) As IRubricatorInstance;
    // Задаем составной ключ
    Key[0] := 512;
    Key[1] := 1009;
    // Получаем временной ряд по значению составного ключа
    FactD := RubI.GetCompoundFactData(Key);
    Factor := FactD.Factor;
    KeyRes := Factor.CompoundFactor As Array Of Variant;
    For i := 0 To KeyRes.Length - 1 Do
        Debug.WriteLine(KeyRes[i]);
    End For;
End Sub UserProc;

Результат выполнения примера: в окно консоли будут выведены значения, образующие составной ключ для найденного временного ряда.

Пример Fore.NET

Для выполнения примера в репозитории предполагается наличие БД временных рядов с идентификатором «RUBRICATOR_CUBE». Данная база должна быть основана на таблице данных.
Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Rds;
…
[STAThread]
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    RubI: IRubricatorInstance;
    Key: Array[2] Of object;
    KeyRes: Array Of object;
    FactD: IRubricatorFactData;
    Factor: IRubricatorFactor;
    i: Integer;
Begin
    mb := Params.Metabase;
    // Получаем  БД временных рядов
    RubI := mb.ItemById["RUBRICATOR_CUBE"].Open(Null) As IRubricatorInstance;
    // Задаем составной ключ
    Key[0] := 512;
    Key[1] := 1009;
    // Получаем временной ряд по значению составного ключа
    FactD := RubI.GetCompoundFactData(Key, DictionaryGetDataOptions.dgdoNone);
    Factor := FactD.Factor;
    KeyRes := Factor.CompoundFactor As Array Of object;
    For i := 0 To KeyRes.Length - 1 Do
        System.Diagnostics.Debug.WriteLine(KeyRes[i]);
    End For;
End Sub;

См. также: