Контроль уникальности выбранного документа-основания при изменении реквизита

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