Всем доброго времени суток.
Имеется ДБФ файл с большим количеством строк (250 000) которые необходимо загрузить в регистр сведений.
Написал обработку загрузки данных:


Процедура КнопкаВыполнитьНажатие(Кнопка)
   //Регистр = РегистрыСведений.ДанныеОЗаказНарядах1С77.СоздатьНаборЗаписей();
   //Регистр.Записать();
   ДБФ = Новый XBase;
   ДБФ.ОткрытьФайл("C:\export13.dbf");
   Пока ДБФ.Следующая() Цикл
       Рег = РегистрыСведений.ДанныеОЗаказНарядах1С77.СоздатьНаборЗаписей();
       Рег.Прочитать();
       НовСтрока = Рег.Добавить();
       НовСтрока.ДатаПодпМе = ДБФ.ДатаПодпМе;
       НовСтрока.ДатаПодп = ДБФ.ДатаПодп;
       НовСтрока.Контр = ДБФ.Контр;
       Сообщить("Загрузили контрагента: "+ДБФ.Контр+ДБФ.ДатаПодп);
       НовСтрока.КонтЛицо = ДБФ.КонтЛицо;
       НовСтрока.Адр = ДБФ.Адр;
       НовСтрока.Тел = ДБФ.Тел;
       НовСтрока.Марка = ДБФ.Марка;
       НовСтрока.Мод = ДБФ.Мод;
       НовСтрока.ВИН = ДБФ.ВИН;
       НовСтрока.ВидРемонта = ДБФ.ВидРемонта;
       НовСтрока.ТипРаботы = ДБФ.ТипРаботы;
       НовСтрока.НомерЗН = ДБФ.НомерЗН;
       НовСтрока.Пробег = ДБФ.Пробег;
       НовСтрока.СтРабФ = ДБФ.СтРабФ;
       НовСтрока.СтЗчФ = ДБФ.СтЗчФ;
       НовСтрока.СтатусКЛ = ДБФ.СтатусКЛ;
       Рег.Записать();
   КонецЦикла;
   ДБФ.ЗакрытьФайл();        
КонецПроцедуры

Соответственно после загрузки 50 000 строк действие Рег.Прочитать() выполняется куда намного дольше чем хотелось бы и практически тормозит весь процесс загрузки.
Подскажите пожалуйста, возможно ли этот момент как-либо обойти?
Заранее всем большое спасибо!

Книга знаний: Пример работы с файлами DBF по интерфейсу ADO

из цикла вынеси

(2) точно :)) я чет код не развернул даже

(0) ты когда в блокноте карандашиком пишешь, для каждой строки перечитываешь блокнот сначала?

Процедура КнопкаВыполнитьНажатие(Кнопка)
   //Регистр = РегистрыСведений.ДанныеОЗаказНарядах1С77.СоздатьНаборЗаписей();

   //Регистр.Записать();

   ДБФ = Новый XBase;
   ДБФ.ОткрытьФайл("C:\export13.dbf");
       Рег = РегистрыСведений.ДанныеОЗаказНарядах1С77.СоздатьНаборЗаписей();
       Рег.Прочитать();

   Пока ДБФ.Следующая() Цикл

       НовСтрока = Рег.Добавить();
       НовСтрока.ДатаПодпМе = ДБФ.ДатаПодпМе;
       НовСтрока.ДатаПодп = ДБФ.ДатаПодп;
       НовСтрока.Контр = ДБФ.Контр;
       Сообщить("Загрузили контрагента: "+ДБФ.Контр+ДБФ.ДатаПодп);
       НовСтрока.КонтЛицо = ДБФ.КонтЛицо;
       НовСтрока.Адр = ДБФ.Адр;
       НовСтрока.Тел = ДБФ.Тел;
       НовСтрока.Марка = ДБФ.Марка;
       НовСтрока.Мод = ДБФ.Мод;
       НовСтрока.ВИН = ДБФ.ВИН;
       НовСтрока.ВидРемонта = ДБФ.ВидРемонта;
       НовСтрока.ТипРаботы = ДБФ.ТипРаботы;
       НовСтрока.НомерЗН = ДБФ.НомерЗН;
       НовСтрока.Пробег = ДБФ.Пробег;
       НовСтрока.СтРабФ = ДБФ.СтРабФ;
       НовСтрока.СтЗчФ = ДБФ.СтЗчФ;
       НовСтрока.СтатусКЛ = ДБФ.СтатусКЛ;
     
   КонецЦикла;
Рег.Записать();
   ДБФ.ЗакрытьФайл();        
КонецПроцедуры

(5) скучно? ;)

(6) ага. большие базы выгружаю загружаю. долго. скучно. пишу сюда между делом :)

Ребят, ошибку понял, сам все поправил, заработало.
Всем большое спасибо.