Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - Requisição GET com body

Tempo aproximado para leitura: 00:01:00 min

Ocorrência
Existe alguma função para consumo de API GET com Body?

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - ADVPL - Todas as versões

Soluções

Para esses casos de consumir uma API Get onde é necessário informar um Body em json, pode se utilizar as funções HTTPQuote ou HTTPsQuote.

Exemplo

user function gettst() 

Local   cUrl        := 'link da api' 
Local   aHeader     := {} 
Local   cHeaderRet  :="" 
Local   cRest1       :='{"Seu_json":"Seu json"}' 
Local   cRest       :="" 

aAdd(aHeader, "content-type: application/json" ) 
aAdd(aHeader, "Accept: */*" ) 

cRest  := HTTPQuote( cUrl, "GET", "", cRest1, 10, aHeader, @cHeaderRet) 

If !empty(cRest ) 
conOut("VERBO: GET ", EncodeUTF8(cRest) ) 
nErro := HttpGetStatus(@cHeaderRet) 
EndIf 

RETURN

Saiba Mais

HTTPQuote

HTTPsQuote