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

24.04.13

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

Скачать файл

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

Наименование		По подписке [?]	Купить один файл
Расчет расстояния по GPS .epf 5,92Kb 74	74	Скачать (1 SM)	Купить за 1 850 руб.

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

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

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

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

+9 –

См. также

Amocrm: интеграция с 1С

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

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

60000 руб.

07.05.2019 34397 65 45

Веб-портал "Service Desk Online" для конфигураций 1С:ITIL, 1С:ITILIUM, Управление IT-отделом 8

WEB-интеграция Администрирование веб-серверов Платные (руб)

Веб-портал обеспечивает удобный доступ к конфигурации 1С:ITIL, 1С:ITILIUM, Управление IT-отделом 8 через интернет с любого устройства посредством браузера, увеличивая эффективность работы пользователей и снижая нагрузку на сервер. Быстрая инсталляция портала за пару часов, удобный и интуитивно понятный интерфейс и безопасность данных помогут упростить работу с порталом и ускорить выполнение бизнес-процессов компании.

128000 руб.

19.12.2023 2380 2 0

Веб-портал "Онлайн-заказ" для 1С

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

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

57600 руб.

26.11.2024 2123 1 1

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

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

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

36000 руб.

03.08.2020 18928 21 22

Конструктор API для обмена базы 1С 8.3 с другими системами по протоколу http в формате JSON

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

Расширение значительно упрощает написание API на 1С. Веб программисты получают простой и понятный доступ к 1С. Описание API создаётся автоматически и представляется в виде удобном как для человека, так и для программной обработки.

24000 руб.

27.09.2024 3727 3 2

Интеграция с сервисом vetmanager в 1С: Бухгалтерия 3.0

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

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

12000 руб.

02.02.2021 18689 53 50

Экспортер — автоматизация выгрузки данных из 1С в Spot2D

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

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

14400 руб.

20.12.2024 721 3 1

Все службы доставки в Вашей 1С! Без изменения конфигурации! 1С:УТ, 1С:ERP, 1С:КА, 1С:УНФ

WEB-интеграция Рабочее место Оптовая торговля Розничная торговля Логистика, склад и ТМЦ Программист Пользователь Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Россия Управленческий учет Платные (руб)

40+ служб доставки для 1С в одном модуле! Внешняя обработка, которая НЕ изменяет Вашу конфигурацию! Подписная модель на 1 год.

16800 руб.

22.03.2017 39908 19 50

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. Maxis 24.04.13 15:45 Сейчас в теме

Как обработка никуда не годится из-за плохого интерфейса: правильно "расСтояние", вместо "Команда1" можно было бы написать "Рассчитать", да и для координат можно было написать русские "широта" и "долгота".

2. zekrus 151 24.04.13 16:19 Сейчас в теме

(1) Maxis, Интересный случай коллега "ДыНя"....! Попробуйте проверить ваше замечание в ворде. На счет работы с обработкой большого количества желающих - сомневаюсь (делал на коленке и слава богу, что на это хватило времени).

5. cleaner_it 209 01.05.13 03:42 Сейчас в теме

(2) Действительно. Это всего лишь выражение отношения к этим людям

8. zekrus 151 01.05.13 06:18 Сейчас в теме

(5) cleaner_it, Дикий согласен (это взаимно поверьте).

10. zekrus 151 01.05.13 06:20 Сейчас в теме

(8) (7) cleaner_it, А для чего изображение?

3. Kabz 78 24.04.13 16:51 Сейчас в теме

а сделать тоже самое в запросе вот было бы супер

4. zekrus 151 24.04.13 17:20 Сейчас в теме

(3) Kabz, Не вопрос, кто оплатит время?

6. cleaner_it 209 01.05.13 03:50 Сейчас в теме

(0) Констант слишком много. В этом плане алгоритм (первая ссылка в гугле) вызывает намного большее доверие: http://miniq.ru/article/gps-2-distance-js/

9. zekrus 151 01.05.13 06:19 Сейчас в теме

(6) cleaner_it, Попробуйте этим алгоритмом воспользоваться в 1с (может у вас хоть выйдет).

7. cleaner_it 209 01.05.13 03:53 Сейчас в теме

Блин. Хотел изображение приложить, а сменил аватарку:))

11. Angeros 17.05.13 04:45 Сейчас в теме

Тянет на статью, но не разработку. Лучше всего опишите принцип в виде статьи, а обработку мы и сами напишем...

12. zekrus 151 17.05.13 08:15 Сейчас в теме

(11) Angeros, Я как то сам решу куда и что писать в код или в статью. Спасибо.

13. Bond 16.11.13 12:02 Сейчас в теме

zekrus, скажите какая точность на маленьких расстояниях? и может знаете как включить в расчет высоту?

14. zekrus 151 16.11.13 12:53 Сейчас в теме

(13) Bond, Я взял формулу расчета по кривизне радиус задан в формуле, думаю что его и надо менять на вашу высоту. Точность аналогична картам яндекса.

15. Bond 16.11.13 13:06 Сейчас в теме

(14)не скажете, что означают значения 3958.75 и 1609.344? 57.2958 - это я так понял перевод в радианы?

16. zekrus 151 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") + " м.";
	КонецЕсли;

Показать