Descarca datele unui agent economic cu OpenApi

Function GeTertOpenApi(tcCodFiscal As String) HelpString "Descarca datele unui tert de pe ANAF fara Captcha"
    lcURL='http://openapi.ro/api/companies/'+tcCodFiscal+'.json'
    *
    loHttp.Open("GET", lcURL, .F.)
    loHttp.Send()
    jsonString=loHttp.ResponseText
    If Not Empty(jsonString)
        *
        Local oTert, jSon
        Set Procedure To qdfoxJSON.prg AddiTive
        JSONStart()
        oTert=JSON.Parse(jsonString)
        Create Cursor Date_Tert CodePage=1250  (Proprietate C (240), Valoare C (240))
        Insert Into Date_Tert(Proprietate, Valoare) Values('Denumire', ReplaceDiacritics(oTert.Name))
        Insert Into Date_Tert(Proprietate, Valoare) Values('Adresa', ReplaceDiacritics(oTert.Address)+[ ]+ReplaceDiacritics(oTert.City) )
        Insert Into Date_Tert(Proprietate, Valoare) Values('Localitate', ReplaceDiacritics(oTert.City))
        Insert Into Date_Tert(Proprietate, Valoare) Values('Judetul', ReplaceDiacritics(oTert.State))
        Insert Into Date_Tert(Proprietate, Valoare) Values('Numar de', oTert.Registration_Id)
        Insert Into Date_Tert(Proprietate, Valoare) Values('Telefon', Nvl(oTert.Phone, ''))
        Insert Into Date_Tert(Proprietate, Valoare) Values('Taxa pe valoarea', iif(oTert.Vat='1', 'DA', 'NU'))
        *
        Return .T.
        *
    Else
        *
        Return .F.
        *
    EndIf
    *
EndFunc