|
Варианты работы с регистром сведений: | ☑ | ||
---|---|---|---|---|
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)
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |