IDimSelectionSet.CopyToEx

Синтаксис Fore

CopyToEx: (Dest: IDimSelectionSet; Options: SelectionCopyToExOptions; ReplaceSelection: Boolean; AddDimensions: Boolean);

Синтаксис Fore.NET

CopyToEx(Prognoz.Platform.Interop.Dimensions.IDimSelection; Prognoz.Platform.Interop.Dimensions.SelectionCopyToExOptions; boolean; boolean);

Параметры

Dest. Приемник, в который осуществляется копирование отметки справочников.

Options. Определяет копируемую опцию (только отметка, отметка и группы элементов; отметка и схемы отметки);

ReplaceSelection. Параметр, определяющий, будет ли заменяться отметка в приемнике. Если True, то приемник перед копированием очищается, если False - добавляются только не отмеченные элементы.

AddDimensions. Параметр, определяющий, будут ли добавляться отметки справочников, которых нет в приемнике.

Описание

Метод CopyToEx копирует группы элементов и отметки справочников в указанный приемник.

Комментарии

Для копирования отметки справочников в указанный приемник используйте метод IDimSelectionSet.CopyTo.

Пример Fore

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

Добавьте ссылки на системные сборки «Metabase», «Cubes», «Dimensions».

Sub main;
Var
    MB: IMetabase;
    CubeInstance, CubeInstance1: ICubeInstance;
    Destination, Destination1: ICubeInstanceDestination;
    DimSelectionSet, DimSelectionSet1: IDimSelectionSet;
    Options: SelectionCopyToExOptions;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    CubeInstance := MB.ItemById("CUBE_1").Open(Null) As ICubeInstance;
    Destination := CubeInstance.Destinations.DefaultDestination;
    DimSelectionSet := Destination.CreateDimSelectionSet;
    CubeInstance1 := MB.ItemById("CUBE_2").Open(Null) As ICubeInstance;
    Destination1 := CubeInstance.Destinations.DefaultDestination;
    DimSelectionSet1 := Destination.CreateDimSelectionSet;
    For i := 0 To DimSelectionSet.Count - 1 Do
        DimSelectionSet.Item(i).SelectAll;
    End For;
    Options := SelectionCopyToExOptions.None;
    DimSelectionSet.CopyToEx(DimSelectionSet1, Options, True, True);
    DimSelectionSet.Clear;
End Sub main;

После выполнения примера отметка, созданная в кубе с идентификатором «CUBE_1», будет скопирована в куб с идентификатором «CUBE_2».

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Dimensions;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    CubeInstance, CubeInstance1: ICubeInstance;
    Destination, Destination1: ICubeInstanceDestination;
    DimSelectionSet, DimSelectionSet1: IDimSelectionSet;
    Options: SelectionCopyToExOptions;
    i: Integer;
Begin
    MB := Params.Metabase;
    CubeInstance := MB.ItemById["CUBE_1"].Open(Null) As ICubeInstance;
    Destination := CubeInstance.Destinations.DefaultDestination;
    DimSelectionSet := Destination.CreateDimSelectionSet();
    CubeInstance1 := MB.ItemById["CUBE_2"].Open(Null) As ICubeInstance;
    Destination1 := CubeInstance.Destinations.DefaultDestination;
    DimSelectionSet1 := Destination.CreateDimSelectionSet();
    For i := 0 To DimSelectionSet.Count - 1 Do
        DimSelectionSet.Item[i].SelectAll();
    End For;
    Options := SelectionCopyToExOptions.scteoNone;
    DimSelectionSet.CopyToEx(DimSelectionSet1, Options, True, True);
    DimSelectionSet.Clear();
End Sub;

См. также:

IDimSelectionSet