Отправка файла отчёта в MAX

Забыл отписаться. Исправляю упущение.
Рабочая процедура отправки файла в MAX.
ПутьКФайлу - путь к файлу во временном хранилище
IDЧата - это user_id пользователя
ТокенБота - токен бота

Чтобы отправлять не конкретному пользователю, а в группу, надо в этой стоке заменить user_id на chat_id
HTTPЗапросСообщения = Новый HTTPЗапрос("/messages?user_id=" + IDЧата, ЗаголовкиАвторизации);
Процедура ОтправитьФайлВMax(ПутьКФайлу, IDЧата, ТокенБота, ТипФайла = "file", ТекстСообщения = "") Экспорт

      ИмяФайла     = "ФайлОтчета_" + СтрЗаменить(ТекущаяДата(),":","") + ".xls";

      // Заголовки авторизации

      ЗаголовкиАвторизации = Новый Соответствие;

      ЗаголовкиАвторизации.Вставить("Authorization", ТокенБота);



      //Получаем URL для загрузки файла

      HTTPСоединение = Новый HTTPСоединение("platform-api.max.ru", 443, , , , , Новый ЗащищенноеСоединениеOpenSSL());

      HTTPЗапрос = Новый HTTPЗапрос("/uploads?type=file", ЗаголовкиАвторизации);

      

      // Отправляем POST запрос (пустое тело)

      HTTPОтвет = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос);

      Если HTTPОтвет.КодСостояния <> 200 Тогда

          ВызватьИсключение "Ошибка при получении URL для загрузки: " + HTTPОтвет.КодСостояния + " - " + HTTPОтвет.ПолучитьТелоКакСтроку();

      КонецЕсли;

      

      // Парсим JSON ответ

      ЧтениеJSON = Новый ЧтениеJSON;

      ЧтениеJSON.УстановитьСтроку(HTTPОтвет.ПолучитьТелоКакСтроку());

      ОтветМетаЗагрузки = ПрочитатьJSON(ЧтениеJSON);

      ЧтениеJSON.Закрыть();

      

      URLДляЗагрузки = ОтветМетаЗагрузки.url; // URL куда слать файл



      //Загружаем файл на полученный URL (Multipart/Form-Data)



      // Разбираем URL чтобы понять куда коннектиться

      РазборURL = СтрРазделить(URLДляЗагрузки, "/", Ложь);

      СерверЗагрузки = РазборURL[1]; // Например, storage.max.ru

      ПутьЗагрузки   = СтрЗаменить("/" + СтрСоединить(РазборURL, "/"),"/https:/fu.oneme.ru",""); // Остальная часть пути

      

      

      // Формируем Multipart тело запроса

      Boundary      = "----WebKitFormBoundary" + СтрЗаменить(Новый UUID, "-", "");

      ДвоичныеДанныеФайла = Новый ДвоичныеДанные(ПутьКФайлу);

      

      // Строим тело запроса в памяти

      ПотокВПамяти = Новый ПотокВПамяти;

      ЗаписьДанных = Новый ЗаписьДанных(ПотокВПамяти);

      

      //Начало части (headers)

      ЗаписьДанных.ЗаписатьСтроку("--" + Boundary);

      ЗаписьДанных.ЗаписатьСтроку("Content-Disposition: form-data; name=""data""; filename=""" + ИмяФайла + """");

      ЗаписьДанных.ЗаписатьСтроку("Content-Type: application/octet-stream");

      ЗаписьДанных.ЗаписатьСтроку(""); // Пустая строка между заголовками и данными

      

      //Сам файл (бинарные данные)

      ЗаписьДанных.Записать(ДвоичныеДанныеФайла);

      ЗаписьДанных.ЗаписатьСтроку(""); // Перенос строки после файла

      

      //Конец запроса

      ЗаписьДанных.ЗаписатьСтроку("--" + Boundary + "--");

      

      ЗаписьДанных.Закрыть();

      ТелоЗапросаЗагрузки = ПотокВПамяти.ЗакрытьИПолучитьДвоичныеДанные();

      

      // Формируем HTTP запрос

      HTTPСоединениеЗагрузки = Новый HTTPСоединение(СерверЗагрузки, 443, , , , , Новый ЗащищенноеСоединениеOpenSSL());

      HTTPЗапросЗагрузки = Новый HTTPЗапрос(ПутьЗагрузки);

      HTTPЗапросЗагрузки.Заголовки.Вставить("Content-Type", "multipart/form-data; boundary=" + Boundary);

      HTTPЗапросЗагрузки.УстановитьТелоИзДвоичныхДанных(ТелоЗапросаЗагрузки);

      

      HTTPОтветЗагрузки = HTTPСоединениеЗагрузки.ОтправитьДляОбработки(HTTPЗапросЗагрузки);

      

      Если HTTPОтветЗагрузки.КодСостояния <> 200 Тогда

          ВызватьИсключение "Ошибка при загрузке файла: " + HTTPОтветЗагрузки.КодСостояния;

      КонецЕсли;

      

      // Парсим ответ загрузки (информация о файле)

      ЧтениеJSON.УстановитьСтроку(HTTPОтветЗагрузки.ПолучитьТелоКакСтроку());

      ДанныеФайла = ПрочитатьJSON(ЧтениеJSON);

      ЧтениеJSON.Закрыть();



         //тут нужна пауза, видимо файл не успевает записаться. Без паузы валит ошибку

     //Ошибка отправки сообщения: {"code":"attachment.not.ready","message":"Key: errors.process.attachment.file.not.processed"}      

     //с паузой всё норм

      ДатаКон = ТекущаяДата() + 1;//1 секундой больше

      Пока ТекущаяДата() < ДатаКон Цикл

      КонецЦикла;      

      

      //ВызватьПаузу(1000);



      //Отправляем сообщение с вложением

      HTTPЗапросСообщения = Новый HTTPЗапрос("/messages?user_id=" + IDЧата, ЗаголовкиАвторизации);

      HTTPЗапросСообщения.Заголовки.Вставить("Content-Type", "application/json");

      

      // Формируем JSON тело

      ЗаписьJSON = Новый ЗаписьJSON;

      ЗаписьJSON.УстановитьСтроку();

      ЗаписьJSON.ЗаписатьНачалоОбъекта();

      ЗаписьJSON.ЗаписатьИмяСвойства("text");

      ЗаписьJSON.ЗаписатьЗначение("Отправляю файл");

      

      ЗаписьJSON.ЗаписатьИмяСвойства("attachments");

      ЗаписьJSON.ЗаписатьНачалоМассива();

      ЗаписьJSON.ЗаписатьНачалоОбъекта();

      ЗаписьJSON.ЗаписатьИмяСвойства("type");

      ЗаписьJSON.ЗаписатьЗначение("file");

      

      // В payload записываем весь объект, полученный на шаге 2

      ЗаписьJSON.ЗаписатьИмяСвойства("payload");

      ЗаписатьJSON(ЗаписьJSON, ДанныеФайла); 

      ЗаписьJSON.ЗаписатьКонецОбъекта();

      ЗаписьJSON.ЗаписатьКонецМассива();

      ЗаписьJSON.ЗаписатьКонецОбъекта();

      

      СтрокаТелаЗапроса = ЗаписьJSON.Закрыть();

      HTTPЗапросСообщения.УстановитьТелоИзСтроки(СтрокаТелаЗапроса, КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);

      

      HTTPОтветСообщения = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапросСообщения);

      

      Если HTTPОтветСообщения.КодСостояния = 200 Тогда

          Сообщить("Файл успешно отправлен!");

      Иначе

          Сообщить("Ошибка отправки сообщения: " + HTTPОтветСообщения.ПолучитьТелоКакСтроку());

      КонецЕсли;

  

КонецПроцедуры