Como passar o parâmetro Accept no cabeçalho pela função HTTPQuote

Boa tarde Rodrigo.

Me parece que é um problema de recurso não encontrado. Se ajudar segue um exemplo que utilizamos para uma customização da Pagbem.

Segue abaixo:

//-----------------------------------------------------------------
/*/{Protheus.doc} PGBF005
Padrão de requisição Rest POST 
@author andre.alvarez
@since 18/10/2018
@version 1.0
/*/
//-----------------------------------------------------------------
User Function PGBF005(cBody, cPath, cCodToken, cUrlParam, cPassword, cUsuario)

    Local cAuthorize := "api_key=password&password=" + cPassword + "&username=" + cUsuario
    Local aHeadOut     := {}
    Local cCNPJContratante := "23149892000192"     
    Local cResponse  := ""

    Aadd(aHeadOut, "Cache-Control: no-cache" )
    Aadd(aHeadOut, "Content-Type: application/json")
    Aadd(aHeadOut, "Accept: application/json")
    Aadd(aHeadOut, "Authorization : Bearer " + cCodToken)
    Aadd(aHeadOut, "CNPJContratante: " + cCNPJContratante) 

    oClient := FWRest():New(cUrlParam)
    oClient:setPath(cPath + "?" + cAuthorize) 

    oClient:SetPostParams(cBody)

    If oClient:Post(aHeadOut)     
        cResponse := oClient:GetResult()
    Else
        cResponse := oClient:GetLastError()
    EndIf

    cResponse := DecodeUTF8(cResponse)

Return cResponse

Boa tarde,

Abri um chamado junto a Totvs e descobri que o existia um problema na build, por isso não conectava. Ap´ss atualizado funcionou perfeitamente.

Obrigado a todos