Страница 5 из 9
Re: Библиотека для работы с ККМ АТОЛ
Добавлено:
15.06.2016 13:43:23
AnacRon
alexs писал(а):Не в винде нужен аналог. Что предложишь?
Не в винде работатет предложенный вариант в компоненте.
- Код: Выделить всё
{$IFDEF WINDOWS}
...
{$ELSE}
S:=UTF8ToDos(ALine);
{$ENDIF}
Добавлено спустя 2 часа 57 минут 37 секунд:alexs писал(а):да кстати, а функцию то тестировал?
При тестах обнаружил ошибки. При печати больших текстов некоторые символы в определенных буквосочетаниях конвертировались с ошибкой. Функцию "творчески" переделал. И постановка UTF8ToWinCP() была не правильной.
- Код: Выделить всё
function UTF8ToCP866KazKKM(const FSrcString:string):string;
var
FSymbol: String;
i, L: Integer;
P: PChar;
FDst: PChar;
begin
Result:='';
i:=1;
while i<=Length(FSrcString) do
begin
P:=@FSrcString[i];
L:=UTF8CharacterLength(P);
FSymbol:=Copy(FSrcString, i, L);
i:=i+l;
if FSymbol='ә' then
Result:=Result + #177
else
if FSymbol='і' then
Result:=Result + #105
else
if FSymbol= 'ң' then
Result:=Result + #241
else
if FSymbol= 'ғ' then
Result:=Result + #220
else
if FSymbol= 'ү' then
Result:=Result + #248
else
if FSymbol= 'ұ' then
Result:=Result + #246
else
if FSymbol= 'қ' then
Result:=Result + #223
else
if FSymbol= 'ө' then
Result:=Result + #244
else
if FSymbol= 'һ' then
Result:=Result + #254
else
if FSymbol= 'Ә' then
Result:=Result + #176
else
if FSymbol= 'І' then
Result:=Result + #73
else
if FSymbol= 'Ң' then
Result:=Result + #240
else
if FSymbol= 'Ғ' then
Result:=Result + #219
else
if FSymbol= 'Ү' then
Result:=Result + #247
else
if FSymbol= 'Ұ' then
Result:=Result + #245
else
if FSymbol= 'Қ' then
Result:=Result + #222
else
if FSymbol= 'Ө' then
Result:=Result + #243
else
if FSymbol= 'Һ' then
Result:=Result + #253
else
begin
FSymbol := UTF8ToWinCP(FSymbol);
FDst := AllocMem((Length(FSymbol) + 1) * SizeOf(Char));
if CharToOEM(PChar(FSymbol), FDst) then
Result := Result + StrPas(FDst);
FreeMem(FDst);
end;
end;
SetCodePage(RawByteString(Result), CP_OEMCP, False);
end;
П.С.: Сам не программист и это только хобби. По этому любую критику готов принять.
Re: Библиотека для работы с ККМ АТОЛ
Добавлено:
31.01.2017 00:35:37
alexs
В связи с новым законом - кто либо уже разбирался с новой версией протокола (АТОЛ 3.0)?
Re: Библиотека для работы с ККМ АТОЛ
Добавлено:
07.03.2017 15:04:06
warlomak
да ничего там толком не поменялось, за исключением отправки налоговой системы, все данные в ОФД отправляет сторонняя утилита, работает как под linux там и под win.
Re: Библиотека для работы с ККМ АТОЛ
Добавлено:
09.03.2017 09:11:21
alexs
Там изменился протокол взаимодействия (низкий уровень) между ККМ и ПК.
На уровне COM-объекта методы остались прежними.
Re: Библиотека для работы с ККМ АТОЛ
Добавлено:
21.04.2017 13:30:22
alexkam
Можно ли протестировать драйвер без кассы? Есть ли эмулятор кассы АТОЛ?
Как протестировать отправку чека клиенту, согласно ФЗ-54?
Re: Библиотека для работы с ККМ АТОЛ
Добавлено:
21.04.2017 14:07:01
alexs
1. Нет
2. Нет.
3. Есть ФН тестовый, который в ОФД тестовыми площадками работает.
Re: Библиотека для работы с ККМ АТОЛ
Добавлено:
27.09.2017 15:19:39
alexkam
Есть возможность интеграции с кассами согласно ФЗ-54?
Re: Библиотека для работы с ККМ АТОЛ
Добавлено:
14.12.2017 17:53:44
rustemg
Кому то удалось реализовать поддержку "Протокола ККТ 3.1" беря за основу эту библиотеку или перевести файл заголовков ifptr.h которая идет в поставке Атол9 на лазарус? Придется сделать через утилиту печати чеков на С++ и через параметры ком.строки и вызывать его в лазарусе.
Re: Библиотека для работы с ККМ АТОЛ
Добавлено:
14.12.2017 22:47:08
alexs
attid доработал. У меня пока времени на это нет.
Re: Библиотека для работы с ККМ АТОЛ
Добавлено:
27.12.2017 10:02:33
alexs
Если кому интересно
В состав исходников библиотеки включеным модули для работы с терминалами пластиковых карт.
Сейчас есть 3 компонент
- работа с пластиком от Газпромбанка
- пластик Сбербанка через COM-объект (только винда)
- пластик Сбербанка через утилиту sb_pilot (linux + win) - это допиливается - пока ещё экспериментально. Там есть небольшие тонкости - но под линуксом практически всё работает.
Re: Библиотека для работы с ККМ АТОЛ
Добавлено:
29.12.2017 09:08:56
rustemg
Алекс, выложили исходники по ККМ АТОЛ ФЗ-54 lazarus?
sb_pilot (linux + win) итересен.
Re: Библиотека для работы с ККМ АТОЛ
Добавлено:
29.12.2017 09:42:20
alexs
https://svn.shamangrad.ru/ecr_atol/trunkДобавлено спустя 23 минуты 18 секунд:Положил в исходники пример работы
Добавлено спустя 37 секунд:Там только базис. Всякие бонусные программы не делал (сам не использую)
Re: Библиотека для работы с ККМ АТОЛ
Добавлено:
07.04.2018 09:16:14
alexkam
Как передать e-mail из программы в чек на кассу?
Re: Библиотека для работы с ККМ АТОЛ
Добавлено:
06.06.2018 15:20:59
dbs
Не удается настроить подключение онлайн-кассы в демонстрационной программе, идущей вместе с компонентом. После выбора порта получаю "Нет связи с принтером чеков.".
При этом в самом драйвере АТОЛА подключение по этому же порту устанавливается.
Lazarus 1.8.2 FPC 3.0.4 Windows 10 x64, АТОЛ 55Ф USB (2 виртуальных COM).
Подскажите, что я делаю не верно!?
Re: Библиотека для работы с ККМ АТОЛ
Добавлено:
12.06.2018 07:59:48
dpetinov
Какая версия протокола реализована в транке? 3.0 или 3.1 ?