Проблема с обновлением справочника

"Есть справочник "Контрагенты". Там есть поле Контактное лицо. Есть документ "Предложение".
В этом документе есть два поля "Контрагент" и "Контактное лицо". Оба эти поля берутся из одного и того же справочника. Но вот загвозка. Мне нужно чтобы поле "Контактное лицо" было заполенено обязательно. и получается что если поле не заполенено его нужно обязатедльно ввести..но после того как его вводишь, оно не отображаеться в документе. Подскажите где у меня ошибка. Заранее спасибо.

Процедура ПриВыбореКлиента()
Спр = СоздатьОбъект("Справочник.Контрагенты");
Спр = Контрагент;
   Если  ПустоеЗначение(Спр.КонтактЛицо) = 1 Тогда
Предупреждение("Введите пожалуйста контактное лицо","10");
ОткрытьФормуМодально(Контрагент,,0);
   КонецЕсли;
КонтЛицо =  Спр.КонтактЛицо;

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

"Добрые люди посоветовали, и я сделал вот так
Процедура ПриВыбореКлиента()
Если ПустоеЗначение(Контрагент.КонтактЛицо)=1 Тогда
Предупреждение("Введите пожалуйста контактное лицо");
ОткрытьФормуМодально(Контрагент,,0);
КонецЕсли;
Спр=СоздатьОбъект("Справочник.Контрагенты");
Если Спр.НайтиПоКоду(Клиент.Код,0)=1 Тогда
КонтЛицо =  Спр.КонтактЛицо;
КонецЕсли;
КонецПроцедуры

И плюс при закрытии сделал (Также по совету добрых людей):
Спр = СоздатьОбъект("Справочник.Контрагенты");
Если Спр.НайтиПоКоду(Клиент.Код,0)=1 Тогда
Спр.КонтактЛицо=КонтЛицо;


Спр.Записать();
Т.е.происходит двойная проверка...Не знаю мне показалось что так будет точнее...Хотя может быть последнее нужно и убрать..."