Как вывести таблицу значений запросом без использования макетов?

[Odineski]

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

[Odin — Одинэсник]

В обычной форме внешней обработки можно выполнить запрос, выгрузить результат в ТаблицуЗначений, а затем автоматически вывести ее в ТабличныйДокумент без макета.

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

Код можно разместить в процедуре команды обычной формы:

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

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

В результате 1С сама сформирует колонки по колонкам таблицы значений. Макет, области и параметры не нужны.

—

### Вариант 2. Просто показать таблицу значений

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

1С (Код)

Процедура ВыполнитьЗапрос(Кнопка) Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Номенклатура.Ссылка КАК Номенклатура, | Номенклатура.Код КАК Код, | Номенклатура.Наименование КАК Наименование |ИЗ | Справочник.Номенклатура КАК Номенклатура"; ТаблицаРезультат = Запрос.Выполнить().Выгрузить(); ТаблицаРезультат.Показать("Результат запроса"); КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Процедура ВыполнитьЗапрос(Кнопка) Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ |    Номенклатура.Ссылка КАК Номенклатура, |    Номенклатура.Код КАК Код, |    Номенклатура.Наименование КАК Наименование |ИЗ |    Справочник.Номенклатура КАК Номенклатура"; ТаблицаРезультат = Запрос.Выполнить().Выгрузить(); ТаблицаРезультат.Показать("Результат запроса"); КонецПроцедуры

Если метод Показать() для ТаблицаЗначений в вашей версии платформы недоступен, используйте первый вариант с ТабличныйДокумент.

—

### Вариант 3. Вывести непосредственно результат запроса

Можно сначала получить таблицу значений из результата запроса:

1С (Код)

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

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

А затем:

1С (Код)

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

1 2 3 4 5 6 7 8

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

Полный минимальный вариант:

1С (Код)

Процедура Команда1(Кнопка) Запрос = Новый Запрос( "ВЫБРАТЬ | Товары.Номенклатура, | Товары.Количество, | Товары.Сумма |ИЗ | Документ.РеализацияТоваровУслуг.Товары КАК Товары"); ТаблицаРезультат = Запрос.Выполнить().Выгрузить(); ТабличныйДокумент = Новый ТабличныйДокумент; Построитель = Новый ПостроительОтчета; Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТаблицаРезультат); Построитель.Вывести(ТабличныйДокумент); ТабличныйДокумент.Показать("Результат запроса"); КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Процедура Команда1(Кнопка) Запрос = Новый Запрос( "ВЫБРАТЬ |    Товары.Номенклатура, |    Товары.Количество, |    Товары.Сумма |ИЗ |    Документ.РеализацияТоваровУслуг.Товары КАК Товары"); ТаблицаРезультат = Запрос.Выполнить().Выгрузить(); ТабличныйДокумент = Новый ТабличныйДокумент; Построитель = Новый ПостроительОтчета; Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТаблицаРезультат); Построитель.Вывести(ТабличныйДокумент); ТабличныйДокумент.Показать("Результат запроса"); КонецПроцедуры

### Если в запросе есть параметры

Параметры устанавливаются до выполнения запроса:

1С (Код)

Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала); Запрос.УстановитьПараметр("ДатаОкончания", ДатаОкончания); ТаблицаРезультат = Запрос.Выполнить().Выгрузить();

1 2 3 4

Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала); Запрос.УстановитьПараметр("ДатаОкончания", ДатаОкончания);   ТаблицаРезультат = Запрос.Выполнить().Выгрузить();

Например:

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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

### Если нужно вывести именно РезультатЗапроса, не выгружая его в таблицу значений

Можно сформировать табличный документ вручную. Этот вариант удобен, если ПостроительОтчета по каким-либо причинам недоступен:

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

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

Но для вашей задачи лучше использовать первый вариант:

1С (Код)

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

1 2 3 4 5 6 7 8 9

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

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

[Автор]

Записи