ХА! Всивота нада была вот чо!!
Процедура ДействияФормыОтчетСформировать(Кнопка)
ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;
Отчет(ТабДок, Дата, Счет);
КонецПроцедуры
Процедура Отчет(ТабДок, Дата, Счет) Экспорт
Макет = ВнешняяОбработкаОбъект.ПолучитьМакет("Отчет");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ХозрасчетныйОстаткиИОбороты.Счет,
| ПРЕДСТАВЛЕНИЕ(ХозрасчетныйОстаткиИОбороты.Счет),
| ХозрасчетныйОстаткиИОбороты.Субконто2,
| ПРЕДСТАВЛЕНИЕ(ХозрасчетныйОстаткиИОбороты.Субконто2),
| ХозрасчетныйОстаткиИОбороты.Субконто1,
| ПРЕДСТАВЛЕНИЕ(ХозрасчетныйОстаткиИОбороты.Субконто1),
| ХозрасчетныйОстаткиИОбороты.КоличествоКонечныйОстатокДт,
| ХозрасчетныйОстаткиИОбороты.СуммаКонечныйОстатокДт
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&Дата, &Дата, Период, , Счет = &Счет, , ) КАК ХозрасчетныйОстаткиИОбороты";
Запрос.УстановитьПараметр("Дата", Дата);
Запрос.УстановитьПараметр("Счет", Счет);
Результат = Запрос.Выполнить();
Себестоимость=1;
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
ТабДок.Очистить();
ТабДок.Вывести(ОбластьЗаголовок);
ТабДок.Вывести(ОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();
ВыборкаДетали = Результат.Выбрать();
Пока ВыборкаДетали.Следующий() Цикл
ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали);
Цена = ?(ОбластьДетальныхЗаписей.Параметры.КоличествоКонечныйОстатокДт = 0, 0, ОбластьДетальныхЗаписей.Параметры.СуммаКонечныйОстатокДт / ОбластьДетальныхЗаписей.Параметры.КоличествоКонечныйОстатокДт);
ОбластьДетальныхЗаписей.Параметры.Себестоимость = Цена;
ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетали.Уровень());
КонецЦикла;
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.Вывести(ОбластьПодвалТаблицы);
ТабДок.Вывести(ОбластьПодвал);
КонецПроцедуры