Расширение границ доступа для отдельных типов документов

12.05.10

Разработка - Механизмы платформы 1С

Не сложная доработка практически любой типовой конфигурации 1С 8.1, 8.2, расширяющая границы доступа для отдельных типов документов. Проверено на УПП и БП. Доработка облегчает жизнь администраторам БД, вынужденных открывать/закрывать доступ к документам в закрытом периоде

Часто на предприятии бывает так, что для какого-то вида документов необходимо иметь возможность менять в нем какие-либо данные задним числом. Например, Заказ покупателя оформлен, но в работу не запущен по причине отсутствия оплаты. И вот через полгода оплата пришла, но банковский счет уже поменялся или еще что-нибудь поменялось. Новый заказ оформлять менеджерам лень.

Или, например, период закрыли для изменения бух учете, а в упр. учете еще что-то необходимо менять.

Короче масса случаев, когда это необходимо, но в типовых конфигурациях этого не предусмотрено. Данная доработка позволяет установить свою дату запрета для какого-либо вида документов. Эту дату запрета можно также периодически пододвигать.

Доработка не подходит для тех случаев, когда необходимо "срочно-срочно" открыть период для изменения одного документа и "срочно-срочно" опять закрыть период.

Итак , изменения. Добавляем один новый объект и изменяем идин типовой:

I. Создаем Новы регистр сведений.

Я его назвал РасширениеГраницДоступаОтдельныхОбъектов. Одно измерение ОбъектДоступа (Строка, 50). Один ресурс ГраницаЗапретаИзменений (Дата).

В это регистре будем хранить записи для типов документов с датами запрета изменения данных отличных от общей даты запрета редактирования

II.Вносим изменения в общий модуль "НастройкаПравДоступа"

1. Добавляем новую функцию ЕстьРасширениеГраницДоступа, которая вернет истину, если в нашем новом регистре сведений есть запись для данного типа документов и ложь в обратном случае. Также в параметрах эта функция вернет нам дату запрета редактирования этого типа документов

//Функция ЕстьРасширениеГраницДоступа возвращает булево,

//параметр ИмяОбъекта - строка с именем документа, как оно задано в конфигураторе,

//параметр ДатаДляПроверки - в эту переменную фукнция запишет дату запрета для данного типа документов

Функция ЕстьРасширениеГраницДоступа(ИмяОбъекта, ДатаДляПроверки) Экспорт

    Запрос = Новый Запрос("ВЫБРАТЬ
                            |    ГраницаЗапретаИзменений
                            |ИЗ
                            |    РегистрСведений.РасширениеГраницДоступаОтдельныхОбъектов КАК    
                                     РасширениеГраницДоступаОтдельныхОбъектов
                            |ГДЕ
                            |    РасширениеГраницДоступаОтдельныхОбъектов.ОбъектДоступа = &ОбъектДоступа"
);
                           
    Запрос.УстановитьПараметр("ОбъектДоступа",ИмяОбъекта);
   
    ТЗ = Запрос.Выполнить().Выгрузить();
    Если ТЗ.Количество() > 0 Тогда
        ДатаДляПроверки = КонецДня(ТЗ[0].ГраницаЗапретаИзменений);
    КонецЕсли;
   
    Возврат НЕ ТЗ.Количество() = 0;    
   
КонецФункции

2. Изменяем Функцию ПолучитьДатуПроверкиПоТипуДокумента. Эта функция в типовой конф. вызывается перед записью любого документа, подписанного на событие ПередЗаписьюДокументаДатаЗапретаРедактирования.

В эту функцию в самое начало добавляем код:

ДатаДляПроверки = Неопределено;
    Если ЕстьРасширениеГраницДоступа(ПараметрыПроверкиДокумента.МетаданныеДокумента.Имя, ДатаДляПроверки) Тогда
        Если ДокументОбъект.Дата > ДатаДляПроверки  Тогда
            Возврат ТекущаяДата();
        КонецЕсли;
    КонецЕсли;

В некоторых конфигурациях фукнции ПолучитьДатуПроверкиПоТипуДокумента нет, тогда ищем процедуру ПроверитьВерсиюДокумента и тоже можно в самое начало или после первого блока вставить:

ДатаДляПроверки = Неопределено;
    Если ЕстьРасширениеГраницДоступа(ПараметрыПроверкиДокумента.МетаданныеДокумента.Имя, ДатаДляПроверки) Тогда
        Если ДокументОбъект.Дата > ДатаДляПроверки  Тогда
            Возврат ; //
убираем ТекущаяДата()
        КонецЕсли;
    КонецЕсли;


3. Изменяем Процедуру ПроверкаПериодаЗаписейРегистров. Эта процедура в типовой конф. вызывается перед записью любого набора данных в регистры. Также в начало добавляем код:

Если ВидРегистра = "РегистрСведений" Тогда
        ПроверятьСуществующиеЗаписиПоРегистратору = (НаборЗаписей.Метаданные().РежимЗаписи = Метаданные.СвойстваОбъектов.РежимЗаписиРегистра.ПодчинениеРегистратору);
    Иначе
        // Регистр накопления, регистр расчета, регистр сведений, подчиненный регистратору
        ПроверятьСуществующиеЗаписиПоРегистратору = Истина;
    КонецЕсли;
//Этот блок в УПП можно не добавлять, он там уже есть

Если ПроверятьСуществующиеЗаписиПоРегистратору Тогда
        ДатаДляПроверки = Неопределено;
        Регистратор = НаборЗаписей.Отбор.Регистратор.Значение;
        Если ЕстьРасширениеГраницДоступа(Регистратор.Метаданные().Имя, ДатаДляПроверки) Тогда
            Если Регистратор.Дата > ДатаДляПроверки  Тогда
                Возврат;
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;

 

Вот собственно и все. Изменения рабочие. Использую в своих конфигурациях. Буду рад, если кому-нибудь пригодится

 

См. также

Поинтегрируем: сервисы интеграции – новый стандарт или просто коннектор?

Обмен между базами 1C Администрирование СУБД Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

В платформе 8.3.17 появился замечательный механизм «Сервисы интеграции». Многие считают, что это просто коннектор 1С:Шины. Так ли это?

11.03.2024    4468    dsdred    53    

70

Как готовить и есть массивы

Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Все мы используем массивы в своем коде. Это один из первых объектов, который дают ученикам при прохождении обучения программированию. Но умеем ли мы ими пользоваться? В этой статье я хочу показать все методы массива, а также некоторые фишки в работе с массивами.

24.01.2024    5280    YA_418728146    25    

63

Планы обмена VS История данных

Обмен между базами 1C Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Вы все еще регистрируете изменения только на Планах обмена и Регистрах сведений?

11.12.2023    6396    dsdred    36    

111

1С-ная магия

Механизмы платформы 1С Бесплатно (free)

Язык программирования 1С содержит много нюансов и особенностей, которые могут приводить к неожиданным для разработчика результатам. Сталкиваясь с ними, программист начинает лучше понимать логику платформы, а значит, быстрее выявлять ошибки и видеть потенциальные узкие места своего кода там, где позже можно было бы ещё долго медитировать с отладчиком в поисках источника проблемы. Мы рассмотрим разные примеры поведения кода 1С. Разберём результаты выполнения и ответим на вопросы «Почему?», «Как же так?» и «Зачем нам это знать?». 

06.10.2023    18465    SeiOkami    46    

118

Дефрагментация и реиндексация после перехода на платформу 8.3.22

Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Начиная с версии платформы 8.3.22 1С снимает стандартные блокировки БД на уровне страниц. Делаем рабочий скрипт, как раньше.

14.09.2023    12077    human_new    27    

74

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    8802    YA_418728146    6    

141

Внешние компоненты Native API на языке Rust - Просто!

Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Внешние компоненты для 1С можно разработывать очень просто, пользуясь всеми преимуществами языка Rust - от безопасности и кроссплатформенности до удобного менеджера библиотек.

20.08.2023    6273    sebekerga    54    

94

Все скопируем и вставим! (Буфер обмена в 1С 8.3.24)

Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Рассмотрим новую возможность 8.3.24 и как её можно эффективно использовать

27.06.2023    15972    SeiOkami    31    

103
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. zzerro 277 12.05.10 15:54 Сейчас в теме
А как насчет обработки даты запрета редактирования отдельно по организациям и отдельно по пользователям?
2. Glaver 40 12.05.10 16:09 Сейчас в теме
Если есть необходимость обрабатывать отдельно организациям и/или пользователям, добавляем в регистр сведений соответствующие измерения. И модифицируем нашу функцию ЕстьРасширениеГраницДоступа, добавляя в запросе условия по организации и пользователю. Ну а в параметрах запроса указываем текущего пользователя (ПараметрыСеанса.ТекущийПользователь) . Организацию, видимо, надо брать из документа, поэтому добавляем в функцию ЕстьРасширениеГраницДоступа параметр Организация и везде при вызовах этой функции вставляем ДокументОбъект.Организация. Конечно не во всех документах есть реквизит Организация. Поэтому лучше проверять сначала есть ли такой реквизит в документе:
Если НЕ ДокументОбъект.Метаданные().Реквизиты.Найти("Организация") = Неопределено Тогда
Организация = ДокументОбъект.Организация
Иначе
Организация = Справочники.Организации.ПустаяСсылка()
КонецЕсли;
9. shatt 38 29.01.11 13:35 Сейчас в теме
(2)+1 Спасибо за идеи. Тоже вот одни попросили. Вопросы все таки у всех одинаковые.
Мне тоже непонятно зачем в стандартных поставках нет данного функционала..
3. Поручик 4670 01.06.10 19:20 Сейчас в теме
Пригодилась сама идея и готовый код.
А вот курочить штатные процедуры и модули я не стал, сделал отдельные подписки на события и отдельный модуль для доработанных процедур.
6. Ish_2 1104 01.06.10 19:53 Сейчас в теме
В (3) подход посимпатичнее , чем у автора.
4. Поручик 4670 01.06.10 19:28 Сейчас в теме
Пока делал, пришла в голову мысль расширить фичу для пользователя и групп, как в штатной УТ.
5. Abadonna 3958 01.06.10 19:35 Сейчас в теме
7. Поручик 4670 02.06.10 03:13 Сейчас в теме
Всё-таки пришлось немного вторгнуться в штатный модуль НастройкаПравДоступа и заменить вызовы ПроверитьВерсиюДокумента на свою доработанную ДополнительныеПраваДоступа.ПроверитьВерсиюДокумента
Забыл про проверку в форме при открытии. :(
Завтра протестирую на своих соб.., юзкрах
8. Поручик 4670 02.06.10 03:15 Сейчас в теме
Всё-таки пришлось немного вторгнуться в штатный модуль НастройкаПравДоступа и заменить вызовы ПроверитьВерсиюДокумента на свою доработанную ДополнительныеПраваДоступа.ПроверитьВерсиюДокумента
Забыл про проверку в форме при открытии. Тут уж ничего не сделаешь :(
Завтра протестирую на своих подопытных соб.., юзерах.
10. minie 22.09.11 10:40 Сейчас в теме
Спасибо, очень пригодилось)
11. master_yoda 27 06.03.12 09:56 Сейчас в теме
Замечательная идея.....однозначно плюс
12. sumixam 19.07.12 14:01 Сейчас в теме
Спасибо. Как раз у меня возникла такая проблема, однозначно в выходыне протеститрую.
13. kuza_87 28 07.02.13 22:04 Сейчас в теме
Я не понимаю как это должно работать...в этот регистр мы добавляем те документы для которых можно делать изменения?????? а почему ресурс "строка"???
14. MADINAABAZA 51 09.08.13 11:35 Сейчас в теме
Вот именно, странно! Я попробовала, и ничего не работает!!!
15. MADINAABAZA 51 09.08.13 11:36 Сейчас в теме
Ресурс-строка,и что, просто писать название дока???
16. Glaver 40 09.08.13 14:59 Сейчас в теме
(15) MADINAABAZA, да, просто строка. Необходимо указать тип документов строкой, так как они заданы в конфигураторе, например "ЗаказПокупателя" (в регистр вписывать без ковычек). Откроется доступ для всех документов "Заказ покупателя"
17. MADINAABAZA 51 09.08.13 15:01 Сейчас в теме
Вот я сейчас сижу в БП, все сделала как вы прописали, и ничего не срабатывает!
Оставьте свое сообщение