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