IRdsSortAttributes.AddRefAttribute

Копировать пример

Sub UserProc;
Var
    Mb: IMetabase;
    RdsKey: Integer;
    DictObj: IMetabaseObjectDescriptor;
    DictInst: IRdsDictionaryInstance;
    Sorter: IRdsElementsSorter;
    Elems: IRdsDictionaryElements;
    Attrs: IRdsAttributes;
    Attr, RefAttr: IRdsAttribute;
Begin
    Mb := MetabaseClass.Active;
    // Получаем ключ репозитория НСИ
    RdsKey := Mb.ItemById("MDM_SORT").Key;
    // Получаем сортируемый справочник НСИ
    DictObj := Mb.ItemByIdNamespace("SORT", RdsKey);
    DictInst := DictObj.Open(Null) As IRdsDictionaryInstance;
    // Получаем сортируемые элементы
    Elems := DictInst.Elements;
    // Создаем объект, выполняющий сортировку   
    Sorter := Elems.CreateSorter(Elems.Root);
    // Получаем атрибуты сортируемого справочника
    Attrs := DictInst.Dictionary.Attributes;
    // Получаем атрибут, участвующий в связи
    Attr := Attrs.FindById("LINK_COUNTRY");
    // Получаем связанный справочник
    DictObj := Mb.ItemByIdNamespace("COUNTRY", RdsKey);
    DictInst := DictObj.Open(Null) As IRdsDictionaryInstance;
    // Получаем атрибуты связанного справочника
    Attrs := DictInst.Dictionary.Attributes;
    // Получаем атрибут, по значениям которого будет выполнена сортировка
    RefAttr := Attrs.FindById("NAME");
    // Задаем атрибут сортировки
    Sorter.Attributes.AddRefAttribute(Attr, RefAttr, True);
    // Выполняем сортировку и сохраняем результаты
    Sorter.Sort(True);
    Sorter.Save;
End Sub UserProc;