8.х Вывод картинки

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем BVB_berserk, 13 авг 2010.

  1. TopicStarter Overlay
    BVB_berserk
    Offline

    BVB_berserk Опытный в 1С

    Регистрация:
    30 янв 2009
    Сообщения:
    162
    Симпатии:
    0
    Баллы:
    26
    Добрый день.
    Есть задача выводить в отчет изображения номенклатуры. Отчет построил на СКД, т.к. помимо картинок нужна функциональность с различными группировками по номенклатуре, характеристикам номенклатуры, подразделениям.

    В общем, нужно что-то типа этого:

    Посмотреть вложение 5061

    этот пример получен извращенским способом - результат отчета на СКД выводится в ТаблицуЗначений, затем из этой ТаблицыЗначений построчно загоняется в обычный Макет типа Табличный документ (на макете размещается объект Картинка):

    Посмотреть вложение 5062

    Мне такой способ не нравится, т.к. придется порядком возиться с этим макетом, добавляя туда возможные вариации группировок, и с выводом всего этого добра на экран, поэтому хотелось бы выводить картинку в макете СКД.
    Пробую такой вариант - в общем модуле пишу функцию:

    Код:
    	
    Функция ВернутьКартинку(Номенклатура) Экспорт
    
    ИмяФайла ="C:\Mascotte_FOTO\picthm\"+Строка(Номенклатура.ИД)+"_thm.jpg";
    Файл = Новый Файл(ИмяФайла);
    
    Если Файл.Существует() Тогда
    Картинка = Новый Картинка(ИмяФайла);
    ХранилищеКартинки = Новый ХранилищеЗначения(Картинка);
    Иначе
    Картинка = Новый Картинка();
    ХранилищеКартинки = Новый ХранилищеЗначения(Картинка);     		
    КонецЕсли;
    
    Возврат ХранилищеКартинки.Получить();
    
    КонецФункции
    
    
    В схеме компоновки вызываю это дело Посмотреть вложение 5063


    В итоге при выполнении отчета получаю ошибку:
    Не могу понять, где собака порылась? Я конечно не уверен, что мой метод сработает, но не ожидал столкнуться с ошибкой на этом этапе. Скорее был готов, что ничего у меня не выведется в отчет, а тут вот оно чё, даже не дошло дело до вывода.

    Вложения:

    • Vid_Kartinki.JPG
      Vid_Kartinki.JPG
      Размер файла:
      13,9 КБ
      Просмотров:
      106
    • Vid_Maketa.JPG
      Vid_Maketa.JPG
      Размер файла:
      31,4 КБ
      Просмотров:
      176
    • Calc_field.JPG
      Calc_field.JPG
      Размер файла:
      6,9 КБ
      Просмотров:
      251
  2. TopicStarter Overlay
    BVB_berserk
    Offline

    BVB_berserk Опытный в 1С

    Регистрация:
    30 янв 2009
    Сообщения:
    162
    Симпатии:
    0
    Баллы:
    26
    В общем, проблему эту я не решил.
    Заморочился с выводом результатов компоновщика в ТаблицуЗначений, обработкой и последующим выводом в ТабличныйДокумент используя отдельный макет.
  3. antares
    Offline

    antares Опытный в 1С

    Регистрация:
    30 ноя 2006
    Сообщения:
    340
    Симпатии:
    7
    Баллы:
    29
    поскольку все равно решил вывод делать через ТД, то просто вставляешь картинку в поименованную область/ячейку, перед тем как вывести строку по номенлатуре

    код из синтакс-помощника:
    Код:
    ТабДок = Новый ТабличныйДокумент;
    МояКартинка = Новый Картинка("C:\My Documents\qwerty.bmp");
    Рис=ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
    Индекс=ТабДок.Рисунки.Индекс(Рис);
    ТабДок.Рисунки[Индекс].Картинка = МояКартинка;
    ТабДок.Рисунки[Индекс].Расположить(ТабДок.Область("R1C1:R4C4"));
    ТабДок.Показать();
    
    у меня другая проблема, картинку надо вставить из библиотеки картинок конфигурации, пока не пойму как

Поделиться этой страницей