Имя: Пароль:
1C
1С v8
Вытащить картинку из хранилища дополнительной информации в печать
0 shutniksasha
 
09.07.13
14:15
Доброго времени суток, уважаемые коллеги!
Делаю, казалось бы простенькую внешнюю печатную форму для документа Реализация и застрял.
Суть такая. Если заполнен ответственный, то нужно вывести в печать скан приказа о праве подписи.
Добавляю картинку в справочник Хранилище Дополнительной Информации. Формирую запрос и... как вытащить картинку из справочника и вставить в макет не пойму.
Вот сам код:


Функция Печать() Экспорт


// Ссылка на приказ

Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Объект", СсылкаНаОбъект.Ответственный.ФизЛицо);
Запрос.УстановитьПараметр("Наименование", Справочники.ХранилищеДополнительнойИнформации.НайтиПоНаименованию("Приказ о праве подписи"));
Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);
Запрос.Текст = "ВЫБРАТЬ
|    ХранилищеДополнительнойИнформации.ИмяФайла КАК ИмяФайла
|ИЗ
|    Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации,
|    Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
|ГДЕ
|    РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
|    И ХранилищеДополнительнойИнформации.Объект = &Объект
|    И ХранилищеДополнительнойИнформации.Наименование = &Наименование";

Приказ = Запрос.Выполнить().Выбрать();
Приказ.Следующий();
ТабДокумент = Новый ТабличныйДокумент;


// Зададим параметры макета
ТабДокумент.ПолеСверху = 0;
ТабДокумент.ПолеСлева = 5;
ТабДокумент.ПолеСнизу = 0;
ТабДокумент.ПолеСправа = 5;
ТабДокумент.РазмерКолонтитулаСверху = 0;
ТабДокумент.РазмерКолонтитулаСнизу = 0;
ТабДокумент.АвтоМасштаб = Истина;
ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;

ТабДокумент.ОтображатьЗаголовки = Ложь;
ТабДокумент.ОтображатьСетку = Ложь;

ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПечатьПриказа_Макет";
Макет = ПолучитьМакет("Макет");



// Вытащить картинку картинку
ИмяКартинки = Приказ.ИмяФайла;
Изображение = Новый Картинка(ИмяКартинки);
//????????????????????????//    

ОбластьМакета = Макет.ПолучитьОбласть("Картинка");
ОбластьМакета.Рисунки.Скан.Картинка = Изображение;




ТабДокумент.Вывести(ОбластьМакета);




Возврат ТабДокумент;

КонецФункции


Как-то так, чего-то не доделываю. Нужна Ваша помощь. подскажите куда копать. Я еще только учусь :-)
Заранее благодарен!
1 НаборДанных
 
09.07.13
14:22
Картинка = ВыборкаСтрокТовары.Номенклатура.ОсновноеИзображение.Хранилище.Получить();
       Если НЕ Картинка = Неопределено Тогда
           
           ФотоТовара = СтрокаИзображение.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
           ФотоТовара.Верх = 0;
           ФотоТовара.Лево = 0;
           ФотоТовара.РазмерКартинки = РазмерКартинки.Пропорционально;
           ФотоТовара.Картинка = Картинка;
           ФотоТовара.Расположить(СтрокаИзображение.Область(1,1,1,1));
   
       КонецЕсли;