Мистик | Дата: Четверг, 11.09.2014, 12:57 | Сообщение # 1 |
Лейтенант
Группа: Администраторы
Сообщений: 61
Репутация: 0
Статус: Offline
| 1) Создать регистр сведений «ПТ_УстановкаДатаЗапретаРедактированияПользователь» , Создать новое измерение назвать пользователь, и определить как СправочникСсылка.Пользователь 2) В общих формах «Установка даты запрета редактирования данных» в модуле «Процедура СохранитьДанные(Отказ = Неопределено)» Вписать следующий код //Вад Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ПТ_УстановкаДатаЗапретаРедактированияПользователь.Пользователь |ИЗ | РегистрСведений.ПТ_УстановкаДатаЗапретаРедактированияПользователь КАК ПТ_УстановкаДатаЗапретаРедактированияПользователь |ГДЕ | ПТ_УстановкаДатаЗапретаРедактированияПользователь.Пользователь = &ТекПользователь";
Запрос.УстановитьПараметр("ТекПользователь", ПараметрыСеанса.ТекущийПользователь);
Результат = Запрос.Выполнить(); //ввв = Результат.Выгрузить().ВыбратьСтроку(); Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл РазрешеноИзменениеДатыЗапрета = выборка.Пользователь; КонецЦикла; Если НЕ ЗначениеЗаполнено(РазрешеноИзменениеДатыЗапрета) Тогда Предупреждение("У пользователя не достаточно прав для изменения даты редактирования"); Отказ = Истина; Возврат; КонецЕсли; //Вад
|
|
| |