СтрокаЗаголовка = НазваниеДокумента + " № " + 
ОбщегоНазначения.ПолучитьНомерНаПечать(ДокументОбъект, глСписокПрефиксовУзлов)	
+ ПереводСтроки + "от " + Формат(ДокументОбъект.Дата, "ДЛФ=DD");

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

|    И СчетаИАктыОстаткиИОбороты.ВыписанАкт = &флВыписанАкт
|ИТОГИ
|    СУММА(Стоимость),
|    СУММА(Налог),
|    СУММА(Выручка),
|    СУММА(ВыручкаМенеджера)
|ПО
|    ОБЩИЕ,
|    ВидУслуги";
//Запрос.УстановитьПараметр("Владелец",Владелец());    

Запрос.УстановитьПараметр("НачПериода",НачалоДня(НачалоМесяца(НачПериода)));
Запрос.УстановитьПараметр("КонПериода",КонецДня(КонецМесяца(КонПериода)));
Запрос.УстановитьПараметр("флВыписанАкт",Истина);
Выборка = Запрос.Выполнить().Выбрать();    
Строка = Макет.ПолучитьОбласть("Строка");
СтоимостьИтог = 0;
ВыручкаИтог = 0;
ОплатаИтог = 0;
Ном = 0;
ИтогПоВид = "";
Пока Выборка.Следующий() Цикл
Если Выборка.ТипЗаписи() = ТипЗаписиЗапроса.ИтогПоГруппировке Тогда
Если ИтогПоВид <> "" Тогда
ТабДок.Вывести(ИтогПоВид,1,,Ложь);
КонецЕсли;
Итог = Макет.ПолучитьОбласть("Подвал");
//Итог.Параметры.ИтогоВидУслуги = "ИТОГО ПО " + Выборка.ВидУслуги;

Итог.Параметры.СтоимостьИтог = Выборка.Стоимость;
Итог.Параметры.ВыручкаИтог = Выборка.Выручка;
Итог.Параметры.ОплатаИтог = Выборка.ВыручкаМенеджера;
ОбластьВид = Макет.ПолучитьОбласть("Вид");
ОбластьВид.Параметры.ВидУслуги = Выборка.ВидУслуги;
ТабДок.Вывести(ОбластьВид,1,,Ложь); Ном = 0;
Продолжить;
КонецЕсли;
Строка.Параметры.Заказчик  = Выборка.Заказчик;
Строка.Параметры.Наименование = Выборка.Наименование;
Строка.Параметры.Период = Формат(Выборка.НачДата,"ДФ=dd.MM.yy") + ?(ПустоеЗначение(Выборка.НачДата) ИЛИ ПустоеЗначение(Выборка.КонДата),""," - ") + Формат(Выборка.КонДата,"ДФ=dd.MM.yy");
Строка.Параметры.Стоимость = Выборка.Стоимость;
Строка.Параметры.Выручка = Выборка.Выручка-Выборка.Налог; 
Строка.Параметры.Оплата = Выборка.ВыручкаМенеджера;
Ном = Ном+1;
Строка.Параметры.Ном = Ном;
ТабДок.Вывести(Строка,2,,Ложь);
СтоимостьИтог = СтоимостьИтог + Выборка.Стоимость;
ВыручкаИтог = ВыручкаИтог + Выборка.Выручка;
ОплатаИтог = ОплатаИтог + Выборка.ВыручкаМенеджера;
КонецЦикла;
Если ИтогПоВид <> "" Тогда
ТабДок.Вывести(ИтогПоВид);
КонецЕсли;
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ОбластьИтог = Макет.ПолучитьОбласть("Подвал");
//ОбластьИтог.Параметры.ИтогоВидУслуги = "ИТОГО";

ОбластьИтог.Параметры.СтоимостьИтог = СтоимостьИтог;
ОбластьИтог.Параметры.ВыручкаИтог = ВыручкаИтог;
ОбластьИтог.Параметры.ОплатаИтог = ОплатаИтог;
ТабДок.Вывести(ОбластьИтог);
ТабДок.АвтоМасштаб = Истина;
ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
Табдок.ОтображатьЗаголовки = Ложь;
Табдок.ОтображатьСетку = Ложь;
ТабДок.Показать();