Доброго всем. 8.3 обычная форма... на ночь глядя название темы не придумывается

Нужно на несколько электронный адрес контрагента отправить список документов.

Получаю контрагентов со строкой адресов из справочника.
Затем в цикле перебираю их и получаю список документов отдельным запросов. Но это ведь не правильно... запрос в цикле.

Помогите понять, как получить всё одним запросом.

То есть я должен получить строку с контрагентом, адресами, список документов

Зачем? Выигрыш в твоем случае не стоит хлопот.

(1) То есть делать запрос в цикле?

соединить контрагентов с документами, а потом ИТоги ПО Контрагент

Ну выбери документы с отбором  "Контрагент В (&СписокКонтрагентов)

ВЫБРАТЬ
  РН.Контрагент КАК Контрагент,
  КИ.Адрес КАК Адрес,
  РН.Ссылка КАК док
ИЗ Документы.РеализацияТоваровУслуг КАК РН
ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КИ
ПО РН.Контрагент = КИ.Объект И КИ.ТипАдреса = &eMail
ИТОГИ МАКСИМУМ(Контрагент), МАКСИМУМ(Адрес) ПО Контрагент

Обходить по группировкам.

Запрос = Новый Запрос;
Запрос.Текст =
    "ВЫБРАТЬ
    |    Документы.Ссылка,
    |ИЗ
    |    Документы.Приходные КАК Документы
    |ГДЕ
    |    Документы.Контрагент= &Контрагент";  
    

Для Каждого Строка ИЗ ТаблицаКонтрагентовИАдрес Цикл
    
    Запрос.УстановитьПараметр("Контрагент", Строка .Контрагент);

    Если ЗапросПутой Тогда
       Продолжить;
    КонецЕсли;

    РезультатЗапроса = Запрос.Выполнить().Выбрать();

    ОтправитьПисьмо(РезультатЗапроса);

КонецЦикла;

Чёт с итогами не понял до конца, у меня получиться что-то и с запросов выше?

(6) нет, так не надо. Думай еще

Выбрать Документы.Ссылка, Контрагент Из Документы.Приходные Как Документы Где Документы.Контрагент В (&Контрагенты) Итоги по Контрагент

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

я даже знаю, каким будет следующий вопрос

(5) (8) (9) Аааа, "Обходить по группировкам" %)
Спасибо, понял.

а зачем здесь по-группировкам обходить?

Чтобы получить документы из группировки контрагента

(12) согласен с (1) работодатель твои умоизороты не оценит.

(13) Если у него нажатие будет отрабатывать 30 минут, то будет время оценить? :)

(13) А в итоге, Ваш вариант? В запросе делать?

(15) лучше финальный вариант покажи, а то у тебя
    Если ЗапросПутой Тогда
       Продолжить;
    КонецЕсли;

    РезультатЗапроса = Запрос.Выполнить().Выбрать();
как бы намекает

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

(16) Примерно так (17)

Конечно же... ну и тоже духе.

        
        Если НЕ ЗначениеЗаполнено(ТаблицаАдресов) Тогда
            Сообщить("Фиг, а не письмо: " + РезультатЗапроса.ДокументКонтрагентНаименованиеПолное);
            Продолжить; //или Возврат;
        КонецЕсли;

КАК СтатусДокумента
    |ГДЕ
    |    СтатусДокументаСрезПоследних
откуда Вы код берете?