Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
12 дек 2024, 14:45

Помочь разобраться с Выборкой после запроса

Автор Александр43, 25 июл 2019, 16:20

0 Пользователей и 1 гость просматривают эту тему.

Александр43

Еще новичек в этом деле, по этому имееются трудности. Имеется печатный макет в котором необходимо вывести сайт и майл организации. Данные все выводятся, но они повторяются т.к незнаю как правильно оформить проверку.
Получается так:
Сайт организации: torgdomkompleks.ru
E-mail: torgdomkompleks.ru

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

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск