Leaderboard

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