BoletoAntesAutenticar, BoletoDepoisAutenticar

[Rafael S Amaral]

Atualização do dia 26/11/2024 foi alterando algo em relação CarregaCertificados,
porém agora esta dando problema ao tentar aproveitar o token para novas requisições não está carregando o certificado.

segue a correção alterado CarregaCertificados para TOAuth.Create(ASSL: THTTPSend; AACBrBoleto: TACBrBoleto = nil) e não mais em TOAuth.Executar(const AAuthBase64: String)

ACBrBoletoWS.Rest.OAuth.pas

Editado 2 Dezembro por Rafael S Amaral

[Victor H. Gonzales - Panda]

2 horas atrás, Rafael S Amaral disse:

Atualização do dia 26/11/2024 foi alterando algo em relação CarregaCertificados,
porém agora esta dando problema ao tentar aproveitar o token para novas requisições não está carregando o certificado.

segue a correção alterado CarregaCertificados para TOAuth.Create(ASSL: THTTPSend; AACBrBoleto: TACBrBoleto = nil) e não mais em TOAuth.Executar(const AAuthBase64: String)

ACBrBoletoWS.Rest.OAuth.pas 16.97 kB · 2 downloads

faça revert nas suas alterações, faça update pela versão do svn, reinstale.

depois verifique se você está passando <ACBrBoleto>.Configuracoes.WebService.UseCertificateHTTP := True

[Rafael S Amaral]

<ACBrBoleto>.Configuracoes.WebService.UseCertificateHTTP := True já está desta forma.

Ao reverte voltou o mesmo problema isso só ocorre quando utiliza a propriedade BoletoAntesAutenticar, BoletoDepoisAutenticar para aproveitar o mesmo token

em quanto o token está vazio  funciona normalmente por ele passar  TOAuth.Executa  que existe a chamada CarregaCertificados quando você passa o token ele não funciona por não CarregaCertificados  segue os logs.

 

ArqBoletoWS1.log ArqBoletoWS2.log

[Victor H. Gonzales - Panda]

Agora, Rafael S Amaral disse:

<ACBrBoleto>.Configuracoes.WebService.UseCertificateHTTP := True já está desta forma.

Ao reverte voltou o mesmo problema isso só ocorre quando utiliza a propriedade BoletoAntesAutenticar, BoletoDepoisAutenticar para aproveitar o mesmo token

em quanto o token está vazio  funciona normalmente por ele passar  TOAuth.Executa  que existe a chamada CarregaCertificados quando você passa o token ele não funciona por não CarregaCertificados  segue os logs.

 

ArqBoletoWS1.log 3.2 kB · 0 downloads ArqBoletoWS2.log 976 B · 0 downloads

está com a ultima versão do componente?

consegue recriar o problema no programa exemplo?

[Rafael S Amaral]

O erro passou a ocorrer na revisão 36249 que foi centralizado o código de CarregaCertificados porém removido do TOAuth.Create.
Segue a imagem da revisão 36248 como estava antes do dia 26/11/2024 ao reverter o código para 36248 funciona normalmente.
 

Editado 2 Dezembro por Rafael S Amaral

[Victor H. Gonzales - Panda]

Temos as credenciais do C6 e do Bradesco, ambas não estão apresentando problemas.

A autenticação está passando normalmente pelo certificado na conexão.

Anexe o programa exemplo, onde recria a situação.

Crie um botão e coloquei o fluxo

[Rafael S Amaral]

Hoje a tarde vou tentar realizar a configuração no exemplo..

Me tire uma duvida  nos teste que você realizou está utilizando as propriedades abaixo, lembrando que na 1x funciona caso tente novamente que ocorre o erro,

outra duvida e se o banco exige certificado em todas requisições como o Inter ou apenas no auth. 

procedure TDM_BOLETOS.BoletoAntesAutenticar(var aToken: string; var aValidadeToken: TDateTime);
begin
   aToken                :=  v_Token;
   aValidadeToken  :=  v_Expire;
end;

procedure TDM_BOLETOS.BoletoDepoisAutenticar(const aToken: string; const aValidadeToken: TDateTime);
begin
   v_Token   := aToken;
   v_Expire  := aValidadeToken;
end;

 

Editado 3 Dezembro por Rafael S Amaral

[Victor H. Gonzales - Panda]

58 minutos atrás, Rafael S Amaral disse:

Hoje a tarde vou tentar realizar a configuração no exemplo..

Me tire uma duvida  nos teste que você realizou está utilizando as propriedades abaixo, lembrando que na 1x funciona caso tente novamente que ocorre o erro,

outra duvida e se o banco exige certificado em todas requisições como o Inter ou apenas no auth. 

procedure TDM_BOLETOS.BoletoAntesAutenticar(var aToken: string; var aValidadeToken: TDateTime);
begin
   aToken                :=  v_Token;
   aValidadeToken  :=  v_Expire;
end;

procedure TDM_BOLETOS.BoletoDepoisAutenticar(const aToken: string; const aValidadeToken: TDateTime);
begin
   v_Token   := aToken;
   v_Expire  := aValidadeToken;
end;

 

Monte o fluxo no programa exemplo, onde conseguimos recriar o problema, anexe os fontes por favor.

[Rafael S Amaral]

Segue o exemplo em anexo, lembrando que na primeira consulta funcione a partir da segunda já não funciona

caso você precise dos arquivos .key e .crt me chame no Discord

exemplo.rar

[Daniel InfoCotidiano]

@Rafael S Amaral
Bom dia Obrigado por nos enviar. criado a tarefa TK-6324 para analise.
Só uma pergunta:
Está como true a propriedaed UseCertificateHTTP  ?
FACBrBoleto.Configuracoes.WebService.UseCertificateHTTP := True
Pergunto pq sao milhares de usuarios q utilizam a solução e por enq nao temos relatos semelhantes.

[Rafael S Amaral]

Sim, eu acredito que o problema ocorra somente no Banco Inter.

No exemplo que te enviei está FACBrBoleto.Configuracoes.WebService.UseCertificateHTTP := True

[Rafael S Amaral]

Gravei um vídeo demonstrando o problema

https://drive.google.com/file/d/1DBplVP5dI0ZOzW9Brj63q9CqhGsS6iLI/view?usp=drive_link

[Daniel InfoCotidiano]

Vamos testar em nosso ambiente

 

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

[Rafael S Amaral]

Pessoal muito obrigado tudo certo resolvido...

Editado 6 Dezembro por Rafael S Amaral

[Victor H. Gonzales - Panda]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.