Обмен данными c AITS-прослеживаемость в Республике Беларусь

//Работа с JSON

&НаКлиенте
Функция jsonПрочитатьПлатформой(Значение)

    ЧтениеJSON = Новый ЧтениеJSON;
    ЧтениеJSON.УстановитьСтроку(Значение);
    
	Результат = Неопределено;
	СформироватьДерево(ЧтениеJSON, Результат);
    
    ЧтениеJSON.Закрыть();
    
	Возврат Результат;

КонецФункции

&НаКлиенте
Процедура СформироватьДерево(ЧтениеJSON, Дерево)
    
    ИмяСвойства = Неопределено;
    
    Пока ЧтениеJSON.Прочитать() Цикл
        TипJSON = ЧтениеJSON.ТипТекущегоЗначения;
        
        Если TипJSON = ТипЗначенияJSON.НачалоОбъекта 
        ИЛИ TипJSON = ТипЗначенияJSON.НачалоМассива Тогда
            НовыйОбъект = ?(TипJSON = ТипЗначенияJSON.НачалоОбъекта, Новый Соответствие, Новый Массив);
            
            Если ТипЗнч(Дерево) = Тип("Массив") Тогда
                Дерево.Добавить(НовыйОбъект);
            ИначеЕсли ТипЗнч(Дерево) = Тип("Соответствие") И ЗначениеЗаполнено(ИмяСвойства) Тогда
                Дерево.Вставить(ИмяСвойства, НовыйОбъект);
            КонецЕсли;
            
            СформироватьДерево(ЧтениеJSON, НовыйОбъект);
            
            Если Дерево = Неопределено Тогда
                Дерево = НовыйОбъект;
            КонецЕсли;
        ИначеЕсли TипJSON = ТипЗначенияJSON.ИмяСвойства Тогда
            ИмяСвойства = ЧтениеJSON.ТекущееЗначение;
        ИначеЕсли TипJSON = ТипЗначенияJSON.Число 
        ИЛИ TипJSON = ТипЗначенияJSON.Строка 
        ИЛИ TипJSON = ТипЗначенияJSON.Булево 
        ИЛИ TипJSON = ТипЗначенияJSON.Null Тогда
            Если ТипЗнч(Дерево) = Тип("Массив") Тогда
                Дерево.Добавить(ЧтениеJSON.ТекущееЗначение);
            ИначеЕсли ТипЗнч(Дерево) = Тип("Соответствие") Тогда
                Дерево.Вставить(ИмяСвойства, ЧтениеJSON.ТекущееЗначение);
            КонецЕсли;
        Иначе
            Возврат;
        КонецЕсли;
    КонецЦикла;
    
КонецПроцедуры


// Процедуры и фунции работы с web-сервисом

Функция ОтправитьHTTPЗапрос(Хост, Ресурс) Экспорт
	
	Соединение = Новый HTTPСоединение(Хост);
	Заголовки = Новый Соответствие;
	Заголовки.Вставить("host", Хост); 
	Запрос = Новый HTTPЗапрос(Ресурс, Заголовки); 
	
	Ответ = Неопределено;
	Попытка
		Ответ = Соединение.Получить(Запрос);		
	Исключение
		Сообщить(ОписаниеОшибки(), Статуссообщения.ОченьВажное);
	КонецПопытки;
	
	Возврат Ответ;
	
КонецФункции

Процедура ВыполнитьАвторизацию() Экспорт
	
	Если СтруктураНастроек = Неопределено Тогда
		Сообщить("Настройки заданы не верно!", СтатусСообщения.Внимание);
		Возврат;
	КонецЕсли;
	
	Если НЕ ПустаяСтрока(Токен) Тогда
		Сообщить("Авторизация уже пройдена!", Статуссообщения.Информация);
		Возврат;
	КонецЕсли;
	
	Порт	 = СтруктураНастроек.ПортСервера;
	Хост	 = СтруктураНастроек.АдресСервера + ":" + Порт;
	Логин	 = СтруктураНастроек.Логин;
	Пароль	 = СтруктураНастроек.Пароль;
	Ресурс	 = "/trace/services/Auth.svc/auth?login=" + Логин + "&pwd=" + Пароль;
	
	Ответ = ОтправитьHTTPЗапрос(Хост, Ресурс);
	
	Если Ответ <> Неопределено Тогда
		
		СтруктурированныйОтвет = jsonПрочитатьПлатформой(Ответ.ПолучитьТелоКакСтроку());
		
		ПредставлениеОтвета	 = СтруктурированныйОтвет.Получить("Status");
		КодОтвета			 = СтруктурированныйОтвет.Получить("Code"); 
		Токен				 = СтруктурированныйОтвет.Получить("Data");
		
		Если ПредставлениеОтвета = "OK" Тогда
			
			Сообщить("Авторизация пройдена успешно", СтатусСообщения.Информация)
			
		Иначе
			
			Сообщить ("Авторизация не пройдена, " + "Код ошибки: " + КодОтвета, Статуссообщения.Внимание);
						
		КонецЕсли;
				
	КонецЕсли;
	
КонецПроцедуры

Для ы=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;
КонецФункции