В начало

Обработка проверки заполнения

 

Процедура ОбработкаПроверкиЗаполнения (Отказ, ПроверяемыеРеквизиты)

             ПроверяемыеРеквизиты.Удалить (ПроверяемыеРеквизиты.Найти("ПереченьНоменклатуры.НаборСвойств"));

             Индекс=0;

             Для Каждого ТекСтрокаПереченьНоменклатуры Из ПереченьНоменклатуры Цикл

                         Индекс = Индекс + 1;

                         Если ТекСтрокаПереченьНоменклатуры.Номенклатура.ВидыНоменклатуры =

                                    Перечисления.ВидыНоменклатуры.Материал Тогда

                                    Если Не ЗначениеЗаполнено (ТекСтрокаПереченьНоменклатуры.НаборСвойств) Тогда

                                                Сообщение = Новый СообщениеПользователю();

                                                Сообщение.Текст = "В строке " +
                                                                                    Индекс +

                                                                                   " списка не заполнена колонка";

                                                Сообщение.Поле = "ПереченьНоменклатуры[" +   

                                                                                  Строка(Индекс-1) +

                                                                                   "].НаборСвойств";

                                                Сообщение.УстановитьДанные(ЭтотОбъект);

                                                Сообщение.Сообщить();

                                                Отказ = Истина; //Документ НЕ будет сохранен если будет хотя бы 1 незаполненный реквизит

                                    КонецЕсли;

                         КонецЕсли;

             КонецЦикла;

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