IRdsLinkInstance.ReferenceDictionary

Синтаксис

ReferenceDictionary: IRdsDictionaryInstance;

Описание

Свойство ReferenceDictionary возвращает данные связанного справочника.

Пример

Для выполнения примера предполагается наличие репозитория НСИ - "NSI_1", содержащего справочник НСИ с идентификаторами "Dict_1". В справочнике имеется связь с каким-либо другим справочником НСИ. В качестве связываемого атрибута выступает атрибут с идентификатором "ATTRIBUTE".

Sub Main;

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";

//Связанный атрибут

Data.Attribute(Attr.FindById("ATTRIBUTE").Key) := RefDictInst.Elements.Item(4).Key;

DictInst.Insert(-2, Data);

End Sub Main;

После выполнения примера в корень справочника НСИ будет добавлен новый элемент. В качестве значения атрибута связи будет выбран четвертый элемент связанного справочника.

См. также:

IRdsLinkInstance