gifts2017

1С и ДубльГИС (2gis)

Опубликовал Владимир Кузнецов (VkStyle) в раздел Обмен - Загрузка и выгрузка в Excel

Взаимодействие 1С и ДубльГИС посредством связи через Excel
Обработка (точнее метод взаимодействия) позволяет отобразить в ДубльГИС перечень адресов, сформированных в 1С. Адреса отображаются в виде комментариев, сформированных также в 1С. Число отображаемых адресов неограниченно.

Смысл метода:

  1. необходимая табличка с адресами и комментариями формируется в 1С выгружается в ексель, а именно шаблон со специально приписанными макросами. Макрос представляет собой слегка переделанный пример на сайте 2gis по взаимодействию vba и движка 2gis.

  2. далее запускается макрос в файле-шаблоне, который активирует ДубльГИС и отображает адреса

ДЛЯ РАБОТЫ НЕОБХОДИМО:

  1. собственно 1С, Excel и ДубльГИС

  2. скачать отсюда файл шаблона 1c_to_2gis.xls с прописанными макросами. далее необходимо зайти
    "сервис / макрос/ безопасность", установить безопасность на "среднюю" и на вкладке "надежные издатели" поставить галочку "Доверять доступ к Visual Basic Project"

  3. скачать отсюда обработку 1c_to_2gis.ert . Специально написал ее разбив на 2 процедуры: одна создает перечень адресов в виде таблички и передает ее в другую, которая уже взаимодействует с Excel.

А теперь как сделать все то же самое, но быстро.

  1. качаем 1c_to_2gis.xls и кидаем его в корень базы. открываем его, ставим среднюю безопасность и доверять доступ к визуал прожект.

  2. качаем 1c_to_2gis.ert, формируем табличку с адресами в процедуре Сформировать() и передаем ее в процедуру ОтобразитьВДубльГИС(ТЗ_ДубльГИС,Город);

  3. запускаем отчет ;)

 

Примечание: тестировалось на 1С 7.7, Excel 2003. Отличия в версии 1С могут заключаются в подключении к OLE-объекту Excel, отличия версии Excel могут заключаются в настройках безопасности запуска макросов

//*****************************************************************

Выложил пример работы для 8.1. отчет был написан для УТ со спецификой фирмы. шоб все заработало надо:

  1. скачать шаблон экселя и кинуть его в каталог установлена 8-ка. по умолчанию "C:\Program Files\1cv81\bin". 

  2. скачать отчет  gis81.erf, в модуле формы отчета в процедуре ПриОткрытии добавьте свой город в списке городов

  3. запустите отчет. для теста выберите свой город, и в Таблицу значений на форме добавьте строку (или несколько), указав улицу, номер дома (точь в точь как в ДубльГИСе), а также что то наобум в заголовке и комментарии. по улице и дому ГИС найдет адреса, и выведет Ваши заметки на карту.

PS: в отчете наверняка не будет красоты кода, но это нормально, учитывая что не программировал в 8-ке полтора года) да да, 7.7 еще живо!)

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

Наименование Файл Версия Размер
Все файлы в 1 архиве 91
.zip 43,82Kb
25.08.14
91
.zip 43,82Kb Скачать
8.1 Пример по взаимодействию gis81.erf с шаблоном версии 2 31
.erf 14,70Kb
25.08.14
31
.erf 14,70Kb Скачать
7.7 Пример по взаимодействию 1c_to_2gis.ert с шаблоном версии 2 41
.ert 22,00Kb
25.08.14
41
.ert 22,00Kb Скачать
Шаблон файла excel с макросами 1c_to_2gis.xls версия 2. не требует внешних компонент 74
.xls 74,00Kb
25.08.14
74
.xls 74,00Kb Скачать

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Владимир Денисов (den_vladimir) 02.08.10 07:16
2. Владимир Кузнецов (VkStyle) 02.08.10 08:31
постараюсь выложить в ближайшее время, прост не подумал что они могут пргодиться.

На самом деле несмотря на взаимодействие с ДубльГИС выглядит это для вывода неограниченного числа пользователей с комментариями неудобно. т.е. если выводится около 30 адресов практически ничего на карте нельзя разобрать. было бы гораздо удобнее если б адреса выводились пиктограммой, но для этого надо отрисовать слой, а как это сделать в vba и возможно ли это сделать в vba под большим вопросом. Фактически я призываю тех, кто хорошо знает vba, развить эту идею. тогда бы получился очень удобный, мощный и бесплатный автоматизированный инструмент по работе с адресами. пока вот.. сколько голову не ломал, ток вот так смог :/
3. Владимир Кузнецов (VkStyle) 03.08.10 18:30
добавил скриншоты. чуть позже выложу доработанную версию в том плане что можно будет менять размер комментариев и менять заголовки комментариев
4. Сергей (MoneG2) 05.08.10 05:28
5. Владимир Кузнецов (VkStyle) 05.08.10 08:30
ну. попробую и для 8-ки, прост как мне интуиция подсказывает проблем с этим быть не должно. Но эт не раньше чем через неделю - две до восьмерки доберусь
6. Владимир Кузнецов (VkStyle) 05.08.10 19:28
выложил более расширенную версию шаблона с макросами и пример по работе с ним
7. Александр Онучин (sashtet) 20.08.10 05:13
Очень полезная тема,буду пробывать в 8-ке.Цель-создать маршрут для экспедитора из УТ.Раньше адреса руками вводил в Дубль Гиз.Спасибо за работу,очень актуальна!
8. Сергей Карташев (Elisy) 07.10.10 14:46
Только что нашли альтернативный вариант доступа к 2Гис - Excel не нужен.
В таком варианте работа ведется через .Net framework и Elisy .Net Bridge. Логика работы зашивается в код 1С и макет.
9. Владимир Кузнецов (VkStyle) 07.10.10 15:05
10. Сергей Карташев (Elisy) 07.10.10 15:31
Только что написал пояснение с простейшим примером:
2Gis и 1С:Предприятие теперь дружат
11. Владимир Кузнецов (VkStyle) 30.11.10 22:40
выложил пример работы для 8.1. отчет был написан для УТ со спецификой фирмы. шоб все заработало надо:
1) скачать шаблон экселя и кинуть его в каталог установлена 8-ка. по умолчанию "C:\Program Files\1cv81\bin".
2) скачать отчет gis81.erf, в модуле формы отчета в процедуре ПриОткрытии добавьте свой город в списке городов
3) запустите отчет. для теста выберите свой город, и в Таблицу значений на форме добавьте строку (или несколько), указав улицу, номер дома (точь в точь как в ДубльГИСе), а также что то наобум в заголовке и комментарии. по улице и дому ГИС найдет адреса, и выведет Ваши заметки на карту.

PS: в отчете наверняка не будет красоты кода, но эт нормально, учитывая что не программировал в 8-ке полтора года) да да, 7.7 еще живо!)
12. Александр Онучин (sashtet) 01.12.10 09:27
Тестировал и просил доработать для УТ 8.1. Все работает.Очень доволен.Большое спасибо за работу.Если у каго есть вопросы для УТ,то пишите,лучше сразу на почту, в теме письма укажите "Взаимодействие 1с и ДубльГИС посредством связи через excel "
адрес sashtetсабакаyandexточкаru
По просьбе автора буду комментировать и помогать в настройке адресов доставки.
13. Артем Гусаров (Flashback1979SE) 03.12.10 10:16
Выложи файлы одним архивом. Ведь тут ограничение на скачивание - 1 файл в сутки.
14. Георгий Меркулов (McLer) 13.12.10 10:29
Довольно таки инетерсная вещь. Спасибо за идею.
15. Дмитрий Малина (malina-da) 10.10.11 10:22
Идея интересная, только вот полностью ни как не получается внедрить
16. lthmvbot (1cKiller) 20.11.11 11:58
Автору спасибо за идею.

На сайте 2 гиса нашел много примеров на эту тему

http://plugins.2gis.ru/2gis-api/

Сейчас работаю над рассчетом расстояний между заданными объектами карты 2 гис.
Никто не сталкивался?
17. gosha13 28.04.12 07:18
Удобная вещь!!!
А как можно сделать, чтобы вместо поиска по адресу, можно было осуществить поиск по названию организации...или к примеру и название и адрес (в файле заполнить название организации).
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа