Документ Маршрутизация для УНФ 1.6 (геокодирует через API Google map, отображает на Яндекс картах)

По данным из заказ "Адрес доставки" по кнопке "Геокодировать" получает данные адреса (широта, долгота) через Api Google Maps, и отображает на Яндекс карте точки. Выбранные точки меняют (при клике на карте или выборе в табличной части) цвет на красный и отмечаются как выбранные. Для геокодирования требуется Api ключ Google Maps.

Api ключ Google Maps заполняется в карточке организации.

Проверено на УНФ 1.6.18.105.

Геокодирование Google

&НаСервере
Процедура ГеокодироватьНаСервере()
// Вставить содержимое обработчика.
Ключ = Объект.Key_API;
Кол = 0;
Ном = 1;
Для Каждого Строка Из Объект.Заказы Цикл
Строка.НомерПП = Ном;
Ном = Ном + 1;
Строка.Выб = Ложь;
Если ЗначениеЗаполнено(Строка.Широта) и ЗначениеЗаполнено(Строка.Долгота) Тогда Продолжить; КонецЕсли;
ПараметрПоиска = Строка.Адрес;
Кол = Кол + 1;
АдресOutput = ПолучитьИмяВременногоФайла();
Ключ = Ключ;

Координаты = Новый Структура;
Координаты.Вставить("Адрес","");
Координаты.Вставить("Широта","");
Координаты.Вставить("Долгота","");

СервисРесурс    = "maps/api";
СервисПараметры = "/geocode/json?language=ru&address="+ПараметрПоиска+"&key="+Ключ;

Сервер = "maps.googleapis.com";

ssl = Новый ЗащищенноеСоединениеOpenSSL(Неопределено,Неопределено);

Соединение = Новый HTTPСоединение(Сервер, , , , , 60,ssl);

ТелоОтвета = "";

Попытка
HTTPЗапрос = Новый HTTPЗапрос(СервисРесурс+СервисПараметры);
HTTPОтвет = Соединение.Получить(HTTPЗапрос);
ТелоОтвета = HTTPОтвет.ПолучитьТелоКакСтроку();
Исключение
Сообщить("Ошибка! Не удалось установить HTTP-соединение с сервером: "+Сервер+". "+ОписаниеОшибки());
КонецПопытки;

//Сообщить(ТелоОтвета);

Если ТелоОтвета="" Тогда
Сообщить("По заказу " + Строка.Заказ.Номер+ "адрес не найден: "+ТелоОтвета+".");
Продолжить;
КонецЕсли;

//Разбираем JSON

ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON.УстановитьСтроку(ТелоОтвета);
СтруктураОтвета = ПрочитатьJSON(ЧтениеJSON);
ЧтениеJSON.Закрыть();

Результат = СтруктураОтвета.status;

Если Результат = "OK" Тогда
//ошибок нет, адрес обработан и получен хотя бы один геокод.
ИначеЕсли Результат = "ZERO_RESULTS" Тогда
Сообщить("По заказу " + Строка.Заказ.Номер+ "адрес не найден: "+Результат+".");
Продолжить;
Иначе
Сообщить("По заказу " + Строка.Заказ.Номер+ " Ошибка: "+Результат+". Возможно не указан или не верный API Key в настройках Геокодера.");
Продолжить;
КонецЕсли;

Адрес1    = СокрЛП(СтруктураОтвета.results[0].formatted_address);
Строка.Широта   = КоординатаВСтроку(Лев(СтруктураОтвета.results[0].geometry.location.lat,9));
Строка.Долгота  = КоординатаВСтроку(Лев(СтруктураОтвета.results[0].geometry.location.lng,9));
КонецЦикла;
КонецПроцедуры

Функция КоординатаВСтроку(Знач Стр)

Стр = СтрЗаменить(Стр,",",".");
Стр = СтрЗаменить(Стр,Символы.НПП,"");

Возврат Стр;
КонецФункции