Problema no Dígito Verificador da Remessa do Bradesco

[Leonardo de Alice]

Boa tarde.

Tive um problema na geração de remessa de boletos Bradesco, com a opção de emissão pelo banco; nesse caso o Dígito Verificador do Nosso Número ia para remessa zerado e gerava problemas na transmissão da remessa.

Após análise, percebi que o problema estava no começo do método GerarRegistroTransacao400 da classe TACBrBancoBradesco.

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

Na condição do IF tem o método StrToIntDef, porém ele retorna ZERO se o Nosso Número exceder a faixa do tipo INTEGER. No meu caso o Nosso Número era o 51700002571.

Solução: Substituir o StrToIntDef por StrToInt64Def.

[Juliomar Marchetti]

sugestões anexe o arquivo aqui no post.