Авторегистрация документа при подписании

!С Документооборот 2.1

Иногда требуется автоматическая регистрация документов в момент их подписания должностным лицом. Данный вопрос можно решить без изменения кода и открытия конфигуратора.

Переходим в раздел «Настройка и администрирование» — «Бизнес-события» — «Дополнительные обработчики»

Создаём новый обработчик

Записываем в него такой код:

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