Ограничение на просмотр счетов в стандартных отчетах

Здравствуйте ! 

В этой статье я хотел бы поделиться одним из способов закрытия доступа к счетам в стандартных отчетах, таких как Оборотно-Сальдовая Ведомость, Анализ счета и др. 

Данный способ не является чем-то новым — просто хотелось показать,  что нужный результат можно получить без примнения RLS и все изменения не такие маштабные, как кажется на первый взгляд. 

Итак,  суть способа — изменить НастройкиКомпановкиДанных перед тем, как настройки будут проинициализированы,  и инициализировать уже с новыми настройками. Для уменьшения изменений в основной конфигурации воспользуемся  механизмом Расширение конфигураций.

Все настройки рассмотрим на примере Бухгалтерии БП 3.0 (релиз  3.0.44.140) 

1. Для хранения данных о пользователях,  у которых ограничены права на просмотр счетов,  и самих счетов, доступ к которым ограничен, я добавил Справочник  «ОграничениеПравПользователей» с реквизитом «Пользователь» — СправочникСсылка.Пользователи  и две табличные части:. Длину наименования у спрвочника  указываем  50 символов.  

«СписокЗапрещенныхСчетов» — Колонки «Счет» — ПланыСчетов.Хозрасчетный, «Использование» — Тип Булево.

«СписокЗапрещенныхСубконто» — Колонки «ЗапрещенноеСубконто» — Тип ПланВидовХарактеристик.ВидыСубконтоХозрасчетный

Тут важное уточнение — полные права доступа на этот справочник должны быть только у администратора (или пользователя с полными правами), у других должен быть доступ только на чтение. 

2.  Добавление общего модуля «ОграничениеПравПользователей» (если кто использует платформу 8.3.9 модуль можно добавить в расширение) 

Код Модуля (сразу оговорюсь, что данный код не оптимизировался , вполне возможно привести данный код в более красивый вид). Необходимые комментарии в коде

Функция ПроверитьУстановленныйОтбор (Отбор,ВидСравнения,Значение)

Если Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно Тогда

Если Значение.НайтиПоЗначению(Отбор.ПравоеЗначение)<> Неопределено Тогда
Отбор.ПравоеЗначение = Неопределено;
ОтборУстановлен = Истина;
КонецЕсли;

ИначеЕсли Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке
ИЛИ Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.ВИерархии
ИЛИ Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСпискеПоИерархии Тогда

Для каждого СтрокаСписка  Из Отбор.ПравоеЗначение Цикл
Если Значение.НайтиПоЗначению(СтрокаСписка.Значение)<>Неопределено тогда
Отбор.ПравоеЗначение.Удалить(СтрокаСписка);
КонецЕсли;
КонецЦикла;

ОтборУстановлен = Истина;

ИначеЕсли Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВИерархии
ИЛИ Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСписке
ИЛИ Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСпискеПоИерархии Тогда

Для каждого СтрокаСписка  Из Значение Цикл
Если Отбор.ПравоеЗначение.НайтиПоЗначению(СтрокаСписка.Значение)=Неопределено тогда
Отбор.ПравоеЗначение.Добавить(СтрокаСписка.Значение);
КонецЕсли;
КонецЦикла;

ОтборУстановлен = Истина;

Иначе

ОтборУстановлен = Ложь;

КонецЕсли;

Возврат ОтборУстановлен;



КонецФункции

////ДОПОЛНИТЕЛЬНЫЕ ФУНКЦИИ И ПРОЦЕДУРЫ///////////////////////
Функция ПоискиУстановкаОтбора (КомпоновщикНастроек,ПолеОтбора,ВидСравнения,ЗначениеОтбора)

ОтборНайден = Ложь;

Для каждого Отбор Из КомпоновщикНастроек.Отбор.Элементы Цикл

Если Отбор.ЛевоеЗначение = Новый ПолеКомпоновкиДанных (ПолеОтбора) Тогда

Если Отбор.Использование = Истина Тогда // Возможно пользователь сам установил какой-то отбор по заданному полю,
//поэтому мы должные проверить
ОтборНайден = ПроверитьУстановленныйОтбор(Отбор,ВидСравнения,ЗначениеОтбора);
Иначе

Отбор.Использование = Истина;
Отбор.ВидСравнения = ВидСравнения;
Отбор.ПравоеЗначение = ЗначениеОтбора;

ОтборНайден = Истина;

КонецЕсли;
КонецЕсли;
КонецЦикла;

Возврат  ОтборНайден;

КонецФункции


//Процедура Добавляет Отбор в НастройкуКомпановкиДанных
Процедура ДобавитьОтбор(НастройкаКомпоновкиДанных,ПолеОтбора,ВидСравнения,Значение,Использование)

Отбор = НастройкаКомпоновкиДанных.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

ПолеОтбораСчет = Новый ПолеКомпоновкиДанных(ПолеОтбора);

Отбор.ЛевоеЗначение = ПолеОтбораСчет;

Отбор.Использование = Использование;

Отбор.ПравоеЗначение = Значение;

Отбор.ВидСравнения = ВидСравнения;

КонецПроцедуры

/////////////ОСНОВННЫЕ ФУНКЦИИ И ПРОЦЕДУРЫ /////////////////////////////////
Процедура УстановитьОграничениеНаПросмотрСчетов(ОтчетОбъект,НастройкаКомпоновкиДанных,Форма,СКД=неопределено) Экспорт;

// Получим список  запрещенных Счетов для текущего пользователя
Запрос = Новый Запрос;

Запрос.Текст =
"ВЫБРАТЬ
| ВЫБОР
|  КОГДА ОграничениеПравПользователейСписокРазрещенныхСчетов.Использование = ЛОЖЬ
|   ТОГДА ОграничениеПравПользователейСписокРазрещенныхСчетов.Счет
| КОНЕЦ КАК ЗапрещенныеСчета
|ИЗ
| Справочник.ОграничениеПравПользователей.СписокРазрещенныхСчетов КАК ОграничениеПравПользователейСписокРазрещенныхСчетов
|ГДЕ
| ОграничениеПравПользователейСписокРазрещенныхСчетов.Ссылка.Пользователь = &Пользователь
| И ОграничениеПравПользователейСписокРазрещенныхСчетов.Использование = ЛОЖЬ";


Запрос.УстановитьПараметр("Пользователь",ПараметрыСеанса.ТекущийПользователь);

Результат = Запрос.Выполнить();

ТаблицаСчетов = Результат.Выгрузить(); // результат выгружаем в таблиц

ЗапрещенныеСчета = ТаблицаСчетов.ВыгрузитьКолонку("ЗапрещенныеСчета"); // Получаем массив запрещенных счетов

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

Запрос.УстановитьПараметр("Пользователь",ПараметрыСеанса.ТекущийПользователь);

ТаблицаЗапрещенныхСубконто = Запрос.Выполнить().Выгрузить();

Если ЗапрещенныеСчета.Количество()= 0 И ТаблицаЗапрещенныхСубконто.Количество() = 0 тогда  // Если нет ограничений , то выходим
Возврат;
КонецЕсли;


МассивЗапрещенныхСубконто = ТаблицаЗапрещенныхСубконто.ВыгрузитьКолонку("ЗапрещенноеСубконто");

СписокЗапрещенныхСчетов = Новый СписокЗначений;
СписокЗапрещенныхСчетов.ЗагрузитьЗначения(ЗапрещенныеСчета); // из массива преобразуем в список значений

//Определим какой отчет запустил пользователь
ИдентификаторОбъекта = БухгалтерскиеОтчетыКлиентСервер.ПолучитьИдентификаторОбъекта(Форма); // получаем идентификатор отчета

// В зависимости от вида отчета переходим к обработке

Если ИдентификаторОбъекта = "ОборотноСальдоваяВедомостьПоСчету"   // По иднентификатору определяем дальнейшее действие
ИЛИ ИдентификаторОбъекта = "АнализСчета"
ИЛИ ИдентификаторОбъекта = "КарточкаСчета" ИЛИ ИдентификаторОбъекта = "ОборотыСчета"  Тогда
ОСВПоСчету_АнализСчета_КарточкаСчета(ОтчетОбъект,ИдентификаторОбъекта,НастройкаКомпоновкиДанных,СписокЗапрещенныхСчетов,СКД);
КонецЕсли;


Если ИдентификаторОбъекта = "ОборотноСальдоваяВедомость"  тогда
ОСВ(НастройкаКомпоновкиДанных,СписокЗапрещенныхСчетов);
КонецЕсли;


Если ИдентификаторОбъекта = "АнализСубконто"
ИЛИ  ИдентификаторОбъекта = "КарточкаСубконто" Тогда
АнализСубконто_КарточкаСубконто(НастройкаКомпоновкиДанных,МассивЗапрещенныхСубконто,СписокЗапрещенныхСчетов);
КонецЕсли;


Если  (ИдентификаторОбъекта = "ОтчетПоПроводкам") ИЛИ (ИдентификаторОбъекта = "ОборотыМеждуСубконто") тогда
ОтчетПоПроводкам_ОборотыМеждуСубконто(НастройкаКомпоновкиДанных,СписокЗапрещенныхСчетов);
КонецЕсли;


Если ИдентификаторОбъекта = "СводныеПроводки" Тогда
СводныеПроводки(НастройкаКомпоновкиДанных, СписокЗапрещенныхСчетов);
КонецЕсли;

//Если ИдентификаторОбъекта = "ОборотыМеждуСубконто" Тогда
// ОборотыМеждуСубконто( НастройкаКомпоновкиДанных,СписокЗапрещенныхСчетов);
//КонецЕсли;

КонецПроцедуры




Процедура ОСВПоСчету_АнализСчета_КарточкаСчета(ОтчетОбъект,ИдентификаторОбъекта,НастройкаКомпоновкиДанных,СписокЗапрещенныхСчетов,СКД)


ОтборПоСчету = Ложь ; // установим флаг для поиска Отбора

ОтборПоСчету = ПоискиУстановкаОтбора(НастройкаКомпоновкиДанных,"Счет",ВидСравнения.НеВСписке,СписокЗапрещенныхСчетов);

Если Не ОтборПоСчету Тогда // Если отбор не найден - установим
ДобавитьОтбор(НастройкаКомпоновкиДанных,"Счет",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов,Истина);
КонецЕсли;

Если  ИдентификаторОбъекта = "ОборотноСальдоваяВедомостьПоСчету" Тогда

// В стандартной настройке СКД на поле "Счет" установлено отграничение по условию , поэтому необходимо
// изменить запрос (только в части настроек для СКД , т.е. основной текст запроса не меняется) и отключить ограничение
// на поле "Счет"

Запрос = СКД.НаборыДанных.ОсновнойНаборДанных.Элементы.ОстаткиИОбороты.Запрос;

ЗапросБезСубконто = СКД.НаборыДанных.ОсновнойНаборДанных.Элементы.ОстаткиИОборотыБезСубконто.Запрос;

ПоляОсновногоНабораДанных = СКД.НаборыДанных.ОсновнойНаборДанных.Поля;

СтрокаЗамены = "{ГДЕ"+ Символы.ПС + "ХозрасчетныйОстаткиИОбороты.Счет.*,";
ЗаменяемаяСтрока = "{ГДЕ";

Запрос = СтрЗаменить(запрос,ЗаменяемаяСтрока,СтрокаЗамены);

ЗапросБезСубконто = СтрЗаменить(ЗапросБезСубконто,ЗаменяемаяСтрока,СтрокаЗамены);


//Ищем поле и отключаем ограничение
ПолеСчет = ПоляОсновногоНабораДанных.Найти("Счет");

Если ПолеСчет <> неопределено тогда

ПолеСчет.ОграничениеИспользования.Условие = Ложь;
ПолеСчет.ОграничениеИспользованияРеквизитов.Условие = Ложь;

КонецЕсли;

СКД.НаборыДанных.ОсновнойНаборДанных.Элементы.ОстаткиИОбороты.Запрос = Запрос;
СКД.НаборыДанных.ОсновнойНаборДанных.Элементы.ОстаткиИОборотыБезСубконто.Запрос= ЗапросБезСубконто;

// После данных действий - отбор который был установлен выше будет работать

КонецЕсли;


Если ИдентификаторОбъекта = "КарточкаСчета" тогда // Для карточки счета необходимо изменить Стандартный запрос для парметров СКД

ОтборДтНайден = Ложь; // Флаги для поиска ранее установленных отборов
ОтборКтНайден = Ложь;

//Для стандартного отчета Карточка счета нет возможности установить отбор по счетам. Для возможности добавления отбора необходимо
//поменять текст запроса для СКД (только в части настроек для СКД , т.е. основной текст запроса не меняется )

Запрос = СКД.НаборыДанных.Проводки.Запрос; // получим текст запроса
Запрос = СтрЗаменить(Запрос,"Проводки.ПериодГруппировки}", "Проводки.ПериодГруппировки,"+Символы.ПС
+ "Проводки.СчетДт.*,"+Символы.ПС+ "Проводки.СчетКт.*}"+Символы.ПС); // Изменяем текст для компоновщика добавляя поля СчетДт И СчетКТ

СКД.НаборыДанных.Проводки.Запрос = Запрос; // Устанавливаем новый текст Запроса

//Теперь в СКД нам доступны поля отбора СчетДт и СчетКт и по ним возможно устанавливать отбор. Попробуем найти ранее установленные отборы
ОтборДтНайден = ПоискиУстановкаОтбора(НастройкаКомпоновкиДанных,"СчетДт",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов);

ОтборДтНайден = ПоискиУстановкаОтбора(НастройкаКомпоновкиДанных,"СчетКт",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов);

Если Не ОтборДтНайден тогда // Если указанный отбор не найден, то установим его

ДобавитьОтбор(НастройкаКомпоновкиДанных,"СчетДт",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов,Истина);

КонецЕсли;

Если Не ОтборКтНайден тогда // Если указанный отбор не найден, то установим его

ДобавитьОтбор(НастройкаКомпоновкиДанных,"СчетКт",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов,Истина);

КонецЕсли;

КонецЕсли;

Если ИдентификаторОбъекта = "АнализСчета" Тогда  // Для Отчета Анализ Счета установим(проверим) отбор на КорСчет

КорСчетНайден = Ложь;

КоррСчетНайден=ПоискиУстановкаОтбора(НастройкаКомпоновкиДанных,"КорСчет",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов);

Если Не КорСчетНайден тогда
ДобавитьОтбор(НастройкаКомпоновкиДанных,"КорСчет",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов,Истина);
КонецЕсли;

КонецЕсли;

КонецПроцедуры


Процедура ОСВ(НастройкаКомпоновкиДанных,СписокЗапрещенныхСчетов)

ПараметрыКомпоновки = НастройкаКомпоновкиДанных.ПараметрыДанных;

ПараметрСчет = ПараметрыКомпоновки.Элементы.Найти("СчетаИсключенныеИзЗапросаПоСчетам");

ПараметрСчетДетализации =ПараметрыКомпоновки.Элементы.Найти("Счетдетализации");

Если  ПараметрСчет <> Неопределено Тогда
Если СписокЗапрещенныхСчетов.Количество()>0 Тогда
БухгалтерскиеОтчетыКлиентСервер.УстановитьПараметр(ПараметрыКомпоновки.Элементы,"СчетаИсключенныеИзЗапросаПоСчетам",СписокЗапрещенныхСчетов,Истина);
КонецЕсли;
КонецЕсли;

СчетНайден = Ложь;

СчетНайден = ПоискиУстановкаОтбора(НастройкаКомпоновкиДанных,"Счет",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов);

Если Не СчетНайден Тогда
ДобавитьОтбор(НастройкаКомпоновкиДанных,"Счет",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов,Истина);
КонецЕсли;

КонецПроцедуры

Процедура АнализСубконто_КарточкаСубконто(НастройкаКомпоновкиДанных,МассивЗапрещенныхСубконто,СписокЗапрещенныхСчетов)

// В принципе можно обойтись только установкой  отбора по счету. Но все таки решил оставить первоначальный вариант с двойной проверкой как по счету так и
// через удаление запрещенных субконто из списка параметров

Если СписокЗапрещенныхСчетов.Количество()> 0 Тогда

СчетНайден = Ложь;

СчетНайден = ПоискиУстановкаОтбора(НастройкаКомпоновкиДанных,"Счет",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов);

Если Не СчетНайден Тогда
ДобавитьОтбор(НастройкаКомпоновкиДанных,"Счет",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов,Истина);
КонецЕсли;

КонецЕсли;

Если МассивЗапрещенныхСубконто.Количество() > 0 Тогда

ПараметрыКомпоновки = НастройкаКомпоновкиДанных.ПараметрыДанных;

ПараметрСписокСубконто = ПараметрыКомпоновки.Элементы.Найти("СписокВидовСубконто");

Если  ПараметрСписокСубконто<> неопределено Тогда

МассивУстановленныхСубконто = ПараметрыКомпоновки.Элементы.Найти("СписокВидовСубконто").Значение;

Для каждого Субконто из МассивЗапрещенныхСубконто Цикл

ИндексЭлемента = МассивУстановленныхСубконто.найти (Субконто) ;

Если  ИндексЭлемента<> Неопределено Тогда
МассивУстановленныхСубконто.удалить(ИндексЭлемента) ;
КонецЕсли;

КонецЦикла;

Если МассивУстановленныхСубконто.Количество() = 0 Тогда
МассивУстановленныхСубконто.Добавить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ПустаяСсылка());
КонецЕсли;

БухгалтерскиеОтчетыКлиентСервер.УстановитьПараметр(ПараметрыКомпоновки.Элементы,"СписокВидовСубконто",МассивУстановленныхСубконто,Истина);

КонецЕсли;

КонецЕСли;

КонецПроцедуры

Процедура ОтчетПоПроводкам_ОборотыМеждуСубконто(НастройкаКомпоновкиДанных,СписокЗапрещенныхСчетов)

ОтборКтНайден = Ложь;
ОтборДтНайден = Ложь;

ОтборКтНайден = ПоискиУстановкаОтбора(НастройкаКомпоновкиДанных,"Счет",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов);
ОтборДтНайден = ПоискиУстановкаОтбора(НастройкаКомпоновкиДанных,"КорСчет",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов);

Если Не ОтборДтНайден тогда
ДобавитьОтбор(НастройкаКомпоновкиДанных,"Счет",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов,Истина);
КонецЕсли;

Если Не ОтборКтНайден тогда
ДобавитьОтбор(НастройкаКомпоновкиДанных,"КорСчет",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов,Истина);
КонецЕсли;

КонецПроцедуры

Процедура СводныеПроводки (НастройкаКомпоновкиДанных,СписокЗапрещенныхСчетов)

СчетДт = Ложь;

СчетДт = ПоискиУстановкаОтбора(НастройкаКомпоновкиДанных,"СчетДт",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов);

Если Не СчетДт Тогда
ДобавитьОтбор(НастройкаКомпоновкиДанных,"СчетДт",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов,Истина);
КонецЕсли;

СчетКт = Ложь;

СчетКт = ПоискиУстановкаОтбора(НастройкаКомпоновкиДанных,"СчетКт",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов);

Если Не СчетКт Тогда
ДобавитьОтбор(НастройкаКомпоновкиДанных,"СчетКт",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов,Истина);
КонецЕсли;

КонецПроцедуры

3. В конфигурацию добавляем расширение (имя заданное по умолчанию я менять  не стал Расширение1 , префикс Расш1_

В расширение следует добавить формы отчетов, к которым настраивается ограничение. В моем случае это:

• Анализ счета
• Карточка счета
• Анализ субконто
• Карточка субконто
• Оборотно-сальдовая ведомость
• Оборотно-сальдовая ведомость по счету
• Обороты между субконто
• Сводные проводки
• Обороты счета
• Отчет по проводкам

В каждую расширенную форму следует добавить 2 функции и 1 процедуру (это в общем случае. отдельный случай будет описан ниже) из расширяемой формы основной конфигурации, а именно:

• Процедура «СформироватьОтчет»
• Функция «СформироватьОтчетНаСервере»
• Функция «ПодготовитьПараметрыОтчета» 

 К указанным функциям и процедуре необходимо добавить префикс расширения.   А для команды «СформироватьОтчет» (кнопка «Сформировать» на форме) назначить новое действие «Расш1_СформирватьОтчет» 

Вот пример  для отчета КарточкаСчета

&НаСервере
Функция Расш1_ПодготовитьПараметрыОтчета()
// В этой функции происходит подмена настроек "НастройкиКомпоновкиДанных"

ПараметрыОтчета = Новый Структура;
ПараметрыОтчета.Вставить("Организация"                      , Отчет.Организация);
ПараметрыОтчета.Вставить("НачалоПериода"                    , Отчет.НачалоПериода);
ПараметрыОтчета.Вставить("КонецПериода"                     , Отчет.КонецПериода);
ПараметрыОтчета.Вставить("ВключатьОбособленныеПодразделения", Отчет.ВключатьОбособленныеПодразделения);
ПараметрыОтчета.Вставить("ПоказательБУ"                     , Отчет.ПоказательБУ);
ПараметрыОтчета.Вставить("ПоказательНУ"                     , Отчет.ПоказательНУ);
ПараметрыОтчета.Вставить("ПоказательПР"                     , Отчет.ПоказательПР);
ПараметрыОтчета.Вставить("ПоказательВР"                     , Отчет.ПоказательВР);
ПараметрыОтчета.Вставить("ПоказательВалютнаяСумма"          , Мин(Отчет.ПоказательВалютнаяСумма, БухгалтерскийУчетПереопределяемый.ИспользоватьВалютныйУчет()));
ПараметрыОтчета.Вставить("ПоказательКоличество"             , Отчет.ПоказательКоличество);
ПараметрыОтчета.Вставить("ПоказательКонтроль"               , Отчет.ПоказательКонтроль);
ПараметрыОтчета.Вставить("РазвернутоеСальдо"                , Отчет.РазвернутоеСальдо);
ПараметрыОтчета.Вставить("РазмещениеДополнительныхПолей"    , Отчет.РазмещениеДополнительныхПолей);
ПараметрыОтчета.Вставить("Периодичность"                    , Отчет.Периодичность);
ПараметрыОтчета.Вставить("Счет"                             , Отчет.Счет);
ПараметрыОтчета.Вставить("ПоСубсчетам"                      , Отчет.ПоСубсчетам);
ПараметрыОтчета.Вставить("ПоСубсчетамКорСчетов"             , Отчет.ПоСубсчетамКорСчетов);
ПараметрыОтчета.Вставить("Группировка"                      , Отчет.Группировка.Выгрузить());
ПараметрыОтчета.Вставить("ДополнительныеПоля"               , Отчет.ДополнительныеПоля.Выгрузить());
ПараметрыОтчета.Вставить("ГруппировкаКор"                   , Отчет.ГруппировкаКор.Выгрузить());
ПараметрыОтчета.Вставить("РежимРасшифровки"                 , Отчет.РежимРасшифровки);
ПараметрыОтчета.Вставить("ВыводитьЗаголовок"                , ВыводитьЗаголовок);
ПараметрыОтчета.Вставить("ВыводитьПодвал"                   , ВыводитьПодвал);
ПараметрыОтчета.Вставить("ДанныеРасшифровки"                , ДанныеРасшифровки);
ПараметрыОтчета.Вставить("МакетОформления"                  , МакетОформления);
ПараметрыОтчета.Вставить("СхемаКомпоновкиДанных"            , ПолучитьИзВременногоХранилища(СхемаКомпоновкиДанных));
ПараметрыОтчета.Вставить("ИдентификаторОтчета"              , БухгалтерскиеОтчетыКлиентСервер.ПолучитьИдентификаторОбъекта(ЭтаФорма));
НастройкиКомпоновкиДанных = Отчет.КомпоновщикНастроек.ПолучитьНастройки();
ОграничениеПравПользователей.УстановитьОграничениеНаПросмотрСчетов(Отчет,НастройкиКомпоновкиДанных,ЭтаФорма,ПараметрыОтчета.СхемаКомпоновкиДанных);
ПараметрыОтчета.Вставить("НастройкиКомпоновкиДанных"        , НастройкиКомпоновкиДанных);
ПараметрыОтчета.Вставить("НаборПоказателей"                 , Отчеты[ПараметрыОтчета.ИдентификаторОтчета].ПолучитьНаборПоказателей());
ПараметрыОтчета.Вставить("ОтветственноеЛицо"                , Перечисления.ОтветственныеЛицаОрганизаций.ОтветственныйЗаБухгалтерскиеРегистры);
ПараметрыОтчета.Вставить("ВыводитьЕдиницуИзмерения"         , ВыводитьЕдиницуИзмерения);

Возврат ПараметрыОтчета;


КонецФункции

&НаСервере
Функция Расш1_СформироватьОтчетНаСервере() Экспорт

Если Не КомпоновщикИнициализирован Тогда
ИнициализацияКомпоновщикаНастроек();
КонецЕсли;

Если Не ПроверитьЗаполнение() Тогда
Возврат Новый Структура("ЗаданиеВыполнено, ОтказПроверкиЗаполнения", Истина, Истина);
КонецЕсли;

ИБФайловая = ОбщегоНазначения.ИнформационнаяБазаФайловая();

ДлительныеОперации.ОтменитьВыполнениеЗадания(ИдентификаторЗадания);

ИдентификаторЗадания = Неопределено;

ОбщегоНазначенияКлиентСервер.УстановитьСостояниеПоляТабличногоДокумента(Элементы.Результат, "НеИспользовать");

Отчет.КомпоновщикНастроек.Настройки.ДополнительныеСвойства.Вставить("ВыводитьЗаголовок", ВыводитьЗаголовок);
Отчет.КомпоновщикНастроек.Настройки.ДополнительныеСвойства.Вставить("ВыводитьПодвал"   , ВыводитьПодвал);
Отчет.КомпоновщикНастроек.Настройки.Отбор.ИдентификаторПользовательскойНастройки              = "";
Отчет.КомпоновщикНастроек.Настройки.Порядок.ИдентификаторПользовательскойНастройки            = "";
Отчет.КомпоновщикНастроек.Настройки.УсловноеОформление.ИдентификаторПользовательскойНастройки = "";

// Получаем параметры отчета из нашей функции

ПараметрыОтчета = Расш1_ПодготовитьПараметрыОтчета();

Если ИБФайловая Тогда
АдресХранилища = ПоместитьВоВременноеХранилище(Неопределено, УникальныйИдентификатор);
БухгалтерскиеОтчетыВызовСервера.СформироватьОтчет(ПараметрыОтчета, АдресХранилища);
РезультатВыполнения = Новый Структура("ЗаданиеВыполнено", Истина);
Иначе
РезультатВыполнения = ДлительныеОперации.ЗапуститьВыполнениеВФоне(
УникальныйИдентификатор,
"БухгалтерскиеОтчетыВызовСервера.СформироватьОтчет",
ПараметрыОтчета,
БухгалтерскиеОтчетыКлиентСервер.ПолучитьНаименованиеЗаданияВыполненияОтчета(ЭтаФорма));

АдресХранилища       = РезультатВыполнения.АдресХранилища;
ИдентификаторЗадания = РезультатВыполнения.ИдентификаторЗадания;
КонецЕсли;

Если РезультатВыполнения.ЗаданиеВыполнено Тогда
ЗагрузитьПодготовленныеДанные();
КонецЕсли;

Элементы.Сформировать.КнопкаПоУмолчанию = Истина;

Возврат РезультатВыполнения;

КонецФункции

&НаКлиенте
Процедура Расш1_СформироватьОтчет(Команда)

// СтандартныеПодсистемы.ОценкаПроизводительности
УИДЗамера = ОценкаПроизводительностиКлиент.НачатьЗамерВремени(Ложь, "ФормированиеОтчетаАнализСчета");
// СтандартныеПодсистемы.ОценкаПроизводительности

ОчиститьСообщения();

ОтключитьОбработчикОжидания("Подключаемый_ПроверитьВыполнениеЗадания");

// Вызываем нашу функцию Расш1_сформироватьОтчетНаСервере

РезультатВыполнения = Расш1_СформироватьОтчетНаСервере();
Если Не РезультатВыполнения.ЗаданиеВыполнено Тогда
ДлительныеОперацииКлиент.ИнициализироватьПараметрыОбработчикаОжидания(ПараметрыОбработчикаОжидания);
ПодключитьОбработчикОжидания("Подключаемый_ПроверитьВыполнениеЗадания", 1, Истина);
ОбщегоНазначенияКлиентСервер.УстановитьСостояниеПоляТабличногоДокумента(Элементы.Результат, "ФормированиеОтчета");
Иначе

ЗафиксироватьДлительностьКлючевойОперации();

Если НЕ РезультатВыполнения.Свойство("ОтказПроверкиЗаполнения") Тогда
БухгалтерскийУчетКлиентПереопределяемый.ПодключитьПроверкуАктуальности(ЭтотОбъект);
КонецЕсли;

КонецЕсли;

Если РезультатВыполнения.Свойство("ОтказПроверкиЗаполнения") Тогда
ПоказатьНастройки("");
Иначе
СкрытьНастройки();
КонецЕсли;

//обработку из основной конфигурации отменяем
УстановитьВыполнениеОбработчиковСобытия(Ложь);

КонецПроцедуры


&НаСервере
Процедура Расш1_ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
УстановитьВыполнениеПослеОбработчиковСобытия("Расш1_ПриСозданииНаСервереПосле", Неопределено);
КонецПроцедуры

&НаСервере
Процедура Расш1_ПриСозданииНаСервереПосле(Отказ,СтандартнаяОбработка,ДополнительныйПараметр)

Если Параметры.Свойство("ОткрытьРасшифровку") И Параметры.ОткрытьРасшифровку Тогда
Расш1_СформироватьОтчетНаСервере();
КонецЕсли;

КонецПроцедуры

Здесь следует обратить внимание на несколько моментов 

1)  Не забыть указать метод УстановитьВыполнениеОбработчиковСобытия(ложь) в самом конце процеду «СформироватьОтчет», что бы не вызывался обработчик  из основной конфигурации

2) В перенесенных функциях и процедуре  заменить обращение к стандарным функциям  на наши 

В процедуре Расш1_СформироватьОтчет — заменить строку 

РезультатВыполнения = СформироватьОтчетНаСервер()

 на  

РезультатВыполнения = Расш1_СформироватьОтчетНаСервер()

   И в функции  «СформироватьОтчетНаСервере» 

ПараметрыОтчета = ПодготовитьПараметрыОтчета();

на 

ПараметрыОтчета = Расш1_ПодготовитьПараметрыОтчета();

3)  в приведенном выше примере можно заметить, что в Расширении еще переопределяется процедура ПриСозданииНаСервере. Сделано это для правильной работы при открытии отчета по расшифровке из другого отчета, так как в этом случае, Расширение не перехватывает вызов СформирватьОтчетНаСервере (), вызванного из Общего модуля. Поэтому, сначала вызывается процедура из Расширения, которая устанавливает обработчик, который будет вызван после отработки процедуры основной конфигурации, и далее снова передаст управление Расширению. И уже здесь мы переформировываем отчет с установкой нужных отборов.   Пока данной действие мне пригодилось только для отчета Карточка Счета (расшифровка вызывается из отчета Анализ счета), но если необходимо — такой же механизм можно включить и в другие отчеты.

Стоит сказать пару слов о недостатках данного подхода

1. В заголовках отчета пользователь будет видеть установленный отбор (но в настройках его не будет,  и снять отбор пользователь не сможет). 
2. Некорректные данные. Ну тут все стандартно.   В принципе, как вариант, можно оставлять не закрывать ОСВ так как пользователь будет видеть общую сумму и полную картину, а вот расшифровки через другие отчеты придется закрывать.
3. Требуется настройка прав на документы. В отчете суммы он может не увидеть, а вот если сможет открыть документ …
4. В данном решении не все отчеты прописаны, через которые можно получить данные (например отсутствует Шахматка) — пока не дошли руки . Думаю, реализовать в ближайшее время.
5. Более сложная настройка по сравнению с RLS — Кода хоть и немного, но все же больше чем  настройка через RLS   

Выношу свое решение на публику. Буду рад обсудить данную тему, конструктивной критике или совету как можно улучшить данный механизм . 

P.S. В прикрепленном файле содержится Расширение конфигурации + текстовый файл с кодом Общего модуля 
Вам остается создать справочник.  

Напомню — Эксперименты лучше проводить сначала на копии базы)))