Имя: Пароль:
1C
1C 7.7
v7: Печать QR Кода на чеке ККМ из 1С 7.7
,
0 Diman_Kr
 
03.05.16
08:47
Не получается корректно напечатать QR код, чтобы ссылка открывалась, может кто подскажет где собака зарыта? вот код:
Bar="http://check.egais.ru?id=f98e1165-7402-4a74-b4dd-3506e1d7f9f4&dt=1103161207&cn=020000322805";;
    
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 нужно в другую кодировку переделывать.
ÑòðÄëèí&#224=СТРДлина
Используется:
ECR = CreateOleObject('AddIn.DrvFR')
4 kupec
 
04.05.16
15:14
ПарсерХМЛ = СоздатьОбъект("AddIn.XMLParser");
                        ХМЛ = ПарсерХМЛ.СоздатьДокумент();
                        ХМЛ.Загрузить(ФайлОтвета);
                        УзелA = ХМЛ.ВыбратьУзел("A");      
                        Попытка                                                          
                            УРЛ  = УзелA.ВыбратьУзел("url").Значение;
                            СИГН = УзелA.ВыбратьУзел("sign").Значение;
                            СИГНЕГАИС=СИГН;УРЛЕГАИС=УРЛ;
                            ТабЕГАИС.ВывестиСекцию("Шапка1");
                            ТабЕГАИС.ВывестиСекцию("Шапка2");
                        Исключение
                            Предупредить("Ошибка получения ответа от сервера УТМ ЕГАИС."+РазделительСтрок+СокрЛП(ОписаниеОшибки()));
                            Возврат;
                        КонецПопытки;
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой