печать QR кодов из 1С 8.2 УТ 10.3

[Normol]

Подскажите у кого как организована. У нас что-то не получается.

[Normol]

Каким образом связаться с Вами?

[Rusik79]

УТ 10.3 (10.3.36.1)
1.Установка последних драйверов и ККМ с поддержкой графики.
2. В общий модуль ИнтеграцияЕГАИСКлиентПереопределяемый.ПечатьСлипЧека после Результат.РезультатПечатиЧека = МенеджерРаботыСОборудованием().ПечатьТекста(ИдентификаторУстройства, МассивСтрокСлипЧека, ШиринаСтроки); добавил
АдресЧекаДляПечати = СокрЛП(ПараметрыЧекаЕГАИС.Адрес)
Результат.РезультатПечатиЧека = МенеджерРаботыСОборудованием().ПечатьКубика(ИдентификаторУстройства, АдресЧекаДляПечати , ШиринаСтроки);

3. В модуль обработки ТОСервер добавил функцию Функция ПечатьКубика(Идентификатор, АдресЧекаУТМЕГАИС, ШиринаЧека) Экспорт
Обработка = Неопределено;
Объект = Неопределено;
Результат = ПолучитьОбъектДрайвера(Идентификатор, Обработка, Объект);
Если НЕ ЗначениеЗаполнено(Результат) Тогда
Результат = Обработка.НапечататьКубик(Объект, АдресЧекаУТМЕГАИС, ШиринаЧека);
мОписаниеОшибки = Объект.ОписаниеОшибки;
Иначе
мОписаниеОшибки = ПолучитьТекстОшибкиПодключенияТО("ФР");
КонецЕсли;
Возврат Результат;
КонецФункции
4. В соответствующую обработку по торговому оборудованию добавил ПечатьКубика

[Rusik79]

Функция НапечататьКубик(Объект, АдресЧека, Ширина) Экспорт
Результат = мНетОшибки;
ПрогИД = "AddIn.FprnM45";
ПодключитьВнешнююКомпоненту(ПрогИД);
Драйвер = Новый (ПрогИД);
//***
Драйвер.BarcodeType = 84;
Драйвер.Barcode = АдресЧека;
Драйвер.Alignment = 1;
Драйвер.AutoSize = TRUE;
Драйвер.PrintBarcode();
Драйвер.Barcode = "";
Возврат Результат;

КонецФункции

[astronavt1987]

Получилось так.
Спасибо за подсказку в нужном направлении.
В моем случае - драйвера 8.x, напоминаю.
В теории должно работать и на последних 6.х, через компоненту
//ПрогИД = "AddIn.FPrnM6";

Код: Выбрать все


Функция НапечататьКубик(Объект, АдресЧека, Ширина) Экспорт
   Отключить(Объект);
   Результат = мНетОшибки;
   НомерЧека = 0;
   НомерСмены = 0;
   
   Попытка
      ПрогИД = "AddIn.FPrnM8";//ПрогИД = "AddIn.FPrnM6";
      ПодключитьВнешнююКомпоненту(ПрогИД);
      Драйвер = Новый (ПрогИД);
      //сообщить(прогид+ " компонента создана");
      
      Драйвер.AddDevice();
      Драйвер.PortNumber = Объект.Параметры.Порт;
      Драйвер.BaudRate = Объект.Параметры.Скорость;
      
      Драйвер.DeviceEnabled = 1;
      Драйвер.Password = 30;//Объект.Параметры.ПарольПользователя;
      Драйвер.Mode = 1;
      Драйвер.SetMode();
      Драйвер.BeginDocument();
      
      Драйвер.Barcode = АдресЧека;
      Драйвер.BarcodeType = 84;
      Драйвер.Height = 50;   
      Драйвер.AutoSize = "True";
      Драйвер.Alignment = 1;
      Драйвер.Scale = 300;
      
      Драйвер.BarcodeControlCode = "False";
      Драйвер.PrintBarcodeText = "False";
      Драйвер.PrintPurpose = 1;
      Драйвер.PrintBarcode();
      Драйвер.EndDocument();
      Драйвер.DeviceEnabled = 0;
      Драйвер.DeleteDevice();
   Исключение
      Сообщить("Невозможно подключить внешнюю компоненту.
      | Проверьте, что внешняя компонента корректно установлена и имеет ту же версию,
      | что и требуемая обработкой обслуживания.");
   КонецПопытки;
   
   Подключить(Объект);
   Возврат Результат;

КонецФункции




Добрый день. Вы можете за доп.плату помочь настроить печать QR кода на фискальнике FPrint 5200 УТ 10.3?

[Rusik79]

Тут все расписано подробно.

[Rusik79]

Дело не драйвере, а в обработке обслуживания 1с. Типовая 1с УТ 10.3 не будет печатать QR, т.к в обработке это не прописано.

[Rusik79]

Согласен, 1с Розница печатает, просто тема по УТ 10.3. А методы там разные.

[astronavt1987]

Согласен, 1с Розница печатает, просто тема по УТ 10.3. А методы там разные.

я попытался изменить код в Обработке обслуживания , результата нет, QR-код так и не печается. Версия драйвера АТОЛ 8.09. Что ещё может быть? Фискальник FPrint 5200K

[Rusik79]

В обработку обслуживания что передаете? Откуда?