gifts2017

1С Документооборот - доработка. Руководитель не по штатке

Опубликовал Матти Нюкянен (Nykyanen) в раздел Программирование - Практика программирования

Руководитель в реальной жизни не всегда соответствует штатному расписанию организации. В шаблонах можно использовать автоподстановку.

Доработки автоподстановки «Непосредственный руководитель автора бизнес-процесса».

1. Копируем регистр сведений «ПодчиненностьСотрудников», называем «ПодчиненностьСотрудников2». Переносим «Руководитель» из измерения в ресурс.

2. В общем модуле «ШаблоныБизнесПроцессов» в «Функция НепосредственныйРуководительАвтораБизнесПроцесса(БизнесПроцессОбъект)» добавляем следующий текст

    

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

 

3. Проверяем и наслаждаемся.

Для автоподстановки «Непосредственный руководитель автора документа», в «Функция НепосредственныйРуководительАвтораДокумента(БизнесПроцессОбъект)» можно вставить такой же код.

См. также

Подписаться Добавить вознаграждение
В этой теме еще нет сообщений.