СКД. Программная установка параметры макета

УстановкаПараметровМакетаСКДМодульОбъекта.1c

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

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

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
		
   УстановитьЗначениеПараметраКомпоновщика(КомпоновщикНастроек, Справочники.Клиенты.Личное, "Владелец");
	
КонецПроцедуры

Процедура УстановитьЗначениеПараметраКомпоновщика(КомпоновщикНастроек, Значение, ИмяПараметра, ИмяКлюча = Неопределено) Экспорт

	НовыйПараметрКД =  Новый ПараметрКомпоновкиДанных(ИмяПараметра);
	ЗначениеПараметра = КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(НовыйПараметрКД);
	
	Если ЗначениеПараметра = Неопределено Тогда
		Возврат;
	КонецЕсли;

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

УстановкаПараметровМакетаСКДМодульФормы.1c

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	
	ПараметрСКД         = Новый ПараметрКомпоновкиДанных("Владелец");
	ЗначениеПараметрСКД = ПредопределенноеЗначение("Справочник.Клиенты.Личное");
	
	Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.УстановитьЗначениеПараметра(ПараметрСКД, ЗначениеПараметрСКД);
		
КонецПроцедуры