Dev ›
Подсистема "Инструменты разработчика" v7.13.2 ›
#524
11.06.10 17:43
Предложение - в поиск ссылок на объект вывести дополнительный функционал.
Я виртуальный план обмена с выходом на эту обработку в целевой конфигурации добавил как ввод на основании для всех справочников, документов, ПВХ...
Но кроме ссылок мне иногда нужно отредактировать через универсальный редактор, получить ссылку для применения в алгоритмах.
Добавил вызов универсального редактора реквизитов с этой обработки, сразу с отбором по объекту. Тогда переходами по меню можно перейти к редактору реквизитов. Правда отключил автоматический поиск при открытии.
Также добавил код получения ссылки для применения в алгоритмах:
Процедура ДействияФормыПоказатьСсылку(Кнопка)
Если Метаданные.Справочники.Содержит(Объект.Метаданные()) Тогда
Если Объект.Предопределенный Тогда
Сообщить("Справочники." + Объект.Метаданные().Имя + "." + Справочники[Объект.Метаданные().Имя].ПолучитьИмяПредопределенного(Объект));
Иначе
Сообщить("Справочники." + Объект.Метаданные().Имя + ".ПолучитьСсылку(Новый УникальныйИдентификатор(""" + Объект.УникальныйИдентификатор() + """))");
КонецЕсли;
ИначеЕсли Метаданные.Документы.Содержит(Объект.Метаданные()) Тогда
Сообщить("Документы." + Объект.Метаданные().Имя + ".ПолучитьСсылку(Новый УникальныйИдентификатор(""" + Объект.УникальныйИдентификатор() + """))");
ИначеЕсли Метаданные.ПланыВидовХарактеристик.Содержит(Объект.Метаданные()) Тогда
Если Объект.Предопределенный Тогда
Сообщить("ПланыВидовХарактеристик." + Объект.Метаданные().Имя + "." + ПланыВидовХарактеристик[Объект.Метаданные().Имя].ПолучитьИмяПредопределенного(Объект));
Иначе
Сообщить("ПланыВидовХарактеристик." + Объект.Метаданные().Имя + ".ПолучитьСсылку(Новый УникальныйИдентификатор(""" + Объект.УникальныйИдентификатор() + """))");
КонецЕсли;
ИначеЕсли Метаданные.ПланыСчетов.Содержит(Объект.Метаданные()) Тогда
Если Объект.Предопределенный Тогда
Сообщить("ПланыСчетов." + Объект.Метаданные().Имя + "." + ПланыСчетов[Объект.Метаданные().Имя].ПолучитьИмяПредопределенного(Объект));
Иначе
Сообщить("ПланыСчетов." + Объект.Метаданные().Имя + ".ПолучитьСсылку(Новый УникальныйИдентификатор(""" + Объект.УникальныйИдентификатор() + """))");
КонецЕсли;
ИначеЕсли Метаданные.ПланыВидовРасчета.Содержит(Объект.Метаданные()) Тогда
Если Объект.Предопределенный Тогда
Сообщить("ПланыВидовРасчета." + Объект.Метаданные().Имя + "." + ПланыВидовРасчета[Объект.Метаданные().Имя].ПолучитьИмяПредопределенного(Объект));
Иначе
Сообщить("ПланыВидовРасчета." + Объект.Метаданные().Имя + ".ПолучитьСсылку(Новый УникальныйИдентификатор(""" + Объект.УникальныйИдентификатор() + """))");
КонецЕсли;
КонецЕсли;
КонецПроцедуры