IDimElementGroup.DimensionInstance

Syntax

DimensionInstance: IDimInstance;

Description

The DimensionInstance property allows to install a dictionary sample for the group of elements.

Comments

Use the property on copying the group of elements to bind the copied group to another dictionary.

Example

Executing the sample requires two dictionaries with the Dim_1 and Dim_1_COPY identifies. For the Dim_1_COPY dictionary the groups of elements are set.

Add links to the Dimensions and Metabase system assemblies.

Sub UserProc;
Var
    mb: IMetabase;
    obj: IMetabaseObject;
    desc: IMetabaseObjectDescriptor;
    childs: IMetabaseObjectDescriptors;
    CInfo: IMetabaseObjectCopyInfo;
    group: IDimElementGroup;
    i: Integer;
Begin
    mb := MetabaseClass.Active;
    desc := mb.ItemById("Dim_1");
    childs := desc.Children;
    If childs.Count <> 0 Then
        For i := 0 To childs.Count - 1 Do
            desc := childs.Item(i);
            If desc.ClassId = 1029 Then
                CInfo := mb.CreateCopyInfo;
                CInfo.Source := mb.ItemById("Dim_1_COPY1").Children.Item(i);
                CInfo.Destination := desc;
                mb.CopyObject(CInfo);
                obj := CInfo.Destination.Edit;
                group := obj.Edit As IDimElementGroup;
                group.DimensionInstance := desc.Open(Null) As IDimInstance;
                (group As IMetabaseObject).Save;
                Break;
            End If;
        End For;
    End If;
End Sub UserProc;

After executing the example the first found group of elements is copied from the dictionary with the Dim_1_COPY identifier to the Dim_1 dictionary.