Имя: Пароль:
1C
1С v8
Установка даты запрета изменения данных
0 Dark_Warrior
 
13.03.13
09:57
Всем привет. Появился вопрос по дате запрета изменения (конфа "Комплексная автоматизация" 1.1) - меняю дату запрета изменения данных по организации для пользователя с полными правами, соответственно ставлю галочку "Применять дату запрета для пользователей с полными правами",но стоит перезайти - и у этого юзера снова стоит текущая дата. Пробовал менять дату напрямую в регистре сведений - то же самое. Подскажите, пожалуйста, что я сделал не так и как установить дату запрета?
1 Maxus43
 
13.03.13
10:09
дата в регистре сама меняется?
2 Dark_Warrior
 
13.03.13
10:10
(1) меняется. но стоит выйти из программы и заново зайти - в регистре снова текущая дата.
3 MSII
 
13.03.13
10:11
А для пустого значения измерения Организация какая дата стоит?
4 Dark_Warrior
 
13.03.13
10:13
(3) если я правильно понял, то у записи где указана организация без пользователя не указана дата
5 Godofsin
 
13.03.13
10:13
(0) Мож при запуске где устанавливается?
6 Dark_Warrior
 
13.03.13
10:16
(5) Видимо да. как это исправить, вот в чем вопрос
7 Godofsin
 
13.03.13
10:17
(6) сделать поиск по конфе
8 Godofsin
 
13.03.13
10:17
если найдется = закомментить
9 Dark_Warrior
 
13.03.13
10:35
Да, пришел к выводу что в коде дописка какая-то вмешивается. для пользователей без полных прав установлена граница в 5 дней от текущей даты, видимо и для полных прав дописали что-то.
10 Dark_Warrior
 
13.03.13
10:48
Нашел вроде бы процедуру эту:

Процедура ИзменитьДатуЗапрета() Экспорт
   
   ЕСли НЕ РольДоступна("ПолныеПрава") тогда
      возврат;
  КонецЕСли;
 
  Впол=Справочники.Пользователи.Выбрать();
  Выборка=Справочники.Организации.Выбрать();
  Пока Выборка.Следующий() цикл
      МЗ=регистрыСведений.ГраницыЗапретаИзмененияДанных.СоздатьМенеджерЗаписи();
      МЗ.Организация=выборка.Ссылка;
      МЗ.Записать(истина);
      Пока  ВПол.Следующий() цикл
          Если Впол.ЭтоГруппа или Впол.ПометкаУдаления тогда
              Продолжить;
          КонецЕСли;
          МЗ=регистрыСведений.ГраницыЗапретаИзмененияДанных.СоздатьМенеджерЗаписи();
          МЗ.Организация=выборка.Ссылка;
          МЗ.Пользователь=Впол.Ссылка;
          МЗ.ГраницаЗапретаИзменений=ТекущаяДата()-2*86400;
          МЗ.Записать(истина);
      КонецЦикла;
     
  КонецЦикла;
  полныеПрава.УстановитьПараметрГраницыЗапретаИзмененияДанных();
 

КонецПроцедуры
11 Галахад
 
гуру
13.03.13
10:54
Здесь не текущая.
12 Dark_Warrior
 
13.03.13
10:58
(11) я закомментил процедуру эту и ссылку на нее, вроде все работает. Дата при запуске программы не меняется. Только вот неспроста наверное процедура писалась, может еще для чего нужна
13 Галахад
 
гуру
13.03.13
11:02
(11) Нужна, что бы руками не менять, а автоматом.
Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Эдвард Йодан