Имя: Пароль:
1C
1С v8
Штрихкод в Word
0 Масянька
 
26.07.22
16:22
День добрый!
Из ЗУП формируется некий док-т. Как вставить штрихкод?
Док-т заполняется через {}.
Штрихкод есть (цифры).
Спасибо.
1 trad
 
26.07.22
16:40
Если 1D ШК, то ttf + алгоритм преобразования ШК в символы для ttf
2 СеменовСемен
 
26.07.22
16:42
1с же картинку генерит. картинку то наверняка можно в ворд вставить
3 Масянька
 
26.07.22
16:44
(1) Да нет.
Штрихкод у меня генерится. Картинка (судя по всему) тоже. А как вставить?
Или через эту хрень УправлениеПечатью.ИнициализироватьМакетОфисногоДокумента (БСП походу) - не вариант?
4 Масянька
 
26.07.22
16:45
ДвоичныеДанныеМакета = ПолучитьМакет("ПФ_DOC_Уведомление");
    
    Если ДвоичныеДанныеМакета <> Неопределено Тогда
        
        Данные = Новый Структура;

        ПечатнаяФорма = УправлениеПечатью.СведенияОПечатнойФорме(КоллекцияПечатныхФорм, "Уведомление");
        
        ПечатнаяФорма.ТабличныйДокумент = Новый ТабличныйДокумент;
        
        СсылкаНаДокумент = ОбъектыПечати[0];
        
        Макет = УправлениеПечатью.ИнициализироватьМакетОфисногоДокумента(ДвоичныеДанныеМакета,Неопределено);
        ПечатнаяФормаДокумента = УправлениеПечатью.ИнициализироватьПечатнуюФорму(Неопределено, Макет.НастройкиСтраницыМакета, Макет);        
        
        ОбластьКолонтитул = Новый Структура;
        ОбластьКолонтитул.Вставить("ИмяОбласти", "НижнийКолонтитул");
        ОбластьКолонтитул.Вставить("ТипОбласти", "НижнийКолонтитул");

        ОбластьЗаголовок = Новый Структура;
        ОбластьЗаголовок.Вставить("ИмяОбласти", "Заголовок");
        ОбластьЗаголовок.Вставить("ТипОбласти", "Общая");
        
..............
                        ПараметрыШтрихкода = Новый Структура;
                        ПараметрыШтрихкода.Вставить("Ширина",           106);
                        ПараметрыШтрихкода.Вставить("Высота",           44);
                        ПараметрыШтрихкода.Вставить("Штрихкод",            СтрокаШтрихкода);
                        ПараметрыШтрихкода.Вставить("ТипКода",          1);
                        ПараметрыШтрихкода.Вставить("ОтображатьТекст",     Истина);
                        
                        ДанныеШК = ГенерацияШтрихкода.ИзображениеШтрихкода(ПараметрыШтрихкода);
                        
        Данные.Вставить("Штрихкод", ДанныеШК.ДвоичныеДанные);
        Данные.Вставить("ДатаУведомления", ДатаУведомление);

        Область = УправлениеПечатью.ОбластьМакета(Макет, ОбластьЗаголовок);
        УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФормаДокумента, Область, Данные);
5 Масянька
 
26.07.22
16:46
+ (4) В файле такая строчка - {v8 Штрихкод}
6 Масянька
 
26.07.22
16:57
Вы мне просто скажите, что через БСП низя, а можно по православному (find + execeute).
Да?
7 Kigo_Kigo
 
26.07.22
17:07
втавь поле с EanGnivc.ttf и загоняй туда свой ШК
8 lodger
 
26.07.22
17:10
(6) ЗУП в целом отказался от этого функционала в пользу связки работы с Документооборотом. вот там можно ШКодировать.
но может и есть какие-то ошмётки функционала в БСП и общих модулях. (как некоторые КОРП фичи вполне включаются константами и костылями).
9 Масянька
 
26.07.22
17:13
(7) Политика партии (тьфу) предприятия.
10 Kigo_Kigo
 
26.07.22
17:16
(9) а что тут с политикой не так, в шрифте? так он рекомендованный 1С, они его активно использовали на старых версиях отчетности
11 Масянька
 
26.07.22
17:26
(10) Когда его рекомендовала 1С не было пакета санкций и отказа от всего иностранного.
Короче, вариант.
12 Масянька
 
26.07.22
17:27
(11) Не вариант.
13 ДедМорроз
 
26.07.22
19:07
Когда-то давно я штрих-код рисовал через MsGtaph,но тогда была только 7.5 и никаких картинок.
14 Масянька
 
27.07.22
08:14
(13) Мужики! У меня есть путь обхода. Мне интересно (типа того) - как сделать с БСП?
Ведь в любой вакансии пишется "знание БСП". Вот и на фига её знать, когда нужно делать обходными путями.
15 Йохохо
 
27.07.22
08:41
(14) смари короч https://cloud.mail.ru/public/PVZg/L1Ja5zGTw
16 Масянька
 
27.07.22
08:48
(15) У меня нет доступа... Политика партии (тьфу) организации.
17 Масянька
 
27.07.22
08:51
(15) Пасиб...
18 Lexandr
 
27.07.22
09:22
Вот только вопрос. Как с помощью компоненты из БСП получить штрихкод EAN13 с краевыми и центральным знаками — удлиненными тонкими штрихами? Какие параметры не пробую все штрихи одинаковой высоты и текст по всей ширине.
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.