Как оформить запрос на 1С с выводом результата в обработку?

[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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

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

—

Как использовать:

1. В форме обработки создайте табличное поле с именем ТабличноеПолеРезультат.
2. В процедуре, например, по кнопке «Выполнить», вызовите:

1С (Код)

ВыполнитьЗапрос(СсылкаПересчета, ДатаНачала, ДатаКонца);

1	ВыполнитьЗапрос(СсылкаПересчета, ДатаНачала, ДатаКонца);

где СсылкаПересчета — ссылка на документ «Пересчет товаров», а ДатаНачала и ДатаКонца — даты периода.

—

Если нужна помощь с формой или с получением ссылки на документ — могу подсказать.

[Автор]

Сообщения