Программная установка даты и запрет ее изменения

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)   
    // Установка доступности реквизита 'Месяц' для соответствующих прав
    Элементы.Месяц.ТолькоПросмотр = Не РольДоступна("Бухгалтер") ИЛИ Не РольДоступна("ПолныеПрава"); 
    // Алгоритм определения даты для создания документов списания
    ТекДата = ТекущаяДатаСеанса();
    Если День(ТекДата) = День(КонецМесяца(ТекДата)) Тогда
        Месяц = ТекДата;
    Иначе
        Месяц = НачалоМесяца(ТекДата) - 1;
    КонецЕсли;  
КонецПроцедуры

Процедура ПриЗаписи(Отказ)
    Для Каждого ТекСтрока Из Аккумуляторы Цикл
        Если ТекСтрока.Списать = Истина И ТекСтрока.ДатаСписания = Дата(1, 1, 1) Тогда
            ТекСтрока.ДатаСписания = ТекущаяДатаСеанса();
        ИначеЕсли ТекСтрока.Списать = Ложь Тогда
            ТекСтрока.ДатаСписания = Дата(1, 1, 1);
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры