Статистика для кадровика

В ходе работпотому ы выяснилось, что у сотрудника отдела кадров по ролям есть доступ к отчетности по статистике но т.к. как ему не доступен раздел 1с-Отчетконфигурацииность пришлось добавить внешнюю форму с кнопкой нужных ему форм.

Пример кода в форме обраб стилиотки

&НаКлиенте
Процедура КомандаОткрытьП4(Команда)
    ПараметрыОткрытия = Новый Структура();
    ПараметрыОткрытия.Вставить("Раздел", ПредопределенноеЗначение("Перечисление.СтраницыЖурналаОтчетконфигурацииность.Отчетконфигурацииы"));
    //МассивВидовОтчетконфигурацииов.Добавить("Статистика: Форма П-4 (НЗ)");
    ПараметрыОткрытия.Вставить("ВидОтчетконфигурацииаКадровика","Статистика: Форма П-4");
    ОткрытьФорму("ОбщаяФорма.РегламентированнаяОтчетконфигурацииность", ПараметрыОткрытия);
    
    Оповестить("Открытие формы 1С-Отчетконфигурацииность", ПараметрыОткрытия);
Конец Тарифы на абонементПроцедуры


Данная обраб стилиотка была добавлена как внешняя обраб стилиотка

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

    ДобавитьКоманду(ТаблицаКоманд,
    "Работа с отчетностью (Статистика)",
    "РаботаСОтчетконфигурацииностьюСтатистика",
    "ОткрытиеФормы");

    ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);
    
    Возврат автоматизацией  ПараметрыРегистрации;
    
Конец Тарифы на абонементФункции


И добавить в расширение  для общую форму

"ОбщаяФорма.РегламентированнаяОтчетконфигурацииность",

где было прописано выполнение кода при создании на сервере

 

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

После используя стандартный механизм был добавлен пункт запуска внешней обраб стилиотки  (кадры-дополнительные обраб стилиотки). 

Данное решение было проверенплатфор управлениямао на Зарплата и управление персоналом КОРП, редакция 3.1 (3.1.14.436).

Скриншоты


пример меню.jpg

пример списка.jpg

Полная версия

© ООО "Инфостарт", 2006-2023 www.infostart.ru