Каталог решений - Конвертация данных. Удобная навигация (Открыть алгоритм или запрос) v0.5

При анализе ПКО и ПВД часто возникает необходимость открыть используемый в правилах алгоритм, для чего необходимо перейти на вкладку "Алгоритмы" и найти его.

Список реализуемых действий:

• Открыть алгоритм
• Открыть запрос
• Открыть ПКО
• Можно еще что-то напридумывать, предлагаю обсудить и сделать удобную навигацию между объектами.

Доработка модуля форм элемента "ПКО" и "ПВД", после последней процедуры добавить:

Функция ПолучитьВыделенныйТекст()
	Возврат ЭлементыФормы[ЭлементыФормы.ПанельАлгоритмы.ТекущаяСтраница.Имя].ВыделенныйТекст;	
КонецФункции

Процедура Действие_ОткрытьАлгоритм(Кнопка)
	Справочники.Алгоритмы.НайтиПоКоду(ПолучитьВыделенныйТекст(),,,СправочникОбъект.Владелец).ПолучитьФорму().Открыть();
КонецПроцедуры

Процедура Действие_ОткрытьЗапрос(Кнопка)
	Справочники.Запросы.НайтиПоКоду(ПолучитьВыделенныйТекст(),,,СправочникОбъект.Владелец).ПолучитьФорму().Открыть();
КонецПроцедуры

Процедура Действие_ОткрытьПКО(Кнопка)
	Справочники.ПравилаКонвертацииОбъектов.НайтиПоКоду(ПолучитьВыделенныйТекст(),,,СправочникОбъект.Владелец).ПолучитьФорму().Открыть();
КонецПроцедуры

КомПанель = ЭлементыФормы.Добавить(Тип("КоманднаяПанель"),"ПанельОткрытьАлгоритм",Ложь,ЭлементыФормы.ПанельАлгоритмы);
Для каждого СтраницаАлгоритмы Из ЭлементыФормы.ПанельАлгоритмы.Страницы Цикл
	ТабПоле = ЭлементыФормы[СтраницаАлгоритмы.Имя];
	Если Ложь Тогда ТабПоле = ЭлементыФормы.АлгоритмПередОбработкойПравила; КонецЕсли;
	ТабПоле.КонтекстноеМеню = КомПанель; 	
КонецЦикла;

КомПанель.Кнопки.Добавить("КомандаОткрытьАлгоритм",ТипКнопкиКоманднойПанели.Действие,"Открыть алгоритм",
Новый Действие("Действие_ОткрытьАлгоритм"));

КомПанель.Кнопки.Добавить("КомандаОткрытьЗапрос",ТипКнопкиКоманднойПанели.Действие,"Открыть запрос",
Новый Действие("Действие_ОткрытьЗапрос"));

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

Доработка модуля форм элемента "Алгоритмы", после последней процедуры добавить:

Функция ПолучитьВыделенныйТекст()
	Возврат ЭлементыФормы.Алгоритм.ВыделенныйТекст	
КонецФункции

Процедура Действие_ОткрытьАлгоритм(Кнопка)
	Справочники.Алгоритмы.НайтиПоКоду(ПолучитьВыделенныйТекст(),,,СправочникОбъект.Владелец).ПолучитьФорму().Открыть();
КонецПроцедуры

Процедура Действие_ОткрытьЗапрос(Кнопка)
	Справочники.Запросы.НайтиПоКоду(ПолучитьВыделенныйТекст(),,,СправочникОбъект.Владелец).ПолучитьФорму().Открыть();
КонецПроцедуры

Процедура Действие_ОткрытьПКО(Кнопка)
	Справочники.ПравилаКонвертацииОбъектов.НайтиПоКоду(ПолучитьВыделенныйТекст(),,,СправочникОбъект.Владелец).ПолучитьФорму().Открыть();
КонецПроцедуры

КомПанель = ЭлементыФормы.Добавить(Тип("КоманднаяПанель"),"ПанельОткрытьАлгоритм",Ложь);
ТабПоле = ЭлементыФормы.Алгоритм;
ТабПоле.КонтекстноеМеню = КомПанель;

КомПанель.Кнопки.Добавить("КомандаОткрытьАлгоритм",ТипКнопкиКоманднойПанели.Действие,"Открыть алгоритм",
Новый Действие("Действие_ОткрытьАлгоритм"));
КомПанель.Кнопки.Добавить("КомандаОткрытьЗапрос",ТипКнопкиКоманднойПанели.Действие,"Открыть запрос",
Новый Действие("Действие_ОткрытьЗапрос"));
КомПанель.Кнопки.Добавить("КомандаОткрытьПКО",ТипКнопкиКоманднойПанели.Действие,"Открыть ПКО",
Новый Действие("Действие_ОткрытьПКО"));