Авторегистрация обработок заполнения табличных частей и внешних печатных форм в информационной базе + Видео-пример использования шаблона - создание внешней печатной формы самостоятельно + Универсальный отчет СКД (набор отчетов в одном с группировками уров

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
	СтандартнаяОбработка = Ложь;
	Отказ = Истина;
	Если Метаданные.Имя <> "БухгалтерияПредприятия" И Метаданные.Имя <> "БухгалтерияПредприятияБазовая"   Тогда
		Предупреждение("Данная печатная форма предназначена для документов ""Акт об оказании производственных услуг"" 
						|и ""Реализация товаров и услуг"" конфигураций ""Бухгалтерия предприятия"" и ""Бухгалтерия предприятия базовая""!
						|Регистрация обработки не проведена!");
		Возврат;
	КонецЕсли;
	Если НЕ ПравоДоступа("Изменение",Метаданные.Справочники.ВнешниеОбработки) Тогда
		Предупреждение("У Вас недостаточно прав доступа для регистрации обработки в информационной базе! Обратитесь к пользователю с административными правами!");
		Возврат;
	КонецЕсли;
	Эл = Справочники.ВнешниеОбработки.НайтиПоНаименованию(ЭтотОбъект.Метаданные().Синоним);
	Режим = "";
	Если Эл = Справочники.ВнешниеОбработки.ПустаяСсылка() Тогда
		Режим = "Создать";
	Иначе
		Если Вопрос("В информационной базе уже зарегистрирована такая обработка. Обновить существующую?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Да Тогда
			Режим = "Обновить";
		КонецЕсли;
	КонецЕсли; 	
	Если Режим = "" Тогда
		Возврат;
	КонецЕсли;
	Если Режим = "Создать" Тогда
		ЭлСпрВнОбр = Справочники.ВнешниеОбработки.СоздатьЭлемент();
	КонецЕсли;	
	Если Режим = "Обновить" Тогда 
		ЭлСпрВнОбр = Эл.ПолучитьОбъект();
	КонецЕсли;
	ЭлСпрВнОбр.ВидОбработки = Перечисления.ВидыДополнительныхВнешнихОбработок.ПечатнаяФорма;
	ЭлСпрВнОбр.Наименование = ЭтотОбъект.Метаданные().Синоним;
	ЭлСпрВнОбр.ХранилищеВнешнейОбработки = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ИспользуемоеИмяФайла));
	ЭлСпрВнОбр.Принадлежность.Очистить();
	Прин = ЭлСпрВнОбр.Принадлежность.Добавить();
	Прин.СсылкаОбъекта = Документы["РеализацияТоваровУслуг"].ПустаяСсылка();
	Прин.ПредставлениеКнопки = ЭтотОбъект.Метаданные().Синоним;
	Прин.ПредставлениеОбъекта = "Документ """ + Метаданные.Документы["РеализацияТоваровУслуг"].Синоним+"""";
	Прин = ЭлСпрВнОбр.Принадлежность.Добавить();
	Прин.СсылкаОбъекта = Документы["АктОбОказанииПроизводственныхУслуг"].ПустаяСсылка();
	Прин.ПредставлениеКнопки = ЭтотОбъект.Метаданные().Синоним;
	Прин.ПредставлениеОбъекта = "Документ """ + Метаданные.Документы["АктОбОказанииПроизводственныхУслуг"].Синоним+"""";
	//СтруктураПараметров = Новый Структура("Номер", Истина);
	//Прин.ДополнительныеПараметрыОбработки = Новый ХранилищеЗначения(СтруктураПараметров);
	ЭлСпрВнОбр.Записать();
	Предупреждение("Внешняя печатная форма документов ""Реализация товаров и услуг"" 
					|и  ""Акт об оказании производственных услуг"" 
					|зарегистрирована в справочнике ""Внешние обработки""",10);
	Справочники.ВнешниеОбработки.ПолучитьФормуСписка().Открыть();
	Если НЕ ПравоДоступа("Просмотр",Метаданные.Документы.РеализацияТоваровУслуг) Тогда
		Предупреждение("У Вас недостаточно прав доступа просмотра документов ""Реализация товаров и услуг""!",10);
	Иначе
		Док = Документы.РеализацияТоваровУслуг.Выбрать(,,,"Дата Убыв");
		Если Док.Следующий() Тогда
			Док.Ссылка.ПолучитьФорму().Открыть();
		КонецЕсли;
	КонецЕсли;
	Если НЕ ПравоДоступа("Просмотр",Метаданные.Документы.АктОбОказанииПроизводственныхУслуг) Тогда
		Предупреждение("У Вас недостаточно прав доступа просмотра документов ""Акт об оказании производственных услуг""!",10);
	Иначе
		Док = Документы.АктОбОказанииПроизводственныхУслуг.Выбрать(,,,"Дата Убыв");
		Если Док.Следующий() Тогда
			Док.Ссылка.ПолучитьФорму().Открыть();
		КонецЕсли;
	КонецЕсли;
	Справка = "При печати Акта в подписи берутся следующие значения:
			  |По кнопке ""Перейти"" из формы элементов справочников ""Организации"" и ""Контрагенты""
			  |переходим в регистр сведений ""Фамилия, имя, отчество физического лица"".
			  |Заполняем поле ""Фамилия"" - фамилией, ""Имя"" - инициалами, ""Отчество"" - номер доверенности.
			  |Подписи ""Исполнитель"" и ""Заказчик"" собираются из вышеприведенных значений";
	Сообщить(Справка, СтатусСообщения.Обычное);
	Предупреждение(Справка);
КонецПроцедуры