4
1Сергей
06.06.13
✎
13:01
|
у меня так сделано:
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
СообщениеОшибки = "";
Если (НЕ (РольДоступна("Бухгалтер") ИЛИ РольДоступна("ГлавныйБухгалтер") ИЛИ РольДоступна("ПолныеПрава") ИЛИ (Объект.Дата>=НачалоДня(ТекущаяДата()) И Объект.Дата<=КонецДня(ТекущаяДата())))) И ЗначениеЗаполнено(Объект.Ссылка) Тогда
//ЭтаФорма.ТолькоПросмотр = Истина;
Для каждого ЭлементФормы Из ЭтаФорма.Элементы Цикл
Если (ЭлементФормы.Имя = "ФлагОплачен")
ИЛИ(ЭлементФормы.Имя = "Авторизовал")
ИЛИ(ЭлементФормы.Имя = "ФормаДокументРеализацияАвиабилетовПечать")
ИЛИ(ЭлементФормы.Имя = "КнопкаОбновитьКарточки")
ИЛИ(Найти(ЭлементФормы.Имя, "Провести") > 0)Тогда
ЭлементФормы.Доступность = Истина;
ИначеЕсли(ТипЗнч(ЭлементФормы)=Тип("ГруппаФормы")) Тогда
ЭлементФормы.Доступность = Истина;
Иначе
ЭлементФормы.Доступность = Ложь;
КонецЕсли;
КонецЦикла;
Элементы.КнопкаОбновитьКарточки.Доступность = Ложь;
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Редактирование документа запрещено. Документ открыт в режиме только просмотр";
//Сообщение.Поле = "Объект.Номер";
Сообщение.УстановитьДанные(Объект);
Сообщение.Сообщить();
ИначеЕсли (НЕ (РольДоступна("Бухгалтер") ИЛИ РольДоступна("ГлавныйБухгалтер") ИЛИ РольДоступна("ПолныеПрава"))) Тогда
Элементы.Дата.ТолькоПросмотр = Истина;
КонецЕсли;
|
|