По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Если у договора контрагента владелец - контрагент (а скорее всего так и есть), сделайте итоги по договору контрагента и, обходя детальные записи - программно собирайте свою строку. Например, в виде массива, который потом можно превратить строку с помощью СтрСоединить(МассивСлов, ", ").
Посмотрите пожалуйста код обхода, у меня Итоги по номеру договора и мой код задваивает значения в ячейках.
Запрос = Новый Запрос;
Запрос.Текст = СокрЛП(Объект.УсловиеКомплекта.Условие);
Запрос.УстановитьПараметр("Дата", Дата);
Если ЭтаФорма.Объект.УсловиеКомплекта= Справочники.ЛТ_УсловияКомплектовМакетов.НайтиПоНаименованию("Напоминание_пролонгация") Тогда
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДоговорЛизинга = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам,"ДоговорЛизинга");
Пока ВыборкаДоговорЛизинга.Следующий() Цикл
НоваяСтрока=Договоры.Добавить();
НоваяСтрока.ДоговорЛизинга=ВыборкаДоговорЛизинга.ДоговорЛизинга;
ВыборкаДетали= ВыборкаДоговорЛизинга.Выбрать();
//Телефон="";
//АдресЭП="";
НачалоСтроки=Истина;
Пока ВыборкаДетали.Следующий() Цикл
//сч=0;
//сч=сч+1;
//Если сч>1 Тогда
Если НачалоСтроки Тогда
Телефон = СокрЛП(ВыборкаДетали.Телефон);
ВсеАдресаЭП =СокрЛП(ВыборкаДетали.АдресЭП);
НачалоСтроки=Ложь;
//КонецЕсли;
Иначе
ВсеАдресаЭП = ВсеАдресаЭП+", "+СокрЛП(ВыборкаДетали.АдресЭП);
Телефон= Телефон+","+СокрЛП(ВыборкаДетали.Телефон);
КонецЕсли;
АдресЭП =СокрЛП(ВыборкаДетали.АдресЭП);
Контрагент=ВыборкаДетали.Контрагент;
КонецЦикла;
//АдресЭП =СокрЛП(ВыборкаДетали.АдресЭП);
НоваяСтрока.Контрагент= Контрагент;
Новаястрока.ВсеАдресаЭП = Лев(ВсеАдресаЭП,СтрДлина(ВсеАдресаЭП)-2);
НоваяСтрока.АдресЭП = АдресЭП;
НоваяСтрока.Телефон = Лев(Телефон,СтрДлина(Телефон)-2);
КонецЦикла; Показать
(5) Добавляю текст запроса ))
ВЫБРАТЬ первые 40
ИБР_СтатусыДоговоровСрезПоследних.Договоры.Ссылка КАК ДоговорыСсылка,
ИБР_СтатусыДоговоровСрезПоследних.Статусы КАК Статусы
ПОМЕСТИТЬ СтатусыДоговоров
ИЗ
РегистрСведений.ИБР_СтатусыДоговоров.СрезПоследних(, ) КАК ИБР_СтатусыДоговоровСрезПоследних
ГДЕ
ИБР_СтатусыДоговоровСрезПоследних.Статусы = ЗНАЧЕНИЕ(Справочник.ИБР_СтатусыДоговоров.Действует)
;
//////////////////////////////////////////////////////////// Показать
(9) сделайте тогда пакетный запрос из двух запросов. В первом - то что у вас сейчас с итогами (т.е. сделать выборку по договору контрагента без контактной информации), уберите итоге и оставьте плоскую выборку. Второй запрос возвращает всю контактную информацию.
Выполняете пакет запросов.
ВыборкаДог = это выборка по договорам
ВыборкаКИ - выборка по конт. инф
P.S. в (13) вам это уже посоветовали.
Выполняете пакет запросов.
ВыборкаДог = это выборка по договорам
ВыборкаКИ - выборка по конт. инф
Пока ВыборкаДог.Следующий() Цикл
ВыборкаКИ.Сбросить();
ПараметрыОтбора = Новый Структура("Контрагент", ВыборкаДог.Контрагент);
Пока ВыборкаКИ.НайтиСледующий(ПараметрыОтбора) Цикл
...
КонецЦикла;
...
КонецЦикла;P.S. в (13) вам это уже посоветовали.
Используйте пакетный запрос, чтобы не пихать невпихуемое в одну таблицу. В одной таблице запроса связь контрагент - телефон, в другой контрагент - адрес эп. Потом выборками по этим таблицам РезультатЗапроса[i] по одному контрагенту сформируйте нужную строку.
(12) У Вас уже есть временные таблицы в запросе. Сделайте из них выборку, не соединяя с другими таблицами. Замените Запрос.Выполнить() на Запрос.ВыполнитьПакет(). Под индексами, соответствующими номерам таблиц (с 0), получите таблицы с нужными соответствиями. И обходите так, как вам нужно. Можно и так, как предложено в (11), но этим способом будет понятнее, как мне представляется.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот