8.х Объединение полей c картинками в СКД

Тема в разделе "Система компоновки данных (СКД)", создана пользователем progaoff, 19 мар 2018.

  1. TopicStarter Overlay
    progaoff
    Offline

    progaoff

    Регистрация:
    22 июн 2015
    Сообщения:
    3
    Симпатии:
    0
    Баллы:
    1
    Сделал отчет на СКД, с выводом картинок, не учел момент с характеристиками, дело в том что выводится картинка для каждой характеристики, это очень долго и не выполнимо так как много позиций, как можно объединить картинку на все характеристики номенклатуры? Помогите решить проблему, уже три дня бьюсь как рыба об лед.
    Если ЗначениеЗаполнено(ЗначениеВыводимыхДанных) Тогда
    Рис = ДокументРезультат.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
    Рис.РазмерКартинки = Размеркартинки.АвтоРазмер;
    Индекс = ДокументРезультат.Рисунки.Индекс(Рис);
    Картинка = ПолучитьДвоичныеДанныеКартинкиПоНоменклатуре(ЗначениеВыводимыхДанных);
    ДокументРезультат.Рисунки[Индекс].Картинка = Новый Картинка(Картинка);

    ОбластьДляКартинки = ДокументРезультат.НайтиТекст("%Картинка%");
    Если ОбластьДляКартинки <> Неопределено тогда
    ВысотаКартинки = ПолучитьВысотуКартинки(КомпоновщикНастроек.Настройки);
    ОбластьДляКартинки.ВысотаСтроки = ?(ВысотаКартинки = 0,70,ВысотаКартинки);
    Если ВысотаКартинки > 0 Тогда
    ОбластьДляКартинки.ШиринаКолонки = ВысотаКартинки;
    КонецЕсли;
    ДокументРезультат.Рисунки[Индекс].Расположить(ОбластьДляКартинки);
    ОбластьДляКартинки.Текст = "%КартинкаДобавлена%";
    КонецЕсли;
    КонецЕсли;
    КонецЕсли;
    КонецЦикла;
    ПроцессорВывода.ЗакончитьВывод();
    вот код вывода.
Похожие темы
  1. VIPOS
    Ответов:
    2
    Просмотров:
    1.106
Загрузка...