IRubricatorFormulasLookup.WhereParentKey

Синтаксис Fore

WhereParentKey: Integer;

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

WhereParentKey: uinteger;

Описание

Свойство WhereParentKey определяет ключ родительской формулы, по которой будет производиться поиск.

Комментарии

Ключ родительской формулы определяет свойство IRubricatorFormulaData.ParentKey.

Пример Fore

Для выполнения примера в репозитории должна присутствовать база данных временных рядов с идентификатором «FC_COMM». Также добавьте ссылки на системные сборки «Metabase», «Cubes».

Sub UserProc;
Var
    mb: IMetabase;
    Rub: IMetabaseObject;
    RubInst: IRubricatorInstance;
    ForLoo: IRubricatorFormulasLookup;
    formulaData: IRubricatorFormulaData;
Begin
    mb := MetabaseClass.Active;
    Rub := mb.ItemById("FC_COMM").Edit;
    RubInst := Rub.Open(Null) As IRubricatorInstance;
    ForLoo := RubInst.CreateFormulasLookup;
    ForLoo.WhereParentKey := 452233;
    formulaData := ForLoo.LookupData;
    If formulaData <> Null
        Then Debug.WriteLine("Формула найдена. Тип: " + formulaData.Kind.ToString);
        Else Debug.WriteLine("Формула не найдена");
    End If;
End Sub UserProc;

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

Пример Fore.NET

Для выполнения примера в репозитории должна присутствовать база данных временных рядов с идентификатором «FC_COMM».

Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Rds;
…
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    Rub: IMetabaseObject;
    RubInst: IRubricatorInstance;
    ForLoo: IRubricatorFormulasLookup;
    formulaData: IRubricatorFormulaData;
    s: String;
Begin
    mb := Params.Metabase;
    Rub := mb.ItemById["FC_COMM"].Edit();
    RubInst := Rub.Open(Null) As IRubricatorInstance;
    ForLoo := RubInst.CreateFormulasLookup();
    ForLoo.WhereParentKey := 452233;
    formulaData := ForLoo.LookupData(DictionaryGetDataOptions.dgdoNone);
    If formulaData <> Null
        Then
            s := ("Формула найдена. Тип: " + formulaData.Kind.ToString());
        Else
            s := ("Формула не найдена");
    End If;
End Sub;

После выполнения примера будет создан объект, осуществляющий поиск в базе данных временных рядов формулы, родительская формула которой имеет ключ «452233». Если параметры будут найдены, то в переменной «s» будет сохранено значение типа найденной формулы.

См. также:

IRubricatorFormulasLookup