Boleto Bradesco Via WebService com Erro

[Victor H. Gonzales - Panda]

11 horas atrás, hugoleite22 disse:

Ola @Victor H. Gonzales - Panda, segue em anexo a unit alterada ACBrBoletoW_Bradesco.pas , onde acrescentei também uma função para retornar a data atual UTC. Testei aqui e o retorno foi positivo, conforme log também em anexo. 

 

logWS.txt 2.58 kB · 0 downloads

ACBrBoletoW_Bradesco.pasrealizei alguns ajustes referente ao UTC!!!

[HelioNeto]

1 hora atrás, Victor H. Gonzales - Panda disse:

ACBrBoletoW_Bradesco.pasrealizei alguns ajustes referente ao UTC!!!

Baixei o arquivo, fiz os Testes, de fato está pegando UTC agora:

mais ainda estou tento o Retorno 500:

Ocorre nessa função: 

Esse erro:
 

Será que estou preenchendo algo errado no Demo ACBrBoleto?

 

[Victor H. Gonzales - Panda]

4 minutos atrás, HelioNeto disse:

Baixei o arquivo, fiz os Testes, de fato está pegando UTC agora:

mais ainda estou tento o Retorno 500:

Ocorre nessa função: 

Esse erro:
 

Será que estou preenchendo algo errado no Demo ACBrBoleto?

 

voce está passando a Key e usecertificatehttp false?

[HelioNeto]

44 minutos atrás, Victor H. Gonzales - Panda disse:

voce está passando a Key e usecertificatehttp false?

Sim, está UseCertificateHTTP = False.

Eu apaguei todos os arquivos da Pasta do Demo, baixei novamente do SVN, instalei e Agora retornou 200:

------------------------------

26/11/24 10:47:59:285 - Comando Enviar: TOAuth
26/11/24 10:47:59:285 - URL: [POST] https://proxy.api.prebanco.com.br/auth/server/v1.2/token
26/11/24 10:48:00:052 - Validade: 26/11/2024 11:48:00
26/11/24 10:48:00:052 - Comando Enviar: TBoletoW_Bradesco
26/11/24 10:48:00:052 - Comando Enviar: {"registrarTitulo":1,"codUsuario":"APISERVIC","nroCpfCnpjBenef":"99999999999962","filCpfCnpjBenef":57,......etc...}
26/11/24 10:48:00:053 - URL: [POST] https://proxy.api.prebanco.com.br/v1/boleto-hibrido/registrar-boleto
26/11/24 10:48:00:085 - Retorno Envio: TBoletoW_Bradesco
26/11/24 10:48:00:086 - Código do Envio: 200 1.1 OK

------------------------------
Mas ainda está com esse Erro:
Expected "{" but found invalid Symbol (1,2) na Analise do Retorno.

Aproveitei para testar a Consulta de Boleto, mas ainda não está implementado.

 

Editado Há 17 horas por HelioNeto

[Victor H. Gonzales - Panda]

1 hora atrás, HelioNeto disse:

Sim, está UseCertificateHTTP = False.

Eu apaguei todos os arquivos da Pasta do Demo, baixei novamente do SVN, instalei e Agora retornou 200:

------------------------------

26/11/24 10:47:59:285 - Comando Enviar: TOAuth
26/11/24 10:47:59:285 - URL: [POST] https://proxy.api.prebanco.com.br/auth/server/v1.2/token
26/11/24 10:48:00:052 - Validade: 26/11/2024 11:48:00
26/11/24 10:48:00:052 - Comando Enviar: TBoletoW_Bradesco
26/11/24 10:48:00:052 - Comando Enviar: {"registrarTitulo":1,"codUsuario":"APISERVIC","nroCpfCnpjBenef":"99999999999962","filCpfCnpjBenef":57,......etc...}
26/11/24 10:48:00:053 - URL: [POST] https://proxy.api.prebanco.com.br/v1/boleto-hibrido/registrar-boleto
26/11/24 10:48:00:085 - Retorno Envio: TBoletoW_Bradesco
26/11/24 10:48:00:086 - Código do Envio: 200 1.1 OK

------------------------------
Mas ainda está com esse Erro:
Expected "{" but found invalid Symbol (1,2) na Analise do Retorno.

Aproveitei para testar a Consulta de Boleto, mas ainda não está implementado.

 

pelo Log deu código 200 na inclusão...

Expected "{" but found invalid Symbol (1,2) na Analise do Retorno. 

essa mensagem ocorre quando ?

 

A Consulta de boletos preciso olhar a documentação, me recordo de haver somente consulta em lista.

[Jhonlenon Ribeiro]

Boa tarde.  @Victor H. Gonzales - Panda  Eu estava acompanhando o post aqui no forum e fiz um teste em produção com as untis do @hugoleite22 e deu certo para gerar o boleto.....só tenho um detalhe que precisa ser verificado

 

if ACBrBoleto.Cedente.CedenteWS.IndicadorPix = True then

https://openapi.bradesco.com.br/auth/server/v1.2/token

else

https://openapi.bradesco.com.br/auth/server/v1.1/token

Está valiando dessa forma...sendo que v1.2 só existe no ambiente de homologação....em produção é tudo v1.1 tanto no end point do token e AUD. Aqui não deu erro no fuso horário mais porque é -3 se fosse -4 daria o erro.

ArqBoletoWS.log

[Victor H. Gonzales - Panda]

7 minutos atrás, Jhonlenon Ribeiro disse:

Boa tarde.  @Victor H. Gonzales - Panda  Eu estava acompanhando o post aqui no forum e fiz um teste em produção com as untis do @hugoleite22 e deu certo para gerar o boleto.....só tenho um detalhe que precisa ser verificado

 

if ACBrBoleto.Cedente.CedenteWS.IndicadorPix = True then

https://openapi.bradesco.com.br/auth/server/v1.2/token

else

https://openapi.bradesco.com.br/auth/server/v1.1/token

Está valiando dessa forma...sendo que v1.2 só existe no ambiente de homologação....em produção é tudo v1.1 tanto no end point do token e AUD. Aqui não deu erro no fuso horário mais porque é -3 se fosse -4 daria o erro.

ArqBoletoWS.log 2.59 kB · 0 downloads

em ambiente de produção não deveria ocorrer o que você está dizendo, visto a validação :

[Jhonlenon Ribeiro]

@Victor H. Gonzales - Panda fui debugar essa parte ai que vc falou e mesmo assim está setando a v.1.2 e não v1.1 para ambiente de produção...veja a imagem abaixo.

 

Editado Há 15 horas por Jhonlenon Ribeiro

[Victor H. Gonzales - Panda]

3 minutos atrás, Jhonlenon Ribeiro disse:

@Victor H. Gonzales - Panda fui debugar essa parte ai que vc falou e mesmo assim está setando a v.1.2 e não v1.1 para ambiente de produção...veja a imagem abaixo.

 

LURL em produção está 1.2?

[Victor H. Gonzales - Panda]

26 minutos atrás, Jhonlenon Ribeiro disse:

@Victor H. Gonzales - Panda fui debugar essa parte ai que vc falou e mesmo assim está setando a v.1.2 e não v1.1 para ambiente de produção...veja a imagem abaixo.

 

vou verificar

[Victor H. Gonzales - Panda]

1 hora atrás, Victor H. Gonzales - Panda disse:

LURL em produção está 1.2?

está no SVN uma alteração, verifica agora a composição da URL e AUD por favor

1 hora atrás, Jhonlenon Ribeiro disse:

@Victor H. Gonzales - Panda fui debugar essa parte ai que vc falou e mesmo assim está setando a v.1.2 e não v1.1 para ambiente de produção...veja a imagem abaixo.

 

está no SVN uma alteração, verifica agora a composição da URL e AUD por favor

[Jhonlenon Ribeiro]

Boa noite @Victor H. Gonzales - Panda só agora que voltei aos testes...eu fiz uma pequena alteração no seu código....porque eu acho que não seria bom usar essa validação ACBrBoleto.Cedente.CedenteWS.IndicadorPix = True

porque a API é do boleto hibrido pix...ai caso não queria o boleto hibrido é só ocultar o qrcode do pix que o boleto fica só com código de barras tradicional.

 

function TBoletoW_Bradesco.GerarTokenAutenticacao: string;
const PARAMS_OAUTH = '';
var
  LVersao, URL_AUD : String;
  LJSonObject : TACBrJSONObject;
begin
  OAuth.Payload := True;
  result:= '';
  //FUnixTime := DateTimeToUnix(Now, False);
  FUnixTime := DateTimeToUnix(ACBrUtil.DateTime.DateTimeUniversal(ACBrUtil.DateTime.GetUTCSistema,Now));

  if OAuth.Ambiente = tawsProducao then
  begin
    LVersao := '1.1';
    OAuth.URL := C_URL_OAUTH_PROD;
    URL_AUD  := Format(OAuth.URL,[LVersao]);
    OAuth.URL := Format(OAuth.URL,[LVersao]) //página 7
  end
  else
  begin
    OAuth.URL := C_URL_OAUTH_HOM;
    LVersao := '1.2';
    URL_AUD  := Format(OAuth.URL,['1.1']);
    OAuth.URL := Format(OAuth.URL,[LVersao]);
  end;
  {
  if Boleto.Configuracoes.WebService.Ambiente = tawsProducao   then
    LVersao := '1.2'
  else
    LVersao := '1.1';

  if Boleto.Configuracoes.WebService.Ambiente = tawsProducao  then
    URL_AUD  := Format(OAuth.URL,['1.1'])
  else
    URL_AUD  := Format(OAuth.URL,[LVersao]);

  if  Boleto.Configuracoes.WebService.Ambiente = tawsProducao then
    OAuth.URL := Format(OAuth.URL,['1.1']) //página 7
  else
    OAuth.URL := Format(OAuth.URL,[LVersao]);
  }

  if Assigned(OAuth) then
  begin
    OAuth.AuthorizationType := atJWT;
    OAuth.GrantType   := 'urn:ietf:params:oauth:grant-type:jwt-bearer';
    try
      LJSonObject := TACBrJSONObject.Create
                     .AddPair('aud', URL_AUD)
                     .AddPair('sub',Trim(Boleto.Cedente.CedenteWS.ClientID))
                     .AddPair('iat',FUnixTime - 3600 )
                     .AddPair('exp',FUnixTime + 3600)
                     .AddPair('jti',FUnixTime * 1000)
                     .AddPair('ver',LVersao);
      OAuth.ParamsOAuth := LJSonObject.ToJSON;
    finally
      LJSonObject.Free;
    end;

    OAuth.AddHeaderParam('Accept-Encoding', C_ACCEPT_ENCODING);
    OAuth.AddHeaderParam('Accept-Charset' , C_ACCEPT_CHARSET);
    OAuth.AddHeaderParam('Accept','*/*');
    if OAuth.GerarToken then
      result := OAuth.Token
    else
      raise EACBrBoletoWSException.Create(ClassName + Format( S_ERRO_GERAR_TOKEN_AUTENTICACAO, [OAuth.ErroComunicacao] ));
  end;
end;

 

Ai deu certo em homologação e produção....agora não estou entendo o retorno....porque retorna o status 200 mais dá um erro.

 

 

Editado Há 10 horas por Jhonlenon Ribeiro

[Jhonlenon Ribeiro]

Retorna o status 200 OK mais no retorno vem um erro....testei em homologação e produção e o erro é o mesmo...