Busca no Maps, Dados do cliente (Aporte)

[Daniel Halon]

Boa tarde pessoal,

Estou compartindo esta Função que ficou muito legal no meu sistema. No caso de tele entrega, é muito útil para saber na hora onde será entregue o pedido.

Uma vez inseridos os dados de forma correta, ela busca no Maps, mostrando a localização e foto da casa do cliente selecionado.

Não é de minha autoria, só modifiquei para minha necessidade.

.

//////////////////////////////////////////////////////////////////////////////////////////
// Procura endereco e mostra no Maps
/////////////////////////////////////////////////////////////////////////////////////////
Function Mapa(Endereco, Numero, Bairro, Cidade, UF)
  LOCAL msearch := Alltrim(Upper(Endereco)) + "," +;     
                   Alltrim(Upper(Numero))   + " " +;
                   Alltrim(Upper(Bairro))   + " " +;
                   Alltrim(Upper(Cidade))   + " " +;
                   Alltrim(Upper(UF))
                   
  If Empty(Endereco) .Or. Empty(Cidade)
    MsgInfo('Nao e possivel fazer a busca' + CRLF + 'sem endereco ou faltando dados', 'Atencao')
    Return
  Endif
      
  WebEXE3("https://www.google.com.br/maps/place/" + MSEARCH)  //CARREGA A PAGINA USANDO O CHROME

Return 
*----------------------------------------------------
Function WebExe3(cLink) // visualiza e navega na pagina
*----------------------------------------------------
default cLink:="http://www.google.com"
clink:=GetEnv( "ComSpec" )+" /C START "+STRTRAN(cLink," ","+")
WAITRUN(cLink, 0 )
Return

[kapiaba]

Many thanks. Gostei. Motoboys vão amar isso. Obg. abs.

[Wellington Vieira]

Daniel Halon, você sabe como fazer para abrir o "Google Maps", dentro de uma "DIALOG"

Valeu,

Muito legal.

 

[kapiaba]

Buén dia Wellington, use: ActiveX:

 

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=9183&p=156422&hilit=google+maps+in+dialog&sid=945d1165fe1ac00c73059a2615aa347c#p156422

 

Saudações Corithianas. Abs