ДБФ=Новый ("XBase");
   ДБФ.ОткрытьФайл(НовоеИмяФайла);
   Если ДБФ.Открыта()=Ложь Тогда
       Сообщить("Файл не открыт");
   КонецЕсли;        
   НЗ=1;
   Пока НЗ<=ДБФ.КоличествоЗаписей() Цикл
       ДБФ.Перейти(НЗ);
       Для Каждого Строка Из Объект.Строки Цикл
           Если СокрЛП(ДБФ.code)=Строка.Код Тогда
               Если ДБФ.sum<0 Тогда
               Строка.Сумма=(-1)*ДБФ.sum;
               Иначе
               Строка.Сумма=ДБФ.sum;
               КонецЕсли;
               Если Лев(ДБФ.code,1)="1" ИЛИ Лев(ДБФ.code,1)="5" Тогда
                   Строка.Сумма=ДБФ.sum;
               КонецЕсли;
               Строка.Количество=ДБФ.cnt;
           КонецЕсли;
       КонецЦикла;
       НЗ=НЗ+1;
   КонецЦикла;
   ДБФ.ЗакрытьФайл();


На 7 аналогичный код летает в разы быстрее. Выполнение происходит на сервере.

ипическая сила. руки бы отломать

Ну вместо обламывания рук. Подскажите как надо.

А зачем делать Перейти() вместо Следующая()?

(3) не оттуда начал. зачем цикл в цикле?

(2) запросом!

вместо

Для Каждого Строка Из Объект.Строки Цикл
           Если СокрЛП(ДБФ.code)=Строка.Код Тогда

напиши

Строка = Объект.Строки.Найти(ДБФ.code,"Код");

(6) вот молодец какой, а? лучше бы лекцию ему про джойны прочел :)

(7) лучше про NULL и Неопределено ))

(8) его неокрепшая клюшечная психика и тонкая душевная организация не вынесут такого надругательства и выпадут в БСОД )

ДБФ.Перейти(НЗ); лишенее

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

классика обхода дбф при отсутсвии индексного файла

вобщем так. (0) бери запросом данные из своей дбф. помещай их в ТЗ. дальше соединяй с этой ТЗ Объект.Строки. профит!

внутренний цикл тоже лажа, зачем обходить все строки тч документа, если у вас есть четкое условие отбора нужных строк. Надо так

мСтрокиОбработат = Объект.Строки.Найти("Код", СокрЛП(ДБФ.code));

  Для Каждого Строка Из мСтрокиОбработат Цикл
                           Если ДБФ.sum<0 Тогда
               Строка.Сумма=(-1)*ДБФ.sum;
               Иначе
               Строка.Сумма=ДБФ.sum;
               КонецЕсли;
               Если Лев(ДБФ.code,1)="1" ИЛИ Лев(ДБФ.code,1)="5" Тогда
                   Строка.Сумма=ДБФ.sum;
               КонецЕсли;
               Строка.Количество=ДБФ.cnt;
                КонецЦикла;

(11) чепуха не тот случай, тормоза у него потому что он обходит все строки всех объектов, а можно пролетать ненужные если мСтрокиОбработат.Количество() = 0

ну и сами условия во вонутреннем цикле неоптимальны, я бы сделал иначеесли и в первые ветки условий выставил наиболее вероятные условия модификации суммы.

ета все - тема себя исчерпала

В этом dbf еще 490 строк

Метод объекта не обнаружен (Найти)
       Строка=Объект.Строки.Найти(ДБФ.code,"Код");

(16) что есть коллекция "Строки" у вашего объекта?

табличная часть? тогда там другой метод - я даю правильное направление мысли, а для точной прописи методов есть СП, потрудитесь открыть и уточнить

и параметры метода тоже уточните, там все просто и если вы сделаете это самостятельно, а не тупо слижете код, то станете зубром, почти как я)

и последние искать нужно не строку, а массив строк - потом по нему крутить внутренний цикл без анализа строки на допустимость ее обработки)

ета все - дальнейшая детализация и оптимизация - это протирка конделябра, 1С-ки этим не занимаются, увы

>>станете зубром, почти как я
да уж. в цикле обходить 490 строк это сила. а если в следующем файле будет 49 000 строк?

Ну а если не циклом

(21) см (11)

Запросом данные из DBF это вообще возможно

(23) спасибо.

(20) задача была поставлена так - как оптимизировать имеющийся у автора код, что я и предложил.

Менять подход к решению задачи автор не требовал и на сей счет я не распостранялся особо, але)

(23) можно в 8.2 через внешние источники и драйвер визуал фохпро, но это уже совсем другая история и совсем другой код - меньше и быстрее)