Форум на Kuban.ru (http://forums.kuban.ru/)
-   Территория 1С (http://forums.kuban.ru/f1040/)
-   -   Функция ReadTexr() Adodb обрезает строку (http://forums.kuban.ru/f1040/funkciya_readtexr_adodb_obrezaet_stroku-8369347.html)

illaran 23.06.2017 21:29

Функция 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();

Объект.СформироватьЧек(глФРИДУстройства, Кассир, Электронно, ТекстАдоДБСтрим, НомерЧека, НомерСмены, ФискальныйПризнак, АдресСайтаПроверки);

illaran 23.06.2017 22:08

Странно, на другом компе, в Windows XP не обрезает, проблема в Windows7...


Текущее время: 13:07. Часовой пояс GMT +3.