Boris_1c

Для ы=1 По 10 Цикл
               Если ы>1 Тогда
                  Пауза(2000);
               КонецЕсли;
               Протокол=ПолучитьПротокол(Уник);
               Если Протокол=1 Тогда
                  УспешноОтправлено=1;
//****тут я помечаю документ как успешно отправленный и прочие полезные действия

                  Прервать;
               ИначеЕсли Протокол=-1 Тогда //***это если известная мне ошибка
                  Прервать;
               КонецЕсли;
            КонецЦикла;

//****как-то так отправляю файл

Функция Послать(АдресСайта)   
   ТекстИзФайла=ПрочитатьФайл(ФайлВыгрузки);
   //Сообщить(АдресСайта);
   //WinHttp=СоздатьОбъект("MSXML2.ServerXMLHTTP");
   //WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1");
   Если AuthToken="" Тогда
      WinHttp.Open("GET", Портал+"services/Auth.svc/auth?login="+СокрЛП(Login)+"&pwd="+СокрЛП(Password), 0);
      WinHttp.Send();
      Если WinHttp.Status = 200 Тогда
         Зн=WinHttp.ResponseText;
         //позДата=Найти(Зн,"Data")+7;
         //AuthToken=сред(Зн,позДата,СтрДлина(Зн)-позДата-1);
         
         СписJSON=глРазборJSON(Зн);
         Статус=СписJSON.Получить("Status");
         КодОшибки=Число(СписJSON.Получить("Code"));
         AuthToken=СписJSON.Получить("Data");
         Если КодОшибки<>0 Тогда
            Сообщить(Отступ+"AuthToken:Ошибка-"+КодОшибки+"; Status-"+Статус,"!");
            Возврат -1;
         КонецЕсли;
         //Сообщить(Зн);
         //Сообщить("AuthToken:"+AuthToken);
      Иначе
         Сообщить(Отступ+"Ошибка получения AuthToken","!");
         Сообщить(Отступ+"HTTP " + WinHttp.Status + " " + WinHttp.StatusText);
         Возврат -1;
      КонецЕсли;
   КонецЕсли;
   
   //Может надо выждать паузу, иногда отвечает что AuthToken не верный..
   Пауза(1000);
   
   //WinHttp.Option(2,"UTF-8");
   WinHttp.Open("POST", АдресСайта, 0);
   WinHttp.setRequestHeader("Content-Type", "text/xml");
   WinHttp.SetRequestHeader("AuthToken", AuthToken);
   WinHttp.SetRequestHeader("isinsert", 0);
   WinHttp.Send(ТекстИзФайла);
   //Сообщить("StatusText:"+WinHttp.StatusText);
   //Сообщить("Status:"+WinHttp.Status);
   Зн=WinHttp.ResponseText;
   ОтветОтСервиса=Зн;
   //Зн=ПреобразоватьСтрокуИзУТФ8(Зн);
   //ВвестиЗначение(Зн,,"Строка");
   
   //пытаемся получить статус из сообщения
   зн=ПолучитьОтвет(Зн);
       //Некорректный AuthToken
   //Некорректные входные данные: Идентификатор запроса 'RequestGuid' не является уникальным
   
   ЛегкоеСообщение(Отступ+Зн+" отправка xml");
   ФайлВыгрузкиAnswer=Лев(ФайлВыгрузки,СтрДлина(ФайлВыгрузки)-3)+"Answer";
   Текст=СоздатьОбъект("Текст");   
   Текст.ДобавитьСтроку(Зн); //Обработанный ответ
   Текст.ДобавитьСтроку(ОтветОтСервиса); //Ответ исходный
   Текст.Записать(ФайлВыгрузкиAnswer); //***кодировка возможно левая..
   Если WinHttp.Status = 200 Тогда
      Если СокрЛП(Зн)<>"OK" Тогда
         Сообщить(Отступ+WinHttp.ResponseText);
         Возврат 0;
      КонецЕсли;
   КонецЕсли;
   
   Возврат 1;
КонецФункции