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

&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
 
    ТЧ = Объект.Материалы;
    Счет10 = ПредопределенноеЗначение("Перечисление.СчетаУчетаТМЦ.Счет10");
    Для Каждого Строка Из ТЧ Цикл
        Индекс = ТЧ.Индекс(Строка);
        // Контроль заполнения причины списания 
        Если Строка.Склад = Счет10 
        И Не ЗначениеЗаполнено(Строка.ПричинаСписания) Тогда
            Сообщение = Новый СообщениеПользователю;
            Сообщение.Текст = "Необходимо указать причину списания!";
            Сообщение.Поле = "Объект.Материалы["+Индекс+"].ПричинаСписания";
            Сообщение.Сообщить();
            Отказ = Истина;
            Прервать;
        КонецЕсли;
        // Проверка даты списания           
        Если Строка.Списать = Истина И Не ЗначениеЗаполнено(Строка.ДатаСписания) Тогда
            Сообщение = Новый СообщениеПользователю;
            Сообщение.Текст = "Необходимо указать дату списания!";
            Сообщение.Поле = "Объект.Материалы["+Индекс+"].ДатаСписания";
            Сообщение.Сообщить();
            Отказ = Истина;
            Прервать;
        КонецЕсли; 
        // Дата списания >= даты выдачи
        Если ЗначениеЗаполнено(Строка.ДатаВыдачи)
            И ЗначениеЗаполнено(Строка.ДатаСписания)
            И НачалоДня(Строка.ДатаВыдачи) > НачалоДня(Строка.ДатаСписания) Тогда
                Сообщение = Новый СообщениеПользователю;
                Сообщение.Текст = "Дата списания не может быть меньше даты выдачи!";
                Сообщение.Поле = "Объект.Материалы["+Индекс+"].ДатаСписания";
                Сообщение.Сообщить();
                Отказ = Истина;
                Прервать;   
        КонецЕсли;
    КонецЦикла; 
КонецПроцедуры