[ACBR-336] Alterações Boleto Hibrido Bradesco

[Raphael. F. B. Soares]

Bom dia, fiz alguns ajustes no Boleto Híbrido Bradesco utilizando a Api do Portal.

Ajuste no percentual, para juros e multa, precisa ser com 5 casas decimais senão o banco não aceita;

Adicionado Data Limite de Pagto;

Instruções pela API de Cobrança com QR Code, alteração de Data, Conceder Abatimento, Cancelar Abatimento, Protestar e Remover Protesto.

Segue o Arquivo.

 

Obrigado 

ACBrBoletoW_Bradesco.pas

[Raphael. F. B. Soares]

Ajustado também o valor do pagamento no arquivo de retorno:

DE

ARetornoWS.DadosRet.TituloRet.ValorPago                   := ValorInteiroParaDouble(LjsonTitulo.AsInteger['valorPagamento']);

Para

 ARetornoWS.DadosRet.TituloRet.ValorPago                   := (LjsonTitulo.AsInteger['vlrPagto']);

Lembrando que o valor de pagamento só funciona quando o boleto é liquidado via linha digitável, quando o mesmo é pago por pix, não esta vindo o valor pago.

Já abri um chamado no Bradesco estou aguardando retorno deles.

 

ACBrBoletoRet_Bradesco.pas

[Alexandre de Paula]

Boa noite,

Criada a TK-7535 para avaliação.

Obrigado pela contribuição.

[Raphael. F. B. Soares]

Só uma correção:

 ARetornoWS.DadosRet.TituloRet.ValorPago                   := (LjsonTitulo.AsCurrency['vlrPagto']);

[Raphael. F. B. Soares]

Bom dia pessoal, aproveitando o mesmo tópico.

Notamos que alguns boletos, quando pagos por linha, a DtPagto, quando o dia for menor que dia 10, o banco retorna por exemplo: 4092025 e na função que decodifica a data (DateBradescoToDateTime) acaba se perdendo pois espera 8 caracteres.

Então ajustei para que quando tiver 7 caracteres inserir o '0' as esquerda.

Obrigado

ACBrBoletoRet_Bradesco.pas

[Raphael. F. B. Soares]

Bom dia, surgiu mais um ajuste, posso encaminhar o arquivo aqui ou é melhor um novo tópico?♦

Editado 27 Novembro, 2025 por Raphael. F. B. Soares

[Raphael. F. B. Soares]

O ajuste trata-se na leitura do retorno.

ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca        := IntToStrZero(LJsonTitulosBaixa.AsInteger['codigo'],2);

os retornos possuem dois digitos.

Segue o arquivo ajustado. 

 

 

ACBrBoletoRet_Bradesco.pas

Editado 1 Dezembro, 2025 por Raphael. F. B. Soares

[Juliomar Marchetti]

Em 01/12/2025 at 08:32, Raphael. F. B. Soares disse:

O ajuste trata-se na leitura do retorno.

ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca        := IntToStrZero(LJsonTitulosBaixa.AsInteger['codigo'],2);

os retornos possuem dois digitos.

Segue o arquivo ajustado. 

 

 

ACBrBoletoRet_Bradesco.pas 23.3 kB · 1 download

sabe se já está OK no SVN?

[Raphael. F. B. Soares]

1 hora atrás, Juliomar Marchetti disse:

sabe se já está OK no SVN?

Amanhã confimo pra voce.

[Raphael. F. B. Soares]

Boa tarde!

@Juliomar Marchetti, nenhum dos ajustes (Envio e Retorno) estão presentes no SVN, qualquer dúvida, estou a disposição.

Obrigado.

[valterpatrick]

Ainda não está concluido.

Peço que aguarde um pouco mais.

[hugoleo2000]

Em 19/08/2025 at 11:31, Raphael. F. B. Soares disse:

Ajustado também o valor do pagamento no arquivo de retorno:

DE

ARetornoWS.DadosRet.TituloRet.ValorPago                   := ValorInteiroParaDouble(LjsonTitulo.AsInteger['valorPagamento']);

Para

 ARetornoWS.DadosRet.TituloRet.ValorPago                   := (LjsonTitulo.AsInteger['vlrPagto']);

Lembrando que o valor de pagamento só funciona quando o boleto é liquidado via linha digitável, quando o mesmo é pago por pix, não esta vindo o valor pago.

Já abri um chamado no Bradesco estou aguardando retorno deles.

 

ACBrBoletoRet_Bradesco.pas 23.25 kB · 4 downloads

Como estão fazendo para obter o valor pago quando o boleto é liquidado via qrCode? No json retornado pela api de boletos do Bradesco a chave "vlrPagto" está vindo zerado, bem como "dtPagto" está zerada.

Também percebi que a chave "ValorMoedaBol" está vindo zerada e consequentemente o trecho ARetornoWS.DadosRet.TituloRet.ValorDocumento := ValorInteiroParaDouble(LJsonObject.AsInteger['valorMoedaBol']); em ACBrBoletoRet_Bradesco estava vindo zerado, então alterei para ARetornoWS.DadosRet.TituloRet.ValorDocumento := ValorInteiroParaDouble(LJsonObject.AsInteger['valMoeda']); e resolveu.

Editado 6 Março por hugoleo2000

[Alexandre Scheidt]

Olá,

Em anexo arquivo ACBrBoletoRet_Bradesco.pas com a correção, se possível disponibilizar para todos no svn.

Algumas datas retornadas pelo Bradesco, usando a operação tpConsultaDetalhe podem retornar com 7 dígitos.

Exemplo de divergências nos campos de retorno:
  "dataMulta": "06032026",
  "dtPagto": 6032026,
  "dtBaixa": 6032026,

Em anexo também print do problema e print da correção.
 

ACBrBoletoRet_Bradesco.pas