Комплексная автоматизация (ФИО руководителя организации)

[markgenuine]

Скажите пожалуйста откуда тащить ФИО Руководителя?
Есть вариант регистр сведений Ответственные лица организации.
Запрос, в запрос передаем дату, организацию и получаем руководителя, так?

[markgenuine]

Кому интересно, то решил сам этот вопрос, пример кода:

Код Выделить Развернуть


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





[СветланаCC]

В комплексной автоматизации есть общий модуль (РегламентированнаяОтчетность)

Так вот руководителя можно получить как

Код Выделить Развернуть


Руководители = РегламентированнаяОтчетность.ОтветственныеЛицаОрганизаций(Выборка.Организация, Выборка.Дата,);
Руководитель = Руководители.Руководитель;