Имя: Пароль:
1C
 
Очень медленно идет вставка записи в регистр сведений
0 bogdan51
 
29.10.07
15:41
Написал обработку,которая выполняет вставку в РегистрСведений.КонтактнаяИнформация адреса для информирования физ.лиц по адресу прописки.
Все работает корректно,но очень медленно.

Вот схема обработки

//
Набор =РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
   Набор.Прочитать();
   Набор1 = Набор.Добавить();

// перебираю записи справочника физ.лиц
   ФЗ=Справочники.ФизическиеЛица.Выбрать();

   Пока ФЗ.Следующий() Цикл
   СсылкаОб = ФЗ.Ссылка;
   Имя = СсылкаОб.Наименование;

// для каждого Физ.лица проверка:есть ли адрес прописки
АДП=Справочники.ВидыКонтактнойИнформации.ЮрАдресФизЛица;
АДР=Перечисления.ТипыКонтактнойИнформации.Адрес;

ЗапАЮ =РегистрыСведений.КонтактнаяИнформация.СоздатьМенеджерЗаписи();
ЗапАЮ.Объект = СсылкаОб;
ЗапАЮ.Вид = АДП;
ЗапАЮ.Тип = АДР;
ЗапАЮ.Прочитать();
// проверка: найдена ли запись в РС по заданным измерениям
// если да,т.е. ЗапАю.Объект выбран,то
// проверка отсутствует ли адрес для информирования
// если отсутствует то заполнение полей
Набор1.Объект=ЗапАЮ.Объект;
Набор1.Тип=АДР;
Набор1.Вид=АДИ=Справочники.ВидыКонтактнойИнформации.ИнформАдресФизЛицаНабор1.Представление=ЗапАЮ.Представление
//и так далее
// наконец
Набор.Записать();
И здесь здорово тормозит.
Это первая моя обработка в 1с,поэтому уверен,что сделано как то не так.Помогите!
1 bogdan51
 
29.10.07
15:43
Ошибся.Поместил не в ту ветку.А как перенести в V8?
2 Фауст
 
29.10.07
15:44
Ты перезаписываешь весь регистр целиком, по возможности устанавливай отбор, перед  Набор.Прочитать()
3 bogdan51
 
29.10.07
16:12
Фауст!Спасибо.Стала летать и вроде бы все сделала.Сейчас буду анализировать.
Закон Брукера: Даже маленькая практика стоит большой теории.