Genexus

Bom dia Mauricio, tente fazer da seguinte forma:

 

Sub 'MarkPoint'

&GxMapData.FromXml(&Websession.get('mappoints'))

 

&httpclient.Host            = 'maps.google.com'

&httpclient.BaseUrl         = '/maps/api/geocode/'

&postvar                    = 'xml?address=' + &provdireccion + '&sensor=false'

&httpclient.Execute('GET',&postvar)

&var                        = &httpclient.ToString()

&xmlreader.OpenFromString(&var)

&xmlreader.Read()

&xmlreader.ReadType(1,'lat')

&lat                        = &xmlreader.Value

&xmlreader.ReadType(1,'lng')

&long                       = &xmlreader.Value

GoogleMapControl1.Latitude  = &lat

GoogleMapControl1.Longitude = &long

     //Google and Yahoo Provider

GoogleMapControl1.Icon = 'Red'

     &GxMapPoint.PointLat            = &lat  //'-34.906275829530244'

     &GxMapPoint.PointLong           = &long  //'-56.199703216552734'

     &GxMapPoint.PointInfowinTit     = &provnombre

     &GxMapPoint.PointInfowinDesc    = &provgiro

     &GxMapPoint.PointInfowinLink    = &provurl

     &GxMapPoint.PointInfowinLinkDsc = &provdireccion

     //&GxMapPoint.PointInfowinImg     = "http://wiki.gxtechnical.com/commwiki/servlet/apgetwikiimage?10085,3"

     &GxMapData.Points.Add(&GxMapPoint) 

     &Websession.Set('mappoints',&GxMapData.ToXml())

EndSub

 

Espero te-lo ajudado.

Atenciosamente, Felipe.

2012/2/29 MReyes <mauricioreyesgonzalez@gmail.com>

Estimados,

Hice un webpanel con una grilla y un map control, en el cual puedo pinchar en la grilla un proveedor y en el mapa muestra la marca correspondiente a la dirección, así como voy pinchando van apareciendo las marcas en el mapa. Traté de hacer lo mismo con un for each line que recorra la grilla y marque todos los proveedores si tener que pinchar en cada uno de ellos, pero sólo marca el último ítem. alguien ha tratado de hacer algo así? (filtro registros con direcciones cercanas entre sí)

Este es el código que estoy usando

Event Start

&carga.FromImage(ActionExport)

GoogleMapControl1.Height = 630

GoogleMapControl1.Width = 1000

EndEvent

Event &carga.Click

&provdireccion = ProvDireccion

&provnombre    = ProvNombre

&provgiro      = ProvGiro

&provurl       = ProvUrl

do 'MarkPoint'

EndEvent

// Sample code for GxMapControl

Sub 'MarkPoint'

&httpclient.Host            = 'maps.google.com'

&httpclient.BaseUrl         = '/maps/api/geocode/'

&postvar                    = 'xml?address=' + &provdireccion + '&sensor=false'

&httpclient.Execute('GET',&postvar)

&var                        = &httpclient.ToString()

&xmlreader.OpenFromString(&var)

&xmlreader.Read()

&xmlreader.ReadType(1,'lat')

&lat                        = &xmlreader.Value

&xmlreader.ReadType(1,'lng')

&long                       = &xmlreader.Value

GoogleMapControl1.Latitude  = &lat

GoogleMapControl1.Longitude = &long

     //Google and Yahoo Provider

GoogleMapControl1.Icon = 'Red'

     &GxMapPoint.PointLat            = &lat  //'-34.906275829530244'

     &GxMapPoint.PointLong           = &long  //'-56.199703216552734'

     &GxMapPoint.PointInfowinTit     = &provnombre

     &GxMapPoint.PointInfowinDesc    = &provgiro

     &GxMapPoint.PointInfowinLink    = &provurl

     &GxMapPoint.PointInfowinLinkDsc = &provdireccion

     //&GxMapPoint.PointInfowinImg     = "http://wiki.gxtechnical.com/commwiki/servlet/apgetwikiimage?10085,3"

     &GxMapData.Points.Add(&GxMapPoint) 

EndSub

con este evento trato de cargar los registros de la grilla 

Event 'Cargar todos'

for each line

&provdireccion = ProvDireccion

&provnombre    = ProvNombre

&provgiro      = ProvGiro

&provurl       = ProvUrl

do 'MarkPoint'

endfor

EndEvent

De antemano agradezco sus comentarios.

Saludos

--
Mauricio Reyes Gonzalez
NeoCode: Soluciones en Sistemas de Información
Desarrollo de aplicaciones Web con Genexus
Cel: 89072885
Iquique, Chile.