А как разрешить проводить документы определённым пользователям ?
У меня есть регистр "Список пользователей для редактирования проведённых"
Как этому списку дать доступ на проведение ?
Как этому списку дать доступ на проведение ?
РазрещеноРедактирование = ПЛ_Портал.ОпределитьПравоПользователяНаРедактированиеПроведенныхДокументов();
Если НЕ РазрещеноРедактирование Тогда
Если ЭтотОбъект.ДатаОтгрузки - ЭтотОбъект.Дата < 86400 * 2 Тогда
Отказ = Истина;
Сообщение = Новый СообщениеПользователю();
Сообщение.УстановитьДанные(ЭтотОбъект);
Сообщение.Поле = "Объект.ДатаОтгрузки";
Сообщение.Текст = "Дату отгрузки возможно ставить только минимум через 2 дня";
Сообщение.Сообщить();
Иначе
КонецЕсли;
КонецЕсли;
ПоказатьПо теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1)что-то с логикой у вас, вот ваш код, но немного по другому
РазрещеноРедактирование = ПЛ_Портал.ОпределитьПравоПользователяНаРедактированиеПроведенныхДокуме нтов();
Если РазрещеноРедактирование Тогда
Если ЭтотОбъект.ДатаОтгрузки - ЭтотОбъект.Дата < 86400 * 2 Тогда
Отказ = Истина;
Сообщение = Новый СообщениеПользователю();
Сообщение.УстановитьДанные(ЭтотОбъект);
Сообщение.Поле = "Объект.ДатаОтгрузки";
Сообщение.Текст = "Дату отгрузки возможно ставить только минимум через 2 дня";
Сообщение.Сообщить();
Иначе
КонецЕсли;
Иначе
Сообщить("Вам запрещено редактирование");
Отказ = Истина;
КонецЕсли;
Показать
(1)а для запрета проведения, по вашим настройкам
в модуле документа, в процедуре ОбработкаПроведения
добавьте ваш код
в модуле документа, в процедуре ОбработкаПроведения
добавьте ваш код
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
...
РазрещеноРедактирование = ПЛ_Портал.ОпределитьПравоПользователяНаРедактированиеПроведенныхДокуме <wbr>нтов();
Если Не РазрещеноРедактирование Тогда
Сообщить("Вам запрещено проведение!");
Отказ = Истина;
КонецЕсли;
...
Показать
(6) ааа, тогда так попробуйте
РазрещеноРедактирование = ПЛ_Портал.ОпределитьПравоПользователяНаРедактированиеПроведенныхДокуме <wbr>нтов();
Если РазрещеноРедактирование Тогда
//есть разрешение, больше ни чего не проверяем
Иначе
//здесь проверка по дате
Если ЭтотОбъект.ДатаОтгрузки - ЭтотОбъект.Дата < 86400 * 2 Тогда
Отказ = Истина;
Сообщение = Новый СообщениеПользователю();
Сообщение.УстановитьДанные(ЭтотОбъект);
Сообщение.Поле = "Объект.ДатаОтгрузки";
Сообщение.Текст = "Дату отгрузки возможно ставить только минимум через 2 дня";
Сообщение.Сообщить();
КонецЕсли;
КонецЕсли;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот