FactorKey: Integer;
Свойство FactorKey возвращает ключ показателя.
Для выполнения примера в репозитории должна присутствовать база данных временных рядов с идентификатором «OBJ_RUBRICATOR». База данных временных рядов должна содержать справочник формул.
Sub Main;
Var
mb: IMetabase;
Rub: IMetabaseObject;
RubInst: IRubricatorInstance;
DepLoo: IRubricatorFactorDependenciesLookup;
DepData: IRubricatorFactorDependencyData;
Begin
mb := MetabaseClass.Active;
Rub := mb.ItemById("OBJ_RUBRICATOR").Bind;
RubInst := Rub.Open(Null) As IRubricatorInstance;
DepLoo := RubInst.CreateDependenciesLookup;
DepLoo.WhereCalendarPoint := DateTime.Parse("01.01.1980 00:00:00");
DepLoo.Open;
While (Not DepLoo.Eof) Do
DepData := DepLoo.Current;
Debug.WriteLine("Ключ записи показателя: " + DepData.FactorIdentity.ToString);
Debug.WriteLine("Ключ показателя: " + DepData.FactorKey.ToString);
Debug.WriteLine("Ключ ревизии: " + DepData.RevisionKey.ToString);
Debug.WriteLine("Ключ формулы: " + DepData.FormulaKey.ToString);
Debug.WriteLine("Позиция в формуле: " + DepData.Position.ToString);
Debug.WriteLine("Ключ записи зависимого показателя: " + DepData.DependentFactorIdentity.ToString);
Debug.WriteLine("Ключ зависимого показателя: " + DepData.DependentFactorKey.ToString);
Debug.WriteLine("Ключ ревизии зависимого показателя: " + DepData.DependentRevisionKey.ToString);
Debug.WriteLine("-----");
DepLoo.Next;
End While;
DepLoo.Close;
End Sub Main;
После выполнения примера будет создан объект, осуществляющий поиск зависимостей в базе данных временных рядов по заданным условиям. Информация о найденных зависимостях будет выведена в окно консоли.
См. также: