Функция глПроверкаРазрешенияРедактирования(Конт) Экспорт
Конт.ПриЗаписиПерепроводить(1);
Если Конт.Выбран() > 0 Тогда
Если (Конт.ДатаДок<=Константа.ДатаЗапретаРедактирования)
И (Конт.Форма.ТолькоПросмотр() = 0) Тогда
Конт.Форма.ТолькоПросмотр(1);
Предупреждение("Разрешен только просмотр документа!",4);
Возврат 0;
КонецЕсли;
КонецЕсли;
// Если нет системного права на корректировку документа, то предупредим об этом
Если ПравоДоступа("Корректировка", "Документ." + Конт.Вид() ) = 0 Тогда
Предупреждение("Разрешен только просмотр документа!",4);
Возврат 0;
КонецЕсли;
// Если нет полномочий (заданных в справочнике) редактировать цены,
// то закроем доступ к соответствующим колонкам
Если глПолучитьПолномочие("РазрешитьРедактированиеЦенВдокументах") = 0 Тогда
Если (глЕстьРеквизитМнЧ("Цена", Конт.Вид()) = 1)
и (глЕстьРеквизитМнЧ("Номенклатура", Конт.Вид()) = 1)
Тогда
Конт.Форма.Цена.Доступность(0);
// документы, в которых есть разные суммы, но нет цены
// (например, запись книги покупок и т.п.) не трогаем
Если глЕстьРеквизитМнЧ("Сумма", Конт.Вид()) = 1 Тогда
Конт.Форма.Сумма.Доступность(0);
КонецЕсли;
Если глЕстьРеквизитМнЧ("СуммаНДС",Конт.Вид()) = 1 Тогда
Конт.Форма.СуммаНДС.Доступность(0);
КонецЕсли;
Если глЕстьРеквизитМнЧ("СуммаНП", Конт.Вид()) = 1 Тогда
Конт.Форма.СуммаНП.Доступность(0);
КонецЕсли;
КонецЕсли;
КонецЕсли;
Возврат 1;
КонецФункции //глПроверкаРазрешенияРедактирования()