Контроль заполнения и очистка дат в зависимости от значения перечислений

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