Заполнить Предопределенные элементы

// Заполняет предопределенные элементы справочника "Партнеры".
//
Процедура ЗаполнитьПредопределенныхПартнеров() Экспорт

 СправочникОбъект = Справочники.Партнеры.НашеПредприятие.ПолучитьОбъект();
 СправочникОбъект.ДатаРегистрации = Дата(1980, 1, 1);
 СправочникОбъект.НаименованиеПолное = НСтр("ru = 'Наше предприятие'");
 СправочникОбъект.ЮрФизЛицо = Перечисления.КомпанияЧастноеЛицо.Компания;
 Попытка
  СправочникОбъект.Записать();
  Если ПолучитьФункциональнуюОпцию("ИспользоватьПартнеровКакКонтрагентов") Тогда
   МассивПартнеров = ПартнерыИКонтрагенты.ПолучитьВсехКонтрагентовПартнера(СправочникОбъект.Ссылка);
   Если МассивПартнеров.Количество() = 0 Тогда
    Контрагент = Справочники.Контрагенты.СоздатьЭлемент();
    Контрагент.Наименование = СправочникОбъект.Наименование;
    Контрагент.НаименованиеПолное = СправочникОбъект.НаименованиеПолное;
    Контрагент.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо;
    Контрагент.Партнер = СправочникОбъект.Ссылка;
    Контрагент.Записать();
   КонецЕсли;
  КонецЕсли;
 Исключение
 КонецПопытки;

 СправочникОбъект = Справочники.Партнеры.РозничныйПокупатель.ПолучитьОбъект();
 СправочникОбъект.Клиент = Истина;
 СправочникОбъект.ДатаРегистрации = Дата(1980, 1, 1);
 СправочникОбъект.НаименованиеПолное = НСтр("ru = 'Розничный покупатель'");
 СправочникОбъект.ЮрФизЛицо = Перечисления.КомпанияЧастноеЛицо.ЧастноеЛицо;
 Попытка
  СправочникОбъект.Записать();
  // Контрагент "Розничный покупатель" заполняется в соответствующей процедуре модуле менеджера справочника "Контрагенты".
 Исключение
 КонецПопытки;

 СправочникОбъект = Справочники.Партнеры.НеизвестныйПартнер.ПолучитьОбъект();
 СправочникОбъект.Клиент = Истина;
 СправочникОбъект.Поставщик = Истина;
 СправочникОбъект.ПрочиеОтношения = Истина;
 СправочникОбъект.ДатаРегистрации = Дата(1980, 1, 1);
 СправочникОбъект.НаименованиеПолное = НСтр("ru = 'Неизвестный партнер'");
 СправочникОбъект.ЮрФизЛицо = Перечисления.КомпанияЧастноеЛицо.Компания;
 Попытка
  СправочникОбъект.Записать();
 Исключение
 КонецПопытки;

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