conforme o João passou, procurei lá e consegui achar uma forma segue abaixo
function orion_jornada_AchaEndereco(mLat, mLong)
local cGoogleURL := "https://nominatim.openstreetmap.org/reverse?format=xml&"
local cAddress := "lat="+alltrim(mLat)+"&lon="+alltrim(mLong)
local aReturn, i, cTxt := ""
if empty(mLat)
mLat := jornada->latitudegps
mLong := Jornada->longitudegps
cAddress := "lat="+alltrim(mLat)+"&lon="+alltrim(mLong)
endif
// aReturn := hb_jsonDecode( WebPageContents( cGoogleURL + cAddress) ) // *** Change this ***
cDocXML := WebPageContents( cGoogleURL + cAddress)
* hb_jsondecode( aReturn, @aReturn ) && se lá na URL vc colocar format "json" - eu uso "XML"
if !empty(cDocXML)
mRodovia := LerTag(cDocxml, "road")
mCidade := LerTag(cDocxml, "town")
mArea := LerTag(cDocxml, "municipality")
mEstado := LerTag(cDocxml, "state")
mRegiao := LerTag(cDocxml, "region")
mRodovia := iif(len(rtrim(mrodovia))>0,mRodovia+", ","")
mCidade := iif(len(rtrim(mCidade))>0,mCidade+", ","")
mestado := iif(len(rtrim(mEstado))>0,mEstado+", ","")
mRegiao := iif(len(rtrim(mRegiao))>0,mRegiao+", ","")
cTxt1 := mRodovia + mcidade + mEstado + mRegiao + mArea
cTXT := U8ToUni(cTXT1,"UTYPE_ANSI")
if len(alltrim(ctxt)) < 10
cTxt:="Localização não Encontrada"
endif
else
cTxt:="Localização não Encontrada"
endif
dbselectarea("jornada")
mregistro := jornada->( recno())
grava_dados("A","jornada",{ "local" }, { cTxt }, alias(), "S")
return nil