IMsFormulaTransform.Kind

Syntax

Description

The Kind property determines the model type.

Example

Executing the example requires that the repository contains a modeling container with the MODEL_SPACE identifier. Modeling variable with the Var_1 identifier is present in this container. At least one additional dimension is added to the structure of the variable.

Sub UserProc;
Var
    MB: IMetabase;
    ModelSpace: IMetabaseObjectDescriptor;
    CrInf: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    Model: IMsModel;
    Transf: IMsFormulaTransform;
    Var_1: IVariableStub;
    TransfVar: IMsFormulaTransformVariable;
    Dim: IDimensionModel;
Begin
    MB := MetabaseClass.Active;
    ModelSpace := Mb.ItemById("MODEL_SPACE");
        CrInf := Mb.CreateCreateInfo;
        CrInf.ClassId := MetabaseObjectClass.KE_CLASS_MSMODEL;
        CrInf.Id := "New_Balance";
        CrInf.Name := "New_Balance";
        CrInf.Parent := ModelSpace;
    MObj := Mb.CreateObject(CrInf).Edit;
    Model := MObj As IMsModel;
    Transf := Model.Transform;
    Transf.Kind := MsModelKind.InterindustryBalance;
    Var_1 := MB.ItemByIdNamespace("Var_1", ModelSpace.Key).Bind As IVariableStub;
    TransfVar := Transf.Outputs.Add(Var_1);
    Dim := Var_1.Dimension(0);
    Transf.DimensionTransparent(TransfVar, Dim) := True;
    MObj.Save;
End Sub UserProc;

After executing the example, a new model is created in the modeling container. Model type is input-output model. The specified variable is set as the end use variable.