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

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С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

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

13.03.2024    2562    dsdred    16    

59

Поинтегрируем: сервисы интеграции – новый стандарт или просто коннектор?

Обмен между базами 1C Администрирование СУБД Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

В платформе 8.3.17 появился замечательный механизм «Сервисы интеграции». Многие считают, что это просто коннектор 1С:Шины. Так ли это?

11.03.2024    5900    dsdred    53    

83

Как готовить и есть массивы

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

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

24.01.2024    5848    YA_418728146    25    

68

Планы обмена VS История данных

Обмен между базами 1C Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Вы все еще регистрируете изменения только на Планах обмена и Регистрах сведений?

11.12.2023    6965    dsdred    36    

113

1С-ная магия

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

Язык программирования 1С содержит много нюансов и особенностей, которые могут приводить к неожиданным для разработчика результатам. Сталкиваясь с ними, программист начинает лучше понимать логику платформы, а значит, быстрее выявлять ошибки и видеть потенциальные узкие места своего кода там, где позже можно было бы ещё долго медитировать с отладчиком в поисках источника проблемы. Мы рассмотрим разные примеры поведения кода 1С. Разберём результаты выполнения и ответим на вопросы «Почему?», «Как же так?» и «Зачем нам это знать?». 

06.10.2023    19054    SeiOkami    46    

118

Дефрагментация и реиндексация после перехода на платформу 8.3.22

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

Начиная с версии платформы 8.3.22 1С снимает стандартные блокировки БД на уровне страниц. Делаем рабочий скрипт, как раньше.

14.09.2023    12769    human_new    27    

76

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    9390    YA_418728146    6    

143

Внешние компоненты Native API на языке Rust - Просто!

Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Внешние компоненты для 1С можно разработывать очень просто, пользуясь всеми преимуществами языка Rust - от безопасности и кроссплатформенности до удобного менеджера библиотек.

20.08.2023    6527    sebekerga    54    

95
Оставьте свое сообщение