Вывести прикрепленное изображение номенклатуры в СКД

1. Nigelist 21.12.18 14:52 Сейчас в теме
Привет форумчанам.

Пытаюсь модифицировать отчет, чтобы он показывал изображение прикрепленное к номенклатуре. Делал по этому уроку. Вот код:

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

Подскажите, как настроить размер ячейки и размер картинки?
По теме из базы знаний
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. Sanya2049 40 21.12.18 17:37 Сейчас в теме
3. bad_wag 52 21.12.18 18:49 Сейчас в теме
Я такое делал через высоту строки у области, а у картинки ставил АвтоРазмер
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот