Функция ОтветственныеЛицаОрганизации(Организация, ДатаСреза, Исполнитель = Неопределено) Экспорт



    Результат = Новый Структура("Руководитель, РуководительДолжность, ГлавныйБухгалтер, Кассир");

    

    Если Организация <> Неопределено тогда



          ЗапросПоЛицам = Новый Запрос();

        ЗапросПоЛицам.УстановитьПараметр("Организация", Организация);

        ЗапросПоЛицам.УстановитьПараметр("ДатаСреза",   ДатаСреза);

        ЗапросПоЛицам.Текст = "

        |ВЫБРАТЬ РАЗРЕШЕННЫЕ

        |    ОтветственныеЛицаОрганизацииСрезПоследних.ОтветственноеЛицо,

        |    ОтветственныеЛицаОрганизацииСрезПоследних.Должность.Наименование КАК Должность,

        |    ВЫБОР КОГДА (ФИОФизЛицСрезПоследних.ФизЛицо) ЕСТЬ NULL  ТОГДА ОтветственныеЛицаОрганизацииСрезПоследних.ФизическоеЛицо.Наименование ИНАЧЕ ФИОФизЛицСрезПоследних.Фамилия + ВЫБОР КОГДА (ФИОФизЛицСрезПоследних.Имя) <> """" ТОГДА "" "" + (ФИОФизЛицСрезПоследних.Имя) ИНАЧЕ """" КОНЕЦ + ВЫБОР КОГДА (ФИОФизЛицСрезПоследних.Отчество) <> """" ТОГДА "" "" + (ФИОФизЛицСрезПоследних.Отчество) ИНАЧЕ """" КОНЕЦ КОНЕЦ КАК ФИОПолное

        |ИЗ

        |    РегистрСведений.ОтветственныеЛицаОрганизации.СрезПоследних(&ДатаСреза, СтруктурнаяЕдиница =Организация) КАК ОтветственныеЛицаОрганизацииСрезПоследних

        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних(&ДатаСреза, ФизЛицо ССЫЛКА Справочник.ФизическиеЛица) КАК ФИОФизЛицСрезПоследних

        |        ПО ОтветственныеЛицаОрганизацииСрезПоследних.ФизическоеЛицо = ФИОФизЛицСрезПоследних.ФизЛицо";

                

        Выборка = ЗапросПоЛицам.Выполнить().Выбрать();

                

        Пока Выборка.Следующий() Цикл



              Если Выборка.ОтветственноеЛицо = Перечисления.ОтветственныеЛицаОрганизации.Руководитель Тогда

                Результат.Руководитель            = Выборка.ФИОПолное;

                Результат.РуководительДолжность   = Выборка.Должность;



              ИначеЕсли Выборка.ОтветственноеЛицо = Перечисления.ОтветственныеЛицаОрганизации.ГлавныйБухгалтер Тогда

                Результат.ГлавныйБухгалтер        = Выборка.ФИОПолное;



              ИначеЕсли Выборка.ОтветственноеЛицо = Перечисления.ОтветственныеЛицаОрганизации.Кассир Тогда

                Результат.Кассир                  = Выборка.ФИОПолное;



              КонецЕсли;



          КонецЦикла;

    КонецЕсли;



    Возврат Результат;



КонецФункции // ОтветственныеЛицаОрганизации()