v7: ТиС. Запрет редактирования/пометки на удаление/отмены проведения задним числом

Наверняка у многих эти функции реализованы более аккуратно и удобно.
Если есть предложения по оптимизации - с удовольствием приму.

Перем Запрет;
...
Функция глПроверкаПроведенияЗаднимЧислом (Конт) Экспорт
//проверка на пользователя - проведение задним числом
Запрет=Число(глПользователь.ЗапрРед);
Если ИмяПользователя()<>"Администратор" Тогда
//устанавливаем пользователя, которому можно всё.
Если (ТекущаяДата () - Конт.ДатаДок) > Запрет Тогда
Возврат 1;
КонецЕсли;
КонецЕсли;
// конец проверки на проведение задним числом
КонецФункции

Процедура ПриУдаленииДокумента(УдаляемыйДок, Режим)
Если Режим = 1 Тогда
// запрет на непосредственное удаление
Возврат;
КонецЕсли;
Если ИмяПользователя()<>"Администратор" Тогда
Если (ТекущаяДата() - УдаляемыйДок.ДатаДок) > Запрет Тогда
СтатусВозврата(0);
Предупреждение("Запрещено удалять документы (операции),"+РазделительСтрок+"введенные по "+Формат((ТекущаяДата() - Запрет),"ДДДММММГГГГ")+" !");
Возврат;
КонецЕсли;
КонецЕсли;
КонецПроцедуры

Процедура ПриОтменеПроведенияДокумента(Док)
Если ИмяПользователя()<>"Администратор" Тогда
Если (ТекущаяДата() - УдаляемыйДок.ДатаДок) > Запрет Тогда
СтатусВозврата(0);
Предупреждение("Запрещено удалять проведение документов (операций),"+РазделительСтрок+"введенных по "+Формат((ТекущаяДата() - Запрет),"ДДДММММГГГГ")+" !");
Возврат;
КонецЕсли;
КонецЕсли;
КонецПроцедуры

В Справочнике Пользователи надо добавить Реквизит "ЗапрРед" (число) и добавить его в форму. Теперь вы можете назначать для каждого пользователя свои сроки работы задним числом