IMsModel.AttributeFormulasList

Syntax

AttributeFormulasList: IMsAttributesFormulasList;

Description

The AttributeFormulasList property returns the collection of methods for calculating additional attributes by formulas.

Comments

This property is used if the model is included in the modeling container of the time series database. Collection formulas are used to calculate additional attributes for factors. Each element of the collection is implemented by the IMsFormulaTransform interface and allows to set up parameters of attribute calculation.

Example

Executing the example requires that the repository contains a time series database with the OBJ_RUBRICATOR identifier. The database contains an additional string attribute of factors with the COMM identifier that is used to store a comment to factors. Modeling container of the database contains a model with the MODEL identifier.

Add links to the Cubes, Dimensions, Metabase, Ms, Rds, and System system assemblies.

Sub UserProc;
Var
    Mb: IMetabase;
    Rubr: IRubricator;
    Model: IMsModel;
    FormulasList: IMsAttributesFormulasList;
    AttrTranfsorm: IMsFormulaTransform;
    ModelTransform: IMsFormulaTransform;
    ModelOutputs: IMsFormulaTransformVariables;
    OutputVar: IMsFormulaTransformVariable;
    AttrOutputs: IMsFormulaTransformVariables;
    TransVar: IMsFormulaTransformVariable;
    OutputSlices: IMsFormulaTransformSlices;
    SelectionSet: IDimSelectionSet;
    Slice: IMsFormulaTransformSlice;
    AttrValueList: IMsMetaAttributeValueList;
    RubrMetaAttrs: IMetaAttributes;
    RubrAttr: IMetaAttribute;
    AttrVal: IMsMetaAttributeValue;
    Selector: IMsFormulaTransformSelector;
    Formula: IMsFormula;
    Determ: IMsDeterministicTransform;
    Expr: IExpression;
    DetermOperands: IMsFormulaTermList;
    tInfo: IMsFormulaTermInfo;
Begin
    Mb := MetabaseClass.Active;
    Rubr := Mb.ItemById("OBJ_RUBRICATOR").Bind As IRubricator;
    Model := Mb.ItemByIdNamespace("MODEL", Rubr.ModelSpace.Key).Edit As IMsModel;
    ModelTransform := Model.Transform;
    ModelOutputs := ModelTransform.Outputs;
    OutputVar := ModelOutputs.Item(0);
    // Get list of methods, by which additional attributes will be calculated
    FormulasList := Model.AttributeFormulasList;
    FormulasList.Clear;
    // Add a new method for additional attribute calculation and set its parameters
    AttrTranfsorm := FormulasList.Add;
    AttrOutputs := AttrTranfsorm.Outputs;
    TransVar := AttrOutputs.Add(OutputVar.VariableStub);
    TransVar.AttributeId := "COMM";
    OutputSlices := OutputVar.Slices;
    SelectionSet := OutputSlices.Item(0).Selection;
    Slice := TransVar.Slices.Add(SelectionSet);
    AttrValueList := Slice.MetaAttributeValueList;
    AttrValueList.Clear;
    RubrMetaAttrs := Rubr.Facts.Attributes;
    RubrAttr := RubrMetaAttrs.FindById("COMM");
    AttrVal := AttrValueList.Add(RubrAttr);
    AttrVal.Kind := MsMetaAttributeValueType.Unspecified;
    Selector := AttrTranfsorm.CreateSelector;
    Selector.Slice := Slice;
    Formula := AttrTranfsorm.Transform(Selector);
    Formula.Kind := MsFormulaKind.Deterministic;
    Determ := Formula.Method As IMsDeterministicTransform;
    DetermOperands := Determ.Operands;
    DetermOperands.Clear;
    tInfo := DetermOperands.Add(Slice).TermInfo;
    Expr := Determ.Expression;
    Expr.AsString := "iif(" + tInfo.TermInnerText + "<>""""," + tInfo.TermInnerText + ",""No comment"")";
    If Not (Expr.Valid)
        Then Debug.WriteLine(expr.ErrorInfo.ErrorMessage);
        Else (Model As IMetabaseObject).Save;
    End If;
End Sub UserProc;

After executing the example, on calculating the model, attribute of the COMM factors for output variable is calculated as follows:

See also:

IMsModel