InsertChild(Data: IRdsDictionaryElementData): IRdsDictionaryElement;
Data. Данные нового элемента.
Метод InsertChild создает новый дочерний элемент для данного элемента. Новый элемент создается на основе данных, передаваемых посредством параметра Data, и добавляется в конец всей ветки дочерних элементов.
Для выполнения примера предполагается наличие репозитория НСИ - "NSI_1", содержащего справочник НСИ с идентификатором "Dict_1".
Sub UserProc;
Var
MB: IMetabase;
Attrs: IRdsAttributes;
Dict: IRdsDictionary;
DictInst: IRdsDictionaryInstance;
Elements: IRdsDictionaryElements;
Element: IRdsDictionaryElement;
Data: IRdsDictionaryElementData;
Begin
MB := MetabaseClass.Active;
Dict := MB.ItemByIdNamespace("Dict_1", MB.ItemById("NSI_1").Key).Bind As IRdsDictionary;
Attrs := Dict.Attributes;
DictInst := Dict.Open(Null);
Elements := DictInst.Elements;
Element := Elements.Item(1);
Data := Elements.CreateElementData;
Data.Attribute(Attrs.Name.Key) := "Новый элемент";
Element.InsertChild(Data);
End Sub UserProc;
После выполнения примера для первого элемента будет создан один дочерний элемент.
См. также: