Валидация и контроль данных табличной части документа перед записью

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