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

03.01.14

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

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

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

Вступайте в нашу телеграмм-группу Инфостарт

+65 –1

См. также

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

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

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

15500 руб.

02.09.2020 202357 1116 410

1021

Консоль запросов ЗУП с поддержкой обращения к методам программного интерфейса в запросах

Инструментарий разработчика Запросы Программист 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

QueryConsole1C — расширение, включающее консоль запросов с поддержкой исполняемых представлений — аналогов виртуальных таблиц, основанных на методах программного интерфейса ЗУП. Оно позволяет выполнять запросы с учётом встроенной бизнес-логики, отлаживать алгоритмы получения данных и автоматически генерировать код на встроенном языке 1С.

1 стартмани

16.05.2025 3959 78 zup_dev 20

Семерых одним ударом: ищем все ошибки в запросе за один раз!

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

В данной публикации рассказывается о решении, которое позволяет находить сразу все ошибки в тексте запроса за раз, а не только самую первую.

2 стартмани

05.03.2025 3184 11 XilDen 12

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

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

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

2 стартмани

06.02.2025 2988 24 XilDen 26

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

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

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

03.12.2024 7314 artemusII 11

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

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

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

18.10.2024 15614 sergey279 18

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

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

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

11.10.2024 10223 XilDen 38

102

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

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

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

20.08.2024 4325 PROSTO-1C 0

Комментарии

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

Свернуть все

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

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

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

Ответить

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

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

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

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

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

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

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

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

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

8. Yashazz 4861 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 34 31.10.14 22:16 Сейчас в теме

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

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

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

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

и дальше

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

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

Ответить

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

а я не знала

11. Volfy 70 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 165 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)

Рейтинг: 165

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

Публикация:

№ 249176

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

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

Статистика:

Просмотры 92726

Загрузки 0

Рейтинг 64

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

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

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

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

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

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

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

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

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

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

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

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

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

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