ICalcBlock.StubOut

Синтаксис

Описание

Свойство StubOut определяет приёмник данных, в который будет записываться результат расчёта формул.

Пример

Для выполнения примера предполагается наличие в репозитории алгоритма расчёта с идентификатором ALGORITHM и двух стандартных кубов с идентификаторами CUBE, SOURCE_CUBE. В алгоритме расчёта должен содержаться блок расчёта, в кубах - календарные измерения.

Добавьте ссылки на системные сборки: Algo, Cubes, Metabase. Также добавьте ссылки на сборки, которые необходимы для работы с алгоритмами расчёта.

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Algo, CalcBlock: ICalcObject;
    List: ICalcObjectsList;
    CalcAlgo: ICalcAlgorithm;
    Block: ICalcBlock;
    StandCube, SourceCube: IStandardCube;
    Stub: IVariableStub;
    IteratorModel: ICalcBlockIteratorModel;
    IteratorStub: ICalcBlockIteratorStub;
    CountStubs, i: Integer;
Begin
    MB := MetabaseClass.Active;
    // Получим алгоритм расчёта
    MObj := MB.ItemById("ALGORITHM");
    Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
    CalcAlgo := Algo As ICalcAlgorithm;
    // Получим список объектов алгоритма расчёта
    List := CalcAlgo.Items;
    // Получим блок расчёта
    CalcBlock := List.Item(0);
    Block := CalcBlock As ICalcBlock;
    // Получим первый куб
    StandCube := MB.ItemById("CUBE").Edit As IStandardCube;
    Stub := StandCube As IVariableStub;
    // Зададим куб в качестве приёмника данных
    Block.StubOut := Stub;
    // Получим второй куб
    SourceCube := MB.ItemById("SOURCE_CUBE").Edit As IStandardCube;
    Stub := SourceCube As IVariableStub;
    // Зададим куб в качестве источника данных
    Block.StubsIn.Add(Stub);
    // Определим календарное измерение источника данных в качестве обычного измерения
    Block.UseCalendarAsStubDimension(Stub) := True;
    // Настроим связи между измерениями источника и приёмника данных по идентификаторам атрибутов
    IteratorModel := Block.EditIteratorModel;
    CountStubs := IteratorModel.Stubs.Count;
    For i := 0 To CountStubs-1 Do
        IteratorStub := IteratorModel.Stubs.Item(i);
        // Проверим использование связей в формулах
        If IteratorStub.HasUsedFormulesForLinkById = False  Then
            // Зададим связь измерений по идентификаторам атрибутов
            IteratorStub.LinkById;
        End If;
    End For;
    IteratorModel.Save;
    // Сохраним изменения в блоке расчёта
    Block.SaveObject;
End Sub UserProc;

В результате выполнения примера для блока расчёта будут заданы стандартные кубы в качестве приёмника и источника данных. Календарные измерения будут использоваться в качестве обычных измерений. Для всех измерений приёмника и источника данных будет настроена связь по идентификаторам атрибутов, если она не используется в формулах.

См. также:

ICalcBlock