СП101-Ф, СП802-Ф

Сканеры, кассы, ККТ и т.д.
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
Аватара пользователя
Admin
Администратор
Сообщения: 3236
Зарегистрирован: 05 Июль 2005, 14:59
Откуда: Хабаровск
Контактная информация:

СП101-Ф, СП802-Ф

Сообщение Admin » 22 Май 2017, 11:04

Кто нибудь реализовывал протокол работы с данными аппаратами?
Все команды и ответы гоняются туда/сюда как XML
А то встала задача за неделю все сделать. Напрягло.
Вложения
ККТ СП-Ф. Протокол 10.3 (редакция 2).pdf
(1.19 МБ) 209 скачиваний
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса

Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 2966
Зарегистрирован: 07 Июль 2005, 9:19
Откуда: г. Ростов-на-Дону

СП101-Ф, СП802-Ф

Сообщение Игорь Столяров » 23 Май 2017, 8:33

Ну можно задачу свести к предыдущей ... сие чудо-девайсы поддерживаются драйвером АТОЛ.
А значит все легко делается через обычный OLE - весь код для АТОЛ будет работает.

Из приятных бонусов: для техники СЕРВИС-ПЛЮС есть программные эмуляторы.
http://infostart.ru/public/154500/
http://shebdim.github.io/cremu/downloads.html

Проверено - все работает.
Мы как раз его используем для обратной задачи: отработки кода под ФР АТОЛ ...
Вам помочь или не мешать ?

Аватара пользователя
Admin
Администратор
Сообщения: 3236
Зарегистрирован: 05 Июль 2005, 14:59
Откуда: Хабаровск
Контактная информация:

СП101-Ф, СП802-Ф

Сообщение Admin » 23 Май 2017, 10:25

ATOL поддерживает СП101ФР-К и СП402ФР-К а не те что я описал.
СП101ФР-К у нас есть в наличии. Да, они могут работать с ATOL драйвером.
Хотя мы работаем через sp101fr.dll
Сейчас речь идет о СП802-Ф. Их не вижу в списке поддерживаемых.
Драйвер 8.14.0.0
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса

Аватара пользователя
Admin
Администратор
Сообщения: 3236
Зарегистрирован: 05 Июль 2005, 14:59
Откуда: Хабаровск
Контактная информация:

СП101-Ф, СП802-Ф

Сообщение Admin » 23 Май 2017, 10:30

Собственно вопрос почти снят.
Написал обмен через COM порт.
XML генерится средствами Clarion (класс XMLGenerator)
С парсером сложнее. Как с встроенным нормально работать не разбирался. Нет примеров и времени.
Так что ответы ККТ читаю в iQXML. Без русского в XML ответах можно обойтись пока.

Спешка дикая.
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса

Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 2966
Зарегистрирован: 07 Июль 2005, 9:19
Откуда: г. Ростов-на-Дону

СП101-Ф, СП802-Ф

Сообщение Игорь Столяров » 23 Май 2017, 10:32

Admin писал(а):
23 Май 2017, 10:30
Написала обмен через COM порт.
Не пугайте нас пожалуйста. Скажите срочно, что это орфографическая ошибка ... ;)
Вам помочь или не мешать ?

Аватара пользователя
Admin
Администратор
Сообщения: 3236
Зарегистрирован: 05 Июль 2005, 14:59
Откуда: Хабаровск
Контактная информация:

СП101-Ф, СП802-Ф

Сообщение Admin » 23 Май 2017, 12:20

:idied:
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса

Аватара пользователя
Admin
Администратор
Сообщения: 3236
Зарегистрирован: 05 Июль 2005, 14:59
Откуда: Хабаровск
Контактная информация:

СП101-Ф, СП802-Ф

Сообщение Admin » 25 Май 2017, 4:04

Ну вот накорябал.
sp802f.zip
(53.64 КБ) 30 скачиваний
Используется немного модифицированный XMLGenerator из abprxml.clw
Чья то обертка на IDynStr из dynstrclass.clw
Так же читаю XML через iQXML
Код только дописал. Все потом причешется :facepalm:
Может кому понадобится.
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса

Yufil
Ветеран движения
Сообщения: 916
Зарегистрирован: 16 Май 2006, 13:34
Контактная информация:

СП101-Ф, СП802-Ф

Сообщение Yufil » 25 Май 2017, 9:44

А что такие сложности? Реально нужна ровно одна процедура замены спецсимволов в строке (у меня ANSI2HTML). А дальше что надо, то и генеришь, не вникая в...

Код: Выделить всё

SaveManifest    ROUTINE  ! Сохранить манифест
                DATA
CS             CSTR                
                CODE
                CS.Set('<<?xml version="1.0" encoding="UTF-8" ?>')
                ! <13,10> только для удобства чтения сгенерированного XML, никакой серьёзной роли не играет 
                CS.CAT('<13,10><<structure>')                
                CS.Cat('<13,10><<program title="' & ANSI2HTML(Loc:MName) & '"/>')
                LOOP ManQ# = 1 to Records(ManQ) 
                  Get(ManQ, ManQ#) 
                  CS.Cat('<13,10><<topic level="' & ManQ:Level |
                  & '" id="' & Clip(ManQ:ID) & '" name="' & ANSI2HTML(ManQ:Name) & '" />') 
                END   
                CS.Cat('<13,10><</structure>') 
                CS.ToUTF8() 
                CS.SaveToFile(Loc:ManifestFileName) 
                EXIT 

Аватара пользователя
Admin
Администратор
Сообщения: 3236
Зарегистрирован: 05 Июль 2005, 14:59
Откуда: Хабаровск
Контактная информация:

СП101-Ф, СП802-Ф

Сообщение Admin » 25 Май 2017, 12:20

Ну вот такие мы "пейсатели"
Мы умеем и быстро и красиво и надежно. Но вот все вместе часто не получается :)
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса

kreator
Ветеран
Сообщения: 2544
Зарегистрирован: 28 Май 2009, 14:54
Откуда: Москва

СП101-Ф, СП802-Ф

Сообщение kreator » 25 Май 2017, 13:44

Быстро, дёшево, хорошо. Выбрать можно только два пункта. Аксиома!!!
С уважением, Kreator.

Аватара пользователя
Дед Пахом
Старичок
Сообщения: 1880
Зарегистрирован: 07 Июль 2005, 15:51
Откуда: Москва, Россия

СП101-Ф, СП802-Ф

Сообщение Дед Пахом » 12 Сентябрь 2017, 13:54

kreator писал(а):
25 Май 2017, 13:44
Быстро, дёшево, хорошо. Выбрать можно только два пункта. Аксиома!!!
А дуракам закон не писан, в рекламе Заборстроя (кажется; часто по ТВ крутят) смело предъявлены все три пункта.
С уважением, ДП

Ответить