Как ограничить редактирование документов в закрытом периоде для пользователя (ЗУП 2.5)
По теме из базы знаний
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(13)
Нашел функцию
Нашел функцию
Функция ДокументВЗакрытомПериоде(ДокументОбъект) Экспорт
Результат = Ложь;
//БИТ НАЧАЛО
Проверять = РольДоступна("ПолныеПрава") ИЛИ РольДоступна("БИТ_РедактированиеКадровыхДокументов");
// + Ткаченко А.Ю. (661461) (03.09.2018)
ПроверятьСПолнымиПравами = РольДоступна("СТ_КонтрольКадровыхДокументов");
//Если НЕ Результат И НЕ Проверять тогда
Если НЕ Результат И (НЕ Проверять или ПроверятьСПолнымиПравами) Тогда
// - Ткаченко А.Ю. (661461) (03.09.2018)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
| бит_НеДоступныеКадровыеДокументы.КадровыйДокумент
|ИЗ
| РегистрСведений.бит_НеДоступныеКадровыеДокументы КАК бит_НеДоступныеКадровыеДокументы
|ГДЕ
| бит_НеДоступныеКадровыеДокументы.КадровыйДокумент = &КадровыйДокумент";
Запрос.УстановитьПараметр("КадровыйДокумент", ДокументОбъект.Ссылка);
Результат = НЕ Запрос.Выполнить().Пустой();
Возврат Результат;
КонецЕсли;
//СТ Лямина+
Если ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.ПеречислениеНДФЛвБюджет") или ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.РасчетыПоСтраховымВзносам") Тогда
Возврат Ложь
КонецЕсли;
//СТ Лямина-
//\\БИТ КОНЕЦ
СоответствиеГраницЗапрета = ПараметрыСеанса.ГраницыЗапретаИзмененияДанных.Получить();
// Для пользователя с полными правами проверок выполнять не нужно
Если СоответствиеГраницЗапрета = Неопределено Тогда
Возврат Ложь;
КонецЕсли;
ПараметрыПроверкиДокумента = НастройкаПравДоступаПереопределяемый.ПолучитьПараметрыПроверкиДокумента(ДокументОбъект);
НастройкаПравДоступаПереопределяемый.ПроверитьВерсиюДокумента(ДокументОбъект, ПараметрыПроверкиДокумента, СоответствиеГраницЗапрета, Результат);
Возврат Результат;
КонецФункции // ДокументВЗакрытомПериоде()
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот