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

Framework - Linha Protheus Ferramentas
,
1

Tudo bem? Estou tentando conectar a uma API, porem no envio via post parece que não acata o parâmetro accept

Segue trecho do código:

aadd(aHeadOut,'Content-Type: application/json') aadd(aHeadOut,'access_token: access_token:'+ALLTRIM(cToken)) aadd(aHeadOut,'itau-chave: xxx') aadd(aHeadOut,"Accept: application/vnd.itau")

cRetorno := HTTPQuote( cURL, 'POST', '', cPOSTParms, nTimeOut, aHeadOut, @cHeadRet )

Ja tentei como o fwRest, Httppost porem o retorno sempre é o mesmo "{"codigo":"000","mensagem":"nao_encontrado"}"

Consigo simular este erro no Postman retirando - Accept: application/vnd.itau

Muito obrigado

2

Estou com o mesmo problema, mas olhando appserver console, dá erro de SSL

3

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
4

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