Универсальное заполнение табличных частей на основе внешнего отчета или обработки (с примером для СКД на УПП)

Думал куда добавить в статьи, или в обработки. Добавил в обработки.

Возникла тут у меня необходимость заполнять контрагентов в скидках с отбором по различным критериям. СКД для этого отлично подходит, но СКД не подключается в моей базовой платформе (УПП 1.2.14.1 - да старая, первый этап обновления уже прошел, скоро в 1-2 скачка до 19 или 22 дойдем) к табличной части. Решил написать обработку...Подумал ещё и сделал её более универсальной. В результате получилась обработка, которую можно подключить к любой табличной части не меняя код. Модифицируется только внешние параметры обработки, которые регулируют подключение источника строк для заполнения и соответствие колонок. Пишется внешняя обработка или отчет, который в итоге при закрытии основной формы выдает таблицу значений. Эта таблица и впихивается в табличную часть.

Параметры:

 ВнешнийФайл (булево) - истина, если обработка с диска, а не из справочника внешних обработок,

 КодПутьОбработкиЗаполнения (строка) - код обработки из справочника или полный путь к обработке на диске

 СКД (булево) - является ли подключаемый файл отчетом или обработкой

 ПолеТабличнойЧасти (строка) - наименование поля табличной части, которое нужно заполнять

 ПолеСКД (строка) - наименование поля таблицы значений из которого брать значения

Если одно из последних двух полей не заполнено, то обработка проходит по всем полям таблицы значений и пытается вставить по совпадающим именам полей

Код обработки:

	 Процедура Инициализировать(Объект,ИмяТабличнойЧасти,ТабличноеПолеОбъекта) Экспорт;

	     Попытка

	         Если ДополнительныеПараметры.ВнешнийФайл Тогда //если файл на диске,

	             ИмяФайла=ДополнительныеПараметры.КодПутьОбработкиЗаполнения; //то просто записываем пусть в имя файла

	         Иначе //иначе в хранилище

	             ВыбраннаяСтрока=Справочники.ВнешниеОбработки.НайтиПоКоду(ДополнительныеПараметры.КодПутьОбработкиЗаполнения); //тогда находим по коду

	             ИмяФайла = ПолучитьИмяВременногоФайла(); //получаем имя временного файла

	             ДвоичныеДанные = ВыбраннаяСтрока.ХранилищеВнешнейОбработки.Получить(); //достаем из хранилища

	             ДвоичныеДанные.Записать(ИмяФайла); //сохраняем во временный файл

	         КонецЕсли;

 

	         Если ДополнительныеПараметры.СКД Тогда //если это СКД

	             Форма = ВнешниеОтчеты.ПолучитьФорму(ИмяФайла); //открываем как внешний отчет

	         Иначе

	             Форма = ВнешниеОбработки.ПолучитьФорму(ИмяФайла); //открываем как обработку

	         КонецЕсли;

	         Если Не Форма = Неопределено Тогда

	             ТаблицаЗначений=Форма.ОткрытьМодально(); //открываем основную форму, где выполняется обработку и возвращается таблица

	         КонецЕсли;

	         Если НЕ ДополнительныеПараметры.ВнешнийФайл Тогда //если файл создавался временно,

	             УдалитьФайлы(ИмяФайла); //то удаляем его

	         КонецЕсли;

	     Исключение

	        Предупреждение("Выбранный файл не соответствует заявленному типу.   

	        |Либо данная обработка не предназначена для

	        |запуска в этой конфигурации.");

	     КонецПопытки;

	     Если ТаблицаЗначений=Неопределено Тогда

	         Возврат;

	     КонецЕсли;

	     СсылкаНаТабЧасть=Объект[ИмяТабличнойЧасти];

	     Ответ=Вопрос("Очистить список контрагентов?", РежимДиалогаВопрос.ДаНет);

	     Если Ответ=КодВозвратаДиалога.Да Тогда

	         СсылкаНаТабЧасть.Очистить();

	     КонецЕсли;

	     Для Каждого стр из ТаблицаЗначений Цикл //собственно заполнение

	         стр1=СсылкаНаТабЧасть.Добавить();

	         Если ДополнительныеПараметры.ПолеТабличнойЧасти<>"" И ДополнительныеПараметры.ПолеСКД<>"" Тогда

	             Попытка

	                 стр1[ДополнительныеПараметры.ПолеТабличнойЧасти]=стр[ДополнительныеПараметры.ПолеСКД]; //название заполняемого поля берется из дополнительных параметров

	             Исключение

	                 Сообщить("Не найдено "+ДополнительныеПараметры.ПолеТабличнойЧасти+" или "+ДополнительныеПараметры.ПолеСКД);

	             КонецПопытки

	         Иначе

	             Для Каждого Кол из ТаблицаЗначений.Колонки Цикл

	                 Попытка

	                     стр1[Кол.Имя]=стр[Кол.Имя];

	                 Исключение

	                     Сообщить("Не найдено "+Кол.Имя);

	                 КонецПопытки;

	             КонецЦикла;

	         КонецЕсли;

	     КонецЦикла;

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

В форме СКД нужно добавить кнопку которая будет выгружать таблицу значений.

	 Процедура ДействияФормыЗаполнитьТабЧасть(Кнопка)

	     КомпоновщикМакета=Новый КомпоновщикМакетаКомпоновкиДанных;

	     МакетКомпоновки=КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,КомпоновщикНастроек.Настройки,,,Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));

	     ПроцессорКомпоновки=Новый ПроцессорКомпоновкиДанных;

	     ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);

	     ПроцессорВывода= Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;

	     ТаблицаЗначений=ПроцессорВывода.Вывести(ПроцессорКомпоновки);

	     ЭтаФорма.Закрыть(ТаблицаЗначений);

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

К СКД прицеплены характеристики с запросом. Проверьте, чтобы верный был. Может отличаться в различных конфах.