Автоматическая регистрация внешнего отчета или обработки для управляемых форм

Создаем две формы.

1. ОбновитьОбработку

2. ФормаОбработки

Основной выставляем - первую.

Код для процедуры при открытии:

&НаСервере
Процедура ПриОткрытииНаСервере()
	ОтчетОбъект = РеквизитФормыВЗначение("Объект");
	ПутьКФайлу = Новый ДвоичныеДанные( ОтчетОбъект.ИспользуемоеИмяФайла );
	Адрес = ПоместитьВоВременноеХранилище(ПутьКФайлу, ЭтаФорма.УникальныйИдентификатор);
	ОтчетОбъект.ОбновитьВрешнююОбработку( Адрес, ПутьКФайлу );
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	ПриОткрытииНаСервере();
	Отказ	= Истина;
	ОткрытьФорму("ВнешняяОбработка.АвтоРегистрацияОбработки.Форма.ФормаОбработки");
КонецПроцедуры

В модуле объекта пишем:

Перем	мВерсия;
Перем	мНаименованиеОбр;


Функция СведенияОВнешнейОбработке() Экспорт
	
	ДанныеДляРег = Новый Структура();
	ДанныеДляРег.Вставить("Наименование", мНаименованиеОбр);
	ДанныеДляРег.Вставить("БезопасныйРежим", Ложь);
	ДанныеДляРег.Вставить("Версия", мВерсия);
	ДанныеДляРег.Вставить("Информация", мНаименованиеОбр);
	
	ДанныеДляРег.Вставить("Вид", "ДополнительнаяОбработка");
	
	ТабЗнКоманды = Новый ТаблицаЗначений;
	ТабЗнКоманды.Колонки.Добавить("Идентификатор");
	ТабЗнКоманды.Колонки.Добавить("Использование");
	ТабЗнКоманды.Колонки.Добавить("Представление");
	
	НовСтрока = ТабЗнКоманды.Добавить();
	НовСтрока.Идентификатор = "ОткрытьОбработку";
	НовСтрока.Использование = "ОткрытиеФормы";
	НовСтрока.Представление = "Открыть обработку";
	ДанныеДляРег.Вставить("Команды", ТабЗнКоманды);
	
	Возврат ДанныеДляРег;
	
КонецФункции


&НаСервере
Процедура ОбновитьВрешнююОбработку( Адрес, ПутьКФайлу ) Экспорт
	
	ИмяФайла	= Новый Файл(ПутьКФайлу);
	ИмяФайла	= ИмяФайла.Имя;
	СведенияОбр	= СведенияОВнешнейОбработке();
	
	//Наищем нужный нам раздел
	ИспользуемыеРазделы = Новый Массив;
	//Если ВидОбр	= Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительнаяОбработка Тогда
		ИспользуемыеРазделы = ДополнительныеОтчетыИОбработки.РазделыДополнительныхОбработок();
	//Иначе
	//	ИспользуемыеРазделы = ДополнительныеОтчетыИОбработки.РазделыДополнительныхОтчетов();
	//КонецЕсли;
	
	РабочийСтол = ДополнительныеОтчетыИОбработкиКлиентСервер.ИмяНачальнойСтраницы();
	Раздел = Справочники.ИдентификаторыОбъектовМетаданных.ПустаяСсылка();
	Для Каждого Раздел Из ИспользуемыеРазделы Цикл
		ПредстРаздела 	= ДополнительныеОтчетыИОбработки.ПредставлениеРаздела(	Раздел	);
		Если ПредстРаздела = "Руководителю" ТОгда
			Раздел = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(Раздел);
			Прервать;
		КонецЕсли;
	КонецЦикла;
	
	
	СпрВО	=	Справочники.ДополнительныеОтчетыИОбработки.НайтиПоНаименованию( мНаименованиеОбр );
	
	Если СпрВО.Пустая()	Тогда
		СпрВО_О	= Справочники.ДополнительныеОтчетыИОбработки.СоздатьЭлемент();
		СпрВО_О.Наименование	= мНаименованиеОбр;
		СпрВО_О.БезопасныйРежим	= Ложь;
		СпрВО_О.Версия			= мВерсия;
		СпрВО_О.Вид				= Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительнаяОбработка;
		СпрВО_О.ИмяОбъекта		= ЭтотОбъект.Метаданные().ПолноеИмя();
		СпрВО_О.ИмяФайла		= ЭтотОбъект.ИспользуемоеИмяФайла; // "SendMessage.epf";
		СпрВО_О.Информация		= мНаименованиеОбр;
		СпрВО_О.ИспользоватьДляФормыОбъекта	= Истина;
		СпрВО_О.ИспользоватьДляФормыСписка	= Истина;
		СпрВО_О.Ответственный	= ПараметрыСеанса.ТекущийПользователь;
		СпрВО_О.Публикация		= Истина;
		СпрВО_О.РежимСовместимостиРазрешений	= Перечисления.РежимыСовместимостиРазрешенийДополнительныхОтчетовИОбработок.Версия_2_1_3;
		
		СпрВО_О.ОбменДанными.Загрузка	= Истина;
		СпрВО_О.Записать();
	Иначе
			СпрВО_О	= СпрВО.ПолучитьОбъект();
			Если 	СпрВО.Версия < мВерсия Тогда
				Возврат;
		КонецЕсли;
	КонецЕсли;
	
	ДвоичныеДанные = ПолучитьИзВременногоХранилища( Адрес );
	//ВремФайл	= ПолучитьИмяВременногоФайла("tmp");
	//ДвоичныеДанные.Записать( ВремФайл );	
	ХранилищеОбр				= Новый ХранилищеЗначения( ДвоичныеДанные );
	СпрВО_О.ХранилищеОбработки	= ХранилищеОбр;
	
	//Добавим раздел доступа для каждой команды - Руководителю
	СпрВО_О.Команды.Очистить();
	Для Каждого ИнфОбОбр	из СведенияОбр.Команды Цикл
		//Добавим команды
		Ком		= СпрВО_О.Команды.Добавить();
		Ком.Идентификатор	= ИнфОбОбр.Идентификатор;
		Ком.ВариантЗапуска	= Перечисления.СпособыВызоваДополнительныхОбработок[ИнфОбОбр.Использование];
		Ком.Представление	= ИнфОбОбр.Представление;
		Ком.ПоказыватьОповещение	= Ложь;
		
		
		//Добавим раздел доступа  - Руководителю
		РегДоступа = РегистрыСведений.ПользовательскиеНастройкиДоступаКОбработкам;
		НаборДост = РегДоступа.СоздатьНаборЗаписей();
		
		НаборДост.Отбор.ДополнительныйОтчетИлиОбработка.Установить(СпрВО_О.Ссылка);
		НаборДост.Отбор.ИдентификаторКоманды.Установить( ИнфОбОбр.Идентификатор );
		НаборДост.Отбор.Пользователь.Установить( ПараметрыСеанса.ТекущийПользователь );
		НаборДост.Прочитать();
		
		Если НаборДост.Количество() = 0 Тогда
			ДовыйДоступ = НаборДост.Добавить();
		ИначеЕсли НаборДост.Количество() = 1 Тогда
			ДовыйДоступ = НаборДост[0];
		КонецЕсли;
		ДовыйДоступ.ДополнительныйОтчетИлиОбработка		= СпрВО_О.Ссылка;
		ДовыйДоступ.ИдентификаторКоманды				= ИнфОбОбр.Идентификатор ;
		ДовыйДоступ.Пользователь						= ПараметрыСеанса.ТекущийПользователь;
		ДовыйДоступ.Доступно							= Истина;
		НаборДост.Записать();   	
		
	КонецЦикла;
	СпрВО_О.ОбменДанными.Загрузка	= Истина;
	СпрВО_О.Записать();
	
КонецПроцедуры



мВерсия				= "1.1";
мНаименованиеОбр	= "Авто регистрация обработки";