IPrxDataSources.Add

Синтаксис

Add(Value: IMatrixDataSource): IPrxDataSource;

Параметры

Value. Многомерный источник данных.

Описание

Метод Add добавляет источник данных, передаваемый посредством параметра Value.

Пример Fore

Для выполнения примера предполагается наличие куба с идентификатором «CUBE» и регламентного отчета с идентификатором «REGULAR_REPORT». В модуле подключите системные сборки: Metabase, Report, Cubes, Matrix.

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Cube: ICubeInstance;
    Report: IPrxReport;
    MatrDS: IMatrixDataSource;
    DtSources: IPrxDataSources;
    DtSource: IPrxDataSource;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("REGULAR_REPORT").Edit;
    Cube := MB.ItemById("CUBE").Open(Null) As ICubeInstance;
    Report := MObj As IPrxReport;
    MatrDS := Cube.Destinations.DefaultDestination As IMatrixDataSource;
    DtSources := Report.DataSources;
    DtSource := DtSources.Add(MatrDS);
    MObj.Save;
End Sub UserProc;

После выполнения примера, в качестве источника данных регламентного отчета, будет добавлен куб с идентификатором «CUBE».

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Matrix;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Cube: ICubeInstance;
    Report: IPrxReport;
    MatrDS: IMatrixDataSource;
    DtSources: IPrxDataSources;
    DtSource: IPrxDataSource;
Begin
    MB := Params.Metabase;
    MObj := MB.ItemById["REGULAR_REPORT"].Edit();
    Cube := MB.ItemById["CUBE"].Open(Null) As ICubeInstance;
    Report := MObj As IPrxReport;
    MatrDS := Cube.Destinations.DefaultDestination As IMatrixDataSource;
    DtSources := Report.DataSources;
    DtSource := DtSources.Add(MatrDS);
    MObj.Save();
End Sub;

См. также:

IPrxDataSources