Вход | Регистрация

  1  2

Карта расположения клиента

Карта расположения клиента
Я
   1CNachalo
 
01.05.18 - 08:14
Надо: в форме списка справочника Контрагенты при выборе контрагента выводить его расположение на карте.

Нашла вот такое классное видео на тему географических карт в 1С https://www.youtube.com/watch?v=-v2GIphl6OY&t=1257s.

Только там выводится карта в виде отчета.



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

Может кто подскажет, что надо изменить.



В общем модуле получена переменная с адресом контрагента Адрес.

Тут же ниже прописываю:



 АдресФактическийКонтрагента=Адрес;

// 1) получение координат адреса


ЗапросЯндексу= Новый HTTPЗапрос("1.x/?results=1&format=json&geocode="+КодироватьСтроку(АдресФактическийКонтрагента,СпособКодированияСтроки.КодировкаURL)); СоединениеСЯндексом= новый HTTPСоединение("geocode-maps.yandex.ru",443,,,,,Новый ЗащищенноеСоединениеOpenSSL);

ЧтениеДжо = Новый ЧтениеJSON;     

ЧтениеДжо.УстановитьСтроку(СоединениеСЯндексом.Получить(ЗапросЯндексу).ПолучитьТелоКакСтроку());     

Джо= ПрочитатьJSON(ЧтениеДжо, Истина);     

МассивЛокаций = Джо ["response"]["GeoObjectCollection"]["featureMember"];     

Если   МассивЛокаций.Количество()>0 Тогда      Регион = МассивЛокаций [0] ["GeoObject"]["description"];     

Локация = СтрЗаменить(МассивЛокаций [0] ["GeoObject"]["Point"]["pos"]," "  ,  ",");

// 2) получение изображения по координатам      СоединениеСКартами= Новый HTTPСоединение ("static-maps.yandex.ru",443,,,,,Новый ЗащищенноеСоединениеOpenSSL);     


ЗапросККартам= Новый HTTPЗапрос("1.x/?size=450,450&z=13&l=map&pt="+Локация+",pm2rdl1");     

Карта = ПоместитьВоВременноеХранилище(Новый Картинка(СоединениеСКартами.Получить(ЗапросККартам).ПолучитьТелоКакДвоичныеДанные()));       

КонецЕсли;



///////////////////////////////////////////////////////////////


первую строку очень изменила.

В видео примерно так:

АдресФактическийКонтрагента=ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Параметры.Контрагент,"АдресФактическийКонтрагента");



У меня:

АдресФактическийКонтрагента=Адрес;

Может так не работает? Или что-то другое?
 
 
   ugorchina
 
101 - 03.05.18 - 20:32
как по моему должно у нее все работать! я в соседней ее ветке написал ей замечания
   ugorchina
 
102 - 03.05.18 - 20:33
(100) посмотреть что она сделал и иправить косяк ну и фоток грабануть и других данных )
   1CNachalo
 
103 - 06.05.18 - 17:58
(97) т.к. клиенту может переход на новую версию быть не удобен. Поэтому код должен отрабатывать и на старой версии. А на новой он прекрасно работает без всяких махинаций и преобразований. На новой - это на 8.3.10 и 8.3.11. У нас (я писала об этом 8.3.9)
   1CNachalo
 
104 - 06.05.18 - 17:59
(98) 8.3.9
   1CNachalo
 
105 - 06.05.18 - 18:02
С обоими ветками разобралась. Оба кода в обоих ветках рабочие. Нюансы с языком были - в версии 1С, с выводом интерактивной карты - тоже не в коде (код был верный изначально). Если кому интересно - поясню.
  1  2

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует