1. В обработке нет реквизита КомпоновщикНастроек, его нужно добавить вручную.
Для этого на форму добавим реквизит ДанныеРасшифровкиФ с типом строка
В процедуре СформироватьНаСервере() будем присваивать реквизиту ДанныеРасшифровкиФ значение
ДанныеРасшифровкиФ = ПоместитьВоВременноеХранилище(ДанныеРасшифровки,ЭтаФорма.УникальныйИдентификатор);
Табличному документа на форме добавим событие ОбработкаРасшифровки
&НаКлиенте
Процедура ТабДокОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка, ДополнительныеПараметры)
СтандартнаяОбработка = Ложь;
Данные = РасшифровкиНаСервере(Расшифровка);
ОткрытьЗначение(Данные);
КонецПроцедуры
&НаСервере
Функция РасшифровкиНаСервере(Расшифровка)
Данные = ПолучитьИзВременногоХранилища(ДанныеРасшифровкиФ);
Если ТипЗнч(Расшифровка) = Тип("ИдентификаторРасшифровкиКомпоновкиДанных") тогда
ЭлементРасшифровки = Данные.Элементы[Расшифровка];
Если ТипЗнч(ЭлементРасшифровки) = Тип("ЭлементРасшифровкиКомпоновкиДанныхПоля") Тогда
Для каждого Поле Из ЭлементРасшифровки.ПолучитьПоля() Цикл
Возврат Поле.Значение;
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецФункции
Полный текст
&НаКлиенте
Процедура Сформировать(Команда)
СформироватьНаСервере();
КонецПроцедуры
&НаСервере
Процедура СформироватьНаСервере()
Обработка = РеквизитФормыВЗначение("Объект");
ТабДок.Очистить();
СхемаКомпоновкиДанных = Обработка.ПолучитьМакет("СКД");
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных();
КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));
КомпоновщикНастроек.ЗагрузитьНастройки(СхемаКомпоновкиДанных.НастройкиПоУмолчанию);
Настройки = КомпоновщикНастроек.Настройки;
Параметр = Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ВидПочты"));
Если Параметр <> Неопределено Тогда
Параметр.Значение = Справочники.ВидыКонтактнойИнформации.ПолучитьСсылку(Новый УникальныйИдентификатор("2bb33721-d50d-11e7-813a-000c290b7379"));
Параметр.Использование = Истина;
КонецЕсли;
Параметр = Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ВидПочты2"));
Если Параметр <> Неопределено Тогда
Параметр.Значение = Справочники.ВидыКонтактнойИнформации.ПолучитьСсылку(Новый УникальныйИдентификатор("2bb3f721-d5цd-11e4-8154-000c290b7379"));
Параметр.Использование = Истина;
КонецЕсли;
ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки);
ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(МакетКомпоновки,,ДанныеРасшифровки);
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ТабДок);
ПроцессорВывода.Вывести(ПроцессорКомпоновки);
ТабДок.ФиксацияСлева = 1;
ДанныеРасшифровкиФ = ПоместитьВоВременноеХранилище(ДанныеРасшифровки,ЭтаФорма.УникальныйИдентификатор);
КонецПроцедуры
Тестировал:
1С:Комплексная автоматизация 2 (2.4.9.98)
Платформа 1С:Предприятие 8.3 (8.3.16.1148)
Вступайте в нашу телеграмм-группу Инфостарт
