WhereParentKey: Integer;
Свойство WhereParentKey определяет ключ родительской формулы, по которой будет производиться поиск.
Ключ родительской формулы определяет свойство IRubricatorFormulaData.ParentKey.
Для выполнения примера в репозитории должна присутствовать база данных временных рядов с идентификатором «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». Если формула будет найдена, то в окно консоли будет выведено значение типа найденной формулы.
См. также: