Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
16 ноя 2024, 23:47

Объединение полей в СКД

Автор progaoff1, 16 мар 2018, 11:08

0 Пользователей и 1 гость просматривают эту тему.

progaoff1

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

progaoff1

Неужели ни кто не знает? Или так трудно подсказать?

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск