Страница 1 из 3

СП101-Ф, СП802-Ф

Добавлено: 22 Май 2017, 11:04
Admin
Кто нибудь реализовывал протокол работы с данными аппаратами?
Все команды и ответы гоняются туда/сюда как XML
А то встала задача за неделю все сделать. Напрягло.

СП101-Ф, СП802-Ф

Добавлено: 23 Май 2017, 8:33
Игорь Столяров
Ну можно задачу свести к предыдущей ... сие чудо-девайсы поддерживаются драйвером АТОЛ.
А значит все легко делается через обычный OLE - весь код для АТОЛ будет работает.

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

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

СП101-Ф, СП802-Ф

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

СП101-Ф, СП802-Ф

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

Спешка дикая.

СП101-Ф, СП802-Ф

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

СП101-Ф, СП802-Ф

Добавлено: 23 Май 2017, 12:20
Admin
:idied:

СП101-Ф, СП802-Ф

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

СП101-Ф, СП802-Ф

Добавлено: 25 Май 2017, 9:44
Yufil
А что такие сложности? Реально нужна ровно одна процедура замены спецсимволов в строке (у меня 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 

СП101-Ф, СП802-Ф

Добавлено: 25 Май 2017, 12:20
Admin
Ну вот такие мы "пейсатели"
Мы умеем и быстро и красиво и надежно. Но вот все вместе часто не получается :)

СП101-Ф, СП802-Ф

Добавлено: 25 Май 2017, 13:44
kreator
Быстро, дёшево, хорошо. Выбрать можно только два пункта. Аксиома!!!

СП101-Ф, СП802-Ф

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

СП101-Ф, СП802-Ф

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

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

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

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

СП101-Ф, СП802-Ф

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

СП101-Ф, СП802-Ф

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

СП101-Ф, СП802-Ф

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