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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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