Correção Remessa Bradesco

[luizfr]

Bom Dia!!!

Ao testar remessa para o Bradesco surgiu um erro no preenchimento do campo "Nosso Numero".

Ao debugar a rotina, encontrei a seguinte condição:

      ANossoNumero := PadLeft(OnlyNumber(ACBrTitulo.NossoNumero),11, '0');

      if (ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) and (StrToIntDef(ANossoNumero,0) = 0) then
        DigitoNossoNumero := '0'
      else
      begin
        ANossoNumero      := ACBrTitulo.NossoNumero;
      DigitoNossoNumero := CalcularDigitoVerificador(ACBrTitulo);
      end;

No meu caso, o nosso número é grande e estava estourando o limite do "Integer". Dessa forma, estava gerando a remessa com o valor "0" no nosso número.

Fiz uma alteração, trocando o "StrToIntDef" para "StrToInt64Def".

Seria possível subir essa alteração para o svn?

Obrigado!!!

[Juliomar Marchetti]

Anexe a unit com a alteração.

[luizfr]

Segue em anexo a unit

ACBrBancoBradesco.pas

[luizfr]

Bom Dia!!!

@Juliomar Marchetti já foi analisado a possibilidade de integrar a alteração que eu anexei no repositório?

Obrigado!

[Juliomar Marchetti]

50 minutos atrás, luizfr disse:

Bom Dia!!!

@Juliomar Marchetti já foi analisado a possibilidade de integrar a alteração que eu anexei no repositório?

Obrigado!

Ainda não pois quem cuida desse componente é outra pessoa e já tem uma lista a ser conferida antes.

 

[José M. S. Junior]

Boa tarde.

Atualizado no repositorio.

[luizfr]

OK, Muito Obrigado!!!