Оперативная доработка отчетов без обновления конфигурации или расширения

12.05.19

Разработка - Механизмы платформы 1С

В статье рассматривается вариант оперативной доработки отчетов при помощи механизма дополнительных отчетов и обработок и небольшой модификации конфигурации.

Многие сталкиваются с проблемой, что тот или иной разрабатываемый отчет нужно срочно переделать под новые требования или исправить ошибки при формировании. Для этого нужно внести правки в конфигурацию (расширение) и обновить ее, а это не всегда возможно, когда с базой работает большое число пользователей. Вдохновившись статьями: //infostart.ru/public/169131/ и //infostart.ru/public/16980/ решил сделать следующий механизм.

Данный механизм применим ко всем типовым конфигурациям на осонове БСП.

Без правки конфигурации здесь дело не обошлось, но 

  • 1. Правки минимальны: в конфигурацию добавляются 3 элемента: общая форма, подписка на событие, общий модуль.
  • 2. Функционал можно переложить в расширение ( в случае, если конфигурация на поддержке)

Создаем подписку на событие "ОбработкаПолученияФормы" для источника "ОтчетМенеджер".

Создаем обработчик в общем модуле:


Процедура ОперативнаяДоработкаОтчетовОбработкаПолученияФормы(Источник, ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка) Экспорт
	
	ИмяОтчета = СтрЗаменить(Строка(Источник),"ОтчетМенеджер.","");
	
	ДопОтчет = Справочники.ДополнительныеОтчетыИОбработки.НайтиПоНаименованию("ДопОтчет_" + ИмяОтчета, Истина);
	Если ЗначениеЗаполнено(ДопОтчет) Тогда
		
		Попытка
			ВерсияОтчета = Отчеты[ИмяОтчета].СоздатьОбъект().ПолучитьВерсиюОтчета();
		Исключение
			ВерсияОтчета = "0.0";
		КонецПопытки;
		
		Если ДопОтчет.Версия <> ВерсияОтчета Тогда
			СтандартнаяОбработка = Ложь;
			ИмяВнешнегоОтчета = ДополнительныеОтчетыИОбработки.ПодключитьВнешнююОбработку(ДопОтчет);
			ВыбраннаяФорма = "ОбщаяФорма.ФормаОткрытияДополнительныхОтчетов";
			Параметры.Вставить("ИмяВнешнегоОтчета", ИмяВнешнегоОтчета);
		КонецЕсли;
		
	КонецЕсли;
	
КонецПроцедуры

В обработчике события ищем дополнительный отчет в справочнике "ДополнительныеОтчетыИОбработки"по имени отчета с префиксом "ДопОтчет_". В экспортной процедуре "ПолучитьВерсиюОтчета", если она существует, получаем последнюю версию отчета и сравниваем ее с версией дополнительного отчета. Если они различны, подключаем его и открываем общую форму, с ключевым параметром "ИмяВнешнегоОтчета".

В которую передаем имя подключенного отчета, открываем его и закрываем общую форму.

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	
	Закрыть();
	Если Параметры.ИмяВнешнегоОтчета = "" Тогда
		Предупреждение("Отчет не найден, обратитесь к администратору");
	Иначе
		ОткрытьФорму("ВнешнийОтчет." + Параметры.ИмяВнешнегоОтчета + ".Форма");
	КонецЕсли;
	
КонецПроцедуры

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

Функция СведенияОВнешнейОбработке() Экспорт

    РегистрационныеДанные = Новый Структура;
    РегистрационныеДанные.Вставить("Наименование",		"ДопОтчет_" + ПолучитьИмяВнешнейОбработки());
    РегистрационныеДанные.Вставить("БезопасныйРежим",		Ложь);
    РегистрационныеДанные.Вставить("Вид",			"ДополнительныйОтчет");
    РегистрационныеДанные.Вставить("Версия",			ПолучитьВерсиюОбъекта());
    РегистрационныеДанные.Вставить("Информация",		ПолучитьИмяВнешнейОбработки());
    
    ///////////// Команды /////////////////////////
    тзКоманд = Новый ТаблицаЗначений;
    тзКоманд.Колонки.Добавить("Идентификатор",			Новый ОписаниеТипов("Строка"));
    тзКоманд.Колонки.Добавить("Представление",			Новый ОписаниеТипов("Строка"));
    тзКоманд.Колонки.Добавить("Модификатор",			Новый ОписаниеТипов("Строка"));
    тзКоманд.Колонки.Добавить("ПоказыватьОповещение",		Новый ОписаниеТипов("Булево"));
    тзКоманд.Колонки.Добавить("Использование",			Новый ОписаниеТипов("Строка"));
    
    РегистрационныеДанные.Вставить("Команды", тзКоманд);
    
    Возврат РегистрационныеДанные;

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

Функция ПолучитьВерсиюОбъекта() Экспорт
	Возврат "1.1";
КонецФункции

Функция ПолучитьИмяВнешнейОбработки()
	Возврат "ИмяВнешнейОбработки";	
КонецФункции

Важно! Данный метод работает при условии открытия стандартных форм объекта. Например, "ОткрытьФорму("Отчет.ИмяОтчета.ФормаОбъекта", ""ОткрытьФорму("Отчет.ИмяОтчета.ФормаВарианта", ""ОткрытьФорму("Отчет.ИмяОтчета.ФормаНастроек". Если открывать конкретную форму "ОткрытьФорму("Отчет.ИмяОтчета.Форма.ФормаНеосновная")", тогда обработчик срабатывать не будет.

Так же, в виду отсутствия в дополнительной обработке модуля менеджера заменить или дополнить процедуры менеджера оперативно не получится.

Спасибо за внимание!

P. S.: Отдельное спасибо за помощь "SlavaKron" в решении проблемы открытия формы дополнительного отчета в теме на форуме https://forum.infostart.ru/forum9/topic217101/

Жду конструктивной критики.

Вступайте в нашу телеграмм-группу Инфостарт

См. также

Механизмы платформы 1С Программист Бесплатно (free)

Разберем 15 мифов о работе платформы «1С:Предприятие 8» – как распространенных, так и малоизвестных. Начнем с классики: «Код, написанный в одну строку, работает быстрее, чем многострочный». Так ли это на самом деле?

16.07.2025    29195    TitanLuchs    106    

148

Механизмы платформы 1С Работа с интерфейсом Программист Стажер 1С:Предприятие 8 Бесплатно (free)

Про ООП в 1С и о том, как сделать свой код более кратким и выразительным при помощи использования текучего интерфейса (fluent interface).

03.02.2025    15941    bayselonarrend    127    

68

Механизмы платформы 1С Программист 1С:Предприятие 8 Бесплатно (free)

В этой статье подробно рассматривается работа с JSON в XDTO в 1С:Предприятие. Вы узнаете, как сериализовать и десериализовать объекты XDTO в JSON, интегрировать 1С с веб-сервисами и API, а также корректно обрабатывать данные при обмене. Разбираются особенности работы с коллекциями, использование функций восстановления и частые ошибки при работе с JSON и XDTO.

30.01.2025    18687    user2122906    9    

64

Механизмы платформы 1С WEB-интеграция Программист 1С:Предприятие 8 Бесплатно (free)

В платформе 8.3.27 появилась возможность использовать WebSocket-клиент. Давайте посмотрим, как это все устроено и чем оно нам полезно.

14.01.2025    29507    dsdred    92    

146

Механизмы платформы 1С Программист Стажер 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Эта небольшая статья - некоторого рода шпаргалка по файловым потокам: как и зачем с ними работать, какие преимущества это дает.

23.06.2024    26545    bayselonarrend    22    

175

Механизмы платформы 1С Программист Стажер 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Пример использования «Сервисов интеграции» без подключения к Шине и без обменов.

13.03.2024    14354    dsdred    22    

85
Для отправки сообщения требуется регистрация/авторизация