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