Всем доброго времени суток.

Собственно вопрос. Есть отчет в результате которого получается
таблица ТзТаб типа

ТзТаб=СоздатьОбъект("ТаблицаЗначений");

если период отчета брать 1 месяц то записей в таблице 2000 если 12 месяцев больше 15000 тысяч. Затем производятся операции с этой таблицей где элемент таблицы выбирает как

ТзТаб.ПолучитьСтрокуПоНомеру(Ст);

В итоге отчет выполняется за месяц 5 минут а за 12 месяцев пол часа. замер произоводительности показывает что самое долгое время как раз таки в это строке
ТзТаб.ПолучитьСтрокуПоНомеру(Ст);


Можно ли заменить это строку кодом который будет выполняться быстрее?

Проблема в скорости явно не в этой строке

Тяжело сказать, не видя кода и не понимая, почему используете именно ПолучитьСтрокуПоНомеру(). Наверное используете НайтиЗначение().

Если в лоб решать, то можно использовать Индексированную таблицу из 1СPP. Она побыстрее будет.

мышкой води по экрану - быстрее будет :)

(0) А нужны все 15000 значений?

вот код

ДокПодч1=СоздатьОбъект("Документ");
   ТзТаб.Сортировать("Контрагент,ВремяСуток,РекламноеМесто,КонДата");
   ТзТаб.ВыбратьСтроки();
   Для Ит = 2 По ТзТаб.КоличествоСтрок() Цикл //В полученной таблице удаляем старые размещения, у которых Кондаты < последующих размещений  
       ТзТаб.ПолучитьСтрокуПоНомеру(Ит);                                                    
       ТекКонтр = ТзТаб.Контрагент;ТекНДата = ТзТаб.НачДата;ТекКДата = ТзТаб.КонДата;ТекВремяСуток = ТзТаб.ВремяСуток;ТекТипУслуги=ТзТаб.ТипУслуги;ТекРм = ТзТаб.РекламноеМесто;
       Для Ит1=1 По Ит-1 Цикл  
           ТзТаб.ПолучитьСтрокуПоНомеру(Ит1);
           Если ТзТаб.Удалить = 1 Тогда Продолжить;КонецЕсли;
           Если (ТекРм = ТзТаб.РекламноеМесто)и(ТекТипУслуги = ТзТаб.ТипУслуги)и(ТекВремяСуток = ТзТаб.ВремяСуток)и(ТекКонтр = ТзТаб.Контрагент)и((ТекНДата >= ТзТаб.НачДата)или(ТекКДата >= ТзТаб.КонДата)) Тогда    
               ТзТаб.Удалить = 1;    
           КонецЕсли;    
       КонецЦикла;                        
   КонецЦикла;

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

жесть какая-то...

Со вложенным циклом что-то не так, не с 1 записи он должен быть

(7) выгрузить+свернуть не предлагать?

свернуть для чего? и куда выгружать (просто не особо силен в 7.7)

А запрос правильно переписать не предлагать?

(10) и это как вобще делается ?

(11) а в чём силён?
(13) руками

ооо запросом тут просто уже до меня кто то наху?вертил если переделывать запросом так столько работы будет

(15) А как ТЗ заполняешь?

(15) если работать не хочется, так попей пивка пока он эту табличку двумя циклами лопатит

(17) Похоже в ПУБе ковыряется    :-))

(16) по условия как мог ее минимизировал

(17) вот смотри должны быть одинаковы следующие параметры в таблице
(ТекРм = ТзТаб.РекламноеМесто)и(ТекТипУслуги = ТзТаб.ТипУслуги)и(ТекВремяСуток = ТзТаб.ВремяСуток)и(ТекКонтр = ТзТаб.Контрагент)

но в другой момент должно выполняться условие (ТекНДата >= ТзТаб.НачДата)или(ТекКДата >= ТзТаб.КонДата) как это

функцией ТзТаб.Свернуть(""); выполнить то ?

Сортируешь по дате табличку, по убыванию, используешь первую строку. Если я конечно правильно понял что делает алгоритм в (6)

(0) нахрена при ВыбратьСтроки делать ПолучитьСтрокуПоНомеру()  ?

(21) ага, ВыбратьСтроки лишнее

(21) да я откуда знаю до меня это все было, я даже и не заметил этого )))

(21) Еще годик, и клюшечники будут на вес золота.

Ну и еще бредятина - для каждой строки обходить всю ТЗ целиком в цикле.

мне кажется можно реализовать функцией свернуть но вот как только выполнить условие чтобы после свертки остались самые большие даты ?

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

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

(ТекРм = ТзТаб.РекламноеМесто)и(ТекТипУслуги = ТзТаб.ТипУслуги)и(ТекВремяСуток = ТзТаб.ВремяСуток)и(ТекКонтр = ТзТаб.Контрагент) - заменить хэшем, сортировать таблицу по хешу и дате, сразу позиционироваться на нужной строке по хэшу, будет максимальная дата...

заменить хэшем - это как ? и что это такое ?

тзТаб.НоваяКолонка("Хэш","Строка");
тзТаб.ВыбратьСтроки();
Пока тзТаб.ПолучитьСтроку() = 1 Цикл
 тзТаб.Хэш = Строка(ТзТаб.РекламноеМесто)+ТзТаб.ТипУслуги+тзТаб.ВремяСуток+ТзТаб.Контрагент;
КонецЦикла;

Если я правильно понял что должен делать код из (6), то меняй алгоритм:
во первых будет быстрее не удалять строки из текущий ТЗ, а перекидывать подходящие строки в новую ТЗ аналогичной структуры
во вторых внутренний цикл не нужен - достаточно одного прохода, так как данные отсортированы уже в нужном порядке. Просто при считывании первой строки запоминай типУслуги, контрагента и тп и перебирай строки (нужную по условию пихай в новую ТЗ), пока не появится строка с новым контрагентом. и тд.

дело в том что все эти данные нужны для последующего использования в отчет раздельно

(32) в коде он не удаляет, а ставит флаг на удаление

(33) а мы данные не трогаем

(34) там и удаление потом есть

(34) - (36)  :))))))

(36) в предоставленном коде нету, а телепатия у меня не развита :(

(0) получай ТЗ из запроса нужной структуры и с нужными данными.

тзТаб.Сортировать("Хэш,КонДата-");
тзТаб.ВыбратьСтроки();
ТекХэш = "";
Пока тзТаб.ПолучитьСтроку() = 1 Цикл
 Если ТекХэш <> тзТаб.Хэш Тогда
   ТекХэш = тзТаб.Хэш;
 Иначе
   тзТаб.Удалить = 1;
 КонецЕсли;
КонецЦикла;

гхм, те же яйца вид сбоку

правильный ответ в (39), текст запроса в студию

(39) Наконец-то.

(39),(42),(43) готов спорить - исходные данные ТС берет не из запроса, а перебором документов

(44) Видать код писал стЮдент