Прайс-лист с картинками

Добрый день.
В конфигурации УНФ 1.5 пытаюсь написать отчет прайс-лист с картинками. Изучил достаточно много форумов.
Но не получается реализовать. Сделал отчет СКД. Получаю в запросе ссылки на номенклатуру и на элемент справочника НоменклатураПрисоединенныеФайлы.
В модуле отчета вставил процедуру ПриКомпоновкеРезультата и там заполняю область полученной картинкой. Текст модуля ниже. Но в итоге в отчете только список номенклатур, а в колонке Картинка пусто.
Подскажите, в чем может быть проблема?
Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)

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

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

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

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

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

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

    Для СтрокаДокумента = 1 По КоличествоСтрок Цикл

        Для КолонкаДокумента = 1 По КоличествоКолонок Цикл

            Область = ДокументРезультат.Область(СтрокаДокумента, КолонкаДокумента);

            Расшифровка = Область.Расшифровка;

            Если ТипЗнч(Расшифровка) = Тип("ИдентификаторРасшифровкиКомпоновкиДанных") Тогда

                ПоляРасшифровки = ДанныеРасшифровки.Элементы.Получить(Расшифровка).ПолучитьПоля();

                НайденноеПоле = ПоляРасшифровки.Найти("Картинка");

                Если НайденноеПоле <> Неопределено Тогда

                    ХранимыйФайл = НайденноеПоле.Значение;

                    Если ТипЗнч(ХранимыйФайл) = Тип("СправочникСсылка.НоменклатураПрисоединенныеФайлы") И ЗначениеЗаполнено(ХранимыйФайл) Тогда

                        Картинка = Новый Картинка(ХранимыйФайл.ФайлХранилище.Получить());

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

                        КартинаВДокументе.Картинка = Картинка;
                        КартинаВДокументе.РазмерКартинки = РазмерКартинки.АвтоРазмер;
                        КартинаВДокументе.Расположить(Область);

                    КонецЕсли;

                КонецЕсли;

            КонецЕсли;

        КонецЦикла;

    КонецЦикла;

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