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