Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
26 сен 2021, 10:35

Как сохранить штрих код в рисунок на диске?

Автор alexboxrostov, 05 дек 2016, 20:23

0 Пользователей и 1 гость просматривают эту тему.

alexboxrostov

Подскажите как сохранить штрих код в рисунок (.jpg .bmp)?
Пробывал через создание табличного макета, не получилось преобразовать и сохранить.

alexboxrostov

В табличный документ сохраняю вот так:

            ОбластьМакета.Рисунки.Штрихкод.Объект.ТипКода   = 1;//ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;
            ОбластьМакета.Рисунки.Штрихкод.Объект.Сообщение = Штрихкод;
            ТабДок.Вывести(ОбластьМакета);

Но табличный документ не получается сохранить в формат рисунка. Подскажите как сохранить?
   

temrmal


alexboxrostov

нет обычная.
Для 11 редакции находил как сделать, в 10 не получется


1С:Предприятие 8.3 (8.3.6.2390)
"Управление торговлей", редакция 10.3 (10.3.14.4)

temrmal

В обычных формах это ActiveX. т.е. это не рисунок, в УФ на клиента возвращался PNG файл, а тут это компонета. К примеру если ты сохранишь в MXL, и откроешь на другом компе, где компонента не установлена, штрихкоды не отобразятся.

alexboxrostov

Я хочу сохранить штрих код в рисунок, а потом вставить его в Word как рисунок.

alex0402

Цитата: alexboxrostov от 06 дек 2016, 21:44
Я хочу сохранить штрих код в рисунок, а потом вставить его в Word как рисунок.
мне нужно было обычный отчет загнать в ворд, так что бы его можно было удобно редактировать.
Выкрутился так:
1) Сохранил отчет в хтмл.
2) Прочитал тэги хтмл и сунул в ворд. (Получилось так как если бы ворд набран вручную, без дополнительных управляющих штучек от 1с).

так вот. если сохранить отчет в хтмл, то может быть этот самый штрих код сам сохранится в какой-то рисунок.
Спасибо за Сказать спасибо

alexboxrostov

Спасибо за помощь. Вот результат:

Функция ПолучитьАдрессКартинки(СсылкаДоговора)
      
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |   Штрихкоды.Штрихкод,
                  |   Штрихкоды.ТипШтрихкода
                  |ИЗ
                  |   РегистрСведений.Штрихкоды КАК Штрихкоды
                  |ГДЕ
                  |   Штрихкоды.Владелец = &Владелец";
   Запрос.УстановитьПараметр("Владелец", СсылкаДоговора);
   ШтрихКод = Запрос.Выполнить().Выгрузить()[0].Штрихкод;
   ТипШтрихкода = Запрос.Выполнить().Выгрузить()[0].ТипШтрихкода;
   
   Макет               = ПолучитьМакет("ШК");
   ОбластьМакета    = Макет.ПолучитьОбласть("ЭтикеткаШирина|ЭтикеткаВысота");   
   
      РисунокШтрихКод    = ОбластьМакета.Рисунки.ШтрихКод;
      ТипШтрихКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;
      Штрихкод = ШтрихКод;
      Если РаботаСТорговымОборудованием.ПроверитьШтрихКод(Штрихкод, ТипШтрихКода) Тогда
         
         ТипКода = ПолучитьЗначениеТипаШтрихкодаДляЭУ(ТипШтрихкода);
         Попытка
            РисунокШтрихКод.Объект.ТипКода   = ТипКода;
            РисунокШтрихКод.Объект.Сообщение = Штрихкод;
   
         Исключение
            Сообщить("Не установлена компонента печати штрих кодов");   
         КонецПопытки;
      
      КонецЕсли;
   
   Макет.Вывести(ОбластьМакета);
   ТабДокумент  = Новый ТабличныйДокумент;
   ТабДокумент.Вывести(ОбластьМакета);
   Каталог = ("E:\ОтправкаНакладныхИз1с\ВАЖНО\AEMSK.HTML");
   ТабДокумент.Записать(Каталог, "HTML");
   
   
Возврат "E:\ОтправкаНакладныхИз1с\ВАЖНО\AEMSK_files\image000.png"      

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

Похожие темы (5)

Рейтинг@Mail.ru Rambler's Top100

Поиск