Уведомление о неверно выбранном значении справочника

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