Имя: Пароль:
1C
1С v8
Добавить дату запрета на каждого пользователя
0 Лиза777
 
09.06.13
18:13
Для разных пользователей разная дата запрета. Хочу добавить её при входе пользователя в 1С кодом
ЧетыреДняНазад = НачалоДня(НачалоДня(ТекущаяДата())-345600);
       МесяцНазад =  НачалоДня(НачалоДня(ТекущаяДата())-2678400);
       Рег = РегистрыСведений.ГраницыЗапретаИзмененияДанных;
       Набор = Рег.СоздатьМенеджерЗаписи();// СоздатьНаборЗаписей();
       Запись = Набор.Добавить();
       Запись.Организация = Справочники.Организации.НайтиПоКоду("00001");
       Запись.Пользователь = глЗначениеПеременной("глТекущийПользователь");
           Если (РольДоступна("ФЭО")) ИЛИ (РольДоступна("КассирКемерово")) Тогда
               Запись.ГраницаЗапретаИзменений = МесяцНазад;
           Иначе
               Запись.ГраницаЗапретаИзменений = ЧетыреДняНазад;
           КонецЕсли;
       Набор.Записать();


только почему-то две строки таким образом в регистре не появляются. То есть если там есть строка на юзера1 с датой дата1, то при входе юзер2, эта строка заменяется на пользователя юзер2 и на его дату запрета, а по юзер1 строка пропадает. Как сделать?
1 Wobland
 
09.06.13
18:14
прочитать набор перед манипуляцией с ним
2 Лиза777
 
09.06.13
18:14
ой, блин не тот код, я ж его потом переделала, вот
ЧетыреДняНазад = НачалоДня(НачалоДня(ТекущаяДата())-345600);
       Рег = РегистрыСведений.ГраницыЗапретаИзмененияДанных;
       Набор = Рег.СоздатьНаборЗаписей();
       Запись = Набор.Добавить();
       Запись.Организация = Справочники.Организации.НайтиПоКоду("00001");
       Запись.Пользователь = глЗначениеПеременной("глТекущийПользователь");
       Запись.ГраницаЗапретаИзменений = МесяцНазад;
       Набор.Записать();
3 Лиза777
 
09.06.13
18:15
(1) Набор = Рег.СоздатьНаборЗаписей();
Запись = Набор.Прочитать().Добавить();

Так?
4 Wobland
 
09.06.13
18:15
(2) а пофих ;)
5 Ковычки
 
09.06.13
18:15
не поверите, что ваши четыре дня идут взад
6 Wobland
 
09.06.13
18:16
(3) нет
7 Лиза777
 
09.06.13
18:24
а как прочитать?
8 Wobland
 
09.06.13
18:26
(7) а что думает СП?
9 Лиза777
 
09.06.13
18:28
СП? это...?
10 Wobland
 
09.06.13
18:30
(9) синтакс-помощник
11 Лиза777
 
09.06.13
18:39
:)
12 Лиза777
 
09.06.13
18:59
что-то я запуталась, не могу разобраться :(
13 Wobland
 
09.06.13
19:04
Пример:

КурсыВалют = РегистрыСведений.КурсыВалют;
НаборКурсов = КурсыВалют.СоздатьНаборЗаписей();
НаборКурсов.Прочитать();


Пример:

НовыйКурс = НаборКурсов.Добавить();
14 Wobland
 
09.06.13
19:04
ну и до кучи
Пример:

НаборКурсов.Записать();
15 Лиза777
 
09.06.13
19:07
получилось!!!

Набор = Рег.СоздатьНаборЗаписей();
       Набор.Прочитать();
       Запись = Набор.Добавить();
       Запись.Организация = Справочники.Организации.НайтиПоКоду("00001");
16 Лиза777
 
09.06.13
19:08
С*П*А*С*И*Б*О!!!
17 Wobland
 
09.06.13
19:09
(16) на здоровье. скажи, трудно было после (1)? ;)
18 Лиза777
 
09.06.13
19:16
(17) да что-то не дошло как :)
19 Славен
 
09.06.13
19:21
так просто не добавится, там ещё надо в ХранилищеЗначений запись сделать
20 Славен
 
09.06.13
19:23
+(19)в регистр то добавишь но срабатывать не будет пока в хранилище запись не попадет, ну или хотя бы после записи регистра перезапустить конфу, если не ошибаюсь при запуске тоже идет проверка записей регистра и хранилища
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.