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));
КонецЕсли;
|
|