IDimSelection.CopyToEx

Синтаксис Fore

CopyToEx: (Options: SelectionCopyToExOptions;Dest: IDimSelection; Replace: Boolean);

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

CopyToEx(Prognoz.Platform.Interop.Dimensions.SelectionCopyToExOptions,Prognoz.Platform.Interop.Dimensions.IDimSelection,System.Boolean)

Параметры

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

Dest. Измерение-приемник, в который необходимо скопировать отметку, схемы отметки или группы элементов измерения-источника.

Replace. Параметр, определяющий будут ли сбрасываться отметка, схемы отметки или группы элементов, содержащиеся в приемнике Dest при копировании. Сбрасывается, если значение True.

Описание

Метод CopyToEx осуществляет копирование опции, выбранной посредством параметра Options, из измерения-источника в измерение-приемник.

Пример

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    dimension : IDimInstance;
    sel1,sel2 : IDimSElection;
    group : IDimElementGroup;
Begin
    dimension := MetabaseClass.Active.ItemById("D_SEP_EXMPL").Open(Null) As IDimInstance;
    group := (dimension As IMetabaseObjectInstance).Object.Children.Item(0).Bind As IDimElementGroup;
    sel1 := dimension.CreateSelection;
    sel2 := dimension.CreateSelection;
    sel1.selectAll;
    sel1.Group := group;
    sel1.CopyToEx(SelectionCopyToExOptions.WithSchema,sel2,False);
    If sel1.group = sel2.Group Then
        Button1.Text := "Fail";
    Else
        Button1.Text := "OK";
    End If;
End Sub Button1OnClick;

После выполнения примера в отметку «sel2» будут добавлены отметка и схема отметки измерения-источника.

Пример Fore.NET

Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Dimensions;

…
Private Sub button1_Click( sender : System.Object; e : System.EventArgs );
Var
    dimension : IDimInstance;
    sel1,sel2 : IDimSElection;
    group : IDimElementGroup;
Begin
    dimension := Self.Metabase.ItemById["D_SEP_EXMPL"].Open(Null) As IDimInstance;
    group := (dimension As IMetabaseObjectInstance).Object.Children.Item[0].Bind() As IDimElementGroup;
    sel1 := dimension.CreateSelection();
    sel2 := dimension.CreateSelection();
    sel1.selectAll();
    sel1.Group := group;
   sel1.CopyToEx(SelectionCopyToExOptions.scteoWithSchema,sel2,False);
    If sel1.group = sel2.Group Then
        Button1.Text := "Fail";
    Else
        Button1.Text := "OK";
    End If;
End Sub;

После выполнения примера в отметку «sel2» будут добавлены отметка и схема отметки измерения-источника.

См. также:

IDimSelection