() milka12371, Необходимо в модуле объекта, в процедуре "СформироватьОтчет" Заменить:
ОбластьМакета = Макет.ПолучитьОбласть("Строка");
ОбластьМакетаСчет = Макет.ПолучитьОбласть("Счет");
ОбластьМакетаШапка = Макет.ПолучитьОбласть("Шапка");
ВыборкаДетальныеЗаписи = Результат.Выбрать();
ПредСчет = "";
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если ПредСчет<>ВыборкаДетальныеЗаписи.Счет Тогда
ОбластьМакетаСчет.Параметры.Счет = ВыборкаДетальныеЗаписи.Счет.Код+": "+ВыборкаДетальныеЗаписи.Счет.Наименование;
ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
ТабличныйДокумент.Вывести(ОбластьМакетаШапка);
ТабличныйДокумент.Вывести(ОбластьМакетаСчет);
КонецЕсли;
Показать
на:
ОбластьМакета = Макет.ПолучитьОбласть("Строка");
ОбластьМакетаСчет = Макет.ПолучитьОбласть("Счет");
ОбластьМакетаШапка = Макет.ПолучитьОбласть("Шапка");
ТабличныйДокумент.Вывести(ОбластьМакетаШапка);
ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
ПредСчет = "";
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если ПредСчет<>ВыборкаДетальныеЗаписи.Счет Тогда
ОбластьМакетаСчет.Параметры.Счет = ВыборкаДетальныеЗаписи.Счет.Код+": "+ВыборкаДетальныеЗаписи.Счет.Наименование;
ТабличныйДокумент.Вывести(ОбластьМакетаСчет);
КонецЕсли;
Показать