Local cHtml:="", oOle If !IsInternet() Msgalert("não conectado a internet.", "Aviso!") Return nil Endif Ferase(uRegPath+"\tempgmapdist.html") // uRegPath:= "c:\test" oOle:= CreateObject("InternetExplorer.Application") oOle:Visible := .t. oOle:ToolBar := .f. oOle:StatusBar := .t. oOle:MenuBar := .f. cHtml := MemoRead(uRegPath+"\gmapdist.html") cHtml := StrTran( cHtml, "ORIGEM", Alltrim(Empr->End_Empr)+",