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)+",