По теме из базы знаний
- Расширение функционала произвольных отчетов (сохранение в настройках ориентации страницы и повтор области строк при выводе на печать)
- Счет на оплату из документа Реализация товаров и услуг с выводом на печать картинки штрихкода
- Печать макета MS Word в любом документе с помощью БСП
- Полезный код для программистов 1С (часть 3). Подготовка печатных форм + подсистема Управление печатью (БСП)
- Вывод факсимиле в табличные документы (УПД, УКД, Счёт-фактура, ТОРГ-12 и др.) для 1С УТ 11.5, КА 2.5, ERP 2.5, УНФ 3, Розница 3
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Необходимо в форме создать таблицу и на ней установить картинку. В свойствах рисунка на закладке Текст написать что-то такое ПечатьЧертежа(Т.ТекущийОбъект). Далее в модуле формы добавить процедуру
Процедура ПечатьЧертежа(Объект="")
Если ПустоеЗначение(Объект) = 0 Тогда
Файл = СокрЛП(ФайлЧертежа);
Если ПустоеЗначение(Файл) = 0 Тогда Объект.Загрузить(Файл); КонецЕсли;
Возврат;
КонецЕсли;
Т = СоздатьОбъект("Таблица");
Т.ИсходнаяТаблица("Чертеж");
Т.ВывестиСекцию("Рисунок");
Т.ПараметрыСтраницы(1,100,1,20,5,5,5,0,0,1,,);
Т.ТолькоПросмотр(1);
Т.Показать("Чертеж","");
КонецПроцедуры
Процедура ПечатьЧертежа(Объект="")
Если ПустоеЗначение(Объект) = 0 Тогда
Файл = СокрЛП(ФайлЧертежа);
Если ПустоеЗначение(Файл) = 0 Тогда Объект.Загрузить(Файл); КонецЕсли;
Возврат;
КонецЕсли;
Т = СоздатьОбъект("Таблица");
Т.ИсходнаяТаблица("Чертеж");
Т.ВывестиСекцию("Рисунок");
Т.ПараметрыСтраницы(1,100,1,20,5,5,5,0,0,1,,);
Т.ТолькоПросмотр(1);
Т.Показать("Чертеж","");
КонецПроцедуры
В ячейку таблицы помещаю рисунок. На закладке Текст прописываю следующую хрынь:
?(Конт.ЦенаПродажиДок<> Конт.ЦенаПродажи , ИзмЦенаПродажи(Таб2.ТекущийОбъект) , " " )
В модуле прописана функция:
Функция ИзмЦенаПродажи(Объект)
Объект.Загрузить("Вопрос16х16К");
КонецФункции // Конец Функции ИзмЦенаПродажи(Объект)
И усе работает.
?(Конт.ЦенаПродажиДок<> Конт.ЦенаПродажи , ИзмЦенаПродажи(Таб2.ТекущийОбъект) , " " )
В модуле прописана функция:
Функция ИзмЦенаПродажи(Объект)
Объект.Загрузить("Вопрос16х16К");
КонецФункции // Конец Функции ИзмЦенаПродажи(Объект)
И усе работает.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот