Stubs: IVariableStubsCollection;
Свойство Stubs возвращает коллекцию приёмников и источников данных блоков расчёта и блоков контроля.
Для выполнения примера предполагается наличие в репозитории алгоритма расчёта с идентификатором ALGORITHM. В алгоритме расчёта должны содержаться блоки расчёта и блоки контроля, в которых добавлены приёмники и источники данных.
Добавьте ссылки на системные сборки: Algo, Cubes, Metabase. Также добавьте ссылку на сборку, необходимую для работы с алгоритмом расчёта.
Sub UserProc;
Var
MB: IMetabase;
MObj: IMetabaseObjectDescriptor;
Algo: ICalcObject;
CalcAlgo: ICalcAlgorithm;
Stubs: IVariableStubsCollection;
Stub: IVariableStub;
i: Integer;
Begin
MB := MetabaseClass.Active;
// Получим алгоритм расчёта
MObj := MB.ItemById("ALGORITHM");
Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
CalcAlgo := Algo As ICalcAlgorithm;
// Получим коллекцию приёмников и источников данных блоков расчёта и блоков контроля
Stubs := CalcAlgo.Stubs;
// Выведем в консоль информацию о приёмниках и источниках данных
For i := 0 To Stubs.Count-1 Do
Stub := Stubs.Item(i);
Debug.Write("Наименование: " + Stub.Name + ", ");
Debug.WriteLine("количество измерений в кубе: " + Stub.DimensionCount.ToString)
End For;
End Sub UserProc;
В результате выполнения примера в консоль будет выведена информация о приёмниках и источниках данных, например:
Наименование: Куб показателей, количество измерений в кубе: 2
Наименование: Куб-приёмник, количество измерений в кубе: 4
Наименование: Куб с управляемыми измерениями, количество измерений в кубе: 3
См. также: