Комментарии
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Кто нибудь пробовал распечатывать QR код и сканировать? Скачал обработку потому что самому не получалось правильно сделать, что бы подсмотреть формат штрихкода, формат не задается (высота, ширина), при таких настройках сканироваться не будут марки.
(6) к сожалению нет возможности проверить вашу обработку, я всего лишь написал что при таком же коде формирования QR кода, сканер Datalogic 2430 не сканировал QR код. Только после внесения правок в ширину, высоты и ECL штрихкод нормально отсканировался.
Немного подправив и добавив Запрос QueryBarcode в саму конфигурацию УТ 10.3.39.1, обработка работает отлично из обычного приложения. Не плохо было бы добавить еще наименование алкогольной продукции и печать штрих кодов акцизных марок не каждый на своем листе а сколько влезет на лист.
В команде "pl" надо исправить:
А у автора /opt/out/Ticket/
Иначе
//Получаем файл ответа
Соединение = Новый HTTPСоединение(УТМ1,Порт);
Соединение.Получить("/opt/out/ReplyBarcode/" + МассивПутьКХмлЗапрос[6] , РабочаяПапка + "otvet.xml");
КонецЕсли;А у автора /opt/out/Ticket/
Процедуру у себя подправил.
Процедура ВывестиPDFКод(ТабДок, PDFСтрока, ДатаМарка ,ОбластьМакета)
Если Не ПустаяСтрока(PDFСтрока) Тогда
PDFКод = ДанныеPDF417(PDFСтрока);
Если ТипЗнч(PDFКод) = Тип("ДвоичныеДанные") Тогда
КартинкаPDFКода = Новый Картинка(PDFКод);
ОбластьМакета.Рисунки.PDF417.Картинка = КартинкаPDFКода;
Обл = ОбластьМакета.Область("ДатаМарка");
Обл.Текст = ДатаМарка;
ТабДок.Вывести(ОбластьМакета);
Иначе
ТекстСообщения ="Не удалось сформировать PDF-код.
|Технические подробности см. в журнале регистрации.";
Сообщить(ТекстСообщения);
КонецЕсли;
КонецЕсли;
Конецпроцедуры Показать
Вывод нескольких штрих кодов на листе
&НаКлиенте
Процедура ПечатьПДФ(Команда)
Если СокрЛП(ЭлемТаб.Шк)<>"" Тогда
ТабДок = Новый ТабличныйДокумент;
Область = ПолучитьОбластьНаСервере();
Для каждого ЭлемТаб Из ШКмарки Цикл
ВывестиPDFКод(ТабДок, ЭлемТаб.Шк, ЭлемТаб.ДатаМатрикс, Область);
КонецЦикла;
ТабДок.Показать();
КонецЕсли;
КонецПроцедуры
Показать
В модуле формы. Лишние процедуры убрать.
Оставить только
СведенияОВнешнейОбработке()
В форме у процедур и функций убрать Экспорт.
********************************************************
Чтобы исключить косяка при работе кассы.
Оставить только
СведенияОВнешнейОбработке()
В форме у процедур и функций убрать Экспорт.
********************************************************
Чтобы исключить косяка при работе кассы.
Добавить внешнее событие. Для сканера штрих кода.
&НаКлиенте
Процедура ВнешнееСобытие(Источник, Событие, Данные)
Если ВводДоступен() Тогда
IDЗапросШК="";
ПодключаемоеОборудованиеРТКлиент.ВнешнееСобытиеОборудования(ЭтотОбъект, Источник, Событие, Данные);
//Сообщить("Источник="+СокрЛП(Источник)+" Событие"+СокрЛП(Событие)+" Данные="+СокрЛП(Данные));
ДатаМарка = СокрЛП(Данные);
Стр = ШКмарки.Добавить();
Стр.ДатаМатрикс = ДатаМарка;
МассивДатаМарки = РазборСтроки(ДатаМарка);
Стр.Тип = МассивДатаМарки[0];
Стр.Серия = МассивДатаМарки[1];
Стр.Номер = МассивДатаМарки[2];
КонецЕсли;
КонецПроцедуры
Показать
Подключение компоненты взял из Розницы.
Функция КомпонентаФормированияШтрихкода(Отказ)
Отказ = ложь;
ВнешняяКомпонента = МенеджерОборудованияСерверПовтИсп.ПодключитьВнешнююКомпонентуПечатиШтрихкода();
Если ВнешняяКомпонента = Неопределено Тогда
ВызватьИсключение НСтр("ru = 'Ошибка подключения внешней компоненты печати штрихкода!'");
КонецЕсли;
Возврат ВнешняяКомпонента;
КонецФункции
Показать
Ок.
И еще в модуле в процедуре
СведенияОВнешнейОбработке()
Поправьте текст.
РегистрационныеДанные.Вставить("Наименование", "Запрос QueryBarcode в ЕГАИС 1.2");
РегистрационныеДанные.Вставить("БезопасныйРежим", Ложь);
РегистрационныеДанные.Вставить("Версия", "v 1.2");
У вас вроде в Заголовке форума написано v 1.4
Запрос QueryBarcode в ЕГАИС 1.4 от 03.01.2017
РабочуюПапку я под себя в двух местах указал.
*******************************************************************
Если скажете как в личке Файл, прикрепить. Сброшу.
*******************************************************************
И еще в модуле в процедуре
СведенияОВнешнейОбработке()
Поправьте текст.
РегистрационныеДанные.Вставить("Наименование", "Запрос QueryBarcode в ЕГАИС 1.2");
РегистрационныеДанные.Вставить("БезопасныйРежим", Ложь);
РегистрационныеДанные.Вставить("Версия", "v 1.2");
У вас вроде в Заголовке форума написано v 1.4
Запрос QueryBarcode в ЕГАИС 1.4 от 03.01.2017
РабочуюПапку я под себя в двух местах указал.
*******************************************************************
Если скажете как в личке Файл, прикрепить. Сброшу.
*******************************************************************
Добрый день. А нет ли возможности выводить при печати не только QR код, но и цифровой код датаматрикса? Т.к. не совсем понятно как потом безошибочно распределить распечатанные коды по бутылкам. И еще момент: сканер подключенный к 1с через эмуляцию компорта не выводит датаматрикс в данную обработку?
Здравствуйте! Не заполняется параметры организации при нажатии кнопки Заполнить параметры УТМ, кнопка добавить тоже не активна. В настройках обмена с ЕГАИС магазин идет как торговый обьект, подумали может дело в этом. Розница 2.2.6.30. Прикрепил скриншоты. В чем может быть проблема
Прикрепленные файлы:
Здравствуйте! Как скачать обновленную версию? Что-то у меня старая не работает, а только понадобилась. Покупал в январе, электронка computernets@mail.ru. Запрос, судя по всему, не уходит, хотя документы приходят, настройки одинаковые
Прикрепленные файлы:
Вакансии
Консультант-программист по информационным системам 1С
Москва
зарплата от 150 000 руб. до 200 000 руб.
Полный день
Москва
зарплата от 150 000 руб. до 200 000 руб.
Полный день