Alteração na unit ACBrBoletoRet_Bradesco.pas

[João Vitor Bogo]

Bom dia

Estou fazendo alguns testes na emissão do boleto do Bradesco, e tive uma falha na unit que faz a leitura do Retorno, o JSON está sendo retornado com o campo assim:

"dataVencto": "15/06/2026"

Então a leitura desse campo era feita da seguinte maneira:

ARetornoWS.DadosRet.TituloRet.Vencimento                  := LJsonObject.AsDateTimeBr['dataVencto'];

O que fazia com que desse erro na conversão da string.

Eu fiz o ajuste para ler assim e agora está funcionando normalmente:

ARetornoWS.DadosRet.TituloRet.Vencimento                  := DateBradescoToDateTime(LJsonObject.AsString['dataVencto']);

Segue anexo o arquivo com a modificação

ACBrBoletoRet_Bradesco.pas

[João Vitor Bogo]

Bom dia, ainda nessa unit, encontrei outro problema, a function TRetornoEnvio_Bradesco.DateBradescoToDateTime(const AValue: String): TDateTime  não está processando corretamente a data, pois o Bradesco envia ela cortando o primeiro dígito quando ele é zero, no caso por exemplo a data '8062026' está falhando na conversão.

 

Segue novamente a unit com os ajustes

ACBrBoletoRet_Bradesco.pas