Дополнительные реквизиты в справочник контрагентов

не нашел примера удалось сделать самому

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    СпрКнт=Справочники.НаборыДополнительныхРеквизитовИСведений.Справочник_Контрагенты;

    НовыйМассив    = Новый Массив;
    НовыйМассив.Добавить(Тип("СправочникСсылка.Контрагенты"));
    НовыйТип = новый ОписаниеТипов(НовыйМассив);

    НовыйРеквизит=ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.СоздатьЭлемент();
    НовыйРеквизит.ТипЗначения    =    НовыйТип;
    НовыйРеквизит.НаборСвойств    =    СпрКнт;
    НовыйРеквизит.Заголовок        =    "Основной контрагент.XXL";
    НовыйРеквизит.Наименование    =    НовыйРеквизит.Заголовок + " (" + НовыйРеквизит.НаборСвойств + ")";
    НовыйРеквизит.Записать();

    Спр        =    СпрКнт.ПолучитьОбъект();
    Строка    =    Спр.ДополнительныеРеквизиты.Добавить();
    Строка.Свойство    =    НовыйРеквизит.Ссылка;
    Спр.Записать();

КонецПроцедуры