Если требуется сразу проверить заполнение нескольких реквизитов на форме и, при этом, нет желания писать условие по каждому значению, то можно использовать эту процедуру.
Используется БСП. Если в базе БСП нет, то "ОбщегоНазначенияКлиентСервер.СообщитьПользователю" надо заменить на код вывода сообщения.
Входной параметр типа строка, в который надо передать имена реквизитов через запятую. Допускается наличие пробелов после запятой
// <Описание функции>
//
// Параметры:
// СписокПараметров - Строка - Список реквизитов формы для проверки через запятую
//
// Возвращаемое значение:
// Тип булево - Если все параметры заполнены, то Истина, иначе ложь
//
&НаСервере
Функция ПараметрыЗаполнены(СписокРеквизитов)
Перем Результат;
Результат = истина;
МассивИменРеквизитов = СтрРазделить(СписокРеквизитов,", ",Ложь);
МассивРеквизитов = ЭтотОбъект.ПолучитьРеквизиты();
Для Каждого Реквизит Из МассивРеквизитов Цикл
Если МассивИменРеквизитов.Найти(Реквизит.Имя) <> Неопределено Тогда
Если Не ЗначениеЗаполнено(ЭтотОбъект[Реквизит.Имя]) Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Значение """ + Реквизит.Заголовок + """ должно быть заполнено",, Реквизит.Имя);
Результат = ложь;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Возврат Результат;
КонецФункции
|