IDimSelectionSet.CopyTo

Синтаксис

CopyTo(

Dest: IDimSelectionSet;

Replace: Boolean;

AddDimensions: Boolean);

Параметры

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

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

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

Описание

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

Пример

Sub Main;

Var

MB: IMetabase;

CubeInstance, CubeInstance1: ICubeInstance;

Destination, Destination1: ICubeInstanceDestination;

DimSelectionSet, DimSelectionSet1: IDimSelectionSet;

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;

DimSelectionSet.CopyTo(DimSelectionSet1,True,True);

DimSelectionSet.Clear;

End Sub Main;

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

См. также:

IDimSelectionSet