Смысл метода:
-
необходимая табличка с адресами и комментариями формируется в 1С выгружается в ексель, а именно шаблон со специально приписанными макросами. Макрос представляет собой слегка переделанный пример на сайте 2gis по взаимодействию vba и движка 2gis.
-
далее запускается макрос в файле-шаблоне, который активирует ДубльГИС и отображает адреса
ДЛЯ РАБОТЫ НЕОБХОДИМО:
-
собственно 1С, Excel и ДубльГИС
-
скачать отсюда файл шаблона 1c_to_2gis.xls с прописанными макросами. далее необходимо зайти
«сервис / макрос/ безопасность», установить безопасность на «среднюю» и на вкладке «надежные издатели» поставить галочку «Доверять доступ к Visual Basic Project» - скачать отсюда обработку 1c_to_2gis.ert . Специально написал ее разбив на 2 процедуры: одна создает перечень адресов в виде таблички и передает ее в другую, которая уже взаимодействует с Excel.
А теперь как сделать все то же самое, но быстро.
-
качаем 1c_to_2gis.xls и кидаем его в корень базы. открываем его, ставим среднюю безопасность и доверять доступ к визуал прожект.
-
качаем 1c_to_2gis.ert, формируем табличку с адресами в процедуре Сформировать() и передаем ее в процедуру ОтобразитьВДубльГИС(ТЗ_ДубльГИС,Город);
-
запускаем отчет 😉
Примечание: тестировалось на 1С 7.7, Excel 2003. Отличия в версии 1С могут заключаются в подключении к OLE-объекту Excel, отличия версии Excel могут заключаются в настройках безопасности запуска макросов
//*****************************************************************
Выложил пример работы для 8.1. отчет был написан для УТ со спецификой фирмы. шоб все заработало надо:
-
скачать шаблон экселя и кинуть его в каталог установлена 8-ка. по умолчанию «C:Program Files1cv81in».
-
скачать отчет gis81.erf, в модуле формы отчета в процедуре ПриОткрытии добавьте свой город в списке городов
-
запустите отчет. для теста выберите свой город, и в Таблицу значений на форме добавьте строку (или несколько), указав улицу, номер дома (точь в точь как в ДубльГИСе), а также что то наобум в заголовке и комментарии. по улице и дому ГИС найдет адреса, и выведет Ваши заметки на карту.
PS: в отчете наверняка не будет красоты кода, но это нормально, учитывая что не программировал в 8-ке полтора года) да да, 7.7 еще живо!)
Related Posts
Получение логина и пароля техподдержки 1С из базы
Класс для вывода отчета в Excel
Счет-фактура для УПП
Библиотека классов для создания внешней компоненты 1С на C#- Акт об оказании услуг (со скидками) — внешняя печатная форма для Управление торговлей 11.1.10.86
Прайс-лист с артикулом в отдельной колонке
скриншоты бы…
постараюсь выложить в ближайшее время, прост не подумал что они могут пргодиться.
На самом деле несмотря на взаимодействие с ДубльГИС выглядит это для вывода неограниченного числа пользователей с комментариями неудобно. т.е. если выводится около 30 адресов практически ничего на карте нельзя разобрать. было бы гораздо удобнее если б адреса выводились пиктограммой, но для этого надо отрисовать слой, а как это сделать в vba и возможно ли это сделать в vba под большим вопросом. Фактически я призываю тех, кто хорошо знает vba, развить эту идею. тогда бы получился очень удобный, мощный и бесплатный автоматизированный инструмент по работе с адресами. пока вот.. сколько голову не ломал, ток вот так смог :/
добавил скриншоты. чуть позже выложу доработанную версию в том плане что можно будет менять размер комментариев и менять заголовки комментариев
версии для 8.х будут?
ну. попробую и для 8-ки, прост как мне интуиция подсказывает проблем с этим быть не должно. Но эт не раньше чем через неделю — две до восьмерки доберусь
выложил более расширенную версию шаблона с макросами и пример по работе с ним
Очень полезная тема,буду пробывать в 8-ке.Цель-создать маршрут для экспедитора из УТ.Раньше адреса руками вводил в Дубль Гиз.Спасибо за работу,очень актуальна!
Только что нашли альтернативный вариант доступа к 2Гис — Excel не нужен.
В таком варианте работа ведется через .Net framework и Elisy .Net Bridge. Логика работы зашивается в код 1С и макет.
ссылочку бы)
Только что написал пояснение с простейшим примером:
выложил пример работы для 8.1. отчет был написан для УТ со спецификой фирмы. шоб все заработало надо:
1) скачать шаблон экселя и кинуть его в каталог установлена 8-ка. по умолчанию «C:Program Files1cv81in».
2) скачать отчет gis81.erf, в модуле формы отчета в процедуре ПриОткрытии добавьте свой город в списке городов
3) запустите отчет. для теста выберите свой город, и в Таблицу значений на форме добавьте строку (или несколько), указав улицу, номер дома (точь в точь как в ДубльГИСе), а также что то наобум в заголовке и комментарии. по улице и дому ГИС найдет адреса, и выведет Ваши заметки на карту.
PS: в отчете наверняка не будет красоты кода, но эт нормально, учитывая что не программировал в 8-ке полтора года) да да, 7.7 еще живо!)
Тестировал и просил доработать для УТ 8.1. Все работает.Очень доволен.Большое спасибо за работу.Если у каго есть вопросы для УТ,то пишите,лучше сразу на почту, в теме письма укажите «Взаимодействие 1с и ДубльГИС посредством связи через excel »
адрес sashtetсабакаyandexточкаru
По просьбе автора буду комментировать и помогать в настройке адресов доставки.
Выложи файлы одним архивом. Ведь тут ограничение на скачивание — 1 файл в сутки.
Довольно таки инетерсная вещь. Спасибо за идею.
Идея интересная, только вот полностью ни как не получается внедрить
Автору спасибо за идею.
На сайте 2 гиса нашел много примеров на эту тему
Сейчас работаю над рассчетом расстояний между заданными объектами карты 2 гис.
Никто не сталкивался?
Удобная вещь!!!
А как можно сделать, чтобы вместо поиска по адресу, можно было осуществить поиск по названию организации…или к примеру и название и адрес (в файле заполнить название организации).