ICalcObject.Params

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Algo, CalcBlock: ICalcObject;
    List: ICalcObjectsList;
    CalcAlgo: ICalcAlgorithm;
    Block: ICalcBlock;
    i: integer;
    Params: IMsModelParams;
    Param: IMsModelParam;
    Dict: IMetabaseObjectDescriptor;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("ALGORITHM");
    // Get dictionary
    Dict := MB.ItemById("CALENDAR");
    Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
    // Rename algorithm
    Algo.Descriptor.Name := "Algorithm (with parameters)";
    Params := Algo.Params;
    // Add a new parameter
    Param := Params.Add;
    Param.Name := "Parameter 1";
    Param.ParamType := TsParamType.Selection;
    // Set dictionary, which values are used as parameter values
    Param.LinkedObject := Dict;
    Param.SelectionMode := SelectionModeEnum.SingleSelect;
    // Save metamodel
    (Algo.MetaModel As IMetabaseObject).Save;
    CalcAlgo := Algo As ICalcAlgorithm;
    // Create a list of algorithm objects
    List := CalcAlgo.Items;
    // Set up list of objects
    For i := 0 To List.Count - 1 Do
        CalcBlock := List.Item(i);
        If CalcBlock.Type = CalcObjectType.CalcBlock Then
            Debug.WriteLine(CalcBlock.Name);
            Block := CalcBlock As ICalcBlock;
            // If algorithm is opened for edit, calculation objects can be edited
            If CalcAlgo.IsEdited Then
                // Add a suffix for all algorithm calculation blocks from calculation chain
                Block.Name := Block.Name + "(with parameter)";
                // Add a parameter to each calculation block
                Param := Block.Params.Add;
                Param.Name := "Calculation block parameter";
                Param.ParamType := TsParamType.Selection;
                Param.LinkedObject := Dict;
                Param.SelectionMode := SelectionModeEnum.SingleSelect;
                Block.SaveObject;
            End If;
        End If;
    End For;
    // Save changes
    Algo.SaveObject;
End Sub UserProc;