Как автоматически установить флаги “Подписан” при передаче на хранение?

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

Для автоматической установки флагов “Подписан” для обеих сторон при передаче документа на хранение в системе Документооборот 3.0.14.31, можно использовать обработку, которая будет срабатывать при изменении состояния документа. Ниже приведен пример кода, который можно разместить в модуле документа “ДокументыПредприятия”.

1С (Код)

1C // Обработка события изменения состояния документа Процедура ПриИзмененииСостояния(НовоеСостояние, СтароеСостояние) // Проверяем, что новое состояние - "Передача на хранение" Если НовоеСостояние = Перечисления.СостоянияДокументов.ПередачаНаХранение Тогда // Проверяем, что все согласующие лица согласовали документ Если ВсеСогласующиеСогласовали() Тогда // Устанавливаем флаги "Подписан" для обеих сторон УстановитьФлагиПодписан(); КонецЕсли; КонецЕсли; КонецПроцедуры // Функция проверки, что все согласующие лица согласовали документ Функция ВсеСогласующиеСогласовали() Экспорт // Получаем список согласующих лиц Согласующие = ЭтотОбъект.ПолучитьСогласующиеЛица(); // Проверяем статус согласования для каждого согласующего Для Каждого Согласующий Из Согласующие Цикл Если Согласующий.Статус Перечисления.СтатусыСогласования.Согласован Тогда Возврат Ложь; // Если хотя бы один не согласован, возвращаем Ложь КонецЕсли; КонецЦикла; Возврат Истина; // Все согласующие согласовали КонецФункции // Процедура установки флагов "Подписан" Процедура УстановитьФлагиПодписан() Экспорт ЭтотОбъект.ФлагПодписанСторона1 = Истина; // Устанавливаем флаг для первой стороны ЭтотОбъект.ФлагПодписанСторона2 = Истина; // Устанавливаем флаг для второй стороны ЭтотОбъект.Записать(); // Сохраняем изменения КонецПроцедуры

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

1C // Обработка события изменения состояния документа Процедура ПриИзмененииСостояния(НовоеСостояние, СтароеСостояние)     // Проверяем, что новое состояние - "Передача на хранение"     Если НовоеСостояние = Перечисления.СостоянияДокументов.ПередачаНаХранение Тогда         // Проверяем, что все согласующие лица согласовали документ         Если ВсеСогласующиеСогласовали() Тогда             // Устанавливаем флаги "Подписан" для обеих сторон             УстановитьФлагиПодписан();         КонецЕсли;     КонецЕсли; КонецПроцедуры   // Функция проверки, что все согласующие лица согласовали документ Функция ВсеСогласующиеСогласовали() Экспорт     // Получаем список согласующих лиц     Согласующие = ЭтотОбъект.ПолучитьСогласующиеЛица();          // Проверяем статус согласования для каждого согласующего     Для Каждого Согласующий Из Согласующие Цикл         Если Согласующий.Статус  Перечисления.СтатусыСогласования.Согласован Тогда             Возврат Ложь; // Если хотя бы один не согласован, возвращаем Ложь         КонецЕсли;     КонецЦикла;          Возврат Истина; // Все согласующие согласовали КонецФункции   // Процедура установки флагов "Подписан" Процедура УстановитьФлагиПодписан() Экспорт     ЭтотОбъект.ФлагПодписанСторона1 = Истина; // Устанавливаем флаг для первой стороны     ЭтотОбъект.ФлагПодписанСторона2 = Истина; // Устанавливаем флаг для второй стороны     ЭтотОбъект.Записать(); // Сохраняем изменения КонецПроцедуры

### Описание кода:
1. **ПриИзмененииСостояния**: Эта процедура срабатывает при изменении состояния документа. Если новое состояние – “Передача на хранение”, то проверяется, согласовали ли все согласующие лица документ.
2. **ВсеСогласующиеСогласовали**: Функция, которая проверяет, что все согласующие лица согласовали документ. Если хотя бы один из них не согласовал, возвращает Ложь.
3. **УстановитьФлагиПодписан**: Процедура, которая устанавливает флаги “Подписан” для обеих сторон и сохраняет изменения в документе.

### Примечание:
Не забудьте адаптировать имена реквизитов и перечислений в соответствии с вашей конфигурацией, если они отличаются.

[Автор]

Сообщения