IMsProblemCalculation.CreateVariablesReport

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

    Sub UserProc;
    Var
        Mb: IMetabase;
        MsKey: Integer;
        Problem: IMsProblem;
        CalcSett: IMsProblemCalculationSettings;
        ProblCalc: IMsProblemCalculation;
        VarReport: IMsProblemVariablesReport;
        DataSource: IMatrixDataSource;
        Ci: IMetabaseObjectCreateInfo;
        Eax: IEaxAnalyzer;
        VarList: IVariableStubList;
        Varable: IVariableStub;
        s: String;
        i: Integer;
        b: Boolean;
    Begin
        Mb := MetabaseClass.Active;
        MsKey := Mb.ItemById("OBJ_MS").Key;
        Problem := Mb.ItemByIdNamespace("PROBLEM", MsKey).Bind As IMsProblem;
        CalcSett := Problem.CreateCalculationSettings;
        ProblCalc := Problem.Calculate(CalcSett);
        VarReport := ProblCalc.CreateVariablesReport;
        VarReport.AddVariableKind(MsVariableKind.Output);
        DataSource := VarReport.CreateDataSource;
        Ci := Mb.CreateCreateInfo;
        Ci.ClassId := MetabaseObjectClass.KE_CLASS_EXPRESSREPORT;
        Ci.Parent := VarReport.ModelSpace As IMetabaseObjectDescriptor;
        Ci.Name := "Отчет по выходным переменным";
        Eax := Mb.CreateObject(Ci).Edit As IEaxAnalyzer;
        Eax.CreateMultiOlap(DataSource);
        VarReport.SetupSelection(Eax.Pivot.Selection);
        (Eax As IMetabaseObject).Save;
        s := (VarReport.Problem As IMetabaseObject).Name;
        Debug.WriteLine("Отчет по выходным переменным для задачи '" + s + "'");
        i := VarReport.ParamValues.Count;
        Debug.WriteLine("Количество параметров в задаче: " + i.ToString);
        Debug.WriteLine("Переменные, входящие в отчет:");
        VarList := VarReport.Variables;
        For i := 0 To VarList.Count - 1 Do
            Varable := VarList.Item(i);
            Debug.WriteLine("    " + Varable.Name);
        End For;
        b := VarReport.Parent <> Null;
        Debug.WriteLine("Присутствует родительский объект для виртуального куба: " + b.ToString);
        b := VarReport.Cube <> Null;
        Debug.WriteLine("Был создан виртуальный куб: " + b.ToString);
    End Sub UserProc;