Простой вывод результата запроса в табличный документ

03.01.14

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

Неоднократно наблюдал и наблюдаю картину когда для отладки запроса его результат выводят в табличный документ. При этом создают макет. Определяют области и параметры и т.п. Ниже показан код с помощью которого можно выводить любой результат запроса в табличный документ не определяя макет.

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

+62 –1

См. также

Infostart Toolkit — Инструменты разработчика 1С 8.3

Инструментарий разработчика Роли и права Запросы СКД Программист Руководитель проекта Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Платные (руб)

Инструменты для разработчиков 1С 8.3: Infostart Toolkit. Автоматизация и ускорение разработки на управляемых формах. Легкость работы с 1С.

15500 руб.

02.09.2020 184667 1029 403

967

Битва с призраками прошлого: ищем "битые" запросы после обновления релиза

Обновление 1С Запросы Программист Платформа 1С v8.3 1С:ERP Управление предприятием 2 Абонемент ($m)

Данный инструмент помогает анализировать доработанную конфигурацию после обновления на новый релиз и находить «битые» тексты запросов, в которых участвуют несуществующие в новом релизе метаданные.

2 стартмани

06.02.2025 2198 17 XilDen 26

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

Запросы Программист Платформа 1С v8.3 Запросы 1C:Бухгалтерия Бесплатно (free)

В статье приведена удобная возможность отладки исполняемого запроса динамического списка.

03.12.2024 5731 artemusII 11

Шпаргалка по запросам

Запросы Программист Бесплатно (free)

Увидел cheatsheet по SQL и захотелось нарисовать подобное, но про запросы.

18.10.2024 13135 sergey279 18

Ловушка функции запроса АВТОНОМЕРЗАПИСИ()

Запросы Программист Платформа 1С v8.3 Запросы 1C:Бухгалтерия Бесплатно (free)

Столкнулся с интересной ситуацией, которую хотел бы разобрать, ввиду её неочевидности. Речь пойдёт про использование функции запроса АВТОНОМЕРЗАПИСИ() и проблемы, которые могут возникнуть.

11.10.2024 8215 XilDen 36

Механизм представлений в типовых конфигурациях 1С: Зарплата и управление персоналом, редакция 3.1

СКД Механизмы типовых конфигураций Запросы Программист Платформа 1С v8.3 1С:Зарплата и кадры государственного учреждения 3 1С:Зарплата и Управление Персоналом 3.x Россия Бесплатно (free)

Работая с типовыми отчетами в конфигурациях «Зарплата и управление персоналом, редакция 3», «Зарплата и кадры государственного учреждения, редакция 3» и подобных, в схемах компоновки данных можно встретить конструкции запросов, которые обращаются к некоторым виртуальным таблицам.

20.08.2024 3191 PROSTO-1C 0

Внутренняя жизнь ваших запросов PostgreSQL. Как и зачем «подглядывать» в подробности

Запросы Программист Запросы Бесплатно (free)

Отлаживая взаимодействие с базой данных, мы регулярно сталкиваемся с зависающими или подозрительно долго выполняющимися обращениями, негативно влияющими на производительность. О том, как в PostgreSQL выявить подозрительные запросы, основываясь на доступной о них информации, расскажем в статье.

16.08.2024 10797 user1840182 5

В помощь разработчику: преобразование табличного документа в запрос

Инструментарий разработчика Универсальные функции Запросы Программист Платформа 1С v8.3 1C:Бухгалтерия 1С:Бухгалтерия 3.0 1С:Зарплата и Управление Персоналом 3.x Бесплатно (free)

Внешняя обработка для создания запроса на основании табличных данных.

22.07.2024 7377 209 ixijixi 10

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. ssn1978 71 03.01.14 15:42 Сейчас в теме

Можно сделать проще, обойтись без всяких циклов и выборок :)

Построитель = Новый ПостроительОтчета;
Построитель.ИсточникДанных  = Новый ОписаниеИсточникаДанных(Результат);
ТД = Новый ТабличныйДокумент;
Построитель.Вывести(ТД);
ТД.Показать();

Ответить

5. Dmitryiv 162 03.01.14 17:20 Сейчас в теме

(1) ssn1978, тоже хорошо, если оформление не требуется.

13. kiruha 388 06.03.17 16:32 Сейчас в теме

(1)Вариант распространенный, но так себе. Если использовать не только для отладки, а например для показа пользователю - достаточно этому пользователю попросить поменять хоть одну колонку - и придется переделывать все заново. Например на вариант (12).

2. ssn1978 71 03.01.14 15:49 Сейчас в теме

А еще проще, как я обычно отлаживаю запросы....

Результат.Выгрузить().ВыбратьСтроку()

4. Dmitryiv 162 03.01.14 17:11 Сейчас в теме

(2) ssn1978, хороший способ если количество строк не очень большое.

8. Yashazz 4842 14.01.14 19:00 Сейчас в теме

(2) В тонком клиенте уже не прокатит, к сожалению.

3. ssn1978 71 03.01.14 15:54 Сейчас в теме

А еще удобнее подхватить запрос с параметрами в процессе отладки и передать в 1с Предприятие, вот эта консолько дает такую возможность http://infostart.ru/public/19577/

6. пользователь 08.01.14 11:47

Сообщение было скрыто модератором.

...

7. DAnry 9 08.01.14 22:00 Сейчас в теме

Еще один способ использовать стандартный конструктор отчетов или обработок - конструктор сам создаст и форму, и код, и макет

9. SoulCast 33 31.10.14 22:16 Сейчас в теме

Спасибо большое за пример, сегодня пригодилось в работе :-)
Кстати одна строчка пропущена, надо бы добавить

Колонка = Результат.Колонки[Счетчик-1];
ОбластьЗаполнения.Параметр=Колонка.Имя;

А если еще добавить

ТД.ТолькоПросмотр = Истина;

и дальше

ОбластьЗаполнения.ПараметрРасшифровки = Колонка.Имя;

то даже расшифровка получается, вообще супер удобно

Ответить

10. chmv 11.02.15 13:31 Сейчас в теме

а я не знала

11. Volfy 69 27.03.15 14:48 Сейчас в теме

Ааааа не экономьте на пробелах!!

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

Показать

Ответить

12. UPSoft 88 17.09.15 19:24 Сейчас в теме

Вариант без ошибок и с нормальными заголовками
ТД - реквизит формы.

//ТД = Новый ТабличныйДокумент;

	Рез   = Запрос.Выполнить();
	РезТз = Рез.Выгрузить();
	Заголовки = Новый Структура;
	ОбластьВывода = ТД.ПолучитьОбласть(1, 1, 1, РезТз.Колонки.Количество());
	Для Счетчик = 1 по РезТз.Колонки.Количество() Цикл
		ОбластьЗаполнения = ОбластьВывода.Область(1, Счетчик, 1, Счетчик);
		Колонка = РезТз.Колонки[Счетчик-1];
		ОбластьЗаполнения.Параметр = Колонка.Имя;
		ОбластьЗаполнения.Заполнение = ТипЗаполненияОбластиТабличногоДокумента.Параметр;
		Заголовки.Вставить(Колонка.Имя, Колонка.Имя);
	КонецЦикла;
	ОбластьВывода.Параметры.Заполнить(Заголовки);
	ТД.Вывести(ОбластьВывода);
	Выборка=Рез.Выбрать();
	Пока Выборка.Следующий() Цикл
		ОбластьВывода.Параметры.Заполнить(Выборка);
		ТД.Вывести(ОбластьВывода);
	КонецЦикла;

//  ТД.Показать();

Показать

Ответить

14. soldatkin 12 22.03.19 14:37 Сейчас в теме

Во вложении обработка для 1С83

Прикрепленные файлы:

ЗамерПроизводительности.epf

15. srt2020 11.09.20 14:28 Сейчас в теме

А это для какой 1С ?

16. Dmitryiv 162 13.09.20 14:21 Сейчас в теме

(15) Для любой платформы 8.х

17. srt2020 14.09.20 05:51 Сейчас в теме

Спасибо!
А для 7,7 нет что нибудь подобного?

18. Zoltan_Black 3 01.07.21 05:37 Сейчас в теме

(17) Это Вам, Спасибо!
Именно этот Ваш вопрос вдохновил меня на публикацию.
Вот, пожалуйста, способ, которым сам давно пользуюсь.
https://infostart.ru/1c/articles/1467310/?ID=1467310

19. lasermag 21.04.22 12:08 Сейчас в теме

Не верный код .
Вот верный проверено.

	ТД = Новый ТабличныйДокумент;
	
    ОбластьВывода = ТД.ПолучитьОбласть(1, 1, 1, РезультатЗапроса.Колонки.Количество());
    
    Для Счетчик = 1 по РезультатЗапроса.Колонки.Количество() Цикл
        ОбластьЗаполнения = ОбластьВывода.Область(1, Счетчик, 1, Счетчик);
        ОбластьЗаполнения.Параметр = РезультатЗапроса.Колонки[Счетчик-1].Имя;
        ОбластьЗаполнения.Заполнение = ТипЗаполненияОбластиТабличногоДокумента.Параметр;
    КонецЦикла;
    
    Выборка = РезультатЗапроса.Выбрать();
    Пока Выборка.Следующий() Цикл
        ОбластьВывода.Параметры.Заполнить(Выборка);
        ТД.Вывести(ОбластьВывода);
    КонецЦикла;
    
    ТД.Показать();

Показать

20. User1326901 19.05.22 09:34 Сейчас в теме

Спасибо за информацию! Не совсем понял зачем промежуточная ТЗ. Немного модернизировал ваш код.
ТД - реквизит формы

РезультатЗапроса  = Запрос.Выполнить();
ЧислоКолонокЗапроса = РезультатЗапроса.Колонки.Количество();
Заголовки = Новый Структура;
 ОбластьВывода = ТД.ПолучитьОбласть(1, 1, 1, ЧислоКолонокЗапроса);

// Выведем заголовок 
    ОбластьВыводаЗаголовок = ТД.ПолучитьОбласть(1, 1, 1, ЧислоКолонокЗапроса);
    ОбластьЯчеекТД = ОбластьВыводаЗаголовок.Область();
    ОбластьЯчеекТД.Объединить();
    ОбластьЯчеекТД.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Лево;
    ОбластьЯчеекТД.ЦветТекста = WebЦвета.Синий; 
    ОбластьЯчеекТД.Шрифт = Новый Шрифт(, 14, Истина, , , );
    ОбластьЯчеекТД.Текст = "        "+"ТестЗаголовка";
    ТД.Вывести(ОбластьВыводаЗаголовок);
	
    ОбластьВывода.Область().СоздатьФорматСтрок();
    Для Счетчик = 1 по ЧислоКолонокЗапроса Цикл
        ОбластьЗаполнения = ОбластьВывода.Область(1, Счетчик, 1, Счетчик);
        //ОбластьЗаполнения.ЦветТекста = Новый Цвет(0, 255, 0);
        ОбластьЗаполнения.ГраницаСверху = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1);
        ОбластьЗаполнения.ГраницаСлева = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1);
        ОбластьЗаполнения.ГраницаСправа = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1);
        ОбластьЗаполнения.ГраницаСнизу = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1);
		
	Колонка = РезультатЗапроса.Колонки[Счетчик-1];
	ОбластьЗаполнения.ШиринаКолонки = СтрДлина(Колонка.Имя);
        ОбластьЗаполнения.Параметр = Колонка.Имя;
        ОбластьЗаполнения.Заполнение = ТипЗаполненияОбластиТабличногоДокумента.Параметр;
        Заголовки.Вставить(Колонка.Имя, Колонка.Имя);
		
	КонецЦикла;
	ОбластьВывода.Параметры.Заполнить(Заголовки);
    ТД.Вывести(ОбластьВывода);
    Выборка=РезультатЗапроса.Выбрать();
    Пока Выборка.Следующий() Цикл
        ОбластьВывода.Параметры.Заполнить(Выборка);
        ТД.Вывести(ОбластьВывода);
    КонецЦикла;

Показать

Оставьте свое сообщение

E-mail:

Автор:

Дмитрий Иванчура (Dmitryiv)

Рейтинг: 162

Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот

Публикация:

№ 249176

Создание 03.01.14 14:47

Обновление 03.01.14 14:47

Статистика:

Просмотры 90253

Загрузки 0

Рейтинг 61

Комментарии 19

Характеристики:

Код открыт Не указано

Рубрики Запросы

Кому Программист

Тип файла Нет файла

Платформа Платформа 1С v8.3

Конфигурация Универсальные

Операционная система Windows

Страна Не имеет значения

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Не имеет значения

Доступ к файлу Бесплатно (free)