Имя: Пароль:
1C
 
Варианты работы с регистром сведений:
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)