СП101-Ф, СП802-Ф

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

СП101-Ф, СП802-Ф

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

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

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

СП101-Ф, СП802-Ф

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

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

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

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

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

СП101-Ф, СП802-Ф

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

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

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

СП101-Ф, СП802-Ф

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

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

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

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

СП101-Ф, СП802-Ф

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

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

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

СП101-Ф, СП802-Ф

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

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

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

СП101-Ф, СП802-Ф

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

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

Yufil
Ветеран движения
Сообщения: 949
Зарегистрирован: 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
Администратор
Сообщения: 3255
Зарегистрирован: 05 Июль 2005, 14:59
Откуда: Хабаровск
Контактная информация:

СП101-Ф, СП802-Ф

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

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

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

СП101-Ф, СП802-Ф

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

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

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

СП101-Ф, СП802-Ф

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

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

karpovi
Прохожий
Сообщения: 3
Зарегистрирован: 25 Декабрь 2017, 8:04

СП101-Ф, СП802-Ф

Сообщение karpovi » 25 Декабрь 2017, 8:09

Admin писал(а):
25 Май 2017, 4:04
Ну вот накорябал.

sp802f.zip
(53.64 КБ) 32 скачивания

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

скачал то что вы написали а как пользоваться этим не подскажите ?

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

СП101-Ф, СП802-Ф

Сообщение Admin » 25 Декабрь 2017, 8:37

karpovi писал(а):
25 Декабрь 2017, 8:09
скачал то что вы написали а как пользоваться этим не подскажите ?
Конкретнее, в чем проблемы?
Коду же 10 раз переписан.
И вообще от СП101-СП802 отказались в пользу АТОЛА.
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса

karpovi
Прохожий
Сообщения: 3
Зарегистрирован: 25 Декабрь 2017, 8:04

СП101-Ф, СП802-Ф

Сообщение karpovi » 25 Декабрь 2017, 8:48

В архиве лежит как я понял проект написаный на кларионе и есть еще sp802f.exe.
Как его подключить скажем к 1с и отправлять команды, обычно там dll подключаются.
Просто я кларион не знаю.
Можете новую версию кода выслать если не сложно.

karpovi
Прохожий
Сообщения: 3
Зарегистрирован: 25 Декабрь 2017, 8:04

СП101-Ф, СП802-Ф

Сообщение karpovi » 25 Декабрь 2017, 9:52

поставил clarion 10, пытаюсь скомпилировать ваши исходники заново пишет:
Точка входа в процедуру XML:FINDNEXTNODE@....... не найдена в библиотеке DLL sp802f.exe

Ответить