Добрый день! Есть обработка которая из заявок на расходование средств создает платежные поручения исходящие. При создании платежки в запросе перебираю каждую строку из заявки и проверяю если по данному документу была полная оплата то не переношу это строку в платежку!
Вот Код запроса и добавления платежки
Запрос = Новый Запрос;
                        Запрос.Текст = "ВЫБРАТЬ
                        |    ВложенныйЗапрос.Остаток
                        |ИЗ
                        |    (ВЫБРАТЬ
                        |        -ВзаиморасчетыСКонтрагентамиПоДокументамРасчетовОстатки.СуммаВзаиморасчетовОстаток КАК Остаток
                        |    ИЗ
                        |        РегистрНакопления.ВзаиморасчетыСКонтрагентамиПоДокументамРасчетов.Остатки(
                        |                &Дата,
                        |                Контрагент = &Контрагент
                        |                    И ДоговорКонтрагента = &ДоговорКонтрагента
                        |                    И ДокументРасчетовСКонтрагентом = &ДокументРасчетовСКонтрагентом) КАК ВзаиморасчетыСКонтрагентамиПоДокументамРасчетовОстатки) КАК ВложенныйЗапрос";
                        Запрос.УстановитьПараметр("Дата", ТекущаяДата());
                        Запрос.УстановитьПараметр("ДоговорКонтрагента", Стр.ДоговорКонтрагента);
                        Запрос.УстановитьПараметр("Контрагент", Док.Контрагент);
                        Запрос.УстановитьПараметр("ДокументРасчетовСКонтрагентом", стр.ДокументРасчетовСКонтрагентом);                
                        Результат = Запрос.Выполнить();
                        ВыборкаЗапроса = Результат.Выбрать();
                        Если Не ВыборкаЗапроса.Следующий() Тогда
                            НайденныеСтроки.Удалить(Сч);                    
                        Иначе
                            Сч = Сч + 1;
                            Если Зая<> Стр.ЗаявкаНаРасходование Тогда                    
                                ТекЗаявка=ЗаявкиНаРасходованиеСредств.Найти(Стр.ЗаявкаНаРасходование, "Заявка");                
                                Оплатить=ТекЗаявка.Оплатить;
                            КонецЕсли;    
                            
                            Если Оплатить=0 Тогда
                                Продолжить;
                            КонецЕсли;
                            
                            СтрокаПлатеж=Док.РасшифровкаПлатежа.Добавить();
                            Если Оплатить >=ВыборкаЗапроса.Остаток Тогда
                                СтрокаПлатеж.СуммаВзаиморасчетов=ВыборкаЗапроса.Остаток;
                                СтрокаПлатеж.СуммаПлатежа =ВыборкаЗапроса.Остаток;
                                Оплатить=Оплатить-СтрокаПлатеж.СуммаПлатежа;
                            Иначе    
                                СтрокаПлатеж.СуммаВзаиморасчетов=Оплатить;
                                СтрокаПлатеж.СуммаПлатежа = Оплатить;
                                Оплатить=0;
                            КонецЕсли;    
                            
                            СтрокаПлатеж.КурсВзаиморасчетов      = Док.КурсДокумента;
                            СтрокаПлатеж.КратностьВзаиморасчетов = Док.КратностьДокумента;
                            СтрокаПлатеж.СтавкаНДС                         = Док.Контрагент.ОсновнойНДС;
                            СтрокаПлатеж.Сделка                             = Стр.Сделка;
                            СтрокаПлатеж.ДокументРасчетовСКонтрагентом     = Стр.ДокументРасчетовСКонтрагентом;
                            СтрокаПлатеж.ДоговорКонтрагента                 = Стр.ДоговорКонтрагента;
                            Попытка
                                
                                Если ЗначениеЗаполнено(Стр.Сделка) И ТипЗнч(Стр.Сделка) = Тип("ДокументСсылка.ЗаказПоставщику") И Не ЗначениеЗаполнено(Стр.ДокументРасчетовСКонтрагентом) Тогда
                                    
                                    Док.ДатаРасчетов = Стр.Сделка.ДатаПоступления;
                                    
                                Иначе
                                    
                                    ДатаРасчетовНовая = Основание.Дата;
                                    Если ДатаРасчетовНовая = Неопределено Тогда
                                        ДатаРасчетовНовая = ТекущаяДата();
                                    КонецЕсли;    
                                    Док.ДатаРасчетов=ДатаРасчетовНовая;
                                    
                                КонецЕсли;
                                
                                Если ЗначениеЗаполнено(Стр.ДокументРасчетовСКонтрагентом) И ТипЗнч(Стр.ДокументРасчетовСКонтрагентом) = Тип("ДокументСсылка.ПоступлениеТоваровУслуг") Тогда
                                    
                                    Док.ДатаРасчетов = Стр.ДокументРасчетовСКонтрагентом.Дата;    
                                    
                                КонецЕсли;
                                
                            Исключение
                                
                            КонецПопытки;
                            
                            УправлениеДенежнымиСредствами.ПересчитатьСуммуНДС(СтрокаПлатеж);
                            
                            СтрокаПлатеж.СтатьяДвиженияДенежныхСредств     = Стр.СтатьяДвиженияДенежныхСредств;
                            СтрокаПлатеж.Проект                             = Стр.Проект;
                            СтрокаПлатеж.ДокументПланированияПлатежа     = Стр.ЗаявкаНаРасходование;
                            СтрокаПлатеж.КурсВзаиморасчетовПлан             = СтрокаПлатеж.КурсВзаиморасчетов;
                            СтрокаПлатеж.СуммаПлатежаПлан                 = СтрокаПлатеж.СуммаПлатежа;    
                            
                            Зая =Стр.ЗаявкаНаРасходование;

                        КонецЕсли;

Пока происходит перебор строк то время уходит не маленькое особенно когда заявок очень много!

запрос в цикле

вижу оператор Продолжить, но не вижу цикла - значит всё вот это во внешнем цикле
а за запрос в цикле рогами об забор

и да - непонятен смысл вложенного подзапроса

Запрос.УстановитьПараметр("ДокументРасчетовСКонтрагентом", стр.ДокументРасчетовСКонтрагентом);
(3)  Это и есть в цикле %)

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

(0) Это, кстати, ещё парочка запросов в цикле, которые к тому же получают избыточные данные:
Стр.Сделка.ДатаПоступления
Стр.ДокументРасчетовСКонтрагентом.Дата

Цикл такой
сч = 0;
Пока Сч < НайденныеСтроки.Количество() Цикл
Стр = НайденныеСтроки.Получить(Сч);
Потом мой запрос с кодом добавления и
КонецЦикла

>Стр.Сделка.ДатаПоступления

за это тоже лупить надо... особенно если поле составного типа

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

(8) это не мой кусок кода, я лишь дописал запрос который будет удалять строки или добавлять

(9) предложи я не просто так сюда обратился, любое предложение для меня помощь

(8) Составной тип тут "рояли" не сыграет, это же не запрос, тип ссылки уже известен, просто будет "считан" весь объект по ссылке в память.

(10) выкинт и перепиши

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

На вскидку Заявка делает движения в остаточный регистр, платежка списывает. Достаточно по регистру остатки посмотреть и все.

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

Подскажите как можно ускорить?

(0) Вынесите запрос из цикла и делайте без отбора. Далее выгружайте в тз, а в цикле ищите по этой тз, будет на порядок быстрее, может и хватит этой оптимизации:)

что замер говорит?

(0) Перенеси вначале в запрос таблицу из которой ты берешь "Стр.ДоговорКонтрагента" и запрос по остаткам сделай по всем строкам этой таблицы .
У тебя останется один основной цикл "пока выборка.Следующий()".
Дальше убирай остальную муть потихоньку.

(17) Тебе уже подсказали: получи все необходимые данные по всем документам расчетов до цикла в одном запросе, и убери все обращения через точку по ссылкам в цикле.

(21) По  моему скромному опыту, эти обращения через точку не сильно влияют.

(5) откажись от запросов в цикле

(22) они сильно влияют, особенно на скуле при разнесенных серверах 1с и скуля

(24) С разнесенными давно не работал . А так у меня больше КонецЦикла обычно жрет.

(22) Не имею понятия, сколько здесь уходило процентов на эти точки, но подозреваю, что прилично. Пусть ТС замер производительности хоть сделает, убедится.
Почитай рекомендации 1С, давно уж твердят, что нужно минимизировать количество дерганий сервера. За точку по ссылке в цикле, по-моему, на экзамене  на специалиста сразу "не сдал" записывают, без учета твоего скромного опыта.
Каждая точка это метнутся на сервер, считать весь объект в память. На случай, если от точки не избавиться, придумали функцию ОбщегоНазначения.ПолучитьЗначениеРеквизита

(26) А кто тебе сказал, что я этого не делаю? Я лишь говорю, что ТС не так много выиграет в производительности и дел у него итак много. Ну может 10% он выиграет,хотя сомневаюсь.

(27) Как-то встречал доработку: в обработке проведения был организован цикл по товарам, в котором использовалась безобидная неприметная строка с "Номенклатура.КакойТоРеквизит". В результате на документах с кучей строк(десятки тысяч) эта строка занимала более 90% времени. Была даже сделана отдельная обработка, чтобы бить эти документы кусочками по тысяче, иначе хрен дождешься проведения, а всё в этот момент заблокировано.

(27) видел как-то как
Выборка.Контрагент.Наименование
Выборка.Контрагент.ИНН
И прочие получения реквизитов
занимали в сумме 80% обработки

(28) Лучше "Номенклатура.КакойТоРеквизит.КакойТоРеквизит" %)

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

Тут у ТСа пострашнее вещи, чем ваши "." %)

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

(33) Думаю, замера мы тут не дождемся. Там кроме точек и запроса в цикле ничего не находишь?

(34) по опыту очень удобно считать запрос в цикле типа Стр.Сделка.ДатаПоступления увеличивает время выполнения в 60 раз.

То есть например обычная программа выполняется 2 сек., значит программа с точками будет выполняться 2 минуты. Это уже проверено многократно. И замеряит нечего.

(35) обычная программа выполняется 2 сек., значит программа с точками будет выполняться 2 минуты

Это 5. Пошел я домой.

(36) давай

НайденныеСтроки есть массив в котором хранятся все строки из заявки. Как мне его запихнуть в запрос в временную табл? сори в 1С еще не во всех аспектах разобрался, поэтому спрашиваю даже такой вопрос!

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

Либо выгружают скажем колонку номенклатуры в массив и передают в запрос, в запросе пишется условие где .Номенклатура в (&МассивНоменклатуры) - скобки тут обязательно