Автоматизация заполнения поля КонтактноеЛицо

&НаКлиенте
Процедура КонтрагентПриИзменении(Элемент)
  
Попытка
    КоличествоКонтактныхЛиц = ПолучитьКоличествоКонтактныхЛиц(Элемент.Значение);
    Если КоличествоКонтактныхЛиц = 1 Тогда
      Объект.КонтактноеЛицо = ПолучитьПервоеКонтактноеЛицо(Элемент.Значение);
    ИначеЕсли КоличествоКонтактныхЛиц > 1 Тогда
      Сообщить("У контрагента есть несколько контактных лиц. Выберите нужное контактное лицо вручную.");
      Элемент.УстановитьЗначение(Неопределено);
    Иначе
      Сообщить("У контрагента нет зарегистрированных контактных лиц.");
      Элемент.УстановитьЗначение(Неопределено);
    КонецЕсли;
  Исключение
    Сообщить(ОписаниеОшибки());
  КонецПопытки;
  
КонецПроцедуры

&НаСервере
Функция ПолучитьКоличествоКонтактныхЛиц(Контрагент)
  Запрос = Новый Запрос("|ВЫБРАТЬ КОЛИЧЕСТВО(Ссылка) КАК Количество
                         |ИЗ Справочник.КонтактныеЛица
                         |ГДЕ ИсточникПривлечения = &Ссылка");
  Запрос.УстановитьПараметр("Ссылка", Контрагент);
  
  Выборка = Запрос.Выполнить().Выбрать();
  Если Выборка.Следующий() Тогда
    Возврат Выборка.Количество;
  Иначе
    Возврат 0;
  КонецЕсли;
КонецФункции

Функция ПолучитьПервоеКонтактноеЛицо(Контрагент)
  Запрос = Новый Запрос("|ВЫБРАТЬ ПЕРВЫЕ 1 Ссылка
                         |ИЗ Справочник.КонтактныеЛица
                         |ГДЕ ИсточникПривлечения = &Ссылка");
  Запрос.УстановитьПараметр("Ссылка", Контрагент);
  Возврат Запрос.Выполнить().Выгрузить()[0].Ссылка;
КонецФункции