Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - Resposta json em objeto

// BIBLIOTECAS NECESSÁRIAS
#Include "TOTVS.ch"

// FUNÇÃO PARA TESTE
User Function T110FWREST()
    Local nStart  := Seconds() // HORA DE INÍCIO DA FUNÇÃO
    Local oJSON   := NIL       // OBJETO JSON QUE RETORNADO PELA FUNÇÃO
    Local oREST   := NIL       // OBJETO REST PARA GERAÇÃO DE REQUISIÇÃO
    Local aHeader := {}        // CABEÇALHO DE INFORMAÇÕES DA REQUISIÇÃO

    RPCSetEnv("99", "01") // PREPARAÇÃO DE AMBIENTE (REMOVER SE EXECUTADO VIA SMARTCLIENT)
        oREST := FwRest():New("https://www.receitaws.com.br/v1/cnpj/53113791000122") // INSTANCIAÇÃO DE OBJETO REST

        // CAMINHO DO RECURSO WEB
        oREST:SetPath("")

        // INÍCIO DE REQUISIÇÃO GET
        If (oREST:Get(aHeader))
            FwJSONDeserialize(oREST:cResult, @oJSON) // DESERIALIZAÇÃO DE STRING PARA OBJETO

            // MENSAGEM DE SUCESSO
            FwLogMsg("INFO", /*cTransactionId*/, "REST", FunName(), "", "01",;
                        "JSON successfully parsed to Object", 0, (nStart -Seconds()), {})
        Else
            // MENSAGEM DE ERRO
            FwLogMsg("ERROR", /*cTransactionId*/, "REST", FunName(), "", "01",;
                        "Can't successfully parse JSON to Object", 0, (nStart - Seconds()), {})
        EndIf
    RPCClearEnv() // FECHAMENTO DE AMBIENTE (REMOVER SE EXECUTADO VIA SMARTCLIENT)
Return (NIL)

Saiba mais
FWJsonDeserialize - Deserializa uma string no formato JSON