Интеграция 1С и Power BI

Адрес="login.microsoftonline.com";
ssl = Новый ЗащищенноеСоединениеOpenSSL();
//СтрокаJSON = СтруктураВJSON(Структура, Истина);

				//Новый СертификатКлиентаWindows(
				//                СпособВыбораСертификатаWindows.Выбирать),
				//Новый СертификатыУдостоверяющихЦентровWindows()); 	
    	Если Код <> NULL Тогда
    		// используя Код получаем access_token и refresh_token
    		
    		HTTPСоединение = Новый HTTPСоединение(
                            Адрес,
    						, // порт
    						, // пользователь
    						, // пароль
    						, // прокси
                            5, // таймаут в секундах
                            ssl// защищенное HTTPS соединение
                        );
	
					
			HTTPЗапрос = Новый HTTPЗапрос("/common/OAuth2/Token/");
			HTTPЗапрос.Заголовки.Вставить("Content-type", "application/x-www-form-urlencoded");
			HTTPЗапрос.УстановитьТелоИзСтроки("grant_type=authorization_code&code="+Код+"&redirect_uri=htt­ps%3A%2F%2Fapp.powerbi.com%2Frecentlyviewed&client_id=3bf6d724-6dae-4177-a437-cd1e20619bd8");
			Ответ = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос);   
    		Сообщить("Код результата: " + Ответ.КодСостояния);
		    				
    		Если Ответ.КодСостояния <> 200 Тогда
    			
    			ВызватьИсключение "Ошибка при получении access_token"; 
    			
    		Иначе
			//Сообщить("Ответ: " + Ответ.ПолучитьТелоКакСтроку("UTF-8"));
    		
				// разобрать полученный json
				json = Ответ.ПолучитьТелоКакСтроку();				
				Чтение = Новый ЧтениеJSON;
				Чтение.УстановитьСтроку(json);
				ОтветСтруктура = ПрочитатьJSON(Чтение);
				
				// сохраняю параметры подключения
				AccessToken  = ОтветСтруктура.access_token;
				RefreshToken = ОтветСтруктура.refresh_token;
				RefreshTime  = ТекущаяДата() + ОтветСтруктура.expires_in;
				
			Данные =Новый Структура;
			Данные.Вставить("Name","SalesMarketing");
			//Данные.tables.Вставить("Name","Product");
			//Данные.tables.Вставить("Columns", Новый Массив);
			Колонки=Новый Структура;
			
			Колонки.Вставить(Новый структура ("Name,datatype","ProductID","Int64"));
			Колонки.Вставить(Новый структура ("Name,datatype","Name","String"));
			Колонки.Вставить(Новый структура ("Name,datatype","Category","String"));
			Колонки.Вставить(Новый структура ("Name,datatype","IsCompete","bool"));
			Колонки.Вставить(Новый структура ("Name,datatype","ManufacturedOn","DateTime"));
			
			Данные.Вставить("tables",Новый Структура ("Name,Columns","Product", Колонки ));
	
			ЗаписьJSON= Новый ЗаписьJSON;
			ПараметрыЗаписиJSON=Новый ПараметрыЗаписиJSON( ,Символы.Таб);
			ЗаписьJSON.ОткрытьФайл("C:\Users\kuznecova\Desktop\simpleWrite.json",,,ПараметрыЗаписиJSON);
			ЗаписатьJSON(ЗаписьJSON,Данные);
			ЗаписьJSON.Закрыть();
			
			HTTPСоединение = Новый HTTPСоединение(
                            "api.powerbi.com",
    						, // порт
    						, // пользователь
    						, // пароль
    						, // прокси
                           5, // таймаут в секундах
                            ssl// защищенное HTTPS соединение
                        );
									
			//Сообщить(AccessToken);	
			HTTPЗапрос = Новый HTTPЗапрос("/v1.0/myorg/reports");
			HTTPЗапрос.Заголовки.Вставить("Content-Type", "application/json");
			HTTPЗапрос.Заголовки.Вставить("Authorization", "Bearer " +AccessToken);
			HTTPЗапрос.УстановитьТелоИзСтроки(ЗаписьJSON, КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);
			Ответ = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос);   
    		        Сообщить("Код результата: " + Ответ.КодСостояния);			
			Сообщить("Ответ: " + Ответ.ПолучитьТелоКакСтроку("UTF-8"));