Варианты работы с регистром сведений:
☑
0
pro3ri
27.10.15
✎
10:42
ДОбрый день!
По старинке работают так:
Набор = РегистрыСведений.НастройкиПользователей.СоздатьНаборЗаписей();
Набор.Отбор.Пользователь.Установить(глТекущийПользователь);
Набор.Отбор.Настройка.Установить(ПланыВидовХарактеристик.НастройкиПользователей.ДатаЗапретаРедактирования);
Набор.Прочитать();
СтароеЗначение = Набор[0].Значение;
Набор[0].Значение = Дата(1,1,1);
Набор.Записать();
Если ЗначениеЗаполнено(мОснование) Тогда
ДокСчетНаОплату=мОснование.ПолучитьОбъект();
ДокСчетНаОплату.ЗаказПокупателя=ЭтотОбъект.Ссылка;
ДокСчетНаОплату.Записать();
КонецЕсли;
Набор.Отбор.Пользователь.Установить(глТекущийПользователь);
Набор.Отбор.Настройка.Установить(ПланыВидовХарактеристик.НастройкиПользователей.ДатаЗапретаРедактирования);
Набор.Прочитать();
Набор[0].Значение = СтароеЗначение;
Набор.Записать();
Дабы не грохнуть ():
//эксперимент
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Пользователь", глТекущийПользователь);
Запрос.УстановитьПараметр("Настройка" , ПланыВидовХарактеристик.НастройкиПользователей.ДатаЗапретаРедактирования);
Запрос.Текст = "
|ВЫБРАТЬ
| Значение
|ИЗ
| РегистрСведений.НастройкиПользователей КАК РегистрЗначениеПрав
|
|ГДЕ
| Пользователь = &Пользователь
| И Настройка = &Настройка
|";
Результат = Запрос.Выполнить();
Если Не Результат.Пустой() Тогда
Выборка = Результат.Выбрать();
Выборка.Следующий();
Менеджер = РегистрыСведений.НастройкиПользователей.СоздатьМенеджерЗаписи();
СтароеЗначение = Выборка.Значение;
Менеджер.Значение = Дата(1,1,1);
Менеджер.Пользователь = глТекущийПользователь;
Менеджер.Настройка = ПланыВидовХарактеристик.НастройкиПользователей.ДатаЗапретаРедактирования;
Менеджер.Записать();
КонецЕсли;
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Пользователь", глТекущийПользователь);
Запрос.УстановитьПараметр("Настройка" , ПланыВидовХарактеристик.НастройкиПользователей.ДатаЗапретаРедактирования);
Запрос.Текст = "
|ВЫБРАТЬ
| Значение
|ИЗ
| РегистрСведений.НастройкиПользователей КАК РегистрЗначениеПрав
|
|ГДЕ
| Пользователь = &Пользователь
| И Настройка = &Настройка
|";
Результат = Запрос.Выполнить();
Если Не Результат.Пустой() Тогда
Выборка = Результат.Выбрать();
Выборка.Следующий();
Менеджер = РегистрыСведений.НастройкиПользователей.СоздатьМенеджерЗаписи();
Менеджер.Значение = СтароеЗначение;
Менеджер.Пользователь = глТекущийПользователь;
Менеджер.Настройка = ПланыВидовХарактеристик.НастройкиПользователей.ДатаЗапретаРедактирования;
Менеджер.Записать();
КонецЕсли;
//эксперимент
Грохали ли Вы регистр случайно?
1
bolobol
27.10.15
✎
10:44
Нет. Даже специально не с первого раза получилось.
2
Господин ПЖ
27.10.15
✎
10:45
вам Источник.ОбменДанными.Загрузка не завезли?
3
pro3ri
27.10.15
✎
10:47
уже отгрузили) (2)
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший