Нет возможности добавить самодельный отчет в избранное

АвтоНавигационнаяСсылка = Ложь;
НавигационнаяСсылка = "";
Если ЗначениеЗаполнено(НастройкиОтчета.ВариантСсылка)
	И Не НастройкиОтчета.Внешний Тогда
	
	НавигационнаяСсылка = ПолучитьНавигационнуюСсылку(НастройкиОтчета.ВариантСсылка);

КонецЕсли;

Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка)
	
	// Переопределение для целей избранного - вместо карточки с настройками размещения отчета будет открываться его
	// основная форма.
	Если ВидФормы = "ФормаОбъекта" Тогда
		СсылкаВарианта = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "Ключ");
		Если Не ЗначениеЗаполнено(СсылкаВарианта) Тогда
			ВызватьИсключение НСтр("ru = 'Новый вариант отчета можно создать только из формы отчета'");
		КонецЕсли;
		ПоказатьКарточку = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "ПоказатьКарточку");
		Если ПоказатьКарточку = Истина Тогда
			Возврат;
		КонецЕсли;
		
		ПараметрыОткрытия = ВариантыОтчетов.ПараметрыОткрытия(СсылкаВарианта);
		
		ВариантыОтчетовКлиентСервер.ДополнитьСтруктуруКлючом(ПараметрыОткрытия, "ВыполнятьЗамеры", Ложь);
		
		Если ПараметрыОткрытия.ТипОтчета = "Внутренний" Или ПараметрыОткрытия.ТипОтчета = "Расширение" Тогда
			Вид = "Отчет";
		ИначеЕсли ПараметрыОткрытия.ТипОтчета = "Дополнительный" Тогда
			Вид = "ВнешнийОтчет";
			Если Не ПараметрыОткрытия.Свойство("Подключен") Тогда
				ВариантыОтчетов.ПриПодключенииОтчета(ПараметрыОткрытия);
			КонецЕсли;
			Если Не ПараметрыОткрытия.Подключен Тогда
				ВызватьИсключение НСтр("ru = 'Вариант внешнего отчета можно открыть только из формы отчета.'");
			КонецЕсли;
		Иначе
			ВызватьИсключение НСтр("ru = 'Вариант внешнего отчета можно открыть только из формы отчета.'");
		КонецЕсли;
		
		ПолноеИмяОтчета = Вид + "." + ПараметрыОткрытия.ИмяОтчета;
		
		КлючУникальности = ПолноеИмяОтчета;
		Если ЗначениеЗаполнено(ПараметрыОткрытия.КлючВарианта) Тогда
			КлючУникальности = КлючУникальности + "/КлючВарианта." + ПараметрыОткрытия.КлючВарианта;
		КонецЕсли;
		
		ПараметрыОткрытия.Вставить("КлючПараметровПечати",        КлючУникальности);
		ПараметрыОткрытия.Вставить("КлючСохраненияПоложенияОкна", КлючУникальности);
		
		СтандартнаяОбработка = Ложь;
		Если ПараметрыОткрытия.ТипОтчета = "Дополнительный" Тогда // Для платформы.
			ВыбраннаяФорма = "Справочник.ВариантыОтчетов.ФормаОбъекта";
			Параметры.Вставить("ПараметрыОткрытияФормыОтчета", ПараметрыОткрытия);
			Возврат;
		КонецЕсли;
		ВыбраннаяФорма = ПолноеИмяОтчета + ".Форма";
		ОбщегоНазначенияКлиентСервер.ДополнитьСтруктуру(Параметры, ПараметрыОткрытия);
	КонецЕсли;
	
КонецПроцедуры

Если Параметры.Свойство("ПараметрыОткрытияФормыОтчета", ПараметрыОткрытияФормыОтчета) Тогда
	Возврат;
КонецЕсли;

Если ПараметрыОткрытияФормыОтчета <> Неопределено Тогда
	Отказ = Истина;
	ВариантыОтчетовКлиент.ОткрытьФормуОтчета(Неопределено, ПараметрыОткрытияФормыОтчета);
КонецЕсли;

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

	
	НастройкиОтчета = ОтчетыКлиентСервер.ПолучитьНастройкиОтчетаПоУмолчанию();        
	НастройкиОтчета.Вставить("КлючСхемы",   "");
	НастройкиОтчета.Вставить("ПолноеИмя",  	ОтчетМетаданные.ПолноеИмя());
	НастройкиОтчета.Вставить("ОтчетСсылка", Неопределено);
	
	ТипОтчетаСтрокой = ВариантыОтчетовКлиентСервер.ТипОтчета(НастройкиОтчета.ОтчетСсылка, Истина);
	Если ТипОтчетаСтрокой = Неопределено Тогда
		Информация = ВариантыОтчетов.СформироватьИнформациюОбОтчетеПоПолномуИмени(НастройкиОтчета.ПолноеИмя);
		НастройкиОтчета.ОтчетСсылка = Информация.Отчет;
	КонецЕсли;

	ОбновитьИнформациюОВариантеОтчета();  
	
	АвтоНавигационнаяСсылка = Ложь;	
	НавигационнаяСсылка = "";
	Если ЗначениеЗаполнено(НастройкиОтчета.ВариантСсылка)
		Тогда
		НавигационнаяСсылка = ПолучитьНавигационнуюСсылку(НастройкиОтчета.ВариантСсылка);
	КонецЕсли;

&НаСервере
Процедура ОбновитьИнформациюОВариантеОтчета()
	
	Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
	|	ВариантыОтчетов.Ссылка КАК ВариантСсылка,
	|	ВариантыОтчетов.ПредопределенныйВариант.КлючЗамеров КАК КлючЗамеров,
	|	ВариантыОтчетов.ПредопределенныйВариант КАК ПредопределенныйСсылка,
	|	ВЫБОР
	|		КОГДА ВариантыОтчетов.Пользовательский
	|				ИЛИ ВариантыОтчетов.Родитель.КлючВарианта ЕСТЬ NULL 
	|			ТОГДА ВариантыОтчетов.КлючВарианта
	|		ИНАЧЕ ВариантыОтчетов.Родитель.КлючВарианта
	|	КОНЕЦ КАК ИмяИсходногоВарианта,
	|	ВариантыОтчетов.Пользовательский КАК Пользовательский
	|ИЗ
	|	Справочник.ВариантыОтчетов КАК ВариантыОтчетов
	|ГДЕ
	|	ВариантыОтчетов.Отчет = &Отчет
	|	И ВариантыОтчетов.КлючВарианта = &КлючВарианта";
	Запрос.УстановитьПараметр("Отчет", НастройкиОтчета.ОтчетСсылка);
	Запрос.УстановитьПараметр("КлючВарианта", КлючТекущегоВарианта);
	
	Выборка = Запрос.Выполнить().Выбрать();
	
	Если Выборка.Следующий() Тогда
		НастройкиОтчета.Вставить("ВариантСсылка",          Выборка.ВариантСсылка);
		НастройкиОтчета.Вставить("КлючЗамеров",            Выборка.КлючЗамеров);
		НастройкиОтчета.Вставить("ПредопределенныйСсылка", Выборка.ПредопределенныйСсылка);
		НастройкиОтчета.Вставить("ИмяИсходногоВарианта",   ?(Выборка.Пользовательский, Выборка.ИмяИсходногоВарианта, КлючТекущегоВарианта));
		НастройкиОтчета.Вставить("Пользовательский",       Выборка.Пользовательский);
	Иначе
		НастройкиОтчета.Вставить("ВариантСсылка",          Неопределено);
		НастройкиОтчета.Вставить("КлючЗамеров",            Неопределено);
		НастройкиОтчета.Вставить("ПредопределенныйСсылка", Неопределено);
		НастройкиОтчета.Вставить("ИмяИсходногоВарианта",   Неопределено);
		НастройкиОтчета.Вставить("Пользовательский",       Неопределено);
	КонецЕсли;
КонецПроцедуры

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

&НаСервере
Процедура ПриЗагрузкеВариантаНаСервере(Настройки)
	
	ОбновитьИнформациюОВариантеОтчета();  
    
    АвтоНавигационнаяСсылка = Ложь;    
    НавигационнаяСсылка = "";
    Если ЗначениеЗаполнено(НастройкиОтчета.ВариантСсылка)
        Тогда
        НавигационнаяСсылка = ПолучитьНавигационнуюСсылку(НастройкиОтчета.ВариантСсылка);
	КонецЕсли;

КонецПроцедуры

&НаСервере
Процедура ОбновитьИнформациюОВариантеОтчета()
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
    |    ВариантыОтчетов.Ссылка КАК ВариантСсылка,
    |    ВариантыОтчетов.ПредопределенныйВариант.КлючЗамеров КАК КлючЗамеров,
    |    ВариантыОтчетов.ПредопределенныйВариант КАК ПредопределенныйСсылка,
    |    ВЫБОР
    |        КОГДА ВариантыОтчетов.Пользовательский
    |                ИЛИ ВариантыОтчетов.Родитель.КлючВарианта ЕСТЬ NULL 
    |            ТОГДА ВариантыОтчетов.КлючВарианта
    |        ИНАЧЕ ВариантыОтчетов.Родитель.КлючВарианта
    |    КОНЕЦ КАК ИмяИсходногоВарианта,
    |    ВариантыОтчетов.Пользовательский КАК Пользовательский
    |ИЗ
    |    Справочник.ВариантыОтчетов КАК ВариантыОтчетов
    |ГДЕ
    |    ВариантыОтчетов.Отчет = &Отчет
    |    И ВариантыОтчетов.КлючВарианта = &КлючВарианта";
    Запрос.УстановитьПараметр("Отчет", НастройкиОтчета.ОтчетСсылка);
    Запрос.УстановитьПараметр("КлючВарианта", КлючТекущегоВарианта);
    
    Выборка = Запрос.Выполнить().Выбрать();
    
    Если Выборка.Следующий() Тогда
        НастройкиОтчета.Вставить("ВариантСсылка",          Выборка.ВариантСсылка);
        НастройкиОтчета.Вставить("КлючЗамеров",            Выборка.КлючЗамеров);
        НастройкиОтчета.Вставить("ПредопределенныйСсылка", Выборка.ПредопределенныйСсылка);
        НастройкиОтчета.Вставить("ИмяИсходногоВарианта",   ?(Выборка.Пользовательский, Выборка.ИмяИсходногоВарианта, КлючТекущегоВарианта));
        НастройкиОтчета.Вставить("Пользовательский",       Выборка.Пользовательский);
    Иначе
        НастройкиОтчета.Вставить("ВариантСсылка",          Неопределено);
        НастройкиОтчета.Вставить("КлючЗамеров",            Неопределено);
        НастройкиОтчета.Вставить("ПредопределенныйСсылка", Неопределено);
        НастройкиОтчета.Вставить("ИмяИсходногоВарианта",   Неопределено);
        НастройкиОтчета.Вставить("Пользовательский",       Неопределено);
    КонецЕсли;
КонецПроцедуры