| 
    
            
         
         | 
    
  | 
Картинки в отчете | ☑ | ||
|---|---|---|---|---|
| 
    0
    
        antiteror91    
     22.03.13 
            ✎
    18:49 
 | 
         
        Я хочу добавить картинки в отчет с хранилища. Шестнацетиричный код картинок я получил. Скажите могу ли я добавить картинку на форму отчета без создания макета или нет??? и как это реализовывается???     
         | 
|||
| 
    1
    
        Gsoom2010    
     22.03.13 
            ✎
    18:53 
 | 
         
        Функция ПолучитьЛоготипОрганизации(Организация = "") экспорт
  
        Если Организация = "" или Организация = Справочники.Организации.ПустаяСсылка() тогда Организация = ПараметрыСеанса.Организация; КонецЕсли; Попытка ПутьКЛоготипу = КаталогВременныхФайлов()+ "1С_Логотип_" + Организация.Код; Логотип = Организация.Логотип.Получить(); Логотип.Записать(ПутьКЛоготипу); Картинка = Новый Картинка(ПутьКЛоготипу); УдалитьФайлы(ПутьКЛоготипу); Исключение Картинка = Новый Картинка; КонецПопытки; Возврат Картинка; КонецФункции  | 
|||
| 
    2
    
        antiteror91    
     22.03.13 
            ✎
    18:56 
 | 
         
        (1) это можно делать сразу на форму без макета???     
         | 
|||
| 
    3
    
        Gsoom2010    
     22.03.13 
            ✎
    18:56 
 | 
         
        ТабДок = Новый ТабличныйДокумент;
  
        Макет = Документы.Накладная.ПолучитьМакет("Макет"); Область = Макет.ПолучитьОбласть("ПерваяСекция"); Область.Рисунки.Логотип.Картинка = ПолучитьЛоготипОрганизации(Организация);  | 
|||
| 
    4
    
        antiteror91    
     22.03.13 
            ✎
    18:58 
 | 
         
        (3) спасибо значит иду макет делать)     
         | 
|||
| 
    5
    
        Gsoom2010    
     22.03.13 
            ✎
    18:58 
 | 
         
        У меня так сделано, если тебе нельзя менять макет, то я думаю можно программно закинуть туда объект картинка, но я не не делал так.     
         | 
|||
| 
    6
    
        antiteror91    
     24.03.13 
            ✎
    23:16 
 | 
         
        я вновь вернулся к задаче с картинкой пытаюсь вывести ее на макет:
  
        ДвоичныеДанные= НайденнаяСтрока.Фото.Получить(); ОбластьТовар = Макет.ПолучитьОбласть("ОбластьТовар"); Фото = Новый Картинка(ДвоичныеДанные,Истина); //сформируем ТЗ соотвествия области Табличного поля и выодимой в нем картинки //НовСтрока.Область = ОбластьВыводаКартинки; ОбластьТовар.Параметры.Номенклатура = Строка.Номенклатура; ОбластьТовар.Параметры.ЕдиницаИзмерения =Строка.ЕдиницаИзмерения; ОбластьТовар.Параметры.Фото = Фото ; ОбластьТовар.Параметры.Цена = Строка.Цена; ЭтотОбъект.ТабличныйДокумент.Вывести(ОбластьТовар); Но у меня почему то выводится поле а в нем написано "Картинка". Почему я не получаю изображение картинки???  | 
|||
| 
    7
    
        Лодырь    
     25.03.13 
            ✎
    06:45 
 | 
         
        НовыйРисунок = Таб.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
  
        МакетКартинки = ПолучитьМакет("ТестоваяКартинка"); НовыйРисунок.Картинка = Новый Картинка(МакетКартинки,Истина); НовыйРисунок.РазмерКартинки = РазмерКартинки.Пропорционально; НовыйРисунок.Расположить(ОбластьКартинки);  | 
|||
| 
    8
    
        mih_io    
     25.03.13 
            ✎
    06:56 
 | 
         
        ВОт так можно без правки макета
  
        Путь = КаталогВременныхФайлов()+ "\1С_Картинка_"+Формат(ТекущаяДата(),"ДФ=yyyyMMddЧЧммсс")+Стр.Номенклатура.ОсновноеИзображение.ИмяФайла; КартинкаВПамяти = Стр.Номенклатура.ОсновноеИзображение.Хранилище.Получить(); КартинкаВПамяти.Записать(Путь); //***** ОбластьПечатьОрганизации = ТабПечать.Область(НачалоОбластиДляРисунков,9,НачалоОбластиДляРисунков+ВсегоСтрок-2,14); Рис=ТабПечать.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка); Индекс=ТабПечать.Рисунки.Индекс(Рис); ТабПечать.Рисунки[Индекс].Картинка = Новый Картинка(Путь); ТабПечать.Рисунки[Индекс].Верх = 0; ТабПечать.Рисунки[Индекс].Высота = 80; ТабПечать.Рисунки[Индекс].Ширина = 80; ТабПечать.Рисунки[Индекс].Лево = 50; ТабПечать.Рисунки[Индекс].ГраницаСверху = Ложь; ТабПечать.Рисунки[Индекс].ГраницаСлева = Ложь; ТабПечать.Рисунки[Индекс].ГраницаСправа = Истина; ТабПечать.Рисунки[Индекс].ГраницаСнизу = Ложь; ТабПечать.Рисунки[Индекс].РазмерКартинки = РазмерКартинки.Пропорционально; ТабПечать.Рисунки[Индекс].Расположить(ОбластьПечатьОрганизации);  | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |