Может, кто сталкивался с такой проблемой на драйвере ККТ Штрих-М.
При передаче числа с лидирующими нулями, как строковую переменную, в драйвер приходит число без лидирующих нулей.
Код: Выделить всё
CassObject = Create(0,Create:Ole)
CassObject{PROP:Create} = 'AddIn.DrvFR'
...
CassObject{'TagNumber'} = 1262
CassObject{'TagType'} = 7
CassObject{'TagValueStr'} = '020'
В логе драйвера :
[01.09.2021 16:01:07.953] [00010100] [DEBUG] TDrvFR Set_TagNumber
[01.09.2021 16:01:07.953] [00010100] [DEBUG] TDrvFR Set_TagNumber: 1262
[01.09.2021 16:01:07.954] [00010100] [DEBUG] TDrvFR Set_TagType
[01.09.2021 16:01:07.954] [00010100] [DEBUG] TDrvFR Set_TagType: 7
[01.09.2021 16:01:07.954] [00010100] [DEBUG] TDrvFR Set_TagValueStr
[01.09.2021 16:01:07.954] [00010100] [DEBUG] TDrvFR Set_TagValueStr: 20
Если передать
CassObject{'TagValueStr'} = '020а'
то лидирующий ноль остается, но значение не валидное.
Причем, при работе с Exel, похожий интерфейс и там все нормально проходит
AdrWin$olevar{'Application.Range("'& CLIP(CellName) &'").Value'}='020'
В результат, в текстовую ячейку попадает 020
В чем может быть причина такого поведения?