УТ 10.3 разраничение прав доступа по складам

(16) Для некоторых проще вот такие гов нокоды делать:

 
Функция ДоступКОтчету(Пользователь, ИмяОтчета, ОбъектОтчета) Экспорт 
 
    Если НЕ ЗначениеЗаполнено(Пользователь) Тогда 
 
        Сообщить("Неверная авторизация!");
 
        Возврат Ложь;
 
    КонецЕсли;    
 
    Если ПустаяСтрока(ИмяОтчета) Тогда 
 
        Сообщить("Неверный идентификатор отчета");
 
        Возврат Ложь;
 
    КонецЕсли;
 
    
 
    Если ИмяОтчета = "Продажи" Тогда 
 
        //Объект - универсальныйотчет
 
        ЗапрФилиалы = Новый Запрос;
 
        ЗапрФилиалы.Текст = 
 
        "ВЫБРАТЬ
 
        |    ДоступКОтчетам.Филиалы
 
        |ИЗ
 
        |    РегистрСведений.ДоступКОтчетам КАК ДоступКОтчетам
 
        |ГДЕ
 
        |    ДоступКОтчетам.Пользователь = &Пользователь
 
        |    И ДоступКОтчетам.ИмяОтчета = &ИмяОтчета
 
        |    И ДоступКОтчетам.Доступен = ИСТИНА";
 
        ЗапрФилиалы.УстановитьПараметр("Пользователь", Пользователь);
 
        ЗапрФилиалы.УстановитьПараметр("ИмяОтчета", "Продажи");
 
        ТабФилиалов = ЗапрФилиалы.Выполнить().Выгрузить();
 
        МассивФилиалов = ТабФилиалов.ВыгрузитьКолонку("Филиалы");
 
        
 
        ЗапросВсеФилиалы = Новый Запрос;
 
        ЗапросВсеФилиалы.Текст = 
 
        "ВЫБРАТЬ
 
        |    Филиалы.Ссылка
 
        |ИЗ
 
        |    Справочник.Филиалы КАК Филиалы
 
        |ГДЕ
 
        |    Филиалы.ПометкаУдаления = ЛОЖЬ
 
        |    И Филиалы.ЭтоГруппа = ЛОЖЬ";
 
        ТабВсеФилиалы = ЗапросВсеФилиалы.Выполнить().Выгрузить();
 
        МассивВсеФилиалы = ТабВсеФилиалы.ВыгрузитьКолонку("Ссылка");
 
        ЕстьНедоступныеФилиалы = Ложь;
 
        Для Каждого ТекФилиал Из МассивВсеФилиалы Цикл 
 
            Если МассивФилиалов.Найти(ТекФилиал) = Неопределено Тогда 
 
                ЕстьНедоступныеФилиалы = Истина;
 
                Прервать;
 
            КонецЕсли;    
 
        КонецЦикла;    
 
        
 
        //Добавлено: Сосна Евгений <shenja@sosna.zp.ua> 04.08.2012
 
        // [[https://bitbucket.org/.../1|Issue #1]]
 
        // филиалов нет, разделение доступа по филиалам не используется. 
 
        // автоматом ДокументПродажи.Ответственный не добавляется . Данный фильтр не имеет смысла. 
 
        // Я только исправляю. 
 
        // 
 
        // Автору:
 
        // Что бы тебе с ц уко икнулось - ВСЕ НАДО ДЕЛАТЬ НА РЛС 
 
        // 
 
        ЕстьНедоступныеФилиалы = Ложь; 
 
        
 
        /// Сосна Евгений <shenja@sosna.zp.ua> 04.08.2012
 
        Если ЕстьНедоступныеФилиалы Тогда 
 
            СписокФилиалов = Новый СписокЗначений;
 
            СписокФилиалов.Очистить();
 
            
 
            ОтборВОтчете = ОбъектОтчета.УниверсальныйОтчет.ПостроительОтчета.Отбор;
 
            ЭлементОтбора = ОтборВОтчете.Найти("ДокументПродажиОтветственныйОтделение");
 
            //ЭлементОтбора = ОтборВОтчете.Найти("ДокументПродажиСклад");
 
            Если ЭлементОтбора = Неопределено Тогда 
 
                ЭлементОтбора = ОтборВОтчете.Добавить("ДокументПродажи.Ответственный.Отделение");
 
                //ЭлементОтбора = ОтборВОтчете.Добавить("Документ продажи.Склад");
 
                для Каждого ТекФилиал из МассивФилиалов Цикл 
 
                    СписокФилиалов.Добавить(ТекФилиал);
 
                КонецЦикла;    
 
            Иначе 
 
                //СписокВОтборе = ОтборВОтчете["ДокументПродажиСклад"].Значение;
 
                СписокВОтборе = ОтборВОтчете["ДокументПродажиОтветственныйОтделение"].Значение;
 
                Если ТипЗнч(СписокВОтборе) = Тип("СписокЗначений") Тогда 
 
                    Для Каждого ТекЗначение из СписокВОтборе Цикл 
 
                        Если НЕ МассивФилиалов.Найти(ТекЗначение.Значение)=Неопределено Тогда 
 
                            СписокФилиалов.Добавить(ТекЗначение.Значение);
 
                        КонецЕсли;    
 
                    КонецЦикла;    
 
                КонецЕсли;
 
            КонецЕсли;
 
            Если СписокФилиалов.количество() = 0 Тогда 
 
                для Каждого ТекФилиал из МассивФилиалов Цикл 
 
                    СписокФилиалов.Добавить(ТекФилиал);
 
                КонецЦикла;    
 
            КонецЕсли;
 
            //ЭлементОтбора.доступность = ложь;
 
            ОтборВОтчете["ДокументПродажиОтветственныйОтделение"].Использование = Истина;
 
            ОтборВОтчете["ДокументПродажиОтветственныйОтделение"].Видсравнения = ВидСравнения.ВСписке;
 
            ОтборВОтчете["ДокументПродажиОтветственныйОтделение"].Значение = СписокФилиалов;
 
            //ОтборВОтчете["ДокументПродажиСклад"].Использование = Истина;
 
            //ОтборВОтчете["ДокументПродажиСклад"].Видсравнения = ВидСравнения.ВСписке;
 
            //ОтборВОтчете["ДокументПродажиСклад"].Значение = СписокСкладов;
 
        КонецЕсли;
 
        Если НЕ (Пользователь.ПолныйДоступКБалансам или Пользователь.ICQАдминистратор) Тогда
 
            ОтборВОтчете = ОбъектОтчета.УниверсальныйОтчет.ПостроительОтчета.Отбор;
 
            ЭлементОтбора = ОтборВОтчете.Найти("КонтрагентМенеджерыПокупателяМенеджерПокупателя");
 
            //ЭлементОтбора = ОтборВОтчете.Найти("ДокументПродажиСклад");
 
            Если ЭлементОтбора = Неопределено Тогда 
 
                ЭлементОтбора = ОтборВОтчете.Добавить("Контрагент.МенеджерыПокупателя.МенеджерПокупателя");
 
            КонецЕсли;
 
            
 
            //ЭлементОтбора.доступность = ложь;
 
            ОтборВОтчете["КонтрагентМенеджерыПокупателяМенеджерПокупателя"].Использование = Истина;
 
            ОтборВОтчете["КонтрагентМенеджерыПокупателяМенеджерПокупателя"].Видсравнения = ВидСравнения.Равно;
 
            ОтборВОтчете["КонтрагентМенеджерыПокупателяМенеджерПокупателя"].Значение = Пользователь;    
 
        КонецЕсли;                    
 
        
 
    КонецЕсли;
перед формирования отчета вызывается процедурка, которая добавляет свои отборы...