Se alguma pergunta ou resposta lhe foi útil, não deixe de dar seu voto positivo!

user function ATPTAX()
    Local cURL := "https://olinda.bcb.gov.br/olinda/servico/PTAX/versao/v1/odata/CotacaoDolarDia(dataCotacao=@dataCotacao)"
    Local nTimeOut := 120
    Local aHeadOut := {}
    Local cHeadRet := ""
    Local cGetRet := ""


    AAdd(aHeadOut, 'User-Agent: Chrome/81.0 (compatible; Protheus ' + GetBuild() + ')')
    cGetRet := HTTPSGet( cURL, "\system\certs\000001_cert.pem", "\system\certs\000001_key.pem", "senha", '@dataCotacao=' + Escape("'04-17-2020'") + '&$top=' + Escape('1') + '&$format=' + Escape('json') + '&$select=' + "cotacaoCompra,cotacaoVenda", nTimeOut, aHeadOut, @cHeadRet)

    if Empty(cGetRet)
        conout("Fail HTTPSGet")
    else
        conout("OK HTTPSGet")
        varinfo("WebPage", cGetRet)
    endif

    varinfo("Header", cHeadRet)

return

1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

• up 0 down

  Boa tarde Renan,

  Consegui consumir essa API da seguinte forma:

  function U_ATPTAX()
  local cURL as char
  local cHeadRet as char
  local cGetRet as char
  local cParserError as char
  local nTimeOut as numeric
  local jAPIData
  
  cHeadRet := ""
  cURL := "https://olinda.bcb.gov.br/olinda/servico/PTAX/versao/v1/odata/CotacaoDolarDia(dataCotacao=@dataCotacao)"
  nTimeOut := 15
  
  cGetRet := HTTPSGet( cURL, "", "", "", '@dataCotacao=' + Escape("'04-17-2020'") + '&$top=' + Escape('1') + '&$format=' + Escape('json') + '&$select=' + "cotacaoCompra,cotacaoVenda", nTimeOut, /*aHeadOut*/, @cHeadRet)
  
  if !Empty(cGetRet)
      jAPIData := JsonObject():New()
      cParserError := jAPIData:fromJson(cGetRet)
  
      if Empty(cParserError)
          ConOut("Compra:", jAPIData["value"][1]["cotacaoCompra"], "", "Venda:", jAPIData["value"][1]["cotacaoVenda"])
      else
          ConOut("Ocorreu um erro, veja o header:", cHeadRet, "", "Erro retornado pela API:", cGetRet)
      endif
  
      jAPIData := nil
  else
      ConOut("Ocorreu um erro, veja o header:", cHeadRet)
  endif
  
  return nil

  Documentação: https://tdn.totvs.com/display/tec/HTTPSGet

  • editar
  • • x

    grosseiro ou ofensivo pouco construtivo obsoleto outro...

    Motivo

  • criado 24 de Apr de 2020

    Daniel Mendes

    15840 pontos

  • 0

    Obrigado, Daniel. Percebi também que minha rede estava com um bloqueio que não permitia a comunicação com essa API. De qualquer forma sua resposta foi de grande ajuda para prosseguir com a implementação.

    — Renan França   24 de Apr de 2020
  • x
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo

  Adicionar comentário

  Caracteres restantes: 600

  Cancelar Quero acompanhar este tópico via email.

  Comentário

  Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.

  Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações