DimensionTransparent(OutputVariable: IMsFormulaTransformVariable; Dimension: IDimensionModel): Boolean;
OutputVariable, Выходная переменная;
Dimension. Дополнительное измерение выходной переменной, для которой необходимо установить общую спецификацию по всем элементам.
Свойство DimensionTransparent определяет, будет ли для элементов измерения выходной (моделируемой) переменной использоваться общая спецификация расчёта. Выходная переменная и дополнительное измерение передается посредством параметра OutputVariable и Dimension соответственно.
Для моделей межотраслевого баланса всегда используется общая спецификация по всем измерениям выходных переменных.
Sub Main;
Var
MB: IMetabase;
CrInf: IMetabaseObjectCreateInfo;
MObj: IMetabaseObject;
Model: IMsModel;
Vari: IMsVariable;
Dim: IDimensionModel;
Begin
MB := MetabaseClass.Active;
CrInf := Mb.CreateCreateInfo;
CrInf.ClassId := MetabaseObjectClass.KE_CLASS_MSMODEL;
CrInf.Id := "New_Balance";
CrInf.Name := "New_Balance";
CrInf.Parent := Mb.ItemById("KONT_MODEL");
CrInf.Permanent := False;
MObj := Mb.CreateObject(CrInf).Edit;
Model := MObj As IMsModel;
Model.Kind := MsModelKind.InterindustryBalance;
Vari := MB.ItemByIdNamespace("Var_1", MB.ItemById("KONT_MODEL").Key).Bind As IMsVariable;
Model.Output.Add(Vari);
Dim := Vari.Dimensions.Item(0).Model;
Model.Transform.DimensionTransparent(Model.Transform.Outputs.Item(0), Dim) := True;
MObj.Save;
End Sub Main;
После выполнения примера в контейнере моделирования с идентификатором "KONT_MODEL" будет создана новая модель. Тип модели - межотраслевой баланс. В качестве переменной конечного использования будет установлена переменная с идентификатором "Var_1".
См. также: