Implementação da Consulta específica e 2 via de Boleto Bradesco Com Qr Code via API developers

[Jhonlenon Ribeiro]

Bom dia..eu alterei as units ACBrBoletoW_Bradesco e ACBrBoletoRet_Bradesco para consultar 2 via de Boleto Bradesco Com Qr Code via API developers, esse end point foi criado agora por isso não tinha a unit ACBrBoletoW_Bradesco. Segue as units em anexo para ser analisada e validada. Como usar abaixo...

 

      ACBrBoleto.Configuracoes.WebService.Operacao                      := tpConsultaDetalhe;                                         
      ACBrBoleto.Configuracoes.WebService.SSLCryptLib                 := cryWinCrypt;
      ACBrBoleto.Configuracoes.WebService.SSLHTTPLib                 := httpOpenSSL;
      AcBrBoleto.Configuracoes.WebService.SSLType                        := LT_TLSv1_2;
      ACBrBoleto.Configuracoes.WebService.TimeOut                        := 50000;
      ACBrBoleto.Configuracoes.WebService.UseCertificateHTTP    := true;

      ACBrBoleto.Cedente.CedenteWS.IndicadorPix                            := True;
      ACBrBoleto.Configuracoes.WebService.ArquivoCRT                 := 'meu_certificado.crt';
      ACBrBoleto.Configuracoes.WebService.ArquivoKEY                 := 'meu_certificado.key';

ACBrBoletoRet_Bradesco.pas ACBrBoletoW_Bradesco.pas

[Alexandre de Paula]

Bom dia,

Criada a tarefa ACBR-8166 para verificação.

Obrigado pela contribuição.

[Marcelo Grando]

Boa tarde, 

Corrigir também as "tag" no arquivo ACBrBoletoW_Bradesco.pas, tem algumas que tem a acentuação e por isso está retornando com erro ao enviar o arquivo;

 

[Juliomar Marchetti]

56 minutos atrás, Marcelo Grando disse:

Boa tarde, 

Corrigir também as "tag" no arquivo ACBrBoletoW_Bradesco.pas, tem algumas que tem a acentuação e por isso está retornando com erro ao enviar o arquivo;

 

anexe sua unit modificada

[Marcelo Grando]

16 horas atrás, Juliomar Marchetti disse:

anexe sua unit modificada

Bom dia, 

Segue ACBrBoletoW_Bradesco.pas modificada em anexo

 

ACBrBoletoW_Bradesco.pas

[Marcelo Grando]

Bom dia, @Juliomar Marchetti

Fiz alguns ajustes também no arquivo de retorno ACBrBoletoRet_Bradesco.pas, tinha algumas "tags" que não estava retornando o valor correto, segue arquivo em anexo para análise.

Segue em anexo o arquivo ACBrBoletoRet_Bradesco.json, contendo o retorno do boleto sem QRcode; 

Atual  (postado por @Jhonlenon Ribeiro   )                 Ajustado

function TRetornoEnvio_Bradesco.LerRetorno(const ARetornoWS: TACBrBoletoRetornoWS): Boolean;

OBS: Ajustes feito para o boleto sem QRcode

 

ACBrBoletoRet_Bradesco.pas ACBrBoletoRet_Bradesco.json

[Jhonlenon Ribeiro]

Agora ficou 100% @Marcelo Grando 

[Jhonlenon Ribeiro]

@Alexandre de Paula alguma previsão de disponibilizar esses ajustes nos fontes ACBrBoleto do Bradesco?

 

[Alexandre de Paula]

Bom dia,

A tarefa já está com um dos consultores e na fila de validação.

Assim que atualizado será informado aqui.

 

[marcosvillatore]

Bom dia!
Feito mais alguns ajustes.

ACBrBoletoRet_Bradesco

na consulta, titulos pago via PIX ou pelo codigo de Barras no mesmo dia o banco retorna o codStatus "13-PAGO NO DIA".
porem nao traz a data do Pagamento e nem o Valor.

 if (ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca = 'PAGO NO DIA') then
 begin
   ARetornoWS.DadosRet.TituloRet.ValorPago                     := ARetornoWS.DadosRet.TituloRet.ValorDocumento;
   ARetornoWS.DadosRet.TituloRet.DataBaixa                     := ARetornoWS.DadosRet.TituloRet.DataDocumento;
   ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca := 'LIQUIDADO';
 end;

Se consultado no dia seguinte, o banco retorna o codStatus "51-POR ACERTO" para pagamentos realizados por PIX. Tambem nao traz a data do pagamento e nem o Valor.

if (ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca = 'POR ACERTO') then
begin
  ARetornoWS.DadosRet.TituloRet.ValorPago                      := ARetornoWS.DadosRet.TituloRet.ValorDocumento;
  ARetornoWS.DadosRet.TituloRet.DataBaixa                      := ARetornoWS.DadosRet.TituloRet.DataDocumento;
  ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca  := 'LIQUIDADO';
end; 

Ja para pagamentos pelo codigo de barras, o banco retorna o codStatus "61-PAGO" e ai sim traz a data e o valor do pagamento.

if (ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca = 'PAGO') then
 ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca  := 'LIQUIDADO';

O valor pago nao vem inteiro 

alterado de:
ARetornoWS.DadosRet.TituloRet.ValorPago                   := ValorInteiroParaDouble(LJsonObject.AsInteger['vlrPagto']);
para 
ARetornoWS.DadosRet.TituloRet.ValorPago                   := LJsonObject.AsFloat['vlrPagto'];

 

ACBrBoletoW_Bradesco
Alterado de 
 AJsonObject.AddPair(LPercentualTitulo, ATitulo.ValorMoraJuros * 100);
para 
 AJsonObject.AddPair(LPercentualTitulo, ATitulo.ValorMoraJuros );

Na impressao tem que sair 10% de juros por mes por exemplo. entao ja tem que passar o valor de 10
ai como estava antes multiplicando gera erro 500.

 

ACBrBoletoRet_Bradesco.pas ACBrBoletoRet_Bradesco.pas

[mlgoncalves]

Em 17/10/2025 at 13:34, Jhonlenon Ribeiro disse:

@Alexandre de Paula alguma previsão de disponibilizar esses ajustes nos fontes ACBrBoleto do Bradesco?

 

Olá Jhonlenon, você pode enviar a última versão dos arquivos de boleto API do Bradesco? O SVN do ACBR ainda não foi atualizado e estou tendo problemas para consultar boletos.
ACBrBoletoW_Bradesco.pas e ACBrBoletoRet_Bradesco.pas.

 

Desde já agradeço e ficamos no aguardo da atualização subir para o SVN.

Marcelo

[Jhonlenon Ribeiro]

Boa tarde @mlgoncalves vou anexar aqui as unit que estou usando...

ACBrBoletoRet_Bradesco.pas ACBrBoletoW_Bradesco.pas

[Fabiano de Souza Oliveira]

O Retorno não estava trazendo a DataCredito e não estava trazendo corretamente o ValorPago, anexo o arquivo ACBrBoletoRet_Bradesco.pas atualizado.

DataCredito não tinha no fonte para retorno, então foi adicionado.
ValorPago estava retornando errado porque no json da API o vlrPagto vem em formato float e não inteiro como os outros valores.

ACBrBoletoRet_Bradesco.pas

[magistech]

Pessoal, analisei os fontes anexados e realizei alguns testes. Notei que, nos boletos pagos via Pix, o valor pago está vindo zerado.

Veja a imagem em anexo para mais detalhes:

 

 

[Juliomar Marchetti]

30 minutos atrás, magistech disse:

Pessoal, analisei os fontes anexados e realizei alguns testes. Notei que, nos boletos pagos via Pix, o valor pago está vindo zerado.

Veja a imagem em anexo para mais detalhes:

Quer dizer ainda não resolve

[Jhonlenon Ribeiro]

@magistech Boa tarde...Bradesco liberou um novo end point de consulta de boletos pix liquidado por periodo...só que ainda não foi implementado no componente ACBrBoleto...

 

[magistech]

Você sabe se esta funcionalidade está na lista para ser implementada?

O que vocês estão fazendo com os boletos que estão sendo recebidos?

[Jhonlenon Ribeiro]

@magistech veja esse topico que foi criado 

 

[magistech]

Obrigado.

Vou acompanhar esse tópico.