|
Вытащить картинку из хранилища дополнительной информации в печать | ☑ | ||
---|---|---|---|---|
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)); КонецЕсли; |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |