Функция ReadTexr() Adodb обрезает строку При подключении Онлайн кассы Атол-30Ф происходит ошибка печати чека. Нырнул в отладчик в обработке fr_atol54_com.ert АдоДБСтрим.ReadText() возвращает только 254 символа, остальной текст обрубается, в результате параметр ТекстАдоДБСтрим передаётся неверно, чек не распечатывается. Если ли решения программного чтения XML файла? АдоДБСтрим = CreateObject("Adodb.Stream"); АдоДБСтрим.Charset = "utf-8"; АдоДБСтрим.Type = 2; АдоДБСтрим.Mode= 3; АдоДБСтрим.Open(); АдоДБСтрим.LoadFromFile(КаталогПользователя() + "FRAtol_001.xml"); ТекстАдоДБСтрим = АдоДБСтрим.ReadText(); АдоДБСтрим.Close(); Объект.СформироватьЧек(глФРИДУстройства, Кассир, Электронно, ТекстАдоДБСтрим, НомерЧека, НомерСмены, ФискальныйПризнак, АдресСайтаПроверки); |
Странно, на другом компе, в Windows XP не обрезает, проблема в Windows7... |
Текущее время: 13:07. Часовой пояс GMT +3. |