Просмотр адреса клиента на карте ДубльГИС

При помощи модуля можно осуществить просмотр адреса клиента на карте ДубльГИС. Для городов: Астрахань, Барнаул, Екатеринбург, Иркутск, Кемерово, Красноярск, Курган, Нижневартовск, Новокузнецк, Новосибирск, Одесса, Омск, Пермь, Самара, Томск, Тюмень, Уфа, Челябинск.
Модуль проверит наличие установленной программы ДубльГИС версии 3.0 на рабочей станции, если таковая установлена, то будет запущена она и в ней найден адрес, иначе поиск будет осуществляться через WEB.

Для работы надо на терминал подложить макрос rtab.mac и модуль DGis.d32
В архиве также приведены исходники.

Проверка наличия установки ДубльГИС возможна только при помощи длм-ки rssutils.d32, но она не влезла в архив :)
Если вдруг кому понадобится, обращайтесь вышлю. Без нее все тоже самое, только без строки: "ax = CallRemoteRsl("rtab.mac","_GetNTRegistrValue",0,"CLSID\\{1FE40EA0-BCD0-4235-B5F1-72123E3BA724}","AppID",1);"

 import rsexts;

private var k,ax,city="Новосибирск",citynum="9",street="Зорге",house="103";

macro ShowHouseinDGis(city,citynum,street,house)
  ax = CallRemoteRsl("rtab.mac","_GetNTRegistrValue",0,"CLSID\\{1FE40EA0-BCD0-4235-B5F1-72123E3BA724}","AppID",1);
  if(ax!="_0_")
    CallRemoteRsl ("rtab.mac","_DGisShow",toAnsi(city),toAnsi(street),house);
  else
    WebForm(ToAnsi("http://map.2gis.ru/default.aspx?NAME="+citynum+"&STREET="+street+"&HOUSE="+house));
  end;
end;

ShowHouseinDGis(city,citynum,street,house);