СКД. Программный вывод картинок в отчете. Не работают отборы

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

СтандартнаяОбработка = Ложь;

СхемаКомпоновкиДанных = ПолучитьМакет("СКД");
Настройки = КомпоновщикНастроек.Настройки;

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

ВидЦеныПродажи = Константы._ВидЦеныПродажи.Получить();
Параметр_ВидЦеныПродажи = Новый ПараметрКомпоновкиДанных("ВидЦеныПродажи");
ЗначениеПараметра_ВидЦеныПродажи = КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Параметр_ВидЦеныПродажи);
Если ЗначениеПараметра_ВидЦеныПродажи <> Неопределено Тогда
ЗначениеПараметра_ВидЦеныПродажи.Значение = ВидЦеныПродажи;
ЗначениеПараметра_ВидЦеныПродажи.Использование = Истина;
КонецЕсли;
Исключение
КонецПопытки;

ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,Настройки, ДанныеРасшифровки);

ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,,ДанныеРасшифровки);

ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ДокументРезультат);

ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);

// //Шаманим над картинками
Если ВыводитьКартинки Тогда

ТабДок = ДокументРезультат;
ТабДок.ФиксацияСверху = Ложь;
ТабДок.ФиксацияСлева = Ложь;

В = ДокументРезультат.ВысотаТаблицы;
Ш = ДокументРезультат.ШиринаТаблицы;

Для с=1 По В Цикл
Для к=1 По Ш Цикл
Область = ТабДок.ПолучитьОбласть("R"+Формат(с,"ЧГ=0")+"C"+Формат(к,"ЧГ=0"));
ТекОбласть = ТабДок.Область("R"+Формат(с,"ЧГ=0")+"C"+Формат(к,"ЧГ=0"));
Расшифровка = ТекОбласть.Расшифровка;
Если ТипЗнч(Расшифровка) = Тип("СправочникСсылка.НоменклатураПрисоединенныеФайлы") Тогда

//Картинка = Расшифровка.ФайлХранилище.Получить();

//УстановитьПривилегированныйРежим(Истина);

//Картинка = ПрисоединенныеФайлы.ПолучитьДанныеФайла(Расшифровка).СсылкаНаДвоичныеДанныеФайла;

Если Расшифровка.Пустая() тогда
Продолжить;
КонецЕсли;

Картинка = (ПолучитьИзВременногоХранилища(ПрисоединенныеФайлы.ПолучитьДанныеФайла(Расшифровка).СсылкаНаДвоичныеДанныеФайла));

//Картинка = ПрисоединенныеФайлы.ПолучитьДвоичныеДанныеФайла(Расшифровка);
//
Картинка = Новый Картинка(Картинка);

Если Картинка = Неопределено Тогда
Продолжить;
КонецЕсли;
ТекОбласть.ВысотаСтроки = ВысотаКартинки;
ТекОбласть.ШиринаКолонки = ШиринаКартинки/4;

Рисунок = Область.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Рисунок.Картинка = Картинка;

Рисунок.Лево = 1;
Рисунок.Верх = 1;

Рисунок.Высота = ВысотаКартинки;
Рисунок.Ширина = ШиринаКартинки/4;

Рисунок.ГраницаСверху = Истина;
Рисунок.ГраницаСлева = Истина;
Рисунок.ГраницаСнизу = Истина;
Рисунок.ГраницаСправа = Истина;

Рисунок.РазмерКартинки = РазмерКартинки.АвтоРазмер;
Рисунок.ВыводитьНаПечать = Истина;

Рисунок.Расположить(Область.ТекущаяОбласть);

ТабДок.ВставитьОбласть(Область.ТекущаяОбласть,ТабДок.Область("R"+Формат(с,"ЧГ=0")+"C"+Формат(к,"ЧГ=0")));

КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЕсли;
ПроцессорВывода.ЗакончитьВывод();

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