Здравствуйте! В данной статье я хочу поделиться опытом интеграции 1С с сервисом Mappable (Yandex)

Клиент — местная логистическая компания, занимающаяся грузоперевозками по стране и в страны ближнего и дальнего зарубежья. Свой учет она ведет в 1С. Эта компания обратилась к нам для написания модуля интеграции с картографическим сервисом. Клиент настаивал на использовании сервисов от Яндекса. Местный представитель Яндекса сообщил нам, что для решения данной задачи можно воспользоваться сервисом Mappable (это те же Яндекс.Карты, но, как я понял, работающие за пределами РФ).

Заказчик хотел иметь в 1С возможность ввода адреса или какой-нибудь местности, чтобы сервис выдавал список найденных адресов. После выбора значения из списка данный адрес должен отображаться на карте. Параллельно создавались бы данные в новом справочнике “Адреса” с сохранением координат и точного адреса выбранного значения.

Для решения данной задачи необходимо было использовать различные продукты Mappable API, о которых я и расскажу в этой статье.

Для вывода списка возможных адресов я использовал продукт geosuggest:

suggest.api.mappable.world

Для этого в общем серверном модуле был создан следующий метод:

// Получить места.
//
// Параметры:
//   ТекстПоиска - Строка - Текст поиска.
//
// Возвращаемое значение:
//   Произвольный - Получить места.
Функция ПолучитьМеста(ТекстПоиска = "") Экспорт
	АдресСервера = "suggest.api.mappable.world";
	СоединениеССервером = ПолучитьСоединение(АдресСервера);//HTTPСоединение

	Заголовки = Новый Соответствие;
	Заголовки.Вставить("Content-Type", "application/x-www-form-urlencoded");
	Ресурс = "v1/suggest";

	ТелоЗапроса = СтрШаблон("?apikey=%1&text=%2&lang=ru_RU&print_address=1&attrs=uri",
		Константы.MappableAPIKey.Получить(), ТекстПоиска);

	HTTPЗапрос = Новый HTTPЗапрос(Ресурс + ТелоЗапроса, Заголовки);
	Результат = СоединениеССервером.ВызватьHTTPМетод("GET", HTTPЗапрос);//HTTPОтвет
	Ответ = Результат.ПолучитьТелоКакСтроку();

	СтруктураОтвета = ПолучитьДанныеИзJSON(Ответ);

	Возврат СтруктураОтвета;

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

В ответе данная функция возвращает структуру данных. В этой структуре имеется массив структур “results”, в котором содержатся все необходимые данные. Каждый элемент массива представляет собой структуру, содержащую форматированный адрес, а также адрес, разбитый на компоненты: страну, город, улицу и прочие данные. Также в этой структуре имеется очень важный параметр “Uri” — своего рода идентификатор предлагаемого адреса. Он понадобится для получения координат места.

При выборе значения из выпадающего списка выполняется второй запрос в Mappable: geocoder.api.mappable.world

Для этого в нашем модуле была создана функция:

// Получить координаты места.
//
// Параметры:
//   uri - Строка - uri.
//
// Возвращаемое значение:
//   Произвольный - Получить координаты места.
Функция ПолучитьКоординатыМеста(uri = "") Экспорт
	АдресСервера = "geocoder.api.mappable.world";
	СоединениеССервером = ПолучитьСоединение(АдресСервера);//HTTPСоединение

	Заголовки = Новый Соответствие;
	Заголовки.Вставить("Content-Type", "application/x-www-form-urlencoded");
	Ресурс = "v1/";

	ТелоЗапроса = СтрШаблон("?apikey=%1&uri=%2&lang=en_US", Константы.MappableAPIKey.Получить(), uri);

	HTTPЗапрос = Новый HTTPЗапрос(Ресурс + ТелоЗапроса, Заголовки);
	Результат = СоединениеССервером.ВызватьHTTPМетод("GET", HTTPЗапрос);//HTTPОтвет
	Ответ = Результат.ПолучитьТелоКакСтроку();

	СтруктураОтвета = ПолучитьДанныеИзJSON(Ответ);

	Возврат СтруктураОтвета;

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

Этот метод возвращает координаты выбранного места. Обработать результат можно следующим образом:

Если РезультатПоиска.Свойство("response") И РезультатПоиска.response.Свойство("GeoObjectCollection")
	И РезультатПоиска.response.GeoObjectCollection.featureMember.Количество() > 0 Тогда

	Точка = РезультатПоиска.response.GeoObjectCollection.featureMember[0].GeoObject.Point.pos;

	СимволРазделителя = СтрНайти(Точка, " ");

	Долгота = СокрЛП(Лев(Точка, СимволРазделителя));

	Широта  = СокрЛП(Сред(Точка, СимволРазделителя));

КонецЕсли;

Получив необходимые данные (адрес и координаты места), их можно выводить на карте.

Стоит отметить, что на момент написания статьи 1С не поддерживала работу с JavaScript API версий v3 от Яндекса. Поэтому использовалась версия 2.1.

Итак, на форму обработки выводим поле HTML-документа и устанавливаем текст, предоставляемый Яндексом. Сам HTML-код выводить не буду, он доступен в документации от Яндекса.

Для вывода точек на карту нужно написать несколько строк кода на JavaScript:

Вначале необходимо инициализировать карту:

ymaps.ready(init);
var myMap = "";
var exchangeData = "";
function init() {
  myMap = new ymaps.Map("map", {
    center: [широта, долгота],
    zoom: 11,
  });
}

Как видно из кода выше, в параметр center передаются координаты центра отображаемой карты, а в параметр zoom — значение масштаба карты.

Для непосредственного вывода точки на карту необходимо добавить следующий код:

function setPoints(lat, lng, pointContent, changeZoom = false) {
  if (changeZoom) {
    myMap.setCenter([lat, lng], 19);
  }
  var myPlacemark = new ymaps.Placemark([lat, lng], {
    balloonContent: pointContent,
  });
  myMap.geoObjects.add(myPlacemark);
}

В качестве параметров этот метод принимает широту и долготу выводимой точки, содержимое точки (текст, отображаемый при нажатии на точку), а также параметр changeZoom. На форме карта периодически обновляется. Если изменить масштаб карты вручную, то при следующем обновлении карты масштаб вернется в исходное положение, а этот параметр позволяет сохранить масштаб при обновлении.

В рамках задачи, также нужно было добавить возможность создания адреса при нажатии на произвольное место на карте. Необходимо было получить координаты выбранного места и иметь возможность создания адреса в нашем справочнике “Адреса”.

Для этого в нашем тексте HTML добавляем следующий текст:

<button id="interactionButton" style="display: none">Interaction button</button> - это невидимая кнопка при нажатии на которую данные будут передаваться в 1С.

Код JavaScript:

myMap.events.add('click', function (e) {
    if (!myMap.balloon.isOpen()) {
    var coords = e.get('coords');
    exchangeData = JSON.stringify({"lat":coords[0].toPrecision(6),
    "lng":coords[1].toPrecision(6)})
    myMap.balloon.open(coords, {
    contentHeader:'Новый адрес',
    contentBody:'
    <p>Координаты: ' + [
    coords[0].toPrecision(6),
    coords[1].toPrecision(6)
    ].join(', ') + '</p>',
    contentFooter:'<button id="saveNewAddress" style = type="button" onclick = "createNewAddress()">Сохранить новый адрес</button>'
    });
    }
    else {
    myMap.balloon.close();
    }
    });
    }
    function createNewAddress(){
    interactionButton.click();
    }

В 1С в форме обработки в событии ПриНажатии нашего поля HTML пишем :

&НаКлиенте
Процедура ПолеHTMLПриНажатии(Элемент, ДанныеСобытия, СтандартнаяОбработка)
	ЭлементНажатия = ДанныеСобытия.Element;
	Если ЭлементНажатия.id = "interactionButton" Тогда
		MyData = Элементы.ПолеHTML.Документ.defaultView.exchangeData;
		ОписаниеОповещения = Новый ОписаниеОповещения("ПолучитьОтвет", ЭтотОбъект, MyData);
		ПоказатьВопрос(ОписаниеОповещения, "Сздать адрес?", РежимДиалогаВопрос.ДаНет);
	КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ПолучитьОтвет(Параметры, ДопПараметр) Экспорт
	Если Параметры = КодВозвратаДиалога.Да Тогда
		ДанныеМетки = МодульИнтеграцииВызовСервера.ПолучитьДанныеИзJSON(ДопПараметр);

		ФормаНовогоАдреса = ПолучитьФорму("Справочник.Адреса.ФормаОбъекта");
		ДанныеФормы = ФормаНовогоАдреса.Объект;
		Координаты = ПолучитьКоординатыТочки(Новый Структура("Долгота,Широта", ДанныеМетки.lng, ДанныеМетки.lat));
		ОбработатьДанныеНаСервере(ДанныеФормы, Координаты);

		КопироватьДанныеФормы(ДанныеФормы, ФормаНовогоАдреса.Объект);

		ФормаНовогоАдреса.Модифицированность = Истина;
		ФормаНовогоАдреса.Открыть();
	КонецЕсли;
КонецПроцедуры

&НаСервереБезКонтекста
Процедура ОбработатьДанныеНаСервере(ДанныеФормы, Координаты)

	НовыйАдрес = ДанныеФормыВЗначение(ДанныеФормы, Тип("СправочникОбъект.Адреса"));
	НовыйАдрес.Долгота = Координаты.Долгота;
	НовыйАдрес.Широта = Координаты.Широта;

	ЗначениеВДанныеФормы(НовыйАдрес, ДанныеФормы);

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

Заключение

Итак, описанная выше интеграция 1С с картографическим сервисом Mappable позволила успешно реализовать требования заказчика. Благодаря использованию API от Mappable, логистическая компания получила возможность автоматизировать процесс ввода адресов и работы с географическими данными непосредственно в 1С.

Основные задачи, такие как поиск и выбор адресов, получение координат, а также отображение точек на карте, были выполнены с помощью продуктов geosuggest и geocoder. Также, интеграция обеспечила возможность создания нового адреса в справочнике 1С при клике на карту.

Данный проект продемонстрировал, как с помощью современных API можно расширить функциональность 1С и повысить эффективность процессов в логистической компании. Подобная интеграция также может быть адаптирована и для других бизнесов, нуждающихся в работе с географическими данными.

В завершение хочу отметить, что поддержка актуальных технологий и гибкость в интеграции позволяют 1С оставаться востребованным инструментом для автоматизации бизнеса в самых разных сферах.

Надеюсь, что данная статья поможет читателям в решении подобных задач. Если у вас возникнут вопросы или предложения по улучшению данной методики, буду рад вашим отзывам и комментариям. Удачи в ваших проектах!