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



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

    

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



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

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

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

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

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

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

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

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

        |ИЗ

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

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

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

                

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

                

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



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

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

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



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

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



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

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



              КонецЕсли;



          КонецЦикла;

    КонецЕсли;



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



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

 

//Список контрагентов

Панель=Справочники.Контрагенты.ПолучитьФорму("ФормаСписка");

Панель.Открыть();



//Журнал документов

Панель=Документы.Потребность.ПолучитьФормуСписка();

Панель.Открыть();

   

 

	Если РольДоступна("Менеджер") Тогда

		Панель=Документы.Заявка.ПолучитьФормуСписка();

		Панель.Открыть();

	ИначеЕсли РольДоступна("Потребность") Тогда

		Панель=Документы.Потребность.ПолучитьФормуСписка();

		Панель.Открыть();

	ИначеЕсли РольДоступна("Безопасник") Тогда

		Панель=Справочники.Контрагенты.ПолучитьФорму("ФормаБезопасника");

		Панель.Открыть();

	ИначеЕсли РольДоступна("Бухгалтер") Тогда

		Панель=Обработки.Бухгалтера.ПолучитьФорму();

		Панель.Открыть();

	ИначеЕсли РольДоступна("Утверждающий") Тогда

		Панель=Документы.Потребность.ПолучитьФормуСписка("ФормаСпискаУтверж");

		Панель.Открыть();

	ИначеЕсли РольДоступна("Руководитель") Тогда

		Панель=Документы.Заявка.ПолучитьФормуСписка("ИнтерфейсРуководителя");

		Панель.Открыть();

	Иначе       

		Предупреждение("Вам не присвоена необходимая Роль доступа, обратитесь к Администратору системы!");

		ЗавершитьРаботуСистемы();

	конецесли;