Имя: Пароль:
1C
1С v8
Программная установка даты запрета
🠗 (Serg_1960 03.07.2018 09:02)
0 almaz102
 
03.07.18
08:44
Добрый день! Подскажите пож-та как реализовать функционал. Нужно сделать так что при подключении к базе любого пользователя программно установилась дата запрета редактирования документов на вчерашний день, и так каждый день. Пробовал так
    Попытка
        ДатаУстановки = НачалоДня(ТекущаяДата()) - 86400;
        НаборЗаписей = РегистрыСведений.ГраницыЗапретаИзмененияДанных.СоздатьНаборЗаписей();
        Запись = НаборЗаписей.Добавить();
        Запись.Организация = Справочники.Организации.НайтиПоКоду("000000001");
        Запись.Пользователь =ПараметрыСеанса.ТекущийПользователь;
        Запись.ГраницаЗапретаИзменений = НачалоДня(ДатаУстановки);
        НаборЗаписей.Записать();
        Сообщить("Дата запрета установлена на дату" + ДатаУстановки);
    Исключение
        Сообщить(ОписаниеОшибки());
    КонецПопытки;


Не получилось((
Может кто то делал подобное?
1 Гипервизор
 
03.07.18
08:51
Что именно не получилось? Конфа Управление борделем? Забыли отбор по организации в наборе установить? Всю малину портит константа ПрименятьДатуЗапретаДляПолныхПрав?
2 Малыш Джон
 
03.07.18
08:57
Ну и записать набор записей регистра сведений без отбора - это очень хорошо. Всегда так делай.
3 Serg_1960
 
03.07.18
09:05
(0)  Регламентное задание с расписанием раз в сутки. Алгоритм можно "подсмотреть" в своей типовой конфигурации - как регистр выгружается и загружается после редактирования.
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший