Перейти до вмісту
Пошук в
  • Детальніше...
Шукати результати, які ...
Шукати результати в ...

maksrealist

Новачок
  
  • Публікації

    1
  • З нами

  • Відвідування

maksrealist's Achievements

Newbie

Newbie (1/14)

  • First Post
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

0

Репутація

  1. Спасибо за отличный модуль! Подтверждаю, что при обмене с УТ 10.3 (10.3.43.1, аналогично 10.3.47.1) при загрузке заказов не может обработать xml. Т.к. пока опция "Конвертировать заказы в Windows-1251" не отрабатывает - поправил пока функцию в 1С на: Функция HTTPПолучитьДанныеССервера(Соединение, ПараметрыЗапроса="", Заголовки="", СтрокаСообщенияПользователю = "") Экспорт ОтветСервера = Неопределено; ИмяФайлаОтвета = ПолучитьИмяВременногоФайла(); Попытка Соединение.Получить(СокрЛП(ПараметрыЗапроса), ИмяФайлаОтвета, СокрЛП(Заголовки)); Исключение СтрокаСообщенияПользователю = "Не удалось получить данные с сервера. Проверьте правильность адреса сервера, порт, имя пользователя и пароль," + Символы.ПС + "а также настройки подключения к Интернет." + Символы.ПС + ОписаниеОшибки(); КонецПопытки; ФайлОтвета = Новый Файл(ИмяФайлаОтвета); Если ФайлОтвета.Существует() Тогда //Изменение кодировки_Начало файлЧтение = Новый ЧтениеТекста(ИмяФайлаОтвета,КодировкаТекста.UTF8); txt=файлЧтение.Прочитать(); файлЧтение.Закрыть(); результатФайл = ИмяФайлаОтвета; файлЗапись = Новый ЗаписьТекста(результатФайл,КодировкаТекста.ANSI); файлЗапись.Записать(txt); файлЗапись.Закрыть(); //Изменение кодировки_Окончание ТекстОтвета = Новый ТекстовыйДокумент(); ТекстОтвета.Прочитать(ИмяФайлаОтвета); Если ТекстОтвета.КоличествоСтрок()>0 Тогда ОтветСервера = ТекстОтвета.ПолучитьТекст(); Иначе СтрокаСообщенияПользователю = СтрокаСообщенияПользователю + Символы.ПС + "Получение данных с сервера: Получен пустой ответ сервера."; Конец Если; Иначе СтрокаСообщенияПользователю = СтрокаСообщенияПользователю + Символы.ПС + "Получение данных с сервера: Ответ сервера не получен."; КонецЕсли; Попытка УдалитьФайлы(КаталогВременныхФайлов(), ИмяФайлаОтвета); Исключение КонецПопытки; Возврат ОтветСервера; КонецФункции В результате заказы начали загружаться в 1С... Также через AkelPad менял вручную кодировку на Windows-1251 - тоже проходило.
×
×
  • Створити...

Important Information

На нашому сайті використовуються файли cookie і відбувається обробка деяких персональних даних користувачів, щоб поліпшити користувальницький інтерфейс. Щоб дізнатися для чого і які персональні дані ми обробляємо перейдіть за посиланням . Якщо Ви натиснете «Я даю згоду», це означає, що Ви розумієте і приймаєте всі умови, зазначені в цьому Повідомленні про конфіденційність.