ICalcLinearOptimizationBlock.TargetFunction

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Algo, CalcBlock: ICalcObject;
    List: ICalcObjectsList;
    CalcAlgo: ICalcAlgorithm;
    LinearBlock: ICalcLinearOptimizationBlock;
    OneDimension: IDimensionModel;
    DimInstance: IDimInstance;
    TargetFunction: IDimSelectionSet;
    Sel: IDimSelection;
    i, DimCount: Integer;
    IterDim: IMsDimIteratorDimension;
    StubOut: IVariableStub;
    Iter: IMsCalculationChainMultiDimIterator;
    IterDims: IMsDimIteratorDimensions;
    CubeOut: IStandardCube;
Begin
    MB := MetabaseClass.Active;
    // Получим алгоритм расчёта
    MObj := MB.ItemById("ALGORITHM");
    Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
    CalcAlgo := Algo As ICalcAlgorithm;
    // Получим список объектов алгоритма расчёта
    List := CalcAlgo.Items;
    // Получим первый блок линейной оптимизации
    CalcBlock := List.Item(0);
    LinearBlock := CalcBlock As ICalcLinearOptimizationBlock;
    // Зададим приёмник данных
    CubeOut := MB.ItemById("CUBE_OUTPUT").Edit As IStandardCube;
    LinearBlock.StubOut := CubeOut As IVariableStub;
    // Получим количество измерений приёмника
    StubOut := LinearBlock.StubOut;
    DimCount := StubOut.DimensionCount;
    // Получим коллекцию измерений целевой функции
    TargetFunction := LinearBlock.TargetFunction;
    // Добавим измерения приёмника в целевую функцию
    For i := 0 To DimCount - 1 Do
        OneDimension := StubOut.Dimension(i);
        // Проверим, не является ли измерение календарным
        If Not OneDimension.IsCalendar Then
            // Получим данные измерения
            DimInstance := (OneDimension As IMetabaseObjectDescriptor).Open(Null) As IDimInstance;
            // Проверим идентификатор измерения (не добавляем факты в целевую функцию)
            If DimInstance.Ident <> "FACTS" Then
                // Получим отметку измерения
                Sel := TargetFunction.FindByKey(DimInstance.Key);
                // Добавим измерение в целевую функцию, если отметка задана
                If Sel = Null Then
                    TargetFunction.Add(DimInstance);
                    // Получим многомерный итератор
                    Iter := LinearBlock.Iterator;
                    // Получим измерения, по которым будет выполняться итерация
                    IterDims := Iter.Dimensions;
                    IterDim := IterDims.FindByKey(DimInstance.Key);
                    // Удалим измерения из итератора
                    IterDims.RemoveByKey(IterDim.Dimension.Key);
                End If;
            End If;
        End If;
    End For;
    // Сохраним изменения
    LinearBlock.SaveObject;
End Sub UserProc;