Всем добрый день!
Подскажите у кого нибудь реализована такая возможность в программе.
Вообщем, требуется сделать запрет на редактирование документы "реализации товаров и услуг" а также "перемещение товаров" после их проведения (во избежании махинаций - как сказали мне) Причем, запрет именно на документы упр учета.
Может кто нибудь поделится своими соображениями по этому поводу и какими способами можно ограничить.
Подскажите у кого нибудь реализована такая возможность в программе.
Вообщем, требуется сделать запрет на редактирование документы "реализации товаров и услуг" а также "перемещение товаров" после их проведения (во избежании махинаций - как сказали мне) Причем, запрет именно на документы упр учета.
Может кто нибудь поделится своими соображениями по этому поводу и какими способами можно ограничить.
По теме из базы знаний
- АЦРК: Многовариантный автоматический запрет редактирования (для конфигурации УТ 10.3)
- Расширение для установки запрета редактирования отдельных справочников и документов для Бухгалтерии 3.0
- Запрет редактирования проведенных документов
- [Расширение] Запрет редактирования документов с пробитым чеком (БП 3.0)
- БСП: инструкция подключения объектов к подсистеме запрета редактирования реквизитов
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
У меня реализован механизм через процедуру глПроверкаРазрешенияРедактирования,
в справочник пользователей добавлена дата запрета редактирования доступная только администратору.
Попытки изменения регистрируются в журнале регистраций для того, чтоб знать кто пытался это сделать.
Банк разносится на пару дней позже, а вот оперативный учет идет день в день поэтому и пришлось разделить дату на каждого пользователя.
Если сюда добавить проверку на виды документов то можно запретить кому угодно и что угодно :)
СпрПольз=СоздатьОбъект("Справочник.Пользователи");
Если СпрПольз.НайтиПоНаименованию(ИмяПользователя(),,)=1 тогда
Польз=СпрПольз.ТекущийЭлемент();
КонтрДата=Польз.ДатаЗапретаДок;
Если ПустоеЗначение(КонтрДата)=1 Тогда
Предупреждение("Дата запрета на редактирование не установлена! Запись не возможна!!!", 60);
ЗаписьЖурналаРегистрации("Редактирование документа запрещено!!!",
Польз.Наименование,"!",Конт,2);
Конт.Форма.ТолькоПросмотр(1);
Возврат 1;
КонецЕсли;
иначе
Предупреждение("Пользователь системы не определен! Запись не возможна!!!", 60);
Конт.Форма.ТолькоПросмотр(1);
Возврат 1;
КонецЕсли;
Если Конт.Выбран() > 0 Тогда
//Если (Конт.ДатаДок<=Константа.ДатаЗапретаРедактирования)
Если (Конт.ДатаДок<=КонтрДата)
И (Конт.Форма.ТолькоПросмотр() = 0) Тогда
Конт.Форма.ТолькоПросмотр(1);
Предупреждение("Нельзя редактировать документы с датой, более ранней чем дата запрета редактирования документов!", 60);
ЗаписьЖурналаРегистрации("Редактирование документа запрещено!!!",
Польз.Наименование,"!",Конт,2);
Возврат 1;
КонецЕсли;
КонецЕсли;
в справочник пользователей добавлена дата запрета редактирования доступная только администратору.
Попытки изменения регистрируются в журнале регистраций для того, чтоб знать кто пытался это сделать.
Банк разносится на пару дней позже, а вот оперативный учет идет день в день поэтому и пришлось разделить дату на каждого пользователя.
Если сюда добавить проверку на виды документов то можно запретить кому угодно и что угодно :)
СпрПольз=СоздатьОбъект("Справочник.Пользователи");
Если СпрПольз.НайтиПоНаименованию(ИмяПользователя(),,)=1 тогда
Польз=СпрПольз.ТекущийЭлемент();
КонтрДата=Польз.ДатаЗапретаДок;
Если ПустоеЗначение(КонтрДата)=1 Тогда
Предупреждение("Дата запрета на редактирование не установлена! Запись не возможна!!!", 60);
ЗаписьЖурналаРегистрации("Редактирование документа запрещено!!!",
Польз.Наименование,"!",Конт,2);
Конт.Форма.ТолькоПросмотр(1);
Возврат 1;
КонецЕсли;
иначе
Предупреждение("Пользователь системы не определен! Запись не возможна!!!", 60);
Конт.Форма.ТолькоПросмотр(1);
Возврат 1;
КонецЕсли;
Если Конт.Выбран() > 0 Тогда
//Если (Конт.ДатаДок<=Константа.ДатаЗапретаРедактирования)
Если (Конт.ДатаДок<=КонтрДата)
И (Конт.Форма.ТолькоПросмотр() = 0) Тогда
Конт.Форма.ТолькоПросмотр(1);
Предупреждение("Нельзя редактировать документы с датой, более ранней чем дата запрета редактирования документов!", 60);
ЗаписьЖурналаРегистрации("Редактирование документа запрещено!!!",
Польз.Наименование,"!",Конт,2);
Возврат 1;
КонецЕсли;
КонецЕсли;
да, смотреть типовые, править предопределенные процедуры глобального модуля, например: ПриУдаленииДокумента() , ПриОтменеПроведенияДокумента() , ПриВыклВклПроводокОперации() - типа вот так
или использовать перехватчик событий
или использовать перехватчик событий
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот