:: Visual Foxpro, Foxpro for DOS
Re: Разрешительный режим Честного знака
Евгений Банщиков

Сообщений: 235
Откуда: Kurgan
Дата регистрации: 09.04.2004
Равиль
вот сижу и думаю ... вроде : "valid":true
но смущает что в коде теперь слеш отображается - или так и должно быть ?
У меня " в "cis" отображается так же
Думаю , что если valid , verified и found = true , то беспокоится не о чем. Это наверное какая то внутренняя фича их софта при формировании поля "cis" в ответе.
Ratings: 0 negative/1 positive
Re: Разрешительный режим Честного знака
Alsim

Сообщений: 3682
Откуда: Екатеринбург
Дата регистрации: 17.11.2004
В общем показался у меня вроде бы свет в конце задницы, ответы получаю, да вот как вставлять этот реквизит 1260 в файл-чек найти не могу.
Звонил в поддержку чекопечатей, пожимают плечами, обещал поспрашивать у "Штрихов".
видимо придётся методом тыка добавлять к *****UasJv93Tfgv что вроде 1265UUID=b99278f8-fbef-42ff-9159-d1c743760f36&Time=1721227186096 и так далее
Да ещё не факт что аппарат умеет это передавать ))))
***
head;0;0;;0;;;0;0;1;0;*********;3;****@yandex.ru;****ева В.В.;
str;Вода "Тассай" газированная 0,25л;1;200.00;4;0;0;200.00;4870071002830;4;1;;0104870071002830215,*****UasJv93Tfgv;0;
str;Вода "Тассай" негазированная;1;200.00;4;0;0;200.00;4870071002878;4;1;;0104870071002878215/JXr*****LrJ93V7oD;0;
end;0;0.00;400.00;0;0;1;1;
Ratings: 0 negative/0 positive
Re: Разрешительный режим Честного знака
Равиль

Сообщений: 6692
Откуда: Уфа
Дата регистрации: 01.08.2003
Alsim
В общем показался у меня вроде бы свет в конце задницы, ответы получаю, да вот как вставлять этот реквизит 1260 в файл-чек найти не могу.
Звонил в поддержку чекопечатей, пожимают плечами, обещал поспрашивать у "Штрихов".
видимо придётся методом тыка добавлять к *****UasJv93Tfgv что вроде 1265UUID=b99278f8-fbef-42ff-9159-d1c743760f36&Time=1721227186096 и так далее
Да ещё не факт что аппарат умеет это передавать ))))

***
head;0;0;;0;;;0;0;1;0;*********;3;****@yandex.ru;****ева В.В.;
str;Вода "Тассай" газированная 0,25л;1;200.00;4;0;0;200.00;4870071002830;4;1;;0104870071002830215,*****UasJv93Tfgv;0;
str;Вода "Тассай" негазированная;1;200.00;4;0;0;200.00;4870071002878;4;1;;0104870071002878215/JXr*****LrJ93V7oD;0;
end;0;0.00;400.00;0;0;1;1;

Ох-ох ... методом тыка затолкать тег 1260 в черный ящик программы чекопечати ...
Не завидую
Если программа чекопечати не заброшена, то они
должны в файле предусмотреть колонки для тегов 1262, 1263, 1264, 1265
чтобы по ним вычислять тег 1260, что сомнительно
или отдельную колонку для него, тогда вычислять тебе

Если не ошибаюсь эти составные теги содержат какую-то 16-ричную последовательность.
Они вычисляется в черном ящике драйвера по исходным простым тегам - возможно придется использовать экземпляр драйвера,
например Атола :

With Registrator
.setParam(1262, "030")
.setParam(1263, "21.11.2023")
.setParam(1264, "1944"
.setParam(1265, "UUID=" + m.lcUUID + "&" +"Time=" + m.lcTime)
.utilFormTLV()
**************
lcTag1260 = .getParamStringHex(.LIBFPTR_PARAM_TAG_VALUE) && вот он заветный
*!* //.........
*!* .setParamStrHex(1260,m.lcTag1260)
Endwith


------------------
Тяжело согнать курсором муху с монитора ...
Ratings: 0 negative/1 positive
Re: Разрешительный режим Честного знака
Равиль

Сообщений: 6692
Откуда: Уфа
Дата регистрации: 01.08.2003
Кстати сегодня я не пробился до записи этого тега 1260
Клиент на удаленке, тестировать не удобно.

Все потому что, нарвался на амперсанд (&)
Вот иллюстрация :

lcUUID = "qwerty123qwerty123"
lcTime = "12345678901234"
= AnyFunc(1265, "UUID=" + m.lcUUID + "&Time=" + Alltrim(m.lcTime)
*!* тут скобки не хватает, но при компиляции ошибки нет !
*!* = AnyFunc(1265, "UUID=" + m.lcUUID + "&" + "Time=" + Alltrim(m.lcTime))
*!* обычно отделяю вот так амперсанд, чтобы не было проблем с попытками макроподстановки
Function AnyFunc
****************
Lparameters tn1, tc2


------------------
Тяжело согнать курсором муху с монитора ...




Исправлено 1 раз(а). Последнее : Равиль, 15.11.24 19:21
Ratings: 0 negative/0 positive
Re: Разрешительный режим Честного знака
Равиль

Сообщений: 6692
Откуда: Уфа
Дата регистрации: 01.08.2003
Равиль
...

Если программа чекопечати не заброшена, то они
должны в файле предусмотреть колонки для тегов 1262, 1263, 1264, 1265
чтобы по ним вычислять тег 1260, что сомнительно
или отдельную колонку для него, тогда вычислять тебе

Если не ошибаюсь эти составные теги содержат какую-то 16-ричную последовательность.
Они вычисляется в черном ящике драйвера по исходным простым тегам - возможно придется использовать экземпляр драйвера,
например Атола


Кстати да, можно вычислять - сейчас проверил - достаточно только драйвера
сама ККМ не нужна :

lcUUID = "qwerty123qwerty123"
lcTime = "12345678901234"
Registrator = Createobject("AddIn.Fptr10") && 29.04.2019
With Registrator
.setParam(1262, "030")
.setParam(1263, "21.11.2023")
.setParam(1264, "1944")
.setParam(1265, "UUID=" + m.lcUUID + "&" +"Time=" + m.lcTime)
.utilFormTLV()
**************
lcTag1260 = .getParamStringHex(.LIBFPTR_PARAM_TAG_VALUE) && вот она заветная
*!* //.........
*!* .setParamStrHex(1260,m.lcTag1260) && â
Endwith
_Cliptext = m.lcTag1260
? m.lcTag1260
*!* EE 04 03 00 30 33 30 EF 04 0A 00 32 31 2E 31 31 2E 32 30 32 33 F0 04 04 00 31 39 34 34 F1 04 2B 00 55 55 49 44 3D 71 77 65 72 74 79 31 32 33 71 77 65 72 74 79 31 32 33 26 54 69 6D 65 3D 31 32 33 34 35 36 37 38 39 30 31 32 33 347


------------------
Тяжело согнать курсором муху с монитора ...
Ratings: 0 negative/1 positive
Re: Разрешительный режим Честного знака
Равиль

Сообщений: 6692
Откуда: Уфа
Дата регистрации: 01.08.2003
А имеет значение порядок действий ?

Такое впечатление, что нельзя делать формирование структурного тега 1260 после открытия чека ? ...

У клиентов выходит ошибка типа Чек открыт и операция невозможна, но без отладчика не понятно
придется исходники туда копировать и фокс ...


------------------
Тяжело согнать курсором муху с монитора ...
Ratings: 0 negative/0 positive
Re: Разрешительный режим Честного знака
Евгений Банщиков

Сообщений: 235
Откуда: Kurgan
Дата регистрации: 09.04.2004
Равиль
А имеет значение порядок действий ?
Такое впечатление, что нельзя делать формирование структурного тега 1260 после открытия чека ? ...

У клиентов выходит ошибка типа Чек открыт и операция невозможна, но без отладчика не понятно
придется исходники туда копировать и фокс ...
Вычислять 1260 нужно до присвоения LIBFPTR_PARAM_COMMODITY_NAME , а задавать уже после
Я брал уже готовый пример с другого форума , поэтому экспериментов сам не проводил.
Тут , похоже , такая же ситуация , как и с LIBFPTR_PARAM_MARKING_CODE_ONLINE_VALIDATION_RESULT
Ratings: 0 negative/1 positive
Re: Разрешительный режим Честного знака
Равиль

Сообщений: 6692
Откуда: Уфа
Дата регистрации: 01.08.2003
Евгений Банщиков
Равиль
А имеет значение порядок действий ?
Такое впечатление, что нельзя делать формирование структурного тега 1260 после открытия чека ? ...

У клиентов выходит ошибка типа Чек открыт и операция невозможна, но без отладчика не понятно
придется исходники туда копировать и фокс ...
Вычислять 1260 нужно до присвоения LIBFPTR_PARAM_COMMODITY_NAME , а задавать уже после
Я брал уже готовый пример с другого форума , поэтому экспериментов сам не проводил.
Тут , похоже , такая же ситуация , как и с LIBFPTR_PARAM_MARKING_CODE_ONLINE_VALIDATION_RESULT

Да, так и оказалось - вынес вычисление вперед - до открытия чека и все заработало !
Правда теперь приходится сохранять его значения в строках чека, чтобы потом после открытия присваивать при регистрации каждой позиции.
Спасибо !


------------------
Тяжело согнать курсором муху с монитора ...
Ratings: 0 negative/0 positive
Re: Разрешительный режим Честного знака
Alsim

Сообщений: 3682
Откуда: Екатеринбург
Дата регистрации: 17.11.2004
Равиль
Если не ошибаюсь эти составные теги содержат какую-то 16-ричную последовательность.
Они вычисляется в черном ящике драйвера по исходным простым тегам - возможно придется использовать экземпляр драйвера,
например Атола :
СПАСИБО, Равиль ОГРОМНОЕ!
Вчера не пробовал, гуляли по заснеженным лесам и горам Южного Уктуса, сегодня не удержался попробовал.
Установил на свой домашний чистый комп минимум программы Штрихопечать. Попробовал твой тестовый пример - сработало! Отлично!
***
Залез по удалёнке на комп филиала, запустил тестовый пример. Ругнулось на "AddIn.Fptr10".
Посмотрел - драйвера Атола не установлены. Выдрал у себя из временной папки "KKT10-10.8.0.0-windows32-setup.exe", что появился в процессе установки Чекопечати.
Снёс у себя всё. Запустил пример - ругнулся на "AddIn.Fptr10", отлично!
Установил KKT10-10.8 в самом минимальном варианте - заработало.
Повторил всё тоже на удалённом компе с кассой - получил результат.
Ура! Фуф! Осталось на других филиалах проверить, стоит ли Атол и если что, установить.
Удачи!
Ratings: 0 negative/0 positive
Re: Разрешительный режим Честного знака
Равиль

Сообщений: 6692
Откуда: Уфа
Дата регистрации: 01.08.2003
Alsim
...

СПАСИБО, Равиль ОГРОМНОЕ!
Вчера не пробовал, гуляли по заснеженным лесам и горам Южного Уктуса, сегодня не удержался попробовал.
Установил на свой домашний чистый комп минимум программы Штрихопечать. Попробовал твой тестовый пример - сработало! Отлично!
...


Фантастика !


------------------
Тяжело согнать курсором муху с монитора ...
Ratings: 0 negative/0 positive
Re: Разрешительный режим Честного знака
Alsim

Сообщений: 3682
Откуда: Екатеринбург
Дата регистрации: 17.11.2004
Равиль
Фантастика !
Ага ))) Гуглю, как бы этот ответ прицепить кодмарке в хвост.
Ratings: 0 negative/0 positive
Re: Разрешительный режим Честного знака
Равиль

Сообщений: 6692
Откуда: Уфа
Дата регистрации: 01.08.2003
Alsim
Равиль
Фантастика !
Ага ))) Гуглю, как бы этот ответ прицепить кодмарке в хвост.

Аааа ... я обрадовался - подумал у тебя тег 2160 передался в чек и увидели в ОФД ...


------------------
Тяжело согнать курсором муху с монитора ...
Ratings: 0 negative/0 positive
Re: Разрешительный режим Честного знака
Alsim

Сообщений: 3682
Откуда: Екатеринбург
Дата регистрации: 17.11.2004
Равиль
Аааа ... я обрадовался - подумал у тебя тег 2160 передался в чек и увидели в ОФД ...
))) не! Вот думаю на коленке по-быстрому слепить вариант отправки без контролей пока. Товар всё равно свежий гарантировано.
Галочку поставят у себя для пробы, если подавится - уберут и продолжат по старому.
ps
Думал к кодумарки полученный 1260 не пристегнётся - нет, нормально. И программа просмотра Файл-чека видит.
Ratings: 0 negative/0 positive
Re: Разрешительный режим Честного знака
Alsim

Сообщений: 3682
Откуда: Екатеринбург
Дата регистрации: 17.11.2004
Alsim
Думал к кодумарки полученный 1260 не пристегнётся - нет, нормально. И программа просмотра Файл-чека видит.
Подавилась чекопечаталка блин зараза!
В папку с ошибками закинула.
Исправил руками файл-чек, убрал пристёгнутый 1260 код, положил в папку печати - сожрала, поставила [M+]
Остальное отправили по старому.
***
Попробую завтра убрать пробелы между 16ыми кодами, может так сожрёт. Других мыслей пока нет
Ratings: 0 negative/0 positive
Re: Разрешительный режим Честного знака
Равиль

Сообщений: 6692
Откуда: Уфа
Дата регистрации: 01.08.2003
Alsim
..
Исправил руками файл-чек, убрал пристёгнутый 1260 код, положил в папку печати - сожрала, поставила [M+]
Остальное отправили по старому.
***
Попробую завтра убрать пробелы между 16ыми кодами, может так сожрёт. Других мыслей пока нет

Пробелы убирать нельзя конечно - это формат такой, и пристегивание на удачу к марке, тоже не имело шансов
тег 1260 должен идти отдельной колонкой в файле, если в чекопечати этот тег предусмотрен.

ps глянул содержимое покупки - освежает ! водочка, водичка и сок


------------------
Тяжело согнать курсором муху с монитора ...
Ratings: 0 negative/0 positive
Re: Разрешительный режим Честного знака
Alsim

Сообщений: 3682
Откуда: Екатеринбург
Дата регистрации: 17.11.2004
Равиль
ps глянул содержимое покупки - освежает ! водочка, водичка и сок
Особо интересно смотреть ассортимент для Бизнес Класса ;)
Совершенно не совместимые между собой напитки: вино игристое+вино+водка+коньяк+виски
***
Всё же попробую сегодня отправить обрезанный Hex и посмотреть логи.
Следующим этапом будет попытка достучаться до Штрихов или добиваться от ЧЗ освобождения от "Разрешительного" на основании офлайн торговли.
Ratings: 0 negative/0 positive
Re: Разрешительный режим Честного знака
Alsim

Сообщений: 3682
Откуда: Екатеринбург
Дата регистрации: 17.11.2004
Alsim
Всё же попробую сегодня отправить обрезанный Hex и посмотреть логи.
Попробовали сейчас с самой смелой кладовщицей отправить чеки с Hex кодами очищенными от пробелов...
Ушли. Правда на чеках есть как [М+] так и [М-]. Иногда выскакивает ошибка 400, она и у меня в домашних условиях выскакивала спонтанно,
продолжили процесс.
Осталось посмотреть логи и как там в ЧЗ со статусом будет.
Ratings: 0 negative/0 positive
Re: Разрешительный режим Честного знака
PavlikPavlikovich
Автор

Сообщений: 190
Дата регистрации: 21.07.2010
Alsim
Осталось посмотреть логи и как там в ЧЗ со статусом будет.

У меня странно как-то. Вчера залез в л/к Честного знака. В разделе "Чеки" залез в чек и нажал проверить. Появился столбец "разрешительно режима и написалось что Проверено.
А сегодня с самого утра при нажатии проверить ничего не происходит. Даже во вчерашнем чеке. что-то у них там не так.

Вот рабочий код передачи в Штрих М

IF !EMPTY(kkm.reqId) AND !EMPTY(kkm.Timestamp) AND kkm.realizable=.T. && Если поля не пустые и реализация разрешена, значит проверка выполнилась успешно. Можно передавать данные в кассовый аппарат.
ecr.TagNumber=1262 &&//«идентификатор ФОИВ»
ecr.TagType=7 &&//строка
ecr.TagValueStr="030" &&//Министерство промышленности и торговли Российской Федерации
ecr.FNSendTagOperation()
ecr.TagNumber=1263 &&//«дата документа основания»
ecr.TagType=7 &&//строка
ecr.TagValueStr="21.11.2023" && Постановление Правительства Российской Федерации от 21.11.2023 № 1944
ecr.FNSendTagOperation()
ecr.TagNumber=1264 &&//«номер документа основания»
ecr.TagType=7 &&//строка
ecr.TagValueStr="1944" && Постановление Правительства Российской Федерации от 21.11.2023 № 1944
ecr.FNSendTagOperation()
ecr.TagNumber=1265 &&//«значение отраслевого реквизита
ecr.TagType=7 &&//строка
ecr.TagValueStr="UUID=" + m.reqId + "&" +"Time=" + m.Timestamp
ecr.FNSendTagOperation()
ENDIF

По поводу сохранения ответа сервера честного знака в лог.
Подскажите в двух словах как писать в Memo поле dbf. И как читать из него. Или в двух словах не получиться?



Исправлено 3 раз(а). Последнее : PavlikPavlikovich, 19.11.24 18:08
Ratings: 0 negative/2 positive
Re: Разрешительный режим Честного знака
akvvohinc

Сообщений: 4560
Откуда: Москва
Дата регистрации: 11.11.2008
PavlikPavlikovich
Подскажите в двух словах как писать в Memo поле dbf. И как читать из него.
писать - REPLACE
читать - STORE (или "=")
Ratings: 0 negative/0 positive
Re: Разрешительный режим Честного знака
Alsim

Сообщений: 3682
Откуда: Екатеринбург
Дата регистрации: 17.11.2004
Alsim
Осталось посмотреть логи и как там в ЧЗ со статусом будет.
Два дня отправлялись с добавленным Hex хвостом.
В кабинете ЧЗ статус у чеков как и до эксперимента "Обработан успешно".
Захожу в чек, нажимаю "Запустить проверку" появляется колонка "Разрешительный режим" - "не проверен" как и до эксперимента.
Скачал отчёт json. До эксперимента всё ок, с хвостатыми марками:
Группа [E] с неё как раз и начинается Hex хвост.
Эксперименты прекратил. Буду разбираться со Штрихами.
Ratings: 0 negative/0 positive


Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 18 (Гостей: 18)

© 2000-2025 Fox Club 
Яндекс.Метрика