Доброе время суток. Поставили передо мной такую задачу. Нужно в печатную форму вывести все номера расходных накладных(РеализациятоваровУслуг) и долги по ним по определённому контрагенту. Решил что вытяну все его документы "РеализациятоваровУслуг" и вытяну все введённые на основании документы.
И дальше просто буду сверять если введено на основании платёжное поручение входящие или возврат товаров и суммы совпадают то долга нет. И тут возникла проблема. Документы РеализацияТоваровУслуг и введённые на основании их документы вытягиваются, но уж слишком долго, порядка 30- 60 секунд. Подскажите пожалуйста есть ли способ уменьшить затрачиваемое время.
Код:
ЗапросЗадолженности=Новый Запрос ("ВЫБРАТЬ
                                     |    ВзаиморасчетыСКонтрагентамиОбороты.Контрагент,
                                     |    ВзаиморасчетыСКонтрагентамиОбороты.СуммаВзаиморасчетовОборот,
                                     |    ВзаиморасчетыСКонтрагентамиОбороты.Регистратор КАК Регистратор
                                     |ИЗ
                                     |    РегистрНакопления.ВзаиморасчетыСКонтрагентами.Обороты(&ДатаНач, &ДатаКон, Регистратор, Контрагент = &Контрагент) КАК ВзаиморасчетыСКонтрагентамиОбороты
                                     |ГДЕ
                                     |    ВзаиморасчетыСКонтрагентамиОбороты.СуммаВзаиморасчетовОборот > 0
                                     |
                                     |УПОРЯДОЧИТЬ ПО
                                     |    Регистратор");
                                     
   ЗапросЗадолженности.УстановитьПараметр("Контрагент",СсылкаНаОбъект.Контрагент);
   ДатаКон=СсылкаНаОбъект.Дата;
   ДатаНач=ДобавитьМесяц(ДатаКон,-12);
   ЗапросЗадолженности.УстановитьПараметр("ДатаНач",ДатаНач);
   ЗапросЗадолженности.УстановитьПараметр("ДатаКон",ДатаКон);

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

ппц...

уволицо нахрен еще задачу не поставили?

Всё так плохо?

взаиморасчеты по документам расчетов вас спасут

Поставь чайник на плиту!

(5)Намек на то что всё на самом делается легко а я изобретаю велосипед причем через попу?

(0) нет, всё ещё хуже
(4) а если не ведутся? ))

(7) тогда начать вести :)

(6) не, просто фраза и песни прикольная

Узнал взаиморасчеты ведутся. А можно чуть по подробней про них, пожалуйста?

(10)

ВЫБРАТЬ
   ВзаиморасчетыСКонтрагентамиПоДокументамРасчетовОстатки.ДоговорКонтрагента КАК ДоговорКонтрагента,
   ВзаиморасчетыСКонтрагентамиПоДокументамРасчетовОстатки.ДокументРасчетовСКонтрагентом,
   ВзаиморасчетыСКонтрагентамиПоДокументамРасчетовОстатки.СуммаВзаиморасчетовОстаток КАК СуммаВзаиморасчетовОстаток
ИЗ
   РегистрНакопления.ВзаиморасчетыСКонтрагентамиПоДокументамРасчетов.Остатки(, Контрагент = &Контрагент) КАК ВзаиморасчетыСКонтрагентамиПоДокументамРасчетовОстатки

УПОРЯДОЧИТЬ ПО
   ВзаиморасчетыСКонтрагентамиПоДокументамРасчетовОстатки.ДокументРасчетовСКонтрагентом.МоментВремени
ИТОГИ
   СУММА(СуммаВзаиморасчетовОстаток)
ПО
   ДоговорКонтрагента

Огромное спасибо, сейчас попробую.

(12) там конечно не все реализации, но как-то так

Но в результате этих махинаций получишь только остатки по реализациям, а судя по постановке "и вытяну все введённые на основании документы", то человеку нужны не остатки, а и обороты, чтобы видеть что было оплачено, в полном ли объеме и какими документами
или я не прав?

Нет всё именно так как нужно, там я не совсем корректно выразился. Проверил всё с калькулятором все сходится причем так как надо. Ещё раз спасибо.

(15) Постарайся в будущем запросы в цикле не писать. не правильно это.

(16) Спасибо.Учту.