По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1) Как я решил проблему, потратив 6 часов... Самое главное, что я заметил: штрихкод не растягивается по ширине, если вы выставили ему ширину меньше какого-то значения. Просто увеличивайте размер штрихкода, пока его свойство "растягивать" не начнет работать. Только придется подогнать весь остальной макет под новые размеры штрихкода, увеличить область печати. Если 1С не хочет сохранять увеличенный макет, пишет "количество [ценников] на странице по горизонтали должно быть 0", значит макет не влезает в размеры листа, настройте там же в макете параметры страницы, обнулите отступы от караев листа, поставьте масштаб "по ширине", и временно увеличьте в настройках дравера принтера размеры листа, например, с 58х40 до 580х400, лишь бы макет сохранился. После сохранения макета верните размеры обратно. Эксперементируйте.
Пробовал скопировать рисунок штрихкода из УТП не помогло, вместо рисунка закрашенная красными диагональными линиями область. При редактирование свойства "Элемент управления 1с: Печать штрихкодов" изменения не сохраняются (ни выравнивание текста, ни размер шрифта для размера цифр).
(6) Alexey_, щелкнув по изображению штрихкода правой кнопкой мыши и выбраав пункты меню "Элемент управления 1с: Печать штрихкодов" - Свойства - Оформление - Выравнивание текста устанавливаю "растянуть". При таком редактировании даже размер шрифта цифр менять не надо они корректно отображаются. Если таким же образом отредактировать шаблон, то эти изменения не сохраняются :( Почему не могу понять.
Способ указанный тут не помогает.
Все равно изменения растягивания картинки штрихкода не сохраняются в макете
Ставите указатель на штрихкод, правой кнопкой мыши, свойства и в самом верху окошка свойств выбираете элемент управления 1с:печать штрихкодов вместо "рисунок". Снимаете галочку напротив "Из стиля" и ставите нужный вам размер шрифта, затем все сохраняете и вуаля! все работает как надо!
Все равно изменения растягивания картинки штрихкода не сохраняются в макете
Я добавил умножение ширины на коэффициент в
Обработки.ПечатьЭтикетокИЦенников.СформироватьПечатныеФормыЭтикетокИЦенников
Так пробовал, не помогает:
Хотя нет, окончательное решение - делать в свойствах картинки растягивать, а в самой картинке задавать убирать лишний фон, так растягивает (в коде видите гипотезу, что размер пикселей по ширине другой, но это не так):
Т.е. картинка генерируется на всю ширину и потом еще растягивается.
Обработки.ПечатьЭтикетокИЦенников.СформироватьПечатныеФормыЭтикетокИЦенников
#Вставка
ПараметрыШтрихкода.Ширина = ПараметрыШтрихкода.Ширина * 1.4;
#КонецВставки
Так пробовал, не помогает:
&Вместо("ИзображениеШтрихкода")
Функция дор_ИзображениеШтрихкода(ВнешняяКомпонента, ПараметрыШтрихкода)
Если ПараметрыШтрихкода.Свойство("УбратьЛишнийФон") Тогда
Сообщить("Удалить лишний фон: " + ПараметрыШтрихкода.УбратьЛишнийФон);
КонецЕсли;
ПараметрыШтрихкода.Вставить("УбратьЛишнийФон", истина);
Результат = ПродолжитьВызов(ВнешняяКомпонента, ПараметрыШтрихкода);
Возврат Результат;
КонецФункции
ПоказатьХотя нет, окончательное решение - делать в свойствах картинки растягивать, а в самой картинке задавать убирать лишний фон, так растягивает (в коде видите гипотезу, что размер пикселей по ширине другой, но это не так):
#Вставка
//КоличествоМиллиметровВПикселеПоШирине = Эталон.Рисунки.Квадрат100Пикселей.Ширина / 100;
//ПараметрыШтрихкода.Ширина = Окр(Рисунок.Ширина / КоличествоМиллиметровВПикселеПоШирине);
ПараметрыШтрихкода.Вставить("УбратьЛишнийФон", Истина);
#КонецВставкиТ.е. картинка генерируется на всю ширину и потом еще растягивается.
Хотя нет, не помогло, в итоге сделал так:
И в самом макете подобрал:
$ШиринаКартинкиШК*1.5
$ШиринаРисункаШК*1.3
Если ЗначениеЗаполнено(ЗначениеШтрихкода) Тогда
ПараметрыШтрихкода = Новый Структура;
ПараметрыШтрихкода.Вставить("Ширина", Окр(Рисунок.Ширина / КоличествоМиллиметровВПикселе));
#Вставка
ИскОбласть = СтруктураШаблона.МакетЭтикетки.НайтиТекст("$ШиринаКартинкиШК*",,,,ложь,,ложь); //ищем не целиком, с учетом регистра
Если ИскОбласть <> Неопределено Тогда
ТекКоэффициент = Число(СокрЛП(Сред(ИскОбласть.Текст, 19)));
Сообщить("Умножаем ширину картинки ШК на:" + ТекКоэффициент);
ПараметрыШтрихкода.Ширина = Окр(ПараметрыШтрихкода.Ширина * ТекКоэффициент);
КонецЕсли;
//КоличествоМиллиметровВПикселеПоШирине = Эталон.Рисунки.Квадрат100Пикселей.Ширина / 100;
//ПараметрыШтрихкода.Ширина = Окр(Рисунок.Ширина / КоличествоМиллиметровВПикселеПоШирине);
//ПараметрыШтрихкода.Вставить("УбратьЛишнийФон", Истина);
#КонецВставки
ПараметрыШтрихкода.Вставить("Высота", Окр(Рисунок.Высота / КоличествоМиллиметровВПикселе));
Если СтруктураШаблона.ТипКода = 16 Тогда
МинСторона = Мин(ПараметрыШтрихкода.Ширина, ПараметрыШтрихкода.Высота);
ПараметрыШтрихкода.Ширина = МинСторона;
ПараметрыШтрихкода.Высота = МинСторона;
КонецЕсли;
Если СтруктураШаблона.Свойство("УровеньКоррекцииQR") Тогда
ПараметрыШтрихкода.Вставить("УровеньКоррекцииQR", СтруктураШаблона.УровеньКоррекцииQR);
Иначе
ПараметрыШтрихкода.Вставить("УровеньКоррекцииQR", 0);
КонецЕсли;
ПараметрыШтрихкода.Вставить("Штрихкод", ЗначениеШтрихкода);
ПараметрыШтрихкода.Вставить("ТипКода", СтруктураШаблона.ТипКода);
ПараметрыШтрихкода.Вставить("ОтображатьТекст", СтруктураШаблона.ОтображатьТекст);
ПараметрыШтрихкода.Вставить("РазмерШрифта", СтруктураШаблона.РазмерШрифта);
Если СтруктураШаблона.Свойство("УголПоворота") Тогда
ПараметрыШтрихкода.Вставить("УголПоворота", СтруктураШаблона.УголПоворота);
КонецЕсли;
Рисунок.Картинка = МенеджерОборудованияВызовСервера.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
#Вставка
ИскОбласть = СтруктураШаблона.МакетЭтикетки.НайтиТекст("$ШиринаРисункаШК*",,,,ложь,,ложь); //ищем не целиком, с учетом регистра
Если ИскОбласть <> Неопределено Тогда
ТекКоэффициент = Число(СокрЛП(Сред(ИскОбласть.Текст, 18)));
Сообщить("Умножаем ширину рисунка ШК на:" + ТекКоэффициент);
Рисунок.Ширина = Окр(Рисунок.Ширина * ТекКоэффициент);
КонецЕсли;
//КоличествоМиллиметровВПикселеПоШирине = Эталон.Рисунки.Квадрат100Пикселей.Ширина / 100;
//ПараметрыШтрихкода.Ширина = Окр(Рисунок.Ширина / КоличествоМиллиметровВПикселеПоШирине);
//ПараметрыШтрихкода.Вставить("УбратьЛишнийФон", Истина);
#КонецВставки
КонецЕсли;
ПоказатьИ в самом макете подобрал:
$ШиринаКартинкиШК*1.5
$ШиринаРисункаШК*1.3
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот