Известно, что по новым правилам кадровикам необходимо сформировать и сдать отчет ЕФС-1 в объединенную структуру СФР до 24 января 2024 года. В связи с этим наблюдается некий ажиотаж по этой теме.
В релизе ЗУП 3.1.28.65 столкнулся с тем, что документ "ЕФС-1: Сведения о страховом стаже застрахованных лиц" работает с ошибкой.
В процессе заполнения сотрудниками с льготным стажем появляется окно с ошибкой доступа, но тем не менее документ заполняется и можно продолжить работу. Подвох в том, что вместо сотрудников со льготным стажем алгоритм подтягивает в документ всех сотрудников.
Анализ показал, что проблема в тексте запроса - не хватает конструкции "Разрешенные". Чтобы ошибка ушла необходимо добавить в текст запроса недостающую конструкцию.
Можно сделать это самостоятельно - Документ.СведенияОСтраховомСтажеЗастрахованныхЛицСЗВ_СТАЖ.ФормаДокумента процедура "УдалитьСотрудниковБезЛьготногоСтажа()". Ниже кусок кода с примером.
Я добавляю конструкцию при помощи схемы запроса - так более наглядно и легче поддерживать.
Если Объект.ТипСведений = Перечисления.ТипыСведенийСЗВ_СТАЖ.Исходная Тогда
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Год", Объект.Год);
Запрос.Текст =
"ВЫБРАТЬ
| СведенияОСтраховомСтажеЗастрахованныхЛицСЗВ_СТАЖСотрудники.Сотрудник КАК Сотрудник
|ИЗ
| Документ.СведенияОСтраховомСтажеЗастрахованныхЛицСЗВ_СТАЖ.Сотрудники КАК СведенияОСтраховомСтажеЗастрахованныхЛицСЗВ_СТАЖСотрудники
|ГДЕ
| СведенияОСтраховомСтажеЗастрахованныхЛицСЗВ_СТАЖСотрудники.Ссылка.ТипСведений В (ЗНАЧЕНИЕ(Перечисление.ТипыСведенийСЗВ_СТАЖ.НазначениеПенсии), ЗНАЧЕНИЕ(Перечисление.ТипыСведенийСЗВ_СТАЖ.НазначениеВыплатПоОСС))
| И СведенияОСтраховомСтажеЗастрахованныхЛицСЗВ_СТАЖСотрудники.Ссылка.Проведен
| И СведенияОСтраховомСтажеЗастрахованныхЛицСЗВ_СТАЖСотрудники.Ссылка.Год = &Год";
#Вставка //Инфостарт
//Добавим в текст запроса конструкцию Разрешенные
//Сделаем это через схему запроса, чтобы не заморачиваться с подменами, т.к. не после каждого "ВЫБРАТЬ" можно добавлять РАЗРЕШЕННЫЕ
//в объединении разрешенные добавляются только в первый запрос пакета
СхемаЗапроса = Новый СхемаЗапроса;
СхемаЗапроса.УстановитьТекстЗапроса(Запрос.Текст);
Пакет = СхемаЗапроса.ПакетЗапросов;
Для Каждого ЗапросПакета ИЗ Пакет Цикл
Если ТипЗнч(ЗапросПакета) = Тип("ЗапросВыбораСхемыЗапроса") Тогда
ЗапросПакета.ВыбиратьРазрешенные = Истина;
КонецЕсли;
КонецЦикла;
Запрос.Текст = СхемаЗапроса.ПолучитьТекстЗапроса();
#КонецВставки
Пенсионеры = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Сотрудник");
ОбщегоНазначенияКлиентСервер.ДополнитьМассив(СотрудникиСЛьготнымСтажем, Пенсионеры, Истина);
КонецЕсли;
Если конфигурация находится на поддержке - можно создать расширение, которое вылечит эту проблему, или можно скачать готовое расширение, если нет желания погружаться в тему самостоятельно.
Бонусом в расширении также фиксится проблема при работе с текущими делами на начальной странице - аналогично недостаточно прав доступа.
Тестировалось на версии ЗУП 3.1.28.65.
Платформа 8.3.21.1895.
Проверено на следующих конфигурациях и релизах:
- Зарплата и управление персоналом, редакция 3.1, релизы 3.1.28.65
Вступайте в нашу телеграмм-группу Инфостарт
