IRdsLinkInstance.ReferenceDictionary

Syntax

ReferenceDictionary: IRdsDictionaryInstance;

Description

The ReferenceDictionary property returns data of a linked dictionary.

Example

Executing the example requires the MDM repository NSI_1 that contains an MDM dictionary with the Dict_1 identifier. The dictionary includes the link with any other MDM dictionary. An attribute with the ATTRIBUTE identifier is a linked attribute.

Sub UserProc;
Var
    MB: IMetabase;
    Dict: IRdsDictionary;
    DictInst, RefDictInst: IRdsDictionaryInstance;
    LinkInst: IRdsLinkInstance;
    Data: IRdsDictionaryElementData;
    Attr: IRDsAttributes;
Begin
    MB := MetabaseClass.Active;
    Dict := MB.ItemByIdNamespace("Dict_1", MB.ItemById("NSI_1").Key).Bind As IRdsDictionary;
    DictInst := Dict.Open(Null);
    LinkInst := DictInst.Links.Item(0);
    RefDictInst := LinkInst.ReferenceDictionary;
    Data := DictInst.CreateElementData;
    Attr := Dict.Attributes;
    Data.Attribute(Attr.Name.Key) := "Test";
    //Linked attribute
    Data.Attribute(Attr.FindById("ATTRIBUTE").Key) := RefDictInst.Elements.Item(4).Key;
    DictInst.Insert(-2, Data);
End Sub UserProc;

After executing the example a new element is added to the MDM dictionary root. The forth element of a linked dictionary is chosen as an attribute value.

See also:

IRdsLinkInstance