|
v7: Печать QR Кода на чеке ККМ из 1С 7.7
| ☑ |
0
Diman_Kr
03.05.16
✎
08:47
|
Не получается корректно напечатать QR код, чтобы ссылка открывалась, может кто подскажет где собака зарыта? вот код:
Bar=";;
ECR.BarcodeType = 3;
ECR.BarcodeStartBlockNumber = 0;
ECR.BarcodeDataLength = ÑòðÄëèíà(Bar);
ECR.BarCode = Bar;
ECR.BarcodeAlignment= 0;
ECR.BarcodeParameter1 =0;
ECR.BarcodeParameter2= 0;
ECR.BarcodeParameter3= 6;
ECR.BarcodeParameter4= 0;
ECR.BarcodeParameter5= 1;
ECR.Password = 1;
ECR.Print2DBarcode();
ECR.WaitForPrinting();
ECR.FeedDocument();
|
|
1
DrZombi
гуру
03.05.16
✎
10:21
|
(0) какой исчерпывающий код :)
...
Соизвольте тогда написать хоть версию сего мопеда, через который вы пытаетесь нарисовать свой КУ-бар код :)
|
|
2
DrZombi
гуру
03.05.16
✎
10:23
|
+(0) Выб хоть для примера, показали бы народу, что у вас получается, в принципе :)
|
|
3
Diman_Kr
03.05.16
✎
10:59
|
Выходит QR код, но при чтении смартфоном получается не ссылка URL, а формат: QR_CODE,тип текст, при чем с непонятными символами. Такое чувство, что параметр Bar нужно в другую кодировку переделывать.
ÑòðÄëèíà=СТРДлина
Используется:
ECR = CreateOleObject('AddIn.DrvFR')
|
|
4
kupec
04.05.16
✎
15:14
|
ПарсерХМЛ = СоздатьОбъект("AddIn.XMLParser");
ХМЛ = ПарсерХМЛ.СоздатьДокумент();
ХМЛ.Загрузить(ФайлОтвета);
УзелA = ХМЛ.ВыбратьУзел("A");
Попытка
УРЛ = УзелA.ВыбратьУзел("url").Значение;
СИГН = УзелA.ВыбратьУзел("sign").Значение;
СИГНЕГАИС=СИГН;УРЛЕГАИС=УРЛ;
ТабЕГАИС.ВывестиСекцию("Шапка1");
ТабЕГАИС.ВывестиСекцию("Шапка2");
Исключение
Предупредить("Ошибка получения ответа от сервера УТМ ЕГАИС."+РазделительСтрок+СокрЛП(ОписаниеОшибки()));
Возврат;
КонецПопытки;
|
|