Boa noite a Todos !
Preciso um fonte que ira se conectar a uma api externa do nosso ambiente ja validei ela via Postman porem agora que estou testando a mesma no ADVPL estou encontrando dificuldade para passar todos os paramentros na mesma sendo que estou utilizando esta api abaixo:
ALGUÉM TERIA UM EXEMPLO PARA ME PASSAR DE COMO COLOCAR A VARIAVEL NO AUTENTICATION USER E SENHA E O Parametro obrigatório X-CLIENTE no Aheader?
https://apiv2.shoppingdeprecos.com.br/pedidos/{PEDIDO_ID}/integracao/{INTEGRACAO_ID}/dados
GET https://apiv2.shoppingdeprecos.com.br/pedidos/{PEDIDO_ID}/integracao/{INTEGRACAO_ID}/dados
Parâmetros obrigatórios:
PEDIDO_ID = Código do Pedido no Marketplace/Ecommerce
INTEGRACAO_ID = Código da Integração a ser utilizada; Para verificar suas integrações, Clique aqui
Abaixo o fonte que estou desenvolvendo alterir as chaves pois são confidenciais:
user Function TFwRest2()
Local oRest Local cUrl := "https://apiv2.shoppingdeprecos.com.br" Local cPath := "/pedidos/lista?dataIni=" cPath += "2023-02-25 00:00:00&dataFim=2023-05-28 23:59:59&integracao=72426" Local aHeadOut := ACLONE({}) Local cPparams
AADD(aHeadOut,'Content-Type: application/x-www-form-urlencoded') AADD(aHeadOut,'Accept: keep-alive') AADD(aHeadOut,'Authorization: Basic e76e5744') //O TOKEN É INVALIDO APENAS PARA DEMONSTRAÇÃO
oRest := FWRest():New(cUrl)
oRest:setPath(cPath) cPparams:='grant_type=client_credentials'
if oRest:Get() ConOut(oRest:GetResult()) else ConOut(oRest:GetLastError()) endif
return