Добрый день

У меня есть следующая таблица значений:
тзТекстФайл = Новый ТаблицаЗначений;
   тзТекстФайл.Колонки.Добавить("НомерДок");
   тзТекстФайл.Колонки.Добавить("Дата", Новый ОписаниеТипов("Строка"));
   тзТекстФайл.Колонки.Добавить("КонтрагентКод", Новый ОписаниеТипов("Строка"));
   тзТекстФайл.Колонки.Добавить("Валюта", Новый ОписаниеТипов("Строка"));
   тзТекстФайл.Колонки.Добавить("НоменклатураКод", Новый ОписаниеТипов("Строка"));
   тзТекстФайл.Колонки.Добавить("Цена", Новый ОписаниеТипов("Число"));


Из нее я сравниваю строки с датой и поставщиком, если совпадает, тогда создаю новый документ прейскурант цен поставщика и загоняю туда товары из совпавших строк. Создал для этого обработку(см. ниже). Она работает, но очень медленно создаются новые документы. 11 документов за 10 мин. С таким успехом 2 суток будут создаваться документы. Как можно оптимизировать обработку, чтобы увеличить скорость?  Подскажите пожалуйста. Заранее спасибо за ответ.
Код привожу ниже:

ТЗДата = тзТекстФайл.Скопировать();
   ТЗДата.Свернуть("Дата");
   
   тзКонтрагентКод = тзТекстФайл.Скопировать();
   тзКонтрагентКод.Свернуть("КонтрагентКод");

сч = 0;
   Для Каждого строкаДата Из ТЗДата Цикл
                       
       Для Каждого строкаКодКонтрагент Из тзКонтрагентКод Цикл
           тзРезультат = ПоискНоменклатуры(строкаДата.Дата, строкаКодКонтрагент.КонтрагентКод, тзТекстФайл);
           Если тзРезультат.Количество() > 0 Тогда
               НовыйДокумент = Документы.ПрейскурантЦенПоставщиков.СоздатьДокумент();
               Попытка
                   НовыйДокумент.Дата = Дата(строкаДата.Дата);
               Исключение
                   Продолжить;
               КонецПопытки;
                                 
               контрагент = Справочники.Контрагенты.НайтиПоКоду(строкаКодКонтрагент.КонтрагентКод);
               Если Не контрагент.Пустая() Тогда
                   НовыйДокумент.Поставщик = контрагент;
               КонецЕсли;
                               
               валюта = Справочники.Валюты.НайтиПоНаименованию(тзРезультат[0].Валюта);
               Если Не валюта.Пустая() Тогда
                   НовыйДокумент.Валюта = валюта;
               КонецЕсли;
               
               НовыйДокумент.Организация = Справочники.Организации.НайтиПоКоду("000000001");
                           
                   
               Для Каждого стр Из тзРезультат Цикл    
                   товар = НовыйДокумент.Товары.Добавить();
                   товар.Товар = Справочники.Номенклатура.НайтиПоКоду(стр.НоменклатураКод);
                   товар.Цена = стр.Цена;    
               КонецЦикла;
               НовыйДокумент.Записать();
               Сообщить("Документ сохранен - "+сч);
               сч = сч + 1;
               
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;
   
   
   Для Каждого текСтрока Из тзТекстФайл Цикл
                   
   КонецЦикла;

Функция ПоискНоменклатуры(парам1, парам2, тз)
   Запрос3 = Новый Запрос;
   МенеджерВТ = Новый МенеджерВременныхТаблиц;
   Запрос3.МенеджерВременныхТаблиц = МенеджерВТ;
   Запрос3.Текст = "ВЫБРАТЬ
                    | Выразить(ТЗ.НоменклатураКод КАК СТРОКА(100)) КАК НоменклатураКод,
                    |  Выразить(ТЗ.Цена КАК ЧИСЛО(10)) КАК Цена,
                    |    Выразить(ТЗ.Валюта КАК СТРОКА(6)) КАК Валюта
                    | ПОМЕСТИТЬ ВТ
                    |ИЗ
                    |    &Данные КАК ТЗ
                    |ГДЕ
                      | Выразить(ТЗ.Дата КАК СТРОКА(100)) = &дата
                    | И Выразить(ТЗ.КонтрагентКод КАК СТРОКА(100)) = &код";
   Запрос3.УстановитьПараметр("Данные", тз);
   Запрос3.УстановитьПараметр("дата", парам1);
   Запрос3.УстановитьПараметр("код", парам2);
   Результат = Запрос3.Выполнить();
   
   Запрос4 = Новый Запрос;
   Запрос4.МенеджерВременныхТаблиц = МенеджерВТ;
   Запрос4.Текст = "ВЫБРАТЬ
                    | ВТ.НоменклатураКод КАК НоменклатураКод,
                    |  ВТ.Цена КАК Цена,
                    |    ВТ.Валюта КАК Валюта
                    |ИЗ
                    |    ВТ";

   Результат = Запрос4.Выполнить().Выгрузить();
   Возврат Результат;
КонецФункции

Разбираться в этом говнокоде?

http://www.youtube.com/watch?v=HcfHBgUTn7I

Мне вот просто интересно, Откуда у человека приходят такие мысли, что они реализуются вот вот в это (0)?

Ладно там сложная система, не все можно спрогнозировать и ТЗ написано на салфйетке в пивбаре - но тут то "2 кнопочки в дельфишнике создать", очевидно же.

(0) почему Дата и Валюта - типа строка ?

открой для себя Индексирование ТаблицыЗначений !

запросы в цикле, нах нах

2 суток? Номана. Пусть заказчик видит какая 1С тормозная. :-)

(+4) и метод НайтиСтроки() у ТаблицыЗначений

Ухтыжёёё!

Запрос3 и Запрос4 мне напоминают одну картинку:
http://cf.broadsheet.ie/wp-content/uploads/2010/10/124pigs.jpg

(2)пилять я сейчас сижу перепиливаю обработку где дохрена запросов в цикле и прочей фуеты, много приходится оставлять потому что тупо времени нет переделать правильно

(10) Дадада

(11)что дада, 12 тыров строк кода, надо перепилить из бп в ут, срок до послезавтра, она рабочая в бп, но долго, самые затыки конечно убираю, но приходится что-то и на потом бросать

Может быть легче убить все и в начале подумать головой? Глядишь алгоритм нормальный придумаешь и тогда все быстрее будет работать. Например, почему в исходную таблицу не помечать объекты вместо текста?

ну так я спрашиваю как лучше сделать. Я же не прошу код писать! А в общих словах что и как лучше. Если не можете ничего добавить, не надо и комментировать здесь.

(14) Ты просишь код читать. А не всегда приятно.

Лучше опеши словами чего хочешь.

в первом сообщении указал

(14) Убрать к херам
Функция ПоискНоменклатуры(парам1, парам2, тз)

Ты че этой функцией делаешь то? Типы приводишь, штоле?

ППЦ лютый.

С кодом все нормально. Нужен мощный сервер.

(16) Молоток.

1. "Сообщение один".
2. Если вам не охота читать "сообщение один", переходите к пункту 1.

(19) этапять!!

ТаблицаКодовКонтрагентов=тзТекстФайл.Скопировать(,"КонтрагентКод");
   ТаблицаКодовКонтрагентов.Свернуть("КонтрагентКод");
   ТаблицаКодовКонтрагентов.Колонки.Добавить("Контрагент");
   ТаблицаКодовКонтрагентов.Индексы.Добавить("КонтрагентКод");
   Запрос=Новый Запрос;
   Запрос.Текст=
   "ВЫБРАТЬ
   |    Контрагенты.Ссылка,
   |    Контрагенты.Код
   |ИЗ
   |    Справочник.Контрагенты КАК Контрагенты
   |ГДЕ
   |    Контрагенты.Код В(&МассивКодов)";
   Запрос.УстановитьПараметр("МассивКодов",ТаблицаКодовКонтрагентов.ВыгрузитьКолонку("КонтрагентКод"));
   Выборка=Запрос.Выполнить().Выбрать();
   Пока Выборка.Следующий() Цикл
       СтрокаТаблицы=ТаблицаКодовКонтрагентов.Найти(Выборка.Код,"КонтрагентКод");
       Если СтрокаТаблицы<>Неопределено Тогда
           СтрокаТаблицы.Контрагент=Выборка.Ссылка;
       КонецЕсли;
   КонецЦикла;


Итого - у тебя ТЗ с колонками КонтрагентКод и Контрагент, по которой ты ищещ в цикле.

Аналогично с номенклатурой.

thank you

(0) Скажи честно, это ведь прикол?

а не лучше все слепить в 1 тз, а потом 1 циклом создавать документы ? а не выполняться поиск по мере создание документов. и можно будет загружать в табличную часть товары. по идее должно быть все быстрее

(25) **зевает

Прикол что?

(27) Ну как бы ты такую чушь кодом в (0) нес, что народ не верит, что это серьезно ты.

т.е. ты уже через месяц работы с 1с и с программированием клепал такие обработки с закрытыми глазами. Я рад за тебя!

(28) Спасибо.
(0) От себя добавлю, если
               НовыйДокумент.Организация = Справочники.Организации.НайтиПоКоду("000000001");

вынести за цикл, то 11 документов будут загружаться за 9 минут и 59 секунд

(29) Нет, первый месяц я ковырял паскаль и у меня было больше времени, чем у тебя на подумать, ведь это было еще в школе.

я не тебе пишу

Я может задачи не понял, но почему нельзя ТЗ загрузить во временную таблицу, запросом упорядочить по дате и контрагенту и сгруппировать, далее один раз обойти результат запроса по группировакам и создать документы?

(33) ну чел организацию не может запомнить. Десятки тысяч раз ищет организацию в базе. Какие таблицы?

(0) Запусти замер производительности, сам всё увидишь.

Ну очевидно, что ТС в (0) в одном куске кода наступил на все мыслимые и не мыслимые грабли, на которые все наверное наступали. В книге знаний нет статьи никакой для начинающих, по оптимизации и быстродействию кода? Автор хотя бы по 2 запроса в двойном цикле не будет делать, и то хлеб.)