Автоматическое продвижение даты запрета редактирования

Написал регламентное задание по автоматическому продвижению даты запрета редактирования

Работает в УТ и Рознице:

МЗ = РегистрыСведений.ГраницыЗапретаИзмененияДанных.Выбрать();

ПОКА МЗ.Следующий() Цикл

       //По умолчанию можно редактировать с 1 числа прошлого месяца

       НоваяДата = НачалоМесяца(ТекущаяДата());

       НоваяДата = НачалоМесяца(НоваяДата -1);

       Если МЗ.Пользователь.Имя = "Иванов Алексей" Тогда

             НоваяДата = '20140101';

       ИначеЕсли МЗ.Пользователь.Имя = "Петров Максим" Тогда

             НоваяДата = '20150101';

       ИначеЕсли МЗ.Пользователь.Имя = "Робот" Тогда

             НоваяДата = ТекущаяДата() - 180*3600*24; //За полгода робот может

       ИначеЕсли Не ЗначениеЗаполнено(МЗ.Пользователь) Тогда

             НоваяДата = ТекущаяДата() - 7*3600*24; //За неделю, остальное регулируется более тонкой настройкой

       КонецЕсли;

       Если МЗ.ГраницаЗапретаИзменений <> НоваяДата Тогда

             МЗ.ГраницаЗапретаИзменений = НоваяДата;

       КонецЕсли;

       Сообщить("Пользователь: " + МЗ.Пользователь + " дата: " + МЗ.ГраницаЗапретаИзменений);

КонецЦикла;