Integração Datasul X E-millennium via API OData/REST

Boa tarde,

Alguém tem já fez ou tem algum material para auxiliar na realização de integração via API com o E-millennium?

Só me foi informado que o acesso deve ser feito via endpoints com login e senha.

Desde já agradeço.

Olá... Já fiz algumas integrações com JSON, XML, SOAP, REST, etc... Depende um pouco da tecnologia usada, não te passaram nenhuma documentação mais detalhada?

Boa tarde af.dumn,

Sim me passaram um documentação, o retorno é via .JSON mas precisamos acessar a API via web, mas não estamos conseguindo fazer a comunicação com a URL que nos foi repassada, saberia me informar se há alguma documentação referente a este tipo de comunicação?

Estou tentando fazer a requisição confome abaixo:

assign oClient = ClientBuilder:Build():Client
oUri = new URI("http", "191.233.25.152",6107) /* URI("metodo", "dominio", "porta") */
oUriath = "/api/millenium_eco/pedido_venda/listafaturamentos". /* URIath: demais partes da URL destino */

Existe alguma forma de testar esta chamada e seu retorno?

Desde já muito obrigado.

Att,

Olá...
Testei aqui e estou recebendo o seguinte erro como retorno:


Tenho um "baka" que utilizei em um projeto que está em
https://github.com/afdums/bakas-progress/blob/master/consumo_json.p

Tentei acessar pelo browser e tive o seguinte erro também:


Neste caso, ou seria problema de permissão ou seria algo errado no endereço...

Exato, amigo,

Na verdade neste primeiro momento so precisamos testar o acesso, e realmente está com erro de permissão, conforme realizamos o teste abaixo:



Sabe como podemos fazer esta request informando usuário e senha na chamada? Onde informamos?

Desde já muito obrigado.

Att,

Olá.
Uma forma de fazer é a abaixo, com autenticação simples, não sei se é essa que a URL espera:

Código:

USING OpenEdge.Net.HTTP.Credentials.
USING OpenEdge.Net.HTTP.IHttpRequest.
USING OpenEdge.Net.HTTP.IHttpResponse.
USING OpenEdge.Net.HTTP.ClientBuilder.
USING OpenEdge.Net.HTTP.RequestBuilder.


DEFINE VARIABLE oCredentials AS Credentials   NO-UNDO.
DEFINE VARIABLE oRequest     AS IHttpRequest  NO-UNDO.
DEFINE VARIABLE oResponse    AS IHttpResponse NO-UNDO.

DEFINE VARIABLE httpUrl  AS CHARACTER NO-UNDO. 
DEFINE VARIABLE cUsuario AS CHARACTER NO-UNDO.
DEFINE VARIABLE cSenha   AS CHARACTER NO-UNDO.


UPDATE cUsuario FORMAT "X(20)" LABEL "Usuario"
       cSenha   FORMAT "X(20)" LABEL "Senha"
    WITH 1 COL SIDE-LABELS.

httpUrl = "http://191.233.25.152:6017/api/millenium_eco/pedido_venda/listafaturamentos". 

oCredentials = new Credentials('application', cUsuario, cSenha). 

oRequest = RequestBuilder:Get(httpUrl) 
                :AcceptJson()
                :UsingBasicAuthentication(oCredentials)
                :Request.

oResponse = ClientBuilder:Build():Client:EXECUTE(oRequest).

MESSAGE oResponse:StatusCode SKIP
        oResponse:StatusReason
    VIEW-AS ALERT-BOX INFO BUTTONS OK.