forum.clarionlife.net

Игорь Столяров писал(а): ↑01 Февраль 2023, 12:26 Честно дочитал до конца.
Я с радостью проверил бы Ваш вопрос - но формализуйте проблему так, что бы его можно было воспроизвести ...

SELF.SetParamStr(LIBFPTR_PARAM_MARKING_CODE, '0104620014111842215Z'v3Y93MRwO')

SergioRaguzini писал(а): ↑01 Февраль 2023, 12:37 а в логе Админа в этой теме:

Игорь Столяров писал(а): ↑01 Февраль 2023, 14:08 прикрепил полный лог пробития чека с проверкой Вашей марки

SergioRaguzini писал(а): ↑01 Февраль 2023, 15:12 Да, похоже где-то я не правильно подготвавливаю КМ...

Self.SetParamBiteArray(LIBFPTR_PARAM_MARKING_CODE, QSpisok.Dump)

Игорь Столяров писал(а): ↑01 Февраль 2023, 15:19 Пожалуйста ! Я бы начал с обновления драйвера АТОЛ10 и прошивки ККТ до актуальных.
Просто потому что это тупо и просто, а результат может удивить !

Admin писал(а): ↑01 Февраль 2023, 16:08 Вы его как строку передаете а нужно как набор байт.

Код: Выделить всё

Self.SetParamBiteArray(LIBFPTR_PARAM_MARKING_CODE, QSpisok.Dump)

на форуме все есть

RaFaeL писал(а): ↑15 Март 2023, 9:02 проверить корректность считывания сканером марки

ConvertScanCode      PROCEDURE  (*CString xDump_)
Loc:Count            LONG
Loc:Index            LONG
Loc:FlagCapsLock     BYTE(False)
Loc:FlagLayout       BYTE(False)
Loc:CurKL            CSTRING(20)
Loc:SLAT  String('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"&''./,:;<<>?`~[]{{}@^|#$')
Loc:SRUS  String('ФИСВУАПРШОЛДЬТЩЗЙКЫЕГМЦЧНЯфисвуапршолдьтщзйкыегмцчняЭ?эю.бЖжБЮ,ёЁхъХЪ":/№;')
  Code
  If Band(KeyState(),1000h) then Loc:FlagCapsLock = True.  ! Нажата клавиша CapLock

  Loc:Count = GetKeyboardLayoutNameA(Loc:CurKL)
  If Loc:CurKL = '00000419' then Loc:FlagLayout   = True.  ! Включена русская раскладка клавиатуры

  If Loc:FlagCapsLock Or Loc:FlagLayout
     Loop Loc:Count = 1 to Len(Clip(xDump_))

       If Loc:FlagCapsLock  ! 1. Если включен CapsLock (ОБЯЗАТЕЛЬНО ПЕРВЫМ !!!)
          If    IsLower(xDump_[(Loc:Count)]) then xDump_[(Loc:Count)] = Upper(xDump_[(Loc:Count)])
          elsIf IsUpper(xDump_[(Loc:Count)]) then xDump_[(Loc:Count)] = Lower(xDump_[(Loc:Count)])
          end
       end

       If Loc:FlagLayout    ! 2. Только если включена русская раскладка клавиатуры
          Loc:Index = InString(xDump_[(Loc:Count)],Loc:SRUS)  ! Символ русский ?
          If InRange(Loc:Index,1,Size(Loc:SLAT)) then xDump_[(Loc:Count)] = Loc:SLAT[(Loc:Index)].
       end
     end
  end

Игорь Столяров писал(а): ↑15 Март 2023, 9:55 1. Правильность считывания 2D штрих-кода проверяется сканером (в т.ч. и с коррекцией ошибок).
Т.е. если сканер считал марку - значит она корректна и Вы получили строку закодированную в коде.

RaFaeL писал(а): ↑15 Март 2023, 15:09 большие буквы меняются на маленькие (не все, рандомно!)

Игорь Столяров писал(а): ↑15 Март 2023, 16:50 Мистика какая-то невероятная.
Либо какая-то непонятная настройка сессии, либо что-то работает на буфер одновременно со сканером.
Никаких проблем с HID нет - зайдите в любой супермаркет.

Игорь Столяров писал(а): ↑15 Март 2023, 16:50 Отправили её (или какаю-нибудь другую строку символов) на проверку списания через драйвер и получили отказ.
Показали отказ и отменили печать чека. Вот и вся проверка.