Расчет расстояния по GPS

24.04.13

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

Работая с программами прокладки маршрутов, использующих координаты GPS возникает необходимость получить расстояние между точками (например, Антор динамически рассчитывает и не хранит расстояние от последней точки до дома при поездке назад, а в отчетах оно нужно).

Файлы

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

Наименование Скачано Купить файл
Расчет расстояния по GPS
.epf 5,92Kb
74 2 500 руб. Купить

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

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

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

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

  • 0% комиссии — оплата напрямую исполнителю;
  • Исполнители любого масштаба — от отдельных специалистов до команд под проект;
  • Прямой обмен контактами между заказчиком и исполнителем;
  • Безопасная сделка — при необходимости;
  • Рейтинги, кейсы и прозрачная система откликов.

Для этих целей была подготовлена программа расчета расстояния между двумя координатами GPS.

Порядок действий:

1. Указываем координаты точек (первой и второй).

2. Жмем кнопку "Команда1"

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

См. также

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

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

42700 руб.

03.08.2020    24197    37    24    

28

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

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

24000 руб.

02.02.2021    22885    68    52    

43

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

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

17568 руб.

20.12.2024    6149    27    4    

29

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

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

60000 руб.

07.05.2019    42951    76    45    

31

WEB-интеграция Загрузка и выгрузка в Excel Программист Пользователь 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Розничная и сетевая торговля (FMCG) Россия Платные (руб)

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

12200 руб.

29.08.2025    2639    7    6    

8

Обмен с ГосИС WEB-интеграция Бухгалтер Пользователь 1С:Предприятие 8 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

5283 руб.

28.04.2016    100965    120    219    

368
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Maxis 24.04.13 15:45 Сейчас в теме
Как обработка никуда не годится из-за плохого интерфейса: правильно "расСтояние", вместо "Команда1" можно было бы написать "Рассчитать", да и для координат можно было написать русские "широта" и "долгота".
2. zekrus 152 24.04.13 16:19 Сейчас в теме
(1) Maxis, Интересный случай коллега "ДыНя"....! Попробуйте проверить ваше замечание в ворде. На счет работы с обработкой большого количества желающих - сомневаюсь (делал на коленке и слава богу, что на это хватило времени).
5. cleaner_it 198 01.05.13 03:42 Сейчас в теме
(2) Действительно. Это всего лишь выражение отношения к этим людям
8. zekrus 152 01.05.13 06:18 Сейчас в теме
(5) cleaner_it, Дикий согласен (это взаимно поверьте).
10. zekrus 152 01.05.13 06:20 Сейчас в теме
(8) (7) cleaner_it, А для чего изображение?
3. Kabz 78 24.04.13 16:51 Сейчас в теме
а сделать тоже самое в запросе вот было бы супер
4. zekrus 152 24.04.13 17:20 Сейчас в теме
(3) Kabz, Не вопрос, кто оплатит время?
6. cleaner_it 198 01.05.13 03:50 Сейчас в теме
(0) Констант слишком много. В этом плане алгоритм (первая ссылка в гугле) вызывает намного большее доверие: http://miniq.ru/article/gps-2-distance-js/
9. zekrus 152 01.05.13 06:19 Сейчас в теме
(6) cleaner_it, Попробуйте этим алгоритмом воспользоваться в 1с (может у вас хоть выйдет).
7. cleaner_it 198 01.05.13 03:53 Сейчас в теме
Блин. Хотел изображение приложить, а сменил аватарку:))
11. Angeros 17.05.13 04:45 Сейчас в теме
Тянет на статью, но не разработку. Лучше всего опишите принцип в виде статьи, а обработку мы и сами напишем...
12. zekrus 152 17.05.13 08:15 Сейчас в теме
(11) Angeros, Я как то сам решу куда и что писать в код или в статью. Спасибо.
13. Bond 16.11.13 12:02 Сейчас в теме
zekrus, скажите какая точность на маленьких расстояниях? и может знаете как включить в расчет высоту?
14. zekrus 152 16.11.13 12:53 Сейчас в теме
(13) Bond, Я взял формулу расчета по кривизне радиус задан в формуле, думаю что его и надо менять на вашу высоту. Точность аналогична картам яндекса.
15. Bond 16.11.13 13:06 Сейчас в теме
(14)не скажете, что означают значения 3958.75 и 1609.344? 57.2958 - это я так понял перевод в радианы?
16. zekrus 152 16.11.13 16:25 Сейчас в теме
(15) Bond, 3958.75 радиус земли. 1609.344 это перевод миль в метры.
17. rom-x 152 18.08.16 08:48 Сейчас в теме
Фактически вся обработка сводится к одной строчке:

	ПереводГрадусовВРадианы = 0.0174532925;
	РасчитанноеРасстояние = 6378137 * acos( cos( Объект.ШиротаОт * ПереводГрадусовВРадианы) * cos( Объект.ШиротаДо * ПереводГрадусовВРадианы ) * cos( Объект.ДолготаОт * ПереводГрадусовВРадианы - Объект.ДолготаДо * ПереводГрадусовВРадианы) + sin( Объект.ШиротаОт * ПереводГрадусовВРадианы ) * sin( Объект.ШиротаДо * ПереводГрадусовВРадианы ) ) ;
	
	Если Цел(РасчитанноеРасстояние/1000) <> 0  Тогда
		Объект.Расстояние = Формат(РасчитанноеРасстояние/1000, "ЧДЦ=2") + " км.";
	Иначе
		Объект.Расстояние = Формат(РасчитанноеРасстояние, "ЧДЦ=2") + " м.";
	КонецЕсли; 

Показать

dutlovva; +1 Ответить
18. Fox-trot 166 18.08.16 09:33 Сейчас в теме
так земля не плоская разве? а радиус земли, величина постоянная разве?
19. пользователь 17.04.19 14:57
Сообщение было скрыто модератором.
...
Для отправки сообщения требуется регистрация/авторизация