Requisição HTTPS via ADVPL

Framework - Linha Protheus Ferramentas
1

Bom dia, pessoal.

Estou com um problema e queria saber se alguém tem uma solução.

Preciso integrar uma API no Protheus que funciona via POST. No Postman, está tudo funcional. Entretanto, ao integrar no Protheus, está me aparecendo o erro abaixo:

"code": 601, "code_message": "Não foi possível se autenticar com o token informado.",

Depois de testar um pouco mais no Postman, descobri que esse ocorre quando o header Content-Length vai com valor zero, que desconfio ser o que o meu código está fazendo, mesmo usando funções padrão como FWRest e HttpQuote.

No console do Postman, eu consigo descobrir o valor desse cálculo após a requisição, porém, não sei se existe função no ADVPL que permita fazer o cálculo desse content-length antes de fazer a requisição em si.

Alguém teria alguma ideia?

https://tdn.totvs.com/display/public/framework/FWRest

https://tdn.totvs.com/display/tec/HTTPQuote

2

Olá, utilizo a FWRest para realizar autenticação em uma API onde funciona normal, segue um modelo de exemplo para auxiliar em seu desenvolvimento

Local cURI := "https://x/x" Local cResource := "/x/xxx" Local oRest := FwRest():New(cURI) Local aHeader := {}

AAdd(aHeader, "Content-Type: application/json; charset=UTF-8") AAdd(aHeader, "Accept: application/json") AAdd(aHeader, "X-Auth-Key: xxxxx")

oRest:SetPath(cResource) oRest:SetPostParams(cTextJson)

If (oRest:Post(aHeader)) cTextJson := oRest:GetResult() EndIf