Быстрая запись в регистр сведений

[LexaK]

Если вам известны все поля  записи регистра , то читать его не обязательно, надо использовать следующую схему

Код Выделить Развернуть


Процедура ОбработатьРегистр(ВашаТЗ)

    //ОДИН раз создаем набор записей
    НаборВыгрузкиНаСайт = РегистрыСведений.ИсторияВыгрузкиНаСайт.СоздатьНаборЗаписей();

    Для каждого лкСтр Из ВашаТЗ Цикл
        //устанавливаем отбор, по нему происходит перезапись, здесь может быть несколько полей
        НаборВыгрузкиНаСайт.Отбор.ДокументДляВыгрузки.Установить(лкСтр.Ссылка);
       
        //создаем запись и заполняем у нее все поля
        лкРег = НаборВыгрузкиНаСайт.Добавить();
        лкРег.ДокументДляВыгрузки     = лкСтр.Ссылка;
        лкРег.ДатаВыгрузкиНаСайт      = СерверныеФункции.ТекущаяДатаНаСервере();
        лкРег.ВыгруженНаСайт          = Истина;
//и т.д. по другим полям

        Попытка
           НаборВыгрузкиНаСайт.Записать(Истина);
        Исключение
          ЗаписьЖурналаРегистрации("РегистрацияДокументаДляВыгрузкиНаСайт",     УровеньЖурналаРегистрации.Ошибка, , , "Ошибка ... " + Ссылка);
        КонецПопытки;

        //чистим, то что уже записали
        НаборВыгрузкиНаСайт.Очистить();

    КонецЦикла;

КонецПроцедуры


попробуйте такой вариант, операций чтения нет, набор записей создается ОДИН раз, пишите в регистр только те записи которые изменились(надо изменить)

[pyrkin_vanya]

Если вам известны все поля  записи регистра , то читать его не обязательно, надо использовать следующую схему

Код Выделить Развернуть


Процедура ОбработатьРегистр(ВашаТЗ)

    //ОДИН раз создаем набор записей
    НаборВыгрузкиНаСайт = РегистрыСведений.ИсторияВыгрузкиНаСайт.СоздатьНаборЗаписей();

    Для каждого лкСтр Из ВашаТЗ Цикл
        //устанавливаем отбор, по нему происходит перезапись, здесь может быть несколько полей
        НаборВыгрузкиНаСайт.Отбор.ДокументДляВыгрузки.Установить(лкСтр.Ссылка);
       
        //создаем запись и заполняем у нее все поля
        лкРег = НаборВыгрузкиНаСайт.Добавить();
        лкРег.ДокументДляВыгрузки     = лкСтр.Ссылка;
        лкРег.ДатаВыгрузкиНаСайт      = СерверныеФункции.ТекущаяДатаНаСервере();
        лкРег.ВыгруженНаСайт          = Истина;
//и т.д. по другим полям

        Попытка
           НаборВыгрузкиНаСайт.Записать(Истина);
        Исключение
          ЗаписьЖурналаРегистрации("РегистрацияДокументаДляВыгрузкиНаСайт",     УровеньЖурналаРегистрации.Ошибка, , , "Ошибка ... " + Ссылка);
        КонецПопытки;

        //чистим, то что уже записали
        НаборВыгрузкиНаСайт.Очистить();

    КонецЦикла;

КонецПроцедуры


попробуйте такой вариант, операций чтения нет, набор записей создается ОДИН раз, пишите в регистр только те записи которые изменились(надо изменить)

Попробую через пару часов. Спасибо за помощь.