Запись в непериодический РС

Есть код:

&НаСервере
Функция СоздатьИОткрыть()
    ДокАнализов = Документы.ДействияНадАнализами.СоздатьДокумент();
    ДокАнализов.лис_Клиент = ЭтаФорма.Клиент;
    ДокАнализов.Дата = ТекущаяДата();
    ДокАнализов.Ответственный = ПараметрыСеанса.ТекущийПользователь;

    ДокАнализов.Записать();

    Если ЗначениеЗаполнено(ЭтаФорма.Емаил) Тогда
        НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
        НаборЗаписей.Отбор.Объект.Установить(ДокАнализов.Ссылка);
        НаборЗаписей.Отбор.Тип.Установить(Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты);

        НоваяЗапись = НаборЗаписей.Добавить();
        НоваяЗапись.Объект = ДокАнализов.Ссылка;
        НоваяЗапись.Представление = ЭтаФорма.Емаил;
        НаборЗаписей.Записать();
    КонецЕсли;

    возврат ДокАнализов.Ссылка;

КонецФункции

Вроде всё правильно делаю, но выходит ошибка:
Запись не верна! Значение поля "Объект" не может быть пустым!: КонтактнаяИнформация: , ,  (Регистр сведений: Контактная информация; Номер строки: 1)
Что не так?