Здравствуйте! Создаю отдельную тему для такого дела...
Мне надо было сделать макет и процедуру печать для купонов. Все купоны (как и всевозможные карты скидок), лежат в справочнике "ИнформационныеКарты". Делать нечего, сами понимаете, всё сделал. Но! Какого лешего половина карт выходят на печать идеально, а половина нет? Они ведь абсолютно все идентичны! Разница только в имени, номере карты и номере моб.телефона. Всё остальное один в один, но одна карта отпечатает хорошо, а вторая вместо кода поставит "1234567890123" и напишет "Ошибочный штрих-код!" в ТекстКода и в КонтрольныйСимвол =_=
Код свой прилагаю ниже...
Процедура Печать() Экспорт
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Купон";
Макет = ПолучитьМакет("Печать");
Функция ПолучитьЗначениеТипаШтрихкодаДляЭУ(ТипКода)
Перем Значение;
Если ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN8 Тогда
Значение = 0;
ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13 Тогда
Значение = 1;
ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN128 Тогда
Значение = 2;
ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code39 Тогда
Значение = 3;
ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code128 Тогда
Значение = 4;
Иначе
Значение = -1;
КонецЕсли;
(3) Так и это так понятно! Но даже если пишу жестко ТекстКода = 000000043984, а КонтрольныйСимвол = 8, то ситуацию это не меняет... После отработки кода не смотря на назначение всё равно пишет "Ошибочный штрих-код!"
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший