IDynamicInstance.MergeWith

Синтаксис Fore

MergeWith(Other: IDynamicInstance): Boolean;

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

MergeWith(Other: Prognoz.Platform.Interop.Dimensions.DynamicInstance): boolean;

Параметры

Other. Справочник с которым нужно объединить основной справочник.

Описание

Метод MergeWith объединяет справочники.

Пример Fore

Для выполнения примера предполагается наличие формы, содержащей компонент DimensionTree с идентификатором «DimensionTree1», компонент UiDimension с идентификатором «UiDimension1» и компонент Button с идентификатором «Button1». Укажите компонент «UiDimension1» в качестве источника данных для компонента «DimensionTree1». Источником данных компонента «UiDimension1» должен быть табличный справочник НСИ с настроенной динамической загрузкой элементов.

Также предполагается наличие в репозитории дополнительного табличного справочника НСИ с настроенной динамической загрузкой элементов и с идентификатором «MERGE_DIM».

Пример является обработчиком события OnClick для компонента «Button1».

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    MB: IMetabase;
    Dim: IDynamicInstance;
    DimForMerge: IDynamicInstance;
Begin
    MB := MetabaseClass.Active;
    Dim := UiDimension1.DimInstance As IDynamicInstance;
    // Откроем справочник для объединения
    DimForMerge := MB.ItemById("MERGE_DIM").Open(Null) As IDynamicInstance;
    If Dim.CanMergeWith(DimForMerge) Then
        Dim.MergeWith(DimForMerge);
    End If;
End Sub Button1OnClick;

При нажатии на кнопку «Button1» данные табличного справочника «MERGE_DIM» будут скопированы в справочник, расположенный в компоненте «DimensionTree1».

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Metabase;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    MB: IMetabase;
    Dim: IDynamicInstance;
    DimForMerge: DynamicInstance;
Begin
    MB := Self.Metabase;
    Dim := uiDimensionNet1.DimInstance As IDynamicInstance;
    // Откроем справочник для объединения
    DimForMerge := MB.ItemById["MERGE_DIM"].Open(Null) As DynamicInstance;
    If Dim.CanMergeWith(DimForMerge) Then
        Dim.MergeWith(DimForMerge);
    End If;
End Sub;

См. также:

IDynamicInstance