Группа: Пользователи
Сообщений: 33
Спасибо сказали: 1 раз
Рейтинг: 0
Доброго дня! Есть несколько организаций. В печатной форме необходимо вывести логотип определенной организации. Картинка находится в хранилище дополнительной информации.
Прикреплять картинку в макет документа присваивая область не подходит.
Группа: Пользователи
Сообщений: 33
Спасибо сказали: 1 раз
Рейтинг: 0
candrey @ Сегодня, 12:45
,
Я правильно понял?
Функция ПолучитьКартинку(Файл) Экспорт ВерсияСсылка = Файл.ТекущаяВерсия; ТипХраненияФайла = ВерсияСсылка.ТипХраненияФайла; Если ТипХраненияФайла = Перечисления.ТипыХраненияФайлов.ВТомахНаДиске Тогда Если НЕ ВерсияСсылка.Том.Пустая() Тогда ПолныйПуть = ФайловыеФункции.ПолныйПутьТома(ВерсияСсылка.Том) + ВерсияСсылка.ПутьКФайлу; ДвоичныеДанные = Новый ДвоичныеДанные(ПолныйПуть); КонецЕсли; Иначе ДвоичныеДанные = ВерсияСсылка.ФайлХранилище.Получить(); КонецЕсли; Возврат Новый Картинка(ДвоичныеДанные); КонецФункции
//Запрос
ВЫБРАТЬ | СчетНаОплату.Организация.ФайлКартинки.Ссылка КАК Файл |ИЗ | Документ.СчетНаОплату КАК СчетНаОплату
Группа: Пользователи
Сообщений: 33
Спасибо сказали: 1 раз
Рейтинг: 0
Тема закрыта Решил вопрос так: Создайте в макете область Заголовок и обязательно в ней создайте картинку пустую. Растянув ее под нужный размер и дайте имя Логотип
Пока ВыборкаДетальныеЗаписиКартинки.Следующий() Цикл Если ВыборкаДетальныеЗаписиКартинки.Ссылка.Наименование = "Логотип" Тогда // картинка с именем "Логотип"
Пока ВыборкаДетальныеЗаписиКартинки.Следующий() Цикл Если ВыборкаДетальныеЗаписиКартинки.Ссылка.Наименование = "Логотип" Тогда // картинка с именем "Логотип"
Группа: Пользователи
Сообщений: 33
Спасибо сказали: 1 раз
Рейтинг: 0
logist @ Сегодня, 15:29
, Ошибку пишет Значение не является значением объектного типа (Получить) Картинка = ВыборкаДетальныеЗаписиКартинки.Хранилище.Получить();
Тоесть нужно выводить на печать даже если у организации нет логотипа
Группа: Пользователи
Сообщений: 155
Спасибо сказали: 6 раз
Рейтинг: 0
1) Если есть логотип прикручивайте логотип к соответствующей организации.
2) Если логотипа нету. Нужно чтоб выводило пустоту - прикрутите к этой организации (к другой где нету логотипа) пустой логотип- "Пустой фаил без рисунка"
3) Если выводить логотип ненужно то перед выводом делайте проверку на логотип. Если есть логотип то печатаем его. Если нету его то пропускаем идем дальше печатаем без логотипа.
Определяйте сами. Что вам больше подходит.
Ставьте точку остановка в этом коде перед ошибкой и смотрите в отладчике что там.
Группа: Местный
Сообщений: 9564
Из: Kharkiv, UA
Спасибо сказали: 2536 раз
Рейтинг: 0
Цитата(Altem @ 27.03.17, 13:54)
Ошибку пишет Значение не является значением объектного типа (Получить) Картинка = ВыборкаДетальныеЗаписиКартинки.Хранилище.Получить();
Разбирайтесь почему у вас там ошибка, если файла логотипа нет, то по идее и выборка должна не доходить до этого момента. Не совсем понимаю код который написан в сообщении #9 Вероятно он не правильно написан, поэтому доходит до получения картинки которой нет.
Личные бесплатные консультации не даю, для этого есть форум!
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!