Erro leitura retorno Bradesco 240

[JLuis]

Verifiquei um problema na leitura do retorno CNAB 240 do Bradesco em que no caso de importar mais de um arquivo em sequencia a partir do segundo sempre dava o erro: "Tamanho Máximo do Nosso Número é: 10".

Pois bem, pelo manual o tamanho máximo é 11 e no construtor da classe já é inicializada a propriedade "fpTamanhoMaximoNossoNum  := 11;", só que, na rotina "TACBrBancoBradesco.LerRetorno240" ao final da mesma havia a linha:

ACBrBanco.TamanhoMaximoNossoNum := 10;

...e portanto, na importação seguinte ocorria o erro. Havia também uma linha atribuindo 11 antes do início do "For.." e que estava comentada, a qual removi para evitar mais confusão.

Aproveitando a alteração também adicionei na rotina "TACBrBancoBradesco.GerarRegistroTransacao240" mais três códigos de ocorrência que não estavam previstos:

      toRemessaDispensarMulta                   : ATipoOcorrencia := '15';
      toRemessaNegativacaoSemProtesto           : ATipoOcorrencia := '45';
      toRemessaBaixaTituloNegativadoSemProtesto : ATipoOcorrencia := '46';

Em anexo unit alterada para, na medida do possível subir para o SVN.

Desde já agradeço.

ACBrBancoBradesco.pas

[Juliana Tamizou]

Boa tarde.

Obrigada pela contribuição, adicionada para validação.

Att.

[José M. S. Junior]

Atualizado no repositório. 

Obrigado pela contribuição!