Смысл метода:
-
необходимая табличка с адресами и комментариями формируется в 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 Files\1cv81\bin".
-
скачать отчет gis81.erf, в модуле формы отчета в процедуре ПриОткрытии добавьте свой город в списке городов
-
запустите отчет. для теста выберите свой город, и в Таблицу значений на форме добавьте строку (или несколько), указав улицу, номер дома (точь в точь как в ДубльГИСе), а также что то наобум в заголовке и комментарии. по улице и дому ГИС найдет адреса, и выведет Ваши заметки на карту.
PS: в отчете наверняка не будет красоты кода, но это нормально, учитывая что не программировал в 8-ке полтора года) да да, 7.7 еще живо!)
