По теме из базы знаний
- Яндекс карты для 7.7 - примеры работы с API 2.0
- ФИАС для 7.7
- 1С:Предприятие 7.7 и интерактивные карты
- Загрузка адресов произвольного формата (КЛАДР и нестандартных "грязных" адресов) в ФИАС современных конфигураций из 1С 7.7
- 1С:Фото номенклатуры 7.7 - решение для работы с фотографиями номенклатуры в 1С:7.7 (включая формат PNG)
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Уря, решилось:
ScrptCtrl = СоздатьОбъект("MSScriptControl.ScriptControl");
ScrptCtrl.Language="vbscript";
ScrptCtrl.AddCode(
"Function EncodeURIcomponent(SourceString)
| Dim I, C, Out
| For I = 1 To Len(SourceString)
| C = Asc(Mid(SourceString, I, 1))
| '/// Пробелы заменяем на плюс
| If C = 32 Then
| EncodeURIcomponent = EncodeURIcomponent + ""%20""
| '/// Запрещённые символы заменяем на ""%"" и HEX значение от кода символа
| ElseIf (C = 44) Then
| EncodeURIcomponent = EncodeURIcomponent + "",""
| ElseIf (C < 48 Or C > 126) Or (C > 56 And C <= 64) Then
| EncodeURIcomponent = EncodeURIcomponent + ""%"" + Hex©
| Else
| '/// Разрещённые символы добавляем как есть
| EncodeURIcomponent = EncodeURIcomponent + Chr©
| End If
| Next
| End Function");
СтрокаURL = ScrptCtrl.CodeObject.EncodeURIcomponent(СтрокаAnsi);
Сервер = "geocode-maps.yandex.ru";
Страница = "/1.x/?geocode="+СтрокаURL+"&key=ANpUFEkBAAAAf7jmJwMAHGZHrcKNDsbEqE
ScrptCtrl = СоздатьОбъект("MSScriptControl.ScriptControl");
ScrptCtrl.Language="vbscript";
ScrptCtrl.AddCode(
"Function EncodeURIcomponent(SourceString)
| Dim I, C, Out
| For I = 1 To Len(SourceString)
| C = Asc(Mid(SourceString, I, 1))
| '/// Пробелы заменяем на плюс
| If C = 32 Then
| EncodeURIcomponent = EncodeURIcomponent + ""%20""
| '/// Запрещённые символы заменяем на ""%"" и HEX значение от кода символа
| ElseIf (C = 44) Then
| EncodeURIcomponent = EncodeURIcomponent + "",""
| ElseIf (C < 48 Or C > 126) Or (C > 56 And C <= 64) Then
| EncodeURIcomponent = EncodeURIcomponent + ""%"" + Hex©
| Else
| '/// Разрещённые символы добавляем как есть
| EncodeURIcomponent = EncodeURIcomponent + Chr©
| End If
| Next
| End Function");
СтрокаURL = ScrptCtrl.CodeObject.EncodeURIcomponent(СтрокаAnsi);
Сервер = "geocode-maps.yandex.ru";
Страница = "/1.x/?geocode="+СтрокаURL+"&key=ANpUFEkBAAAAf7jmJwMAHGZHrcKNDsbEqE
Вывести на форму обработки не получится... Я формирую текстовый документ с Java script. Сохраняю с расширением HTML. И потом открываю в браузере через "Выполнить".
Я имел ввиду не скорость открытия карты в браузере. А время между нажатием на кнопку, временем формирования скрипта и открытием самой карты :)
Скиньте, пожалуйста, рабочую обработку. Или напишите полный алгоритм как реализовать данной решение , а то мне что то не очень понятно,что делать с этим кодом.
Можно. К нему они тоже апи вроде предоставляют. Но я пока с такими задачами не сталкивался. Очень рекомендую: Петин В. А. - API Яндекс, Google и других популярных веб-сервисов
Поэкспериментировав с обработкой , выяснил, что поставить метку на Яндекс карте можно гораздо проще. В это же обработке есть Процедура ПоказатьТочку() и ее достаточно для устаноке метки на карте(она даже удобнее)
и получает нужный нам адрес на карте . все просто )
Тут задумался о построении маршрута и подсчета расстояния, возился 3 дня , но решил задачу только построив маршрут для Москвы и МО(Так как там ограничения:В режиме бета-тестирования сервис доступен для построения маршрутов по Москве и Московской области, а также для городов Украины.). Кто нить решал такую задачу для других регионов?
Процедура ПоказатьТочку()
Тек = СокрЛП(ТО.Адрес.Получить(ДатаДок));
СтрокаАдреса = "http://maps.yandex.ru/?text="+Тек+"&spn=0.507774%2C0.142881&z=14&l=map";
ЗапуститьПриложение(СтрокаАдреса);
КонецПроцедуры //ПоказатьТочку
и получает нужный нам адрес на карте . все просто )
Тут задумался о построении маршрута и подсчета расстояния, возился 3 дня , но решил задачу только построив маршрут для Москвы и МО(Так как там ограничения:В режиме бета-тестирования сервис доступен для построения маршрутов по Москве и Московской области, а также для городов Украины.). Кто нить решал такую задачу для других регионов?
Да. Но это процедура показывает именно одну точку. Показать маршрут показывает несколько точек из таблицы значений
в 1ску будет выводиться информация с яндекс карт? так что ли получается? оченть интересно, хочу тоже посмотреть, если можно выложите)
в 1ску будет выводиться информация с яндекс карт? так что ли получается? оченть интересно, хочу тоже посмотреть, если можно вылoжите)
есть задача выбирать объект на карте (дом,здание) и получать в 1с 7.7 строку с адресом
возможно кто-то реализовывал - прошу подсказать, поделиться
возможно кто-то реализовывал - прошу подсказать, поделиться
(34) selesta, отвечаю сам себе - все сделал и отлично работает - интерактивный поиск прямо на карте и возврат в 1с значений координат и\или адреса. Ну и на получившемся стало понятно как делать все остальное - считать маршруты, расстояния, отображать один\много обьектов и т.д.
Прикрепленные файлы:
Я думаю можно. Когда возвращает гуголь xml. В объекте есть свойство <fo rmatted_address> вроде... Там пишется адрес. Когда парсишь - забираешь
завтра причешу немного и выложу
переделал уже возврат значений из карты в виде списка значений
1 - тип - house
2 - полностью - Украина, Киев, улица Крещатик, 26
3 - страна - Украина
4 - область - Киев
5 - район - Киев
6 - улица - улица Крещатик
7 - дом - 26
8 - координаты - 50.4489,30.5216
переделал уже возврат значений из карты в виде списка значений
1 - тип - house
2 - полностью - Украина, Киев, улица Крещатик, 26
3 - страна - Украина
4 - область - Киев
5 - район - Киев
6 - улица - улица Крещатик
7 - дом - 26
8 - координаты - 50.4489,30.5216
Внимание! Тема сдана в архив
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот