Узнать районы Москвы, используя API Яндекс.Карт

13.08.15

Интеграция - WEB-интеграция

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

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
Файл обработки
.epf 7,24Kb
103 2 150 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Выкладываю внешнюю обработку с экспортом функции. Поиск района и округа Москвы осуществляется с помощью API Яндекс.Карты.
Функция обрабатывает адрес и возвращает таблицу значений с двумя столбцами: округ и район - кому как пригодится.
Я использовал ее так: в журнале определенных документов, где в форме списка у меня строки красятся в цвет округа, а сам округ хранится в реквизите "Округ" документа.


Если кому интересно, делаю вот так:

Если ДанныеСтроки.Округ = "ЦАО" Тогда
 
ОформлениеСтроки.ЦветФона = WebЦвета.Розовый;
ИначеЕсли
ДанныеСтроки.Округ = "САО" Тогда
 
ОформлениеСтроки.ЦветФона = WebЦвета.СинеСерый;
ИначеЕсли
ДанныеСтроки.Округ = "СВАО" Тогда
 
ОформлениеСтроки.ЦветФона = WebЦвета.СветлоЖелтый;
ИначеЕсли
ДанныеСтроки.Округ = "ВАО" Тогда
 
ОформлениеСтроки.ЦветФона = WebЦвета.СветлоГрифельноСиний;
ИначеЕсли
ДанныеСтроки.Округ = "ЮВАО" Тогда
 
ОформлениеСтроки.ЦветФона = WebЦвета.Коралловый
ИначеЕсли ДанныеСтроки.Округ = "ЮАО" Тогда
 
ОформлениеСтроки.ЦветФона = WebЦвета.Желтый;
ИначеЕсли
ДанныеСтроки.Округ = "ЮЗАО" Тогда
 
ОформлениеСтроки.ЦветФона = WebЦвета.СветлоГрифельноСерый;
ИначеЕсли
ДанныеСтроки.Округ = "ЗАО" Тогда
 
ОформлениеСтроки.ЦветФона = WebЦвета.СветлоЗеленый;
ИначеЕсли
ДанныеСтроки.Округ = "СЗАО" Тогда
 
ОформлениеСтроки.ЦветФона = WebЦвета.Красный;
ИначеЕсли
ДанныеСтроки.Округ = "ЗелАО" Тогда
 
ОформлениеСтроки.ЦветФона = WebЦвета.ЗеленыйЛес;
КонецЕсли;


   

Отдел логистики с помощью подбора формирует неким образом доставочный лист по округам. В этом листе я отображаю все точки доставки на карте и распечатанный листок попадает водителю. В общем все довольны.


Вот, собственно, сама идея. Если появились вопросы, пишите.

Вступайте в нашу телеграмм-группу Инфостарт

См. также

Сайты и интернет-магазины WEB-интеграция Системный администратор Программист Пользователь 1С:Предприятие 8 1C:Бухгалтерия 1С:Управление торговлей 11 Автомобили, автосервисы Россия Управленческий учет Платные (руб)

Интеграционный модуль обмена между конфигурацией Альфа Авто 5 и Альфа Авто 6 и порталом AUTOCRM / LOGICSTARS. Данный модуль универсален. Позволяет работать с несколькими обменами AUTOCRM / LOGICSTAR разных брендов в одной информационной базе в ручном и автоматическом режиме.

36000 руб.

03.08.2020    22203    32    24    

26

SALE! 15%

WEB-интеграция Программист Бизнес-аналитик 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Оптовая торговля, дистрибуция, логистика ИТ-компания Платные (руб)

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

17280 14688 руб.

20.12.2024    4383    22    4    

23

WEB-интеграция Программист Руководитель проекта 1С:Предприятие 8 1C:Бухгалтерия 1С:Франчайзи, автоматизация бизнеса Платные (руб)

Расширение значительно упрощает написание API на 1С. Веб программисты получают простой и понятный доступ к 1С. Описание API создаётся автоматически и представляется в виде удобном как для человека, так и для программной обработки. Основные преимущества: 1. Документация API создаётся автоматически. Удобна для программной обработки. 2. Изменить API столь же просто как настроить отчёт. Можно опубликовать существующий вариант отчёта. 3. Отчёты в API поддерживают параметры (Период, ДатаНачала и др.) 4. При создании простых методов не требуется изменять конфигурацию. 5. Поддерживается работа с планами обмена.<br/> 6. Возможно настроить отправку из 1С данных корреспондирующей системе, для случаев когда 1С сама "знает" какие данные нужно отправить. 7. После записи в 1С Ле Мурр может возвращать соответствие полученных идентификаторов созданным в 1С объектам данных.

36000 руб.

27.09.2024    10152    7    5    

11

WEB-интеграция Программист 1С:Предприятие 8 1С:Бухгалтерия 3.0 Бытовые услуги, сервис Платные (руб)

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

12000 руб.

02.02.2021    20959    60    52    

38
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. GreenFox 11.05.12 10:51 Сейчас в теме
Посмотрим, может и пригодится, но я больше все таки склонен работать с Гуглом.
2. Wladymyr 12.05.12 22:54 Сейчас в теме
Спасибо за труд. Поддерживаю: информации 1с + карты Google, Yandex и т.д. очень мало, наверное из за гео-карт 1с. Сам делал проект 1c8.2+VB+GoogleMaps. В итоге получилось "Возможности GoogleMaps"+"
Окошко 1с" ))).
3. 26178_mail.ru 59 14.11.12 02:32 Сейчас в теме
как проверить входит ли точка в многоугольник созданный функцией
var polygon = new YMaps.Polygon([ new YMaps.GeoPoint(37.7,55.7),
new YMaps.GeoPoint(37.7,55.8),
new YMaps.GeoPoint(37.8,55.8),
new YMaps.GeoPoint(37.8,55.7),
new YMaps.GeoPoint(37.7,55.7)
]);

map.addOverlay(polygon);
4. megatrend 131 03.09.13 14:58 Сейчас в теме
Хорошая обработка. Но с формой она смотрится гораздо лучше.
5. maXon777 129 20.10.16 18:29 Сейчас в теме
Выдает ошибку "Произошла исключительная ситуация (msxml3.dll). Отказано в доступе"
Не подскажите в чем может быть дело? (на трех разных компьютерах, ОС)
6. igorkarmanovich157 23.10.18 14:20 Сейчас в теме
(5) С тех пор как была выложена обработка видимо поменялась строка запроса к апи яндекса и теперь она выглядит следующим образом:

https://geocode-maps.yandex.ru/1.x/?apikey=<Ваш API-ключ>&geocode=Москва,+Тверская+улица,+дом+7
Для отправки сообщения требуется регистрация/авторизация