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

24.04.13

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

Скачать файл

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

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

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

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

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

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

+9 –

См. также

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

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

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

57600 руб.

26.11.2024 1552 1 1

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

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

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

36000 руб.

03.08.2020 18568 20 22

Интеграция 1С с API СДЭК, Деловые Линии, ПЭК, Boxberry, Почта России и др. Управление доставками в 1С 8.3

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

Программный продукт "Управление доставками в 1С" позволяет обмениваться с личным кабинетом СДЭК, Деловые Линии, ПЭК, DPD, Почта России и другими транспортных компаниями. Упрощает создание заявок и резервирование заказов прямо в интерфейсе 1С

18000 руб.

10.03.2016 63876 308 98

Функционал задач в Битрикс24 у Вас в 1С

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

Интеграция 1С и Битрикс 24. Разработка имеет двухстороннюю синхронизацию 1С и Bitrix24 задачами. Решение позволяет создавать пользователя в 1С из Битрикс24 и наоборот. Данная разработка технически подходит под все основные конфигурации линейки продуктов 1С:Предприятие 8.3 (платформа начиная с 8.3.23): 1С:Управление торговлей, 1С:Управление Нашей фирмой 3, 1С:Комплексная автоматизация 2, Объединенное решение: Модуль 1С:CRM 3 (3.0.21.3) +1С:ERP Управление предприятием 2. При приобретении предоставляется 1 месяц бесплатных обновлений разработки. Доступна демо-версия продукта с подключением Вашего Битрикс24

7200 руб.

04.05.2021 20715 13 19

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

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

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

16800 руб.

22.03.2017 39573 19 50

Интеграция 1С с OpenCart 2.x, 3x — модуль обмена данными

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

Модуль интеграции 1С с OpenCart 2.x, 3x позволяет обмениваться данными между OpenCart (самая популярная бесплатная cms для интернет-магазинов) и 1С:Предприятие 8.

6800 руб.

17.11.2015 121429 380 139

224

Экспортер — автоматизация выгрузки данных из 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 476 2 0

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

Обмен с ГосИС 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 92193 184 217

337

Комментарии

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

Свернуть все

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

Показать