Программное получение стека вызовов для поиска точек входа

Получение информации о точке входа в процедуру записи справочника.

Описание
Подробнее

Описание

Всем доброго времени суток!

Немного предыстории. На новом месте работы возникла проблема с размножением договоров контрагентов в системе "Бухгалтерия предприятия" (ред. 3.0.134.23). Было известно только то, что договора создаются автоматически при загрузке документов из других систем с использованием внешних обработок.

На мой взгляд было 2 варианта решения задачи: 1. бегать по пользователям и выпытывать что и откуда они грузят, после чего анализировать код во всех используемых обработках; 2. что-нибудь придумать чтобы автоматизировать сбор данных для последующего анализа. Я выбрал второй путь. Логика была следующей:

в справочник добавляем дополнительный строковый реквизит (я его назвал "CreatInfo");
используя в расширении подписку (решил использовать подписку с составным типом источника, т.к. необходимо было организовать данный механизм для нескольких справочников), обрабатываем событие "ПередЗаписью";
при создании нового договора, помимо записи даты и времени формирования, добавляем информацию о точке входа в процедуру.

Вся проблема заключалась в получении точки входа в процедуру, чтобы определить с какой обработки осуществляется формирование договоров. В процессе "загугливания" информации наткнулся на статью: //sale.itcity.ru/1c/articles/1263068/. Автору большое спасибо за идею.

Т.к. явной процедуры получения данных стека нет и доступно только текстовое представление ошибки, в котором будет содержаться информация стека вызовов, сэмулировал через попытку — исключение ошибку, и в "исключении" обработал текст, получив необходимые строки.

Процедура "СправочникиПередЗаписью" вызывается из добавленной в расширение подписки на события.

Процедура СправочникиПередЗаписью(Источник, Отказ) Экспорт
	ТипИсточника = ТипЗнч(Источник);
	Если ТипИсточника = Тип("СправочникОбъект.ДоговорыКонтрагентов") Или
		ТипИсточника = Тип("СправочникОбъект.Контрагенты") Тогда
		
		ДобавитьИнформациюСозданияЭлемента(Источник);
		
	КонецЕсли;
КонецПроцедуры

Процедура ДобавитьИнформациюСозданияЭлемента(Источник)
	Если Не Источник.ЭтоНовый() Тогда
		Возврат;
	КонецЕсли;
	
	Свойство_CreatInfo = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоРеквизиту("Имя", "CreatInfo");
	Если Не ЗначениеЗаполнено(Свойство_CreatInfo) Тогда
		Возврат;
	КонецЕсли;
		
	Попытка
		Ошибка = 1 / 0;
	Исключение
		
		//Отсекаем лишний текст
		ПоследнееМестоВызова	= СтрЗаменить(ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()), "Деление на 0", "");
		ПоследнееМестоВызова	= Сред(ПоследнееМестоВызова, Найти(ПоследнееМестоВызова, ")}:ДобавитьИнформациюСозданияЭлемента(Источник);"), СтрДлина(ПоследнееМестоВызова));		
		ПоследнееМестоВызова	= СокрЛП(СтрЗаменить(ПоследнееМестоВызова, ")}:ДобавитьИнформациюСозданияЭлемента(Источник);", ""));
		
		СтрокаТаблицы			= Источник.ДополнительныеРеквизиты.Добавить();
		СтрокаТаблицы.Свойство	= Свойство_CreatInfo;
		СтрокаТаблицы.Значение	= "Дата создания: '" + Формат(ТекущаяДата(), "ДЛФ=DT") + "'" + Символы.ПС +
									"Пользователь: '" + Пользователи.АвторизованныйПользователь() + "'" + Символы.ПС +
									"Точка входа: '" + ?(ПустаяСтрока(ПоследнееМестоВызова), "Ручное формирование", ПоследнееМестоВызова) + "'";		
		
	КонецПопытки;	
КонецПроцедуры

Т.о. эта небольшая доработка сэкономила кучу времени, позволив четко определить откуда приходила проблема, т.к. в элементах справочника стала отражаться информация о их создании:

Надеюсь, кому-либо пригодится. Всем успехов!

Каталог решений - Программное получение стека вызовов для поиска точек входа