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

Доработаем типовой механизм платформы (Даты запрета изменения 1С). 

1. В План видов характеристик "РазделыДатЗапретаИзменения" добавить свой раздел (при необходимости разрешить изменения реквизитов).
   Рисунок

   

   [свернуть]
2. В процедуру ПриЗаполненииРазделовДатЗапретаИзменения модуля ДатыЗапретаИзмененияПереопределяемый вносим описания новых разделов по аналогии с типовыми.
   Код

   1С (Код)

   &Перед("ПриЗаполненииРазделовДатЗапретаИзменения") Процедура АСИ_ПриЗаполненииРазделовДатЗапретаИзменения(Разделы) // наши разделы Раздел = Разделы.Добавить(); Раздел.Имя = "Проект_СИ"; // для получения УИД запустить в 1С Предприятие консоль кода и выполнить код // Сообщить(ПланыВидовХарактеристик.РазделыДатЗапретаИзменения.НайтиПоНаименованию("Проект_СИ").УникальныйИдентификатор()); Раздел.Идентификатор = Новый УникальныйИдентификатор("63f115ce-0bc6-11f0-ab5c-40a8f01fbd6b"); Раздел.Представление = НСтр("ru = 'Проекты'"); Раздел.ТипыОбъектов.Добавить(Тип("СправочникСсылка.Организации")); КонецПроцедуры

   1 2 3 4 5 6 7 8 9 10 11 12 13

   &Перед("ПриЗаполненииРазделовДатЗапретаИзменения") Процедура АСИ_ПриЗаполненииРазделовДатЗапретаИзменения(Разделы) // наши разделы Раздел = Разделы.Добавить(); Раздел.Имя  = "Проект_СИ"; // для получения УИД запустить в 1С Предприятие консоль кода и выполнить код // Сообщить(ПланыВидовХарактеристик.РазделыДатЗапретаИзменения.НайтиПоНаименованию("Проект_СИ").УникальныйИдентификатор()); Раздел.Идентификатор = Новый УникальныйИдентификатор("63f115ce-0bc6-11f0-ab5c-40a8f01fbd6b"); Раздел.Представление = НСтр("ru = 'Проекты'");   Раздел.ТипыОбъектов.Добавить(Тип("СправочникСсылка.Организации")); КонецПроцедуры

   [свернуть]
3. В процедуру ПриЗаполненииРазделовДатЗапретаИзменения модуля ДатыЗапретаИзмененияПереопределяемый добавить описания новых разделов.
   Код

   1С (Код)

   &Перед("ЗаполнитьИсточникиДанныхДляПроверкиЗапретаИзменения") Процедура АСИ_ЗаполнитьИсточникиДанныхДляПроверкиЗапретаИзменения(ИсточникиДанных) ДокументыСПолемОрганизация = Новый Массив; ДокументыСПолемОрганизация.Добавить("Документ.УО_Проект"); ДокументыСПолемОрганизация.Добавить("Документ.УО_Заявка"); // Раздел "Проект_СИ" ДатыЗапретаИзменения.ДобавитьСтроку(ИсточникиДанных, "Документ.УО_Проект", "Дата", "Проект_СИ"); ДатыЗапретаИзменения.ДобавитьСтроку(ИсточникиДанных, "Документ.УО_Заявка", "Дата", "Проект_СИ"); КонецПроцедуры

   1 2 3 4 5 6 7 8 9 10 11 12

   &Перед("ЗаполнитьИсточникиДанныхДляПроверкиЗапретаИзменения") Процедура АСИ_ЗаполнитьИсточникиДанныхДляПроверкиЗапретаИзменения(ИсточникиДанных) ДокументыСПолемОрганизация = Новый Массив; ДокументыСПолемОрганизация.Добавить("Документ.УО_Проект"); ДокументыСПолемОрганизация.Добавить("Документ.УО_Заявка");   // Раздел "Проект_СИ" ДатыЗапретаИзменения.ДобавитьСтроку(ИсточникиДанных, "Документ.УО_Проект", "Дата", "Проект_СИ"); ДатыЗапретаИзменения.ДобавитьСтроку(ИсточникиДанных, "Документ.УО_Заявка", "Дата", "Проект_СИ"); КонецПроцедуры

   [свернуть]
4. В обработчик события ПриЧтенииНаСервере модулей форм нетиповых документов добавляем строку:
   Код

   1С (Код)

   &НаСервере Процедура ПриЧтенииНаСервере(ТекущийОбъект) //СтандартныеПодсистемы.ДатыЗапретаИзменения ДатыЗапретаИзменения.ОбъектПриЧтенииНаСервере(ЭтаФорма, ТекущийОбъект); //Конец СтандартныеПодсистемы.ДатыЗапретаИзменения КонецПроцедуры

   1 2 3 4 5 6 7 8

   &НаСервере Процедура ПриЧтенииНаСервере(ТекущийОбъект)   //СтандартныеПодсистемы.ДатыЗапретаИзменения ДатыЗапретаИзменения.ОбъектПриЧтенииНаСервере(ЭтаФорма, ТекущийОбъект); //Конец СтандартныеПодсистемы.ДатыЗапретаИзменения   КонецПроцедуры

   [свернуть]
5. В источники подписок на события  добавить объекты нетиповых документов (проверку на изменение документов не через форму):
   • ПроверитьДатуЗапретаИзмененияПередЗаписьюДокумента;
   • ПроверитьДатуЗапретаИзмененияПередУдалением.
6. Запустить базу в режиме обновления.