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

Печать купонов с штрих-кодом УТ 10.3

Автор Elfidor, 24 янв 2020, 17:35

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

Elfidor

Товарищи, большая просьба, объяснить, как такое возможно?! Мне надо было сделать макет и процедуру печать для купонов. Все купоны (как и всевозможные карты скидок), лежат в справочнике "ИнформационныеКарты". Делать нечего, сами понимаете, всё сделал. Но! Какого лешего половина карт выходят на печать идеально, а половина нет? Они ведь абсолютно все идентичны! Разница только в имени, номере карты и номере моб.телефона. Всё остальное один в один, но одна карта отпечатает хорошо, а вторая вместо кода поставит "1234567890123" и напишет "Ошибочный штрих-код!" в ТекстКода и в КонтрольныйСимвол =_=
Скрины и код свой прилагаю ниже...

Процедура Печать() Экспорт

ТабДок                     = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Купон";
Макет                           = ПолучитьМакет("Печать");

Шапка = Макет.ПолучитьОбласть("Шапка");
Шапка.Параметры.Заполнить(ЭтотОбъект);
ТабДок.Вывести(Шапка);
// Штрихкод
Штрихкод = Макет.ПолучитьОбласть("Штрихкод");
Штрихкод.Рисунки.ШК.Объект.ТипКода = ПолучитьЗначениеТипаШтрихкодаДляЭУ(ЭтотОбъект.ТипШтрихКода);
Штрихкод.Рисунки.ШК.Объект.Сообщение = ЭтотОбъект.КодКарты;
ТабДок.Вывести(Штрихкод);

ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();

КонецПроцедуры // ПечатьЦенника(

Функция ПолучитьЗначениеТипаШтрихкодаДляЭУ(ТипКода)
Перем Значение;

Если ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN8 Тогда
Значение = 0;
ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13 Тогда
Значение = 1;
ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN128 Тогда
Значение = 2;
ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code39 Тогда
Значение = 3;
ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code128 Тогда
Значение = 4;
Иначе
Значение = -1;
КонецЕсли;

Возврат Значение;
КонецФункции

temrmal

Штрихкод.Рисунки.ШК.Объект.Сообщение = ЭтотОбъект.КодКарты;

Как же одинаковые. Штрихкод разный!!! от него и пляши

Elfidor

Всё оказалось на столько просто и смешно на самом деле... Дело в том, что на форме элемента в поле КодКарты после штрихкода стоял пробел, всего то... =_=
Вывод -  будьте более внимательны к мелочам :befhbt:

Теги:

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

Рейтинг@Mail.ru

Поиск