СП101-Ф, СП802-Ф

[Admin]

Кто нибудь реализовывал протокол работы с данными аппаратами?
Все команды и ответы гоняются туда/сюда как XML
А то встала задача за неделю все сделать. Напрягло.

[Игорь Столяров]

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

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

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

[Admin]

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

[Admin]

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

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

[Игорь Столяров]

Написала обмен через COM порт.

Не пугайте нас пожалуйста. Скажите срочно, что это орфографическая ошибка ...

[Admin]

[Admin]

Ну вот накорябал.

sp802f.zip

(53.64 КБ) 508 скачиваний

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

[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 

[Admin]

Ну вот такие мы "пейсатели"
Мы умеем и быстро и красиво и надежно. Но вот все вместе часто не получается

[kreator]

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

[Дед Пахом]

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

А дуракам закон не писан, в рекламе Заборстроя (кажется; часто по ТВ крутят) смело предъявлены все три пункта.

[karpovi]

Ну вот накорябал.

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

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

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

[Admin]

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

Конкретнее, в чем проблемы?
Коду же 10 раз переписан.
И вообще от СП101-СП802 отказались в пользу АТОЛА.

[karpovi]

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

[karpovi]

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