1С 8.x : Реквизит ~ Проверка на заполненность реквизитов формы, с признаком АвтоОтметкаНезаполненного

  //Проверка на заполненность реквизитов формы, для которых установлен признак АвтоОтметкаНезаполненного

Функция ПроверкаАвтоОтметкаНезаполненного(ЭлементыФормы) Экспорт

    

    Результат = Ложь;

    

    Для каждого Элемент Из ЭлементыФормы Цикл

         Если ТипЗнч(Элемент) = Тип("ПолеВвода") Тогда

             Если Элемент.АвтоОтметкаНезаполненного И ЗначениеНеЗаполнено(Элемент.Значение) Тогда

                Сообщить("Необходимо заполнить обязательное поле ввода: " + Элемент.Подсказка, СтатусСообщения.Внимание);

                Результат = Истина;

            КонецЕсли;

            

        ИначеЕсли ТипЗнч(Элемент) = Тип("ТабличноеПоле") Тогда

            

            СоставПоля = Элемент.Значение;

            Колонки = Элемент.Колонки;

            Попытка // для ДокументСписок вызовет исключение

 

                Для каждого Строка Из СоставПоля Цикл

                    Для каждого Колонка Из Колонки Цикл

                        Если ТипЗнч(Колонка.ЭлементУправления) = Тип("ПолеВвода") Тогда

                            Если Колонка.АвтоОтметкаНезаполненного И ЗначениеНеЗаполнено(Строка[Колонка.Данные]) Тогда

                                Сообщить("Необходимо заполнить обязательное поле ввода табличной части: " + Колонка.ТекстШапки, СтатусСообщения.Внимание);

                                Результат = Истина;

                            КонецЕсли;

                        КонецЕсли;

                    КонецЦикла;

                КонецЦикла;

            Исключение

            КонецПопытки;

                

        КонецЕсли;

    

    КонецЦикла;

    

    Возврат Результат;

КонецФункции