Расчет расстояния между адресами в формате КЛАДР с использованием сервиса Карты.Mail.ru

19.08.10

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

Расчет расстояния между двумя адресами в формате КЛАДР.

Скачать файлы

Наименование Файл Версия Размер
Расчет расстояния между адресами с использованием сервиса Карты.Mail.ru
.epf 9,27Kb
287
.epf 9,27Kb 287 Скачать

Расчет расстояния между двумя адресами в формате Кладр.

Пример работы:

  1. Синхронное получение информации с сайта через Microsoft.XMLHTTP
  2. Конвертирование в UTF16 c использованием jscript через MSScriptControl.ScriptControl

!!!! НЕ СТЕСНЯЕМСЯ СТАВИМ ПЛЮСЫ  (количество загрузок существенно большое количества плюсов).

См. также

Интеграция Альфа Авто 5 / Альфа Авто 6 и AUTOCRM / Инфотек

Сайты и интернет-магазины WEB-интеграция Платформа 1С v8.3 Конфигурации 1cv8 1С:Управление торговлей 11 Автомобили, автосервисы Россия Управленческий учет Платные (руб)

Интеграционный модуль обмена между конфигурацией Альфа Авто 5 и Альфа Авто 6 и порталом AUTOCRM. Данный модуль универсален. Позволяет работать с несколькими обменами AUTOCRM разных брендов в одной информационной базе в ручном и автоматическом режиме. Без существенных изменений типовой конфигурации. Проверено с брендами: Интеграция 1С и GEELY Интеграция 1С и HAVAL Интеграция 1С и KIA Интеграция 1С и FORD Интеграция 1С и LADA ГАРАНТИЯ 100% ВНЕДРЕНИЯ!

36000 руб.

03.08.2020    15732    10    17    

11

Интеграция 1С — Битрикс24. Обмен задачами

Сайты и интернет-магазины Интеграция WEB-интеграция Платформа 1С v8.3 Конфигурации 1cv8 Управленческий учет Платные (руб)

Интеграция 1С и Битрикс24. Разработка имеет двухстороннюю синхронизацию 1С и Битрикс24 задачами. Решение позволяет создавать пользователя в 1С из Битрикс24 и наоборот. Данная разработка технически подходит под все основные конфигурации линейки продуктов 1С:Предприятие 8.3 (8.3.18.1289). При приобретении предоставляется 1 месяц бесплатных обновлений разработки. Доступна демо-версия продукта с подключением Вашего Битрикс24

5040 руб.

04.05.2021    17547    6    15    

13

Интеграция с сервисом vetmanager

WEB-интеграция Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Бытовые услуги, сервис Платные (руб)

Внешняя обработка разрабатывалась для загрузки документов из Ветменеджер в 1С: Бухгалтерия 3.0

12000 руб.

02.02.2021    16358    42    49    

23

[Расширение] БОР-Навигатор.Культура

Зарплата Бюджетный учет WEB-интеграция Обмен с ГосИС Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бюджетный учет Платные (руб)

Расширение конфигурации, включающее в себя объекты, необходимые для подготовки и сдачи отчета "Штатная численность" системы "БОР-Навигатор.Культура" в программе "1С:Зарплата и кадры государственного учреждения", редакция 3.1.

8400 руб.

01.02.2019    25736    9    0    

7

Заполнение по ИНН или наименованию реквизитов контрагента по данным сайта ФНС

Обмен с ГосИС WEB-интеграция Платформа 1С v8.3 Управляемые формы 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия государственного учреждения 1С:Документооборот 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Платные (руб)

Обработка является альтернативой механизму, разработанному фирмой 1С и заполняющему реквизиты контрагента по ИНН или наименованию. Не требуется действующей подписки ИТС. Вызывается как внешняя дополнительная обработка, т.е. используется, непосредственно, из карточки контрагента. Заполнение по ИНН или наименованию реквизитов контрагента по данным сайта ФНС (egrul.nalog.ru) для БП 2.0, БП 3.0, БГУ 1.0, БГУ 2.0, УТ 10.3, УТ 11.x, КА 1.1, КА 2.x, УПП 1.x, ERP 2.x, УНФ 1.5, УНФ 1.6, УНФ 3.0, ДО 2.1

2400 руб.

28.04.2016    88578    160    215    

318
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. simuljakr 203 08.10.10 16:02 Сейчас в теме
Скажите, а правильно ли я понял, что обработка рассчитывает расстояние в режиме "По времени с учетом пробок" ? Если да, то можно ли сделать чтобы расстояние рассчитывалось в режиме "По времени" ?
2. SolarGard 115 22.09.11 17:37 Сейчас в теме
Получая координаты с maps.mail.ru по адресу(из КЛАДРА), выехав далеко за большой город сталкиваешься с отсутствием в их базе домов (а улица есть), улиц (а поселок есть). С сайта возвращается список адресов с искомой улицей но в других городах. Пришлось в обработке в функцию ПолучитьКординатыПоАдресуФНС() добавить повторный загрубленный поиск. Использовал из УПП РазложитьСтрокуВМассивПодстрок(). Результат стал существенно лучше. А вообще хорошая обработка.

Функция ПолучитьКординатыПоАдресуФНС(Адрес)

СтруктураАдреса = УправлениеКонтактнойИнформацией.ПолучитьСтруктуруАдресаИзСтроки(Адрес);

Регион=СтруктураАдреса.Регион;

//Если Найти(Регион,"Санкт-Петербург")=0 Тогда
//ОбщегоНазначения.СообщитьОбОшибке("Маршрут возможно определить только в Санкт-Петербурге");
// Возврат "";
//КонецЕсли;

//стрАдрес=СтруктураАдреса.Дом+?(СтруктураАдреса.Корпус="","","+"+СтруктураАдреса.Корпус)+","+СтруктураАдреса.Улица+ "," + СтруктураАдреса.НаселенныйПункт+ "," + СтруктураАдреса.Район+","+СтруктураАдреса.Регион;
стрАдрес=СтруктураАдреса.Регион +"," + СтруктураАдреса.Район +","+ СтруктураАдреса.Город +","+ СтруктураАдреса.НаселенныйПункт + ","+СтруктураАдреса.Улица + "," + СтруктураАдреса.Дом+?(СтруктураАдреса.Корпус="","","+"+СтруктураАдреса.Корпус) ;
АдресUTF16=ПроцедураПреобразоватьСтрокуВUTF16(стрАдрес);
ДанныеСКоординатами=ПроцедураПолучитьДанныеССервера("GeoObjectSearch.aspx?SearchStringKey="+АдресUTF16);

//Разбор ответа сервера

СимволРазбиения="||";
// Если заполнен населенный пункт

СтрокаДанныеСКоординатами = Прав(ДанныеСКоординатами,СтрДлина(ДанныеСКоординатами)-Найти(ДанныеСКоординатами,"Path: '" )-6);
Если Найти(СтрокаДанныеСКоординатами,"; Российская Федерация, государство; ',") Тогда
СтрокаДанныеСКоординатами = Лев(СтрокаДанныеСКоординатами,Найти(СтрокаДанныеСКоординатами,"; Российская Федерация, государство; ',"));
Иначе
СтрокаДанныеСКоординатами = Лев(СтрокаДанныеСКоординатами,Найти(СтрокаДанныеСКоординатами,"; ', CntrLat:,"));
КонецЕсли;
МассивДанныеСКоординатами = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтрокаДанныеСКоординатами, ";");

Если СтруктураАдреса.НаселенныйПункт <> "" Тогда

НаселенныйПунктМассив = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтруктураАдреса.НаселенныйПункт, " ");
НаселенныйПункт = "";
Для к=0 По НаселенныйПунктМассив.Количество()-2 Цикл
НаселенныйПункт = НаселенныйПункт + НаселенныйПунктМассив[к]+ " ";
КонецЦикла;
НаселенныйПункт = СокрП(НаселенныйПункт);

ЕстьНаселенныйПункт = 0;
Для Каждого ЭлементМассива из МассивДанныеСКоординатами Цикл
Если Найти(ЭлементМассива,НаселенныйПункт) Тогда
ЕстьНаселенныйПункт = ЕстьНаселенныйПункт + 1;
КонецЕсли;
КонецЦикла;

Если ЕстьНаселенныйПункт = 0 Тогда
Сообщить("Мэйл не находит населенный пункт : " + НаселенныйПункт);
стрАдрес=СтруктураАдреса.Регион + "," + СтруктураАдреса.Район + "," + СтруктураАдреса.НаселенныйПункт ;
АдресUTF16=ПроцедураПреобразоватьСтрокуВUTF16(стрАдрес);
ДанныеСКоординатами=ПроцедураПолучитьДанныеССервера("GeoObjectSearch.aspx?SearchStringKey="+АдресUTF16);
ИначеЕсли СтруктураАдреса.Улица <> "" Тогда

УлицаМассив = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтруктураАдреса.Улица, " ");
Улица = "";
Для к=0 По УлицаМассив.Количество()-2 Цикл
Улица = Улица + УлицаМассив[к]+ " ";
КонецЦикла;
Улица = СокрП(Улица);

ЕстьУлица = 0;
МассивДанныеСКоординатами = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтрокаДанныеСКоординатами, ";");
Для Каждого ЭлементМассива из МассивДанныеСКоординатами Цикл

Если Найти(ЭлементМассива,Улица) Тогда
ЕстьУлица = ЕстьУлица + 1;

КонецЕсли;
КонецЦикла;
Если ЕстьУлица = 0 Тогда
Сообщить("Мэйл не находит улицу: " + Улица);
КонецЕсли;
КонецЕсли;
КонецЕсли;

Если СтруктураАдреса.Город <> "" Тогда
ГородМассив = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтруктураАдреса.Город, " ");
Город = "";
Для к=0 По ГородМассив.Количество()-2 Цикл
Город = Город + ГородМассив[к]+ " ";
КонецЦикла;
Город = СокрЛП(Город);


ЕстьГород = 0;
Для Каждого ЭлементМассива из МассивДанныеСКоординатами Цикл
Если Найти(ЭлементМассива,Город) Тогда
ЕстьГород = ЕстьГород + 1;
КонецЕсли;
КонецЦикла;

Если ЕстьГород = 0 Тогда
Сообщить("Мэйл не находит город : " + Город);
стрАдрес=СтруктураАдреса.Регион +"," + СтруктураАдреса.Район +","+ СтруктураАдреса.Город +","+ СтруктураАдреса.НаселенныйПункт + ","+СтруктураАдреса.Улица;
АдресUTF16=ПроцедураПреобразоватьСтрокуВUTF16(стрАдрес);
ДанныеСКоординатами=ПроцедураПолучитьДанныеССервера("GeoObjectSearch.aspx?SearchStringKey="+АдресUTF16);

КонецЕсли;

КонецЕсли;

//Получить адрес
ДанныеСКоординатами=СтрЗаменить(ДанныеСКоординатами,"Path: '",СимволРазбиения);
ДанныеСКоординатами=СтрЗаменить(ДанныеСКоординатами,"; Российская Федерация, государство; ',",СимволРазбиения);
//%%% SolarGard - начало
ДанныеСКоординатами=СтрЗаменить(ДанныеСКоординатами,"; ', CntrLat: ",СимволРазбиения);
//%%% SolarGard - конец
ДанныеСКоординатами=СтрЗаменить(ДанныеСКоординатами,"CntrLat: ","");
ДанныеСКоординатами=СтрЗаменить(ДанныеСКоординатами,", CntrLon:",СимволРазбиения);
ДанныеСКоординатами=СтрЗаменить(ДанныеСКоординатами,", MinLat: ",СимволРазбиения);


мнчСтрока=СтрЗаменить(ДанныеСКоординатами,СимволРазбиения,Символы.ПС);

сч=1;

ТаблицаАдресов=Новый ТаблицаЗначений;

ТаблицаАдресов.Колонки.Добавить("Адрес",ОбщегоНазначения.ПолучитьОписаниеТиповСтроки(300));
ТаблицаАдресов.Колонки.Добавить("КоординатаX",ОбщегоНазначения.ПолучитьОписаниеТиповСтроки(30));
ТаблицаАдресов.Колонки.Добавить("КоординатаY",ОбщегоНазначения.ПолучитьОписаниеТиповСтроки(30));

//Если указан корпус, то mail.ru все равно возвращает несколько адресов
ВыбранныйАдрес=Неопределено;

Пока сч<СтрЧислоСтрок(мнчСтрока) Цикл

НоваяСтрока=ТаблицаАдресов.Добавить();

НоваяСтрока.Адрес=СтрПолучитьСтроку(мнчСтрока,сч+1);
//// Преобразование значения к типу Число не может быть выполнено !!!!!
Попытка
НоваяСтрока.КоординатаY=Формат(Число(СокрЛП(СтрПолучитьСтроку(мнчСтрока,сч+2))),"ЧГ=0;ЧРД=.");
НоваяСтрока.КоординатаX=Формат(Число(СокрЛП(СтрПолучитьСтроку(мнчСтрока,сч+3))),"ЧГ=0;ЧРД=.");
Исключение

КонецПопытки;

сч=сч+5;

//Если ЗначениеЗаполнено(СтруктураАдреса.Корпус) и Не ЗначениеЗаполнено(ВыбранныйАдрес) Тогда
//
// //Получаем первый корпус
// ВыбранныйАдрес=НоваяСтрока;
//
//КонецЕсли;

КонецЦикла;

//Если используется корпус
Если ТаблицаАдресов.Количество()>0 ТОгда
Возврат ТаблицаАдресов.Получить(0);
Иначе
Возврат Неопределено;
КонецЕсли

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

// Функция "расщепляет" строку на подстроки, используя заданный
// разделитель. Разделитель может иметь любую длину.
// Если в качестве разделителя задан пробел, рядом стоящие пробелы
// считаются одним разделителем, а ведущие и хвостовые пробелы параметра Стр
// игнорируются.
// Например,
// РазложитьСтрокуВМассивПодстрок(",ку,,,му", ",") возвратит массив значений из пяти элементов,
// три из которых - пустые строки, а
// РазложитьСтрокуВМассивПодстрок(" ку му", " ") возвратит массив значений из двух элементов
//
// Параметры:
// Стр - строка, которую необходимо разложить на подстроки.
// Параметр передается по значению.
// Разделитель - строка-разделитель, по умолчанию - запятая.
//
//
// Возвращаемое значение:
// массив значений, элементы которого - подстроки
//
Функция РазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = ",") Экспорт

МассивСтрок = Новый Массив();
Если Разделитель = " " Тогда
Стр = СокрЛП(Стр);
Пока Истина Цикл
Поз = Найти(Стр,Разделитель);
Если Поз=0 Тогда
МассивСтрок.Добавить(Стр);
Возврат МассивСтрок;
КонецЕсли;
МассивСтрок.Добавить(Лев(Стр,Поз-1));
Стр = СокрЛ(Сред(Стр,Поз));
КонецЦикла;
Иначе
ДлинаРазделителя = СтрДлина(Разделитель);
Пока Истина Цикл
Поз = Найти(Стр,Разделитель);
Если Поз=0 Тогда
МассивСтрок.Добавить(Стр);
Возврат МассивСтрок;
КонецЕсли;
МассивСтрок.Добавить(Лев(Стр,Поз-1));
Стр = Сред(Стр,Поз+ДлинаРазделителя);
КонецЦикла;
КонецЕсли;

КонецФункции // глРазложить
3. SolarGard 115 22.09.11 17:43 Сейчас в теме
"Российская Федерация, государство" - не всегда в ответе бывает
надо добавить (обратите внимание)
//%%% SolarGard - начало
ДанныеСКоординатами=СтрЗаменить(ДанныеСКоординатами,"; ', CntrLat: ",СимволРазбиения);
//%%% SolarGard - конец
4. seandr 03.10.11 15:54 Сейчас в теме
Наработка отличная... сделал на ее базе документ рассчета маршрута доставки. Остается один вопрос. Кто-нибудь пытался разделить расстояния на пересечении МКАД? Мне надо считать расстояние от МКАД.
5. cv_admin 50 03.10.11 22:51 Сейчас в теме
1. Получаем массив точек (Координат съезда с МКАД)
2. По адресу за МКАД получаем координату необходимой точки
3. Определяем ближайшую точку съезда МКАД. (
Алгоритм - Поиск ближайшей точки к заданной
http://programmersforum.ru/showthread.php?t=51343
http://www.rsdn.ru/forum/alg/1548606.flat.aspx)
4. От точки съезда можно новый маршрут построить от съезда с МКАД до нужной точки
6. Lerusena 9 16.11.11 02:06 Сейчас в теме
Полезная вещь. помогла с расчетом расстояний. хотя честно сказать МАЙЛ не совсем верно считает. ну если погрешность заложить вполне сносно. Спасибо.
7. bitem 07.01.12 05:00 Сейчас в теме
+ за Идею. Проблема просто в картах поисковых систем (не только майл). Сам все перепробовал - не знают они 60% адресов. Чтобы юзать в работе нужна точность выше, а это уже за денюшки(
8. simuljakr 203 09.07.13 16:58 Сейчас в теме
Для Яндекса бы такую разработку...
Мэйл ру совершенно не работает....

По запросу:
Москва г, Горлов туп, дом 27 с 5

Выдает 6 страниц результатов !!
Первый из них:
Каширский проезд, 27С5
9. tendercement 06.04.15 13:14 Сейчас в теме
Выдает ошибку:

{ВнешняяОбработка.РасчетРасстоянияМеждуАдресами.МодульОбъекта(61)}: Преобразование значения к типу Число не может быть выполнено
НоваяСтрока.КоординатаY=Формат(Число(СокрЛП(СтрПолучитьСтроку(мнчСтрока,сч+2))),"ЧГ=0;ЧРД=.");
10. dismoitout 21 07.04.16 17:40 Сейчас в теме
Обработка нерабочая - выдает ошибку

{ВнешняяОбработка.РасчетРасстоянияМеждуАдресами.МодульОбъекта(61)}: Преобразование значения к типу Число не может быть выполнено
НоваяСтрока.КоординатаY=Формат(Число(СокрЛП(СтрПолучитьСтроку(мнчСтрока,сч+2))),"ЧГ=0;ЧРД=.");
Оставьте свое сообщение