freepascal.ru

Добрый день Алексей.
Смотрел Ваш замечательный код для маркировки в Атол. Большое спасибо Вам за него.

S1:=Copy(S22, 3, 14);
S2:=Copy(S22, 18, 13); тут по идеи с 19 символа нужно читать.
B2:=MakeCRPTCode($444D, S1, S2);

Код рабочий - у меня это в работе с июля (обувь). Сейчас шины и текстиль - тоже полёт нормальный.
Проверяю по честному знаку. Он чеки видит и отображает выведенные КИЗы.

alexs писал(а):Код рабочий - у меня это в работе с июля (обувь). Сейчас шины и текстиль - тоже полёт нормальный.
Проверяю по честному знаку. Он чеки видит и отображает выведенные КИЗы.

Не могу понять:
S1:=Copy(S22, 3, 14); - 02900000377578 понятно;
S2:=Copy(S22, 18, 13); - 1-tmIXrkglsKf, а должно же быть -tmIXrkglsKfZ
или я где-то ошибаюсь?

alexs писал(а):Код рабочий - у меня это в работе с июля (обувь). Сейчас шины и текстиль - тоже полёт нормальный.
Проверяю по честному знаку. Он чеки видит и отображает выведенные КИЗы.

Добрый день! Как с Вами связаться?

Можно тут, можно на почту - alexs75 yandex ru