Как изменить допреквизиты документа «Увольнение» в закрытом периоде?

[Odineski]

нужна дополнительная обработка которая позволит изменять значение дополнительных реквизитов документа Увольнение в закрытом периоде

[Odin — Одинэсник]

Олег, привет!

Чтобы разрешить изменение дополнительных реквизитов документа «Увольнение» в закрытом периоде, при этом сохранив запрет на изменение самого документа, нужно сделать отдельную обработку, которая будет работать именно с дополнительными реквизитами. В типовых конфигурациях 1С дополнительные реквизиты хранятся в регистре сведений «ЗначенияСвойствОбъектов» (или аналогичном), и их изменение не всегда контролируется стандартным механизмом запрета изменения документов в закрытом периоде.

Вот как можно реализовать такую обработку:

1. **Создать отдельную обработку (внешнюю или встроенную) для редактирования дополнительных реквизитов документа «Увольнение».**

2. **В обработке при сохранении проверять дату документа «Увольнение» и разрешать изменение дополнительных реквизитов, даже если документ находится в закрытом периоде.**

3. **При этом стандартный запрет на изменение самого документа «Увольнение» останется в силе.**

Примерный алгоритм и код:

1С (Код)

// Процедура изменения дополнительного реквизита документа "Увольнение" Процедура ИзменитьДопРеквизитУвольнения(СсылкаНаДокумент, ИмяРеквизита, НовоеЗначение) Экспорт // Получаем дату документа ДатаДокумента = СсылкаНаДокумент.Дата; // Проверяем, закрыт ли период для изменения документов "Увольнение" // Используем типовой механизм проверки дат запрета изменения ЗапретИзменения = ДатыЗапретаИзменения.ЗапретИзмененияОбъекта(СсылкаНаДокумент); // Если изменение документа запрещено, но нам нужно разрешить изменение доп. реквизитов // то просто не блокируем изменение доп. реквизитов // Можно добавить дополнительную проверку, если нужно // Получаем ссылку на регистр сведений с доп. реквизитами РегистрДопРеквизитов = РегистрыСведений.ЗначенияСвойствОбъектов; // Создаем набор записей для записи значения доп. реквизита НаборЗаписей = РегистрДопРеквизитов.СоздатьНаборЗаписей(); // Формируем фильтр по объекту и свойству Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ЗначенияСвойствОбъектов.Ссылка |ИЗ | РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов |ГДЕ | ЗначенияСвойствОбъектов.Объект = &Объект | И ЗначенияСвойствОбъектов.Свойство.Наименование = &ИмяРеквизита"; Запрос.УстановитьПараметр("Объект", СсылкаНаДокумент); Запрос.УстановитьПараметр("ИмяРеквизита", ИмяРеквизита); Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда // Обновляем существующую запись Запись = НаборЗаписей.Добавить(); Запись.Ссылка = Выборка.Ссылка; Запись.Значение = НовоеЗначение; Иначе // Добавляем новую запись Запись = НаборЗаписей.Добавить(); Запись.Объект = СсылкаНаДокумент; // Получаем ссылку на свойство по имени Свойство = ПланВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию(ИмяРеквизита); Если Свойство = Неопределено Тогда // Ошибка - свойство не найдено Сообщить("Свойство '" + ИмяРеквизита + "' не найдено."); Возврат; КонецЕсли; Запись.Свойство = Свойство; Запись.Значение = НовоеЗначение; КонецЕсли; // Записываем изменения НаборЗаписей.Записать(); Сообщить("Дополнительный реквизит '" + ИмяРеквизита + "' успешно изменен."); КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

// Процедура изменения дополнительного реквизита документа "Увольнение" Процедура ИзменитьДопРеквизитУвольнения(СсылкаНаДокумент, ИмяРеквизита, НовоеЗначение) Экспорт     // Получаем дату документа     ДатаДокумента = СсылкаНаДокумент.Дата;       // Проверяем, закрыт ли период для изменения документов "Увольнение"     // Используем типовой механизм проверки дат запрета изменения     ЗапретИзменения = ДатыЗапретаИзменения.ЗапретИзмененияОбъекта(СсылкаНаДокумент);       // Если изменение документа запрещено, но нам нужно разрешить изменение доп. реквизитов     // то просто не блокируем изменение доп. реквизитов     // Можно добавить дополнительную проверку, если нужно       // Получаем ссылку на регистр сведений с доп. реквизитами     РегистрДопРеквизитов = РегистрыСведений.ЗначенияСвойствОбъектов;       // Создаем набор записей для записи значения доп. реквизита     НаборЗаписей = РегистрДопРеквизитов.СоздатьНаборЗаписей();       // Формируем фильтр по объекту и свойству     Запрос = Новый Запрос;     Запрос.Текст =     "ВЫБРАТЬ     |   ЗначенияСвойствОбъектов.Ссылка     |ИЗ     |   РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов     |ГДЕ     |   ЗначенияСвойствОбъектов.Объект = &Объект     |   И ЗначенияСвойствОбъектов.Свойство.Наименование = &ИмяРеквизита";       Запрос.УстановитьПараметр("Объект", СсылкаНаДокумент);     Запрос.УстановитьПараметр("ИмяРеквизита", ИмяРеквизита);       Выборка = Запрос.Выполнить().Выбрать();       Если Выборка.Следующий() Тогда         // Обновляем существующую запись         Запись = НаборЗаписей.Добавить();         Запись.Ссылка = Выборка.Ссылка;         Запись.Значение = НовоеЗначение;     Иначе         // Добавляем новую запись         Запись = НаборЗаписей.Добавить();         Запись.Объект = СсылкаНаДокумент;         // Получаем ссылку на свойство по имени         Свойство = ПланВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию(ИмяРеквизита);         Если Свойство = Неопределено Тогда             // Ошибка - свойство не найдено             Сообщить("Свойство '" + ИмяРеквизита + "' не найдено.");             Возврат;         КонецЕсли;         Запись.Свойство = Свойство;         Запись.Значение = НовоеЗначение;     КонецЕсли;       // Записываем изменения     НаборЗаписей.Записать();       Сообщить("Дополнительный реквизит '" + ИмяРеквизита + "' успешно изменен."); КонецПроцедуры

4. **Вызов этой процедуры можно делать из отдельной формы обработки, где пользователь выбирает документ «Увольнение», выбирает доп. реквизит и меняет его значение.**

5. **Важно:** В стандартном механизме запрета изменения документов в закрытом периоде проверка идет на сам объект документа, а не на регистр сведений с доп. реквизитами. Поэтому изменение доп. реквизитов через регистр сведений не блокируется, если специально не реализовать такую проверку.

6. **Если в вашей конфигурации есть подписки на события записи регистра сведений с доп. реквизитами, где реализован запрет изменения в закрытом периоде, то нужно в этих подписках добавить исключение для документов «Увольнение» и для регистра сведений с доп. реквизитами.**

—

Если нужна более конкретная помощь с кодом под вашу конфигурацию, могу помочь с доработкой.
https://infostart.ru/1c/articles/105587/

—

Таким образом, чтобы разрешить изменение доп. реквизитов документа «Увольнение» в закрытом периоде, нужно реализовать отдельную обработку, которая будет работать напрямую с регистром сведений дополнительных реквизитов, обходя стандартный запрет на изменение самого документа.

[Автор]

Сообщения