Не применяются пользовательские настройки отчета СКД

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

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

КонецФункции

&НаСервереБезКонтекста
Функция ПолучитьПользовательскиеНастройкиНаСервере(Реестр)
	
	ПользовательскиеНастройки = Новый ПользовательскиеНастройкиКомпоновкиДанных;
	ПользовательскиеНастройки.ДополнительныеСвойства.Вставить("РеестрПлатежей", Реестр);
	ПользовательскиеНастройки.ДополнительныеСвойства.Вставить("Дата", Реестр.Дата);
	ПользовательскиеНастройки.ДополнительныеСвойства.Вставить("Организация", Реестр.Организация);
	ПользовательскиеНастройки.ДополнительныеСвойства.Вставить("ПериодПлана", Новый СтандартныйПериод(НачалоГода(Реестр.Дата), КонецГода(Реестр.Дата)));
	Возврат ПользовательскиеНастройки;    
	
КонецФункции

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
	СтандартнаяОбработка = Ложь;
	// Получаем схему из макета
	СхемаКомпоновкиДанных = ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");
	
	// Из схемы возьмем настройки по умолчанию
	Настройки = КомпоновщикНастроек.ПолучитьНастройки();

	Программный = Ложь;
	Реестр = Документы.бит_РеестрПлатежей.ПустаяСсылка();
	Для каждого стр из КомпоновщикНастроек.ПользовательскиеНастройки.ДополнительныеСвойства Цикл
		// Данный ключ есть только при программном вызове
		Если Стр.Ключ = "РеестрПлатежей" Тогда 
			Программный = Истина;
			Реестр = Стр.Значение;
			Прервать;
		КонецЕсли;
	КонецЦикла; 
	
	// Обычный отбор реестра
	Если не Программный Тогда
		Для каждого стр из КомпоновщикНастроек.ПользовательскиеНастройки.Элементы Цикл
			Если ТипЗнч(стр) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда
				Если стр.Использование и ТипЗнч(стр.ПравоеЗначение) = Тип("ДокументСсылка.бит_РеестрПлатежей") Тогда
					Реестр = стр.ПравоеЗначение;
					Прервать;
				КонецЕсли;
			КонецЕсли;
		КонецЦикла;
	КонецЕсли;  
	
	ЗаполнитьПользовательскиеНастройки(Настройки);
	
	// Помещаем в переменную данные о расшифровке данных
	//ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
	
	// Формируем макет, с помощью компоновщика макета
	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
	
	// Очищаем поле табличного документа
	ДокументРезультат.Очистить(); 
	
	ПараметрыДанных	= Настройки.ПараметрыДанных; 
	
	МассивКодовСчетов = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок("60.01,60.02,76,66,58.03",","); 
	МассивСчетов = Новый Массив;
	Для каждого КодСчета из МассивКодовСчетов Цикл
		Счет = ПланыСчетов.Хозрасчетный.НайтиПоКоду(КодСчета);
		Если ЗначениеЗаполнено(Счет) Тогда МассивСчетов.Добавить(Счет); КонецЕсли;
	КонецЦикла;
	
	ПараметрыДанных.УстановитьЗначениеПараметра("Счет", МассивСчетов); 
	
	// для отладки
	Реестр = Документы.бит_РеестрПлатежей.НайтиПоНомеру("РА0000016  ");
	Программный = Истина;
	
	// Параметры 
	Для каждого Элемент из КомпоновщикНастроек.ПользовательскиеНастройки.Элементы Цикл
		Если ТипЗнч(Элемент) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда 
			Если Строка(Элемент.Параметр) = "Дата" Тогда 
				Дата = Элемент.Значение;
				Если Программный Тогда ПараметрыДанных.УстановитьЗначениеПараметра("Дата", Дата); КонецЕсли;
			КонецЕсли;
			Если Строка(Элемент.Параметр) = "Организация" Тогда 
				Организация = Элемент.Значение; 
				Если Программный Тогда ПараметрыДанных.УстановитьЗначениеПараметра("Организация", Организация); КонецЕсли;
			КонецЕсли;
			Если Строка(Элемент.Параметр) = "ПериодПлана" Тогда 
				ПериодПлана = Элемент.Значение;
				Если Программный Тогда 
					ПараметрыДанных.УстановитьЗначениеПараметра("ПериодПлана", ПериодПлана);
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипЗнч(Элемент) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда
			// Реестр
			Если Программный и ТипЗнч(Элемент.ПравоеЗначение) = Тип("ДокументСсылка.бит_РеестрПлатежей") Тогда
				Элемент.ПравоеЗначение = Реестр;
				Элемент.Использование = Истина;
				Для каждого НастройкаОтбора из КомпоновщикНастроек.Настройки.Отбор.Элементы Цикл
					Если НастройкаОтбора.ИдентификаторПользовательскойНастройки = Элемент.ИдентификаторПользовательскойНастройки Тогда
						НастройкаОтбора.ПравоеЗначение = Реестр;
						НастройкаОтбора.Использование = Истина; 
					КонецЕсли;
				КонецЦикла;
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
	
	// Передаем в макет компоновки схему, настройки и данные расшифровки
	МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки);
	
	// Выполним компоновку с помощью процессора компоновки
	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,,ДанныеРасшифровки);
	
	// Выводим результат в табличный документ
	ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
	ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
	
	ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных); 
	
КонецПроцедуры   

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