Отчеты по списку сохраненных настроек - обработка, подключаемая к отчету на основе универсального

Зачем это нужно

В стандартной конфигурации УПП множество отчетов, с помощью которых можно досконально исследовать каждый участок учета, но это не мешает бухгалтерам требовать все новых и новых модификаций. На практике часто приходится многократно строить один и тот же отчет по разным сохраненным настройкам, затем копировать результаты в Excell для дальнейшей обработки. Обработка призвана частично упростить эту процедуру.

Как это работает

Вызвать ее можно из меню Действия формы отчета. Кнопка Отчет по разным настройкам (кнопка будет называться так, как вы зададите при регистрации внешней обработки) открывает форму, которая служит для вывода на один лист отчетов из произвольного количества настроек.

Чтобы получить сводный отчет, нужно заполнить таблицу настройками, отчеты по которым собираетесь вывести. Нажать кнопку Сформировать. В итоговом документе отчеты будут располагаться в том же порядке, в котором записаны в таблицу. Сформированный документ будет отображен в новом окне.

Флажок Единый период устанавливает единый период для всех отчетов перечня. Если этот флажок не установлен, каждый отчет использует тот временной интервал, который задан в его настройках.

Созданный перечень можно сохранить, используя кнопку Сохранить настройку в командной панели формы. Рекомендуется давать настройкам вменяемые названия типа: "Баланс и налог на имущество". Впоследствии этот перечень можно восстановить с помощью кнопки Восстановить настройку. Полученный сводный отчет можно выгрузить стандартными средствами (например, в эксель) для последующей обработки. 

С какими отчетами будет работать

Как это реализовано (коды)

Можно воспользоваться готовой обработкой, но гораздо интереснее написать ее самим.

Создаем внешнюю обработку, называем ее "ОтчетПоСпискуСохраненныхНастроек".

Добавляем форму обработки (данные формы ОбработкаОбъект, тип значения ВнешняяОбработка.ОтчетПоСпискуСохраненныхНастроек) с именем "СводОтчетовПоРазнымНастройкам". В форме уже должен присутствовать реквизит ОбработкаОбъект, добавляем реквизиты: 

Размещаем реквизиты и элементы на форме:

В модуль формы пишем обработчики.

Модуль Формы СводОтчетовПоРазнымНастройкам

	 Перем мСтруктураСНастройками; 

	 Перем мТекущаяНастройка ; 

	 Перем мСохраняемыеРеквизиты; 

	 Процедура ПриОткрытии() 

	 УстановитьВидимостьДоступность(); 

	 КонецПроцедуры 

	 Процедура УстановитьВидимостьДоступность() 

	 ПереченьНастроекДляСвода.Колонки.Добавить("Настройка", Новый ОписаниеТипов("Структура")); 

	 ЕдиныйПериод = Истина; 

	 Флажок1ПриИзменении(ЭлементыФормы.Флажок1); 

	 ИнициализацияСохраняемыхНастроек(); 

	 КонецПроцедуры 

	 Процедура Флажок1ПриИзменении(Элемент) 

	 ЭлементыФормы.НачПериода.Доступность = ЕдиныйПериод; 

	 ЭлементыФормы.КонПериода.Доступность = ЕдиныйПериод; 

	 Если ЕдиныйПериод Тогда 

	 ДатаНачала = НачалоГода(ТекущаяДата()); 

	 ДатаОкончания = КонецКвартала(ТекущаяДата()); 

	 Иначе 

	ДатаНачала = Дата(1, 1, 1); 

	 ДатаОкончания = Дата(1, 1, 1); 

	 КонецЕсли; 

	КонецПроцедуры 

	 Процедура КнопкаВыбораПериодаНажатие(Элемент) 

	 НастройкаПериода = Новый НастройкаПериода; 

	 НастройкаПериода.РедактироватьКакПериод = Истина; 

	 НастройкаПериода.УстановитьПериод(ДатаНачала, ?(ДатаОкончания='0001-01-01', ДатаОкончания, КонецДня(ДатаОкончания))); 

	 Если НастройкаПериода.Редактировать() Тогда 

	 ДатаНачала = НастройкаПериода.ПолучитьДатуНачала(); 

	ДатаОкончания = НастройкаПериода.ПолучитьДатуОкончания(); 

	КонецЕсли; 

	КонецПроцедуры 

	Процедура ТабличноеПоле1ПередНачаломДобавления(Элемент, Отказ, Копирование) 

	ФормаУправленияНастройками = РегистрыСведений.СохраненныеНастройки.ПолучитьФорму("ФормаУправленияНастройками"); 

	ФормаУправленияНастройками.мВосстановлениеНастройки = Истина; 

	ФормаУправленияНастройками.мСтруктураНастройки = мСтруктураСНастройками; 

	Результат = ФормаУправленияНастройками.ОткрытьМодально(); 

	Если Результат = Неопределено Тогда Возврат; КонецЕсли; 

	НоваяСтрока = ПереченьНастроекДляСвода.Добавить(); 

	 НоваяСтрока.ИмяНастройки = Результат.НаименованиеНастройки; 

	 НоваяСтрока.Настройка = Результат; 

	 Отказ = Истина; 

	 КонецПроцедуры 

	 Процедура ОсновныеДействияФормыСформировать(Кнопка) 

	 СводныйТабДок = Новый ТабличныйДокумент; 

	 Для каждого ОднаСтрокаТЗ Из ПереченьНастроекДляСвода Цикл 

	 ВывестиНаименованиеНастройкиВТабличныйДокумент(СводныйТабДок, ОднаСтрокаТЗ.ИмяНастройки); 

	 Если ЕдиныйПериод Тогда 

	 ОднаСтрокаТЗ.Настройка.СохраненнаяНастройка.НастройкаПериода.ДатаНачала = ДатаНачала ; 

	 ОднаСтрокаТЗ.Настройка.СохраненнаяНастройка.НастройкаПериода.ДатаОкончания = ДатаОкончания; 

	 Иначе 

	 УниверсальныеМеханизмы.ПолучитьНастройку(ОднаСтрокаТЗ.Настройка); 

	 КонецЕсли; 

	 СводныйТабДок.Вывести(ОтчетПоРазнымНастройкам(ОднаСтрокаТЗ.Настройка, ОтчетОбъект)) ; 

	 КонецЦикла; 

	 ДополнительнаяОбработкаСводногоДокумента(СводныйТабДок ); 

	 РасчетШириныКолонок(СводныйТабДок); 

	 СводныйТабДок.Показать(); 

	 КонецПроцедуры 

	 Процедура ДополнительнаяОбработкаСводногоДокумента(Результат); 

	 // Здесь можно обработать свод отчетов перед выводом на экран 

	 КонецПроцедуры 

	 /////////////////////////////////////////////////////////////////////////// 

	 // ПРОЦЕДУРЫ И ФУНКЦИИ СОХРАНЕНИЯ И ВОССТАНОВЛЕНИЯ НАСТРОЕК формы Перечня// 

	 /////////////////////////////////////////////////////////////////////////// 

	 Процедура ИнициализацияСохраняемыхНастроек() 

	 // Что сохраняем в настройках 

	 мСохраняемыеРеквизиты = Новый Структура; 

	 мСохраняемыеРеквизиты.Вставить("ПереченьНастроекДляСвода"); 

	 мСохраняемыеРеквизиты.Вставить("ЕдиныйПериод"); 

	 мСохраняемыеРеквизиты.Вставить("ДатаНачала"); 

	 мСохраняемыеРеквизиты.Вставить("ДатаОкончания"); 

	 СтруктураНастройки = СоздатьСтруктуруНастройкиПользователя("ПереченьОтчетов." + ОтчетОбъект.Метаданные().Имя); мСтруктураСНастройками = СоздатьСтруктуруНастройкиПользователя("ОтчетОбъект." + ОтчетОбъект.Метаданные().Имя); 

	 Если УниверсальныеМеханизмы.ПолучитьНастройкуИспользоватьПриОткрытии(СтруктураНастройки) Тогда 

	 Если НЕ СтруктураНастройки.Свойство("СохраненнаяНастройка") Тогда Возврат; КонецЕсли; 

	 мТекущаяНастройка = СтруктураНастройки; 

	 ВосстановитьНастройкиИзСтруктуры(СтруктураНастройки.СохраненнаяНастройка); 

	 УстановитьЗаголовокФормы (СтруктураНастройки); 

	 КонецЕсли; 

	 КонецПроцедуры 

	 Процедура УстановитьЗаголовокФормы (СтруктураНастройки) 

	 Если СтруктураНастройки.Свойство("НаименованиеНастройки") Тогда 

	 ЭтаФорма.Заголовок = "Перечень выводимых отчетов" + ": " + СтруктураНастройки.НаименованиеНастройки; 

	 КонецЕсли; 

	 КонецПроцедуры 

	 Функция ВосстановитьНастройки() Экспорт 

	 Перем СохраненнаяНастройка; 

	 СтруктураНастройки = СоздатьСтруктуруНастройкиПользователя("ПереченьОтчетов." + ОтчетОбъект.Метаданные().Имя); 

	 Результат = УниверсальныеМеханизмы.ВосстановлениеНастроек(СтруктураНастройки); 

	 Если Результат <> Неопределено Тогда 

	 мТекущаяНастройка = Результат; 

	 ВосстановитьНастройкиИзСтруктуры(Результат.СохраненнаяНастройка); 

	 УстановитьЗаголовокФормы (Результат); 

	 Иначе 

	 мТекущаяНастройка = СтруктураНастройки; 

	 КонецЕсли; 

	 КонецФункции // ВосстановитьНастройки() 

	 Функция СоздатьСтруктуруНастройкиПользователя(ИмяОбъекта) 

	 СтруктураНастройки = Новый Структура; 

	 СтруктураНастройки.Вставить("Пользователь", глЗначениеПеременной("глТекущийПользователь")); 

	 СтруктураНастройки.Вставить("ИмяОбъекта", ИмяОбъекта); 

	 СтруктураНастройки.Вставить("НаименованиеНастройки", ?(мТекущаяНастройка = Неопределено, Неопределено, мТекущаяНастройка.НаименованиеНастройки)); 

	 Возврат СтруктураНастройки; 

	 КонецФункции 

	 Процедура СохранитьНастройки() Экспорт 

	 Перем СохраненнаяНастройка; 

	 СформироватьСтруктуруДляСохраненияНастроек(СохраненнаяНастройка); 

	 СтруктураНастройки = СоздатьСтруктуруНастройкиПользователя("ПереченьОтчетов." + ОтчетОбъект.Метаданные().Имя); 

	 СтруктураНастройки.Вставить("СохраненнаяНастройка", СохраненнаяНастройка); 

	 СтруктураНастройки.Вставить("ИспользоватьПриОткрытии", Истина); 

	 СтруктураНастройки.Вставить("СохранятьАвтоматически", Истина); 

	 Результат = УниверсальныеМеханизмы.СохранениеНастроек(СтруктураНастройки); 

	 Если Результат <> Неопределено Тогда 

	 мТекущаяНастройка = Результат; 

	 Иначе 

	 мТекущаяНастройка = СтруктураНастройки; 

	 КонецЕсли; 

	 КонецПроцедуры // СохранитьНастройки() 

	 Процедура СформироватьСтруктуруДляСохраненияНастроек(СтруктураСНастройками) Экспорт 

	 Если ТипЗнч(СтруктураСНастройками) <> Тип("Структура") Тогда 

	 СтруктураСНастройками = Новый Структура; 

	 КонецЕсли; 

	 Для каждого ОдинРеквизит Из мСохраняемыеРеквизиты Цикл 

	 СтруктураСНастройками.Вставить(ОдинРеквизит.Ключ, ЭтаФорма[ОдинРеквизит.Ключ]); 

	 КонецЦикла; 

	 КонецПроцедуры // СформироватьСтруктуруДляСохраненияНастроек() 

	 Функция ВосстановитьНастройкиИзСтруктуры(СтруктураСНастройками) Экспорт 

	 Если ТипЗнч(СтруктураСНастройками) <> Тип("Структура") Тогда 

	 Возврат Ложь; 

	 КонецЕсли; 

	 Для каждого ОдинРеквизит Из мСохраняемыеРеквизиты Цикл 

	 СтруктураСНастройками.Свойство(ОдинРеквизит.Ключ, ЭтаФорма[ОдинРеквизит.Ключ]); 

	 КонецЦикла; 

	 Возврат Истина; 

	 КонецФункции // ВосстановитьНастройкиИзСтруктуры() 

	 Процедура ДействияФормыСохранитьНастройку(Кнопка) 

	 СохранитьНастройки(); 

	 КонецПроцедуры 

	 Процедура ДействияФормыВосстановитьНастройку(Кнопка) 

	 ВосстановитьНастройки(); 

	 Если НЕ мТекущаяНастройка.Свойство("СохраненнаяНастройка") Тогда Возврат; КонецЕсли; 

	 Для каждого ОднаНастройка Из мТекущаяНастройка.СохраненнаяНастройка Цикл 

	 ЭтаФорма[ОднаНастройка.Ключ] = ОднаНастройка.Значение; 

	 КонецЦикла; 

	 КонецПроцедуры 

	 //////////////////////////////////////////////////////////////

Пишем модуль объекта.

Модуль объекта

	 Процедура Инициализировать() Экспорт 

	 УниверсальныйОтчет = ДополнительныеПараметры.Отчет.УниверсальныйОтчет; 

	 ФормаПеречняНастроек = ЭтотОбъект.ПолучитьФорму("СводОтчетовПоРазнымНастройкам", ДополнительныеПараметры.Отчет.ПолучитьФорму("Форма")); 

	 ФормаПеречняНастроек.ЗакрыватьПриЗакрытииВладельца = Истина; 

	 ФормаПеречняНастроек.ОтчетОбъект = ДополнительныеПараметры.Отчет; 

	 ФормаПеречняНастроек.Открыть(); 

	КонецПроцедуры 

	Функция ОтчетПоРазнымНастройкам(СтруктураСНастройками, ОтчетОбъект) Экспорт 

	 ВременныйТабДок = Новый ТабличныйДокумент; 

	 УправлениеОтчетами.ВосстановитьРеквизитыОтчета(ЭтотОбъект, СтруктураСНастройками.СохраненнаяНастройка); 

	 УниверсальныйОтчет.ВосстановитьНастройкиИзСтруктуры(СтруктураСНастройками.СохраненнаяНастройка, ОтчетОбъект); 

	 УниверсальныйОтчет.СформироватьОтчет(ВременныйТабДок,,, ОтчетОбъект); 

	 Возврат ВременныйТабДок; 

	КонецФункции 

	Процедура ВывестиНаименованиеНастройкиВТабличныйДокумент(ТабДокКудаВыводим, ВставляемыйТекст) Экспорт 

	 НомерТекущейСтроки = ТабДокКудаВыводим.ВысотаТаблицы + 1; 

	 НомерКолонки = 1; 

	 ЯчейкаЦель = ТабДокКудаВыводим.Область(НомерТекущейСтроки, НомерКолонки, НомерТекущейСтроки, НомерКолонки); 

	 ЯчейкаЦель.Текст = ВставляемыйТекст; 

	 ЖирныйШрифт = Новый Шрифт(ЯчейкаЦель.Шрифт,,,Истина); 

	 ЯчейкаЦель.Шрифт = ЖирныйШрифт; 

	КонецПроцедуры