IMsVariableLoadSettings.CreateCalculation

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Variable: IMsVariable;
    LoadSetting: IMsVariableLoadSetting;
    MethodCalculation: IMsMethodCalculation;
    Period: IMsModelPeriod;
    DimFix: IMsProblemDimensionFix;
    DimSS: IDimSelectionSet;
    DimS: IDimSelection;
    MethodCacl: IMsMethodCalculation;
    Matr: IMatrix;
    Mcoo: IMatrixCoord;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemByIdNamespace("VAR_1", MB.ItemById("KONT_MODEL").Key).Edit;
    Variable := MObj As IMsVariable;
    LoadSetting := Variable.CreateLoadSettings;
    Period := LoadSetting.Period;
    Period.IdentificationStartDate := DateTime.ComposeDay(2000, 1, 1);
    Period.IdentificationEndDate := DateTime.ComposeDay(2004, 1, 1);
    LoadSetting.ScenarioIncluded(-1) := True;
    DimFix := LoadSetting.DimensionFix;
    DimSS := DimFix.Selection;
    For Each DimS In DimSS Do
        DimS.SelectAll;
    End For;
    MethodCacl := LoadSetting.CreateCalculation;
    Matr := MethodCacl.Variable(Variable.Transform.Inputs.Item(0).VariableStub);
    Mcoo := Matr.CreateCoord;
    Mcoo.Item(1) := 0;
    //Данные первой переменной
    For i := Matr.LowerBound(0) To Matr.UpperBound(0) Do
        Mcoo.Item(0) := i;
        Debug.Write(Matr.Item(Mcoo) + " ");
    End For;
    Debug.WriteLine("");
    //Расчет и загрузка данных
    Variable.Execute(LoadSetting);
    Debug.WriteLine("Рассчитанные данные");
    Matr := MethodCacl.Variable(Variable.Transform.Outputs.Item(0).VariableStub);
    Mcoo := Matr.CreateCoord;
    Mcoo.Item(1) := 0;
    For i := Matr.LowerBound(0) To Matr.UpperBound(0) Do
        Mcoo.Item(0) := i;
        Debug.Write(Matr.Item(Mcoo) + " ");
    End For;
    MObj.Save;
End Sub UserProc;