Ограничение на просмотр счетов в стандартных отчетах
Комментарии
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
КА не смотрел , но думаю что немного видоизменив код , решение может подойти и для КА. + немного зависит от версии конфигурации 1.1 или 2.0 (2.2). Если будет время я посмотрю как КА устроена и смогу сказать подойдет ли данное решение.
Спасибо за подробную статью!
Выгрузку конфы с новым справочником можно попросить добавить в поставку?
ЗЫ. И поправьте, пожалуйста, характеристику статьи Конфигурация на инфостарте как 1С:Бухгалтерия 3.0, а то параметрическим поиском ее не найти.
Выгрузку конфы с новым справочником можно попросить добавить в поставку?
ЗЫ. И поправьте, пожалуйста, характеристику статьи Конфигурация на инфостарте как 1С:Бухгалтерия 3.0, а то параметрическим поиском ее не найти.
(3) К сожалению, выгрузку со справочником добавить нельзя, так как это целая рабочая конфигурация и модераторы Инфостарта скорее всего не пропустят ее , так как это будет нарушением авторский прав 1с.
Я думаю что добавление справочника в конфу не составит труда. Один реквизит , 2 табличные части - Там нет никакого сверх сложного кода- заполнение таб.частей по плану счетов , и добавление всех пользователей с установкой ограничения на 70 счет. Если нужно код могу выложить
Я думаю что добавление справочника в конфу не составит труда. Один реквизит , 2 табличные части - Там нет никакого сверх сложного кода- заполнение таб.частей по плану счетов , и добавление всех пользователей с установкой ограничения на 70 счет. Если нужно код могу выложить
Тестирую. Конфу со справочником не качал.
1. Здесь в описании "Справочник "ОграничениеПравПользователей" с реквизитом "Пользователи", а в расширении у Справочника реквизит ""Пользователь"
2. Расширение1: Критичная: Значение контролируемого свойства ДлинаНаименования у объекта Справочник.ОграничениеПравПользователей не совпадает со значением в расширяемой конфигурации. Это при запуске, у вас в расширении длина 50, по-умолчанию у меня длинна 25
1. Здесь в описании "Справочник "ОграничениеПравПользователей" с реквизитом "Пользователи", а в расширении у Справочника реквизит ""Пользователь"
2. Расширение1: Критичная: Значение контролируемого свойства ДлинаНаименования у объекта Справочник.ОграничениеПравПользователей не совпадает со значением в расширяемой конфигурации. Это при запуске, у вас в расширении длина 50, по-умолчанию у меня длинна 25
(11) В принципе не кретично но посмотрел у себя вроде все правильно на всякий случай выкладываю сюда расширение из рабочей базы
Прикрепленные файлы:
Расширение1.cfe
Чего-то у меня вообще не получается. Идея закрыть доступ к развороту по сотрудникам на 70 счете.
Включил в список запрещенных субконто "Работники организаций", список счетов не заполнял. Зашел под пользователем в ОСВ по счету и все формируется. Хотя, по-идее, вообще ничего не должно, я же никакой счет не разрешил и в добавок и субконто запретил.
Включил в список запрещенных субконто "Работники организаций", список счетов не заполнял. Зашел под пользователем в ОСВ по счету и все формируется. Хотя, по-идее, вообще ничего не должно, я же никакой счет не разрешил и в добавок и субконто запретил.
Я так понял, что ограничение по субконто реализовано только для отчета по субконто. Но и там у меня ошибка:
{Расширение1 ОбщийМодуль.ОграничениеПравПользователей.Модуль(346)}: Метод объекта не обнаружен (найти)
ИндексЭлемента = МассивУстановленныхСубконто.найти (Субконто) ;
{Расширение1 ОбщийМодуль.ОграничениеПравПользователей.Модуль(346)}: Метод объекта не обнаружен (найти)
ИндексЭлемента = МассивУстановленныхСубконто.найти (Субконто) ;
Так давайте по порядку
1) "Пользователи", а в расширении у Справочника реквизит ""Пользователь" - в описании ошибка Правильно "Пользователь " - описание поправлю
2) Если справочники добавляли сами то нужно у справочника длину наименования указать 50 - тоже укажу в описании
1) "Пользователи", а в расширении у Справочника реквизит ""Пользователь" - в описании ошибка Правильно "Пользователь " - описание поправлю
2) Если справочники добавляли сами то нужно у справочника длину наименования указать 50 - тоже укажу в описании
Закомментируйте укакзанные строки
Процедура АнализСубконто_КарточкаСубконто(НастройкаКомпоновкиДанных,МассивЗапрещенныхСубконто,СписокЗапрещенныхСчетов)
Если СписокЗапрещенныхСчетов.Количество()> 0 Тогда
СчетНайден = Ложь;
СчетНайден = ПоискиУстановкаОтбора(НастройкаКомпоновкиДанных,"Счет",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов);
Если Не СчетНайден Тогда
ДобавитьОтбор(НастройкаКомпоновкиДанных,"Счет",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов,Истина);
КонецЕсли;
КонецЕсли;
//Если МассивЗапрещенныхСубконто.Количество() > 0 Тогда
// ПараметрыКомпоновки = НастройкаКомпоновкиДанных.ПараметрыДанных;
// ПараметрСписокСубконто = //ПараметрыКомпоновки.Элементы.Найти("СписокВидовСубконто");
//Если ПараметрСписокСубконто<> неопределено Тогда
// МассивУстановленныхСубконто = //ПараметрыКомпоновки.Элементы.Найти("СписокВидовСубконто").Значение;
//Для каждого Субконто из МассивЗапрещенныхСубконто Цикл
// ИндексЭлемента = МассивУстановленныхСубконто.найти (Субконто) ;
// Если ИндексЭлемента<> Неопределено Тогда
// МассивУстановленныхСубконто.удалить(ИндексЭлемента) ;
// КонецЕсли;
//КонецЦикла;
//Если МассивУстановленныхСубконто.Количество() = 0 Тогда
//МассивУстановленныхСубконто.Добавить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ПустаяСсылка());
КонецЕсли;
//БухгалтерскиеОтчетыКлиентСервер.УстановитьПараметр(ПараметрыКомпоновки.Элементы,"Список//ВидовСубконто",МассивУстановленныхСубконто,Истина);
// КонецЕсли;
// КонецЕСли;
КонецПроцедуры Показать
Закомментируйте укакзанные строки
Процедура АнализСубконто_КарточкаСубконто(НастройкаКомпоновкиДанных,МассивЗапрещенныхСубконто,СписокЗапрещенныхСчетов)
Если СписокЗапрещенныхСчетов.Количество()> 0 Тогда
СчетНайден = Ложь;
СчетНайден = ПоискиУстановкаОтбора(НастройкаКомпоновкиДанных,"Счет",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов);
Если Не СчетНайден Тогда
ДобавитьОтбор(НастройкаКомпоновкиДанных,"Счет",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов,Истина);
КонецЕсли;
КонецЕсли;
//Если МассивЗапрещенныхСубконто.Количество() > 0 Тогда
// ПараметрыКомпоновки = НастройкаКомпоновкиДанных.ПараметрыДанных;
// ПараметрСписокСубконто = //ПараметрыКомпоновки.Элементы.Найти("СписокВидовСубконто");
//Если ПараметрСписокСубконто<> неопределено Тогда
// МассивУстановленныхСубконто = //ПараметрыКомпоновки.Элементы.Найти("СписокВидовСубконто").Значение;
//Для каждого Субконто из МассивЗапрещенныхСубконто Цикл
// ИндексЭлемента = МассивУстановленныхСубконто.найти (Субконто) ;
// Если ИндексЭлемента<> Неопределено Тогда
// МассивУстановленныхСубконто.удалить(ИндексЭлемента) ;
// КонецЕсли;
//КонецЦикла;
//Если МассивУстановленныхСубконто.Количество() = 0 Тогда
//МассивУстановленныхСубконто.Добавить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ПустаяСсылка());
// КонецЕсли;
//БухгалтерскиеОтчетыКлиентСервер.УстановитьПараметр(ПараметрыКомпоновки.Элементы,"Список//ВидовСубконто",МассивУстановленныхСубконто,Истина);
// КонецЕсли;
// КонецЕСли;
КонецПроцедуры Показать
(21)
Я не отрицаю что может быть похожее решение - я таких решений не встречал , даже наоборот в обсуждении можно найти что реализация через код проблематичная, данная реализация писалась самостоятельно и не откуда не была скопирована.
явно у кого-то слямзил...
Обоснуйте с какого решения это было "слямзино"
Я не отрицаю что может быть похожее решение - я таких решений не встречал , даже наоборот в обсуждении можно найти что реализация через код проблематичная, данная реализация писалась самостоятельно и не откуда не была скопирована.
(23)
- описание по установке одно, в скрипте совсем другое...
- не полное описание установки...
все сделал по описанию, исправил "опечатки", добавил, но не понятно, где искать настройки пользователя для ограничения?
-все функции - в справочниках....
Блокирует всех пользователей да же не добавленных за чем это и как отключить?
Обоснуйте с какого решения это было "слямзино"
- описание по установке одно, в скрипте совсем другое...
- не полное описание установки...
все сделал по описанию, исправил "опечатки", добавил, но не понятно, где искать настройки пользователя для ограничения?
-все функции - в справочниках....
Блокирует всех пользователей да же не добавленных за чем это и как отключить?
Добрый день! работал в прошлом году в КА 1.1 - проблем с разделением доступа к отчетам не возникало. Большинство отчетов построено на универсалке и достаточно указать в настройках - каким пользователям доступен набор параметров и структура отчета. Другой вопрос - если найдется умник - сам "наберет" себе отчет из универсалки.
Не должно блокировать всех пользователей , так как за это отвечает этот код в общем модуле:
Я согласен , что в моем описании есть косяк. За что сейчас справедливо, получаю от вас по голове, Подскажите, что Вы правили что бы я мог исправить неточности в публикации ?
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ВЫБОР
| КОГДА ОграничениеПравПользователейСписокРазрещенныхСчетов.Использование = ЛОЖЬ
| ТОГДА ОграничениеПравПользователейСписокРазрещенныхСчетов.Счет
| КОНЕЦ КАК ЗапрещенныеСчета
|ИЗ
| Справочник.ОграничениеПравПользователей.СписокРазрещенныхСчетов КАК ОграничениеПравПользователейСписокРазрещенныхСчетов
|ГДЕ
| ОграничениеПравПользователейСписокРазрещенныхСчетов.Ссылка.Пользователь = &Пользователь
| И ОграничениеПравПользователейСписокРазрещенныхСчетов.Использование = ЛОЖЬ";
Запрос.УстановитьПараметр("Пользователь",ПараметрыСеанса.ТекущийПользователь);
Результат = Запрос.Выполнить();
ТаблицаСчетов = Результат.Выгрузить(); // результат выгружаем в таблиц
ЗапрещенныеСчета = ТаблицаСчетов.ВыгрузитьКолонку("ЗапрещенныеСчета"); // Получаем массив запрещенных счетов
//Получим список запррещенных к просмотру субконто
Запрос.Текст ="ВЫБРАТЬ
| ОграничениеПравПользователейЗапрещенныеСубконто.ЗапрещенноеСубконто
|ИЗ
| Справочник.ОграничениеПравПользователей.ЗапрещенныеСубконто КАК ОграничениеПравПользователейЗапрещенныеСубконто
|ГДЕ
| ОграничениеПравПользователейЗапрещенныеСубконто.Ссылка.Пользователь = &Пользователь";
Запрос.УстановитьПараметр("Пользователь",ПараметрыСеанса.ТекущийПользователь);
ТаблицаЗапрещенныхСубконто = Запрос.Выполнить().Выгрузить();
Если ЗапрещенныеСчета.Количество()= 0 И ТаблицаЗапрещенныхСубконто.Количество() = 0 тогда // Если нет ограничений , то выходим
Возврат;
КонецЕсли; ПоказатьЯ согласен , что в моем описании есть косяк. За что сейчас справедливо, получаю от вас по голове, Подскажите, что Вы правили что бы я мог исправить неточности в публикации ?
При подключении расширения, ошибка:
Расширение1: Критичная:
Не найден объект ФункциональнаяОпция.Новости_РазрешенаРаботаСНовостями
А в управлении расширениями:
(Критичная) Расширение1: Не найден объект ФункциональнаяОпция.Новости_РазрешенаРаботаСНовостями
(Критичная) Расширение1: Не найден объект Справочник.ОграничениеПравПользователей
Бухгалтерия 3.0.53.38
Расширение1: Критичная:
Не найден объект ФункциональнаяОпция.Новости_РазрешенаРаботаСНовостями
А в управлении расширениями:
(Критичная) Расширение1: Не найден объект ФункциональнаяОпция.Новости_РазрешенаРаботаСНовостями
(Критичная) Расширение1: Не найден объект Справочник.ОграничениеПравПользователей
Бухгалтерия 3.0.53.38
(27)
1. Необходимо в расширение добавить указанный объект. Для этого в дереве объектов основной конфигурации надо найти указанный объект (ФункциональнаяОпция.Новости_РазрешенаРаботаСНовостями) и в контекстном меню (щелчок второй кнопкой мыши по указанному объекту) .
2. Указанный справочник добавляется в основную конфигурацию (см. описание )
1. Необходимо в расширение добавить указанный объект. Для этого в дереве объектов основной конфигурации надо найти указанный объект (ФункциональнаяОпция.Новости_РазрешенаРаботаСНовостями) и в контекстном меню (щелчок второй кнопкой мыши по указанному объекту) .
2. Указанный справочник добавляется в основную конфигурацию (см. описание )
Для хранения данных о пользователях, у которых ограничены права на просмотр счетов, и самих счетов, доступ к которым ограничен, я добавил Справочник "ОграничениеПравПользователей" с реквизитом "Пользователь" - СправочникСсылка.Пользователи и две табличные части:. Длину наименования у спрвочника указываем 50 символов.
"СписокЗапрещенныхСчетов" - Колонки "Счет" - ПланыСчетов.Хозрасчетный, "Использование" - Тип Булево.
"СписокЗапрещенныхСубконто" - Колонки "ЗапрещенноеСубконто" - Тип ПланВидовХарактеристик.ВидыСубконтоХозрасчетный
Тут важное уточнение - полные права доступа на этот справочник должны быть только у администратора (или пользователя с полными правами), у других должен быть доступ только на чтение.
"СписокЗапрещенныхСчетов" - Колонки "Счет" - ПланыСчетов.Хозрасчетный, "Использование" - Тип Булево.
"СписокЗапрещенныхСубконто" - Колонки "ЗапрещенноеСубконто" - Тип ПланВидовХарактеристик.ВидыСубконтоХозрасчетный
Тут важное уточнение - полные права доступа на этот справочник должны быть только у администратора (или пользователя с полными правами), у других должен быть доступ только на чтение.
Подскажите пожалуйста подробнее:
Придется стандартные роли редактировать?
Тут важное уточнение - полные права доступа на этот справочник должны быть только у администратора (или пользователя с полными правами), у других должен быть доступ только на чтение.
Придется стандартные роли редактировать?
(33) Я просто столкнулась с проблемой, при попытке сформировать отчет под пользователем с базовыми правами (на котором стоит ограничение по счетам) выпадает ошибка:
Недостаточно прав для работы с таблицей "Справочник.ОграничениеПравПользователей".
Может быть какой-то нюанс упустила?
Недостаточно прав для работы с таблицей "Справочник.ОграничениеПравПользователей".
Может быть какой-то нюанс упустила?
Спасибо способ ограничения очень пригодился.
К сожалению на релизе 3.0.69 отборы не работают в Карточке счета.
Судя по отладке в карточке счета в коллекции доступных полей компоновки данных(Отчет.КомпоновщикНастроек.Настройки.Отбор.ДоступныеПоляОтбора.Элементы) просто отсутствует отбор по счетам(
Может у кого есть идеи как обойти?
К сожалению на релизе 3.0.69 отборы не работают в Карточке счета.
Судя по отладке в карточке счета в коллекции доступных полей компоновки данных(Отчет.КомпоновщикНастроек.Настройки.Отбор.ДоступныеПоляОтбора.Элементы) просто отсутствует отбор по счетам(
Может у кого есть идеи как обойти?
(38) Было в публикации
Возможно не отрабатывает замена текста запроса
ОтборДтНайден = Ложь; // Флаги для поиска ранее установленных отборов
ОтборКтНайден = Ложь;
//Для стандартного отчета Карточка счета нет возможности установить отбор по счетам. Для возможности добавления отбора необходимо
//поменять текст запроса для СКД (только в части настроек для СКД , т.е. основной текст запроса не меняется )
Запрос = СКД.НаборыДанных.Проводки.Запрос; // получим текст запроса
Запрос = СтрЗаменить(Запрос,"Проводки.ПериодГруппировки}", "Проводки.ПериодГруппировки,"+Символы.ПС
+ "Проводки.СчетДт.*,"+Символы.ПС+ "Проводки.СчетКт.*}"+Символы.ПС); // Изменяем текст для компоновщика добавляя поля СчетДт И СчетКТ
СКД.НаборыДанных.Проводки.Запрос = Запрос;
ПоказатьОтборКтНайден = Ложь;
//Для стандартного отчета Карточка счета нет возможности установить отбор по счетам. Для возможности добавления отбора необходимо
//поменять текст запроса для СКД (только в части настроек для СКД , т.е. основной текст запроса не меняется )
Запрос = СКД.НаборыДанных.Проводки.Запрос; // получим текст запроса
Запрос = СтрЗаменить(Запрос,"Проводки.ПериодГруппировки}", "Проводки.ПериодГруппировки,"+Символы.ПС
+ "Проводки.СчетДт.*,"+Символы.ПС+ "Проводки.СчетКт.*}"+Символы.ПС); // Изменяем текст для компоновщика добавляя поля СчетДт И СчетКТ
СКД.НаборыДанных.Проводки.Запрос = Запрос;
Возможно не отрабатывает замена текста запроса
(40) Большое спасибо.
Пропустил комментарии(
Действительно запрос поменялся и замена не отработала.
Изменил на такой текст:
Запрос = СтрЗаменить(Запрос,"ПериодГруппировки}", "ПериодГруппировки,"+Символы.ПС
+ "СчетДт.* КАК СчетДт,"+Символы.ПС+ "СчетКт.* КАК СчетКт}"+Символы.ПС); // Изменяем текст для компоновщика добавляя поля СчетДт И СчетКТ
Пропустил комментарии(
Действительно запрос поменялся и замена не отработала.
Изменил на такой текст:
Запрос = СтрЗаменить(Запрос,"ПериодГруппировки}", "ПериодГруппировки,"+Символы.ПС
+ "СчетДт.* КАК СчетДт,"+Символы.ПС+ "СчетКт.* КАК СчетКт}"+Символы.ПС); // Изменяем текст для компоновщика добавляя поля СчетДт И СчетКТ
(42) Здравствуйте такой возможности нет поэтому я указал это в недостатках
Стоит сказать пару слов о недостатках данного подхода
В заголовках отчета пользователь будет видеть установленный отбор (но в настройках его не будет, и снять отбор пользователь не сможет).
Некорректные данные. Ну тут все стандартно. В принципе, как вариант, можно оставлять не закрывать ОСВ так как пользователь будет видеть общую сумму и полную картину, а вот расшифровки через другие отчеты придется закрывать.
Требуется настройка прав на документы. В отчете суммы он может не увидеть, а вот если сможет открыть документ ...
В данном решении не все отчеты прописаны, через которые можно получить данные (например отсутствует Шахматка) - пока не дошли руки . Думаю, реализовать в ближайшее время.
Более сложная настройка по сравнению с RLS - Кода хоть и немного, но все же больше чем настройка через RLS
В заголовках отчета пользователь будет видеть установленный отбор (но в настройках его не будет, и снять отбор пользователь не сможет).
Некорректные данные. Ну тут все стандартно. В принципе, как вариант, можно оставлять не закрывать ОСВ так как пользователь будет видеть общую сумму и полную картину, а вот расшифровки через другие отчеты придется закрывать.
Требуется настройка прав на документы. В отчете суммы он может не увидеть, а вот если сможет открыть документ ...
В данном решении не все отчеты прописаны, через которые можно получить данные (например отсутствует Шахматка) - пока не дошли руки . Думаю, реализовать в ближайшее время.
Более сложная настройка по сравнению с RLS - Кода хоть и немного, но все же больше чем настройка через RLS
(44) Ограничение по субконто в ОСВ это как ? типа счет доступен, но часть субконто нет ?
Ограничение по субконто есть в отчетах Анализ субконто и карточка Субконто
Опять же никто не мешает Вам добавить свой произвольный отбор в СКД
Просто я передал суть идеи - Изменить настройки СКД перед формированием отчета
Ограничение по субконто есть в отчетах Анализ субконто и карточка Субконто
Опять же никто не мешает Вам добавить свой произвольный отбор в СКД
Просто я передал суть идеи - Изменить настройки СКД перед формированием отчета
В версиях (3.0.90.45) может и чуть ранее, формирование очтета перенеслось в общий модуль "Бухгалтерские отчеты", процедура "ЗаполнитьПараметрыИзФормы"
Теперь можно просто отредактировать процедуру общего модуля и все.
Теперь можно просто отредактировать процедуру общего модуля и все.
// ПараметрыОтчета.НастройкиКомпоновкиДанных = Отчет.КомпоновщикНастроек.ПолучитьНастройки();
НастройкиКомпоновкиДанных = Отчет.КомпоновщикНастроек.ПолучитьНастройки();
ОграничениеПравПользователей.УстановитьОграничениеНаПросмотрСчетов(Отчет, НастройкиКомпоновкиДанных, Форма, ПараметрыОтчета.СхемаКомпоновкиДанных);
ПараметрыОтчета.НастройкиКомпоновкиДанных = НастройкиКомпоновкиДанных;
В процедуре ОСВПоСчету_АнализСчета_КарточкаСчета(ОтчетОбъект,ИдентификаторОбъекта,НастройкаКомпоновкиДанных,СписокЗапрещенныхСчетов,СКД)
не верно определена переменная ОтборДтНайден, вернее два раза одно и тоже, во втором случае нужно ОтборКтНайден
не верно определена переменная ОтборДтНайден, вернее два раза одно и тоже, во втором случае нужно ОтборКтНайден
//Теперь в СКД нам доступны поля отбора СчетДт и СчетКт и по ним возможно устанавливать отбор. Попробуем найти ранее установленные отборы
ОтборДтНайден = ПоискиУстановкаОтбора(НастройкаКомпоновкиДанных,"СчетДт",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов);
ОтборДтНайден = ПоискиУстановкаОтбора(НастройкаКомпоновкиДанных,"СчетКт",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов);
В процедуре ПроверитьУстановленныйОтбор(Отбор,ВидСравнения,Значение)
Необходимо перенести вид сравнения ВидСравненияКомпоновкиДанных.ВИерархии выше, добавить в условие
"Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно ИЛИ Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.ВИерархии" так как если отбор передается с ВидСравненияКомпоновкиДанных.ВИерархии, то перебирать его нельзя, выходит исключение.
Необходимо перенести вид сравнения ВидСравненияКомпоновкиДанных.ВИерархии выше, добавить в условие
"Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно ИЛИ Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.ВИерархии" так как если отбор передается с ВидСравненияКомпоновкиДанных.ВИерархии, то перебирать его нельзя, выходит исключение.
