cnab240 Boleto CEF - Código Remessa/Retorno não tratados

[Wagner Freitas]

Bom dia!

Estou implementando o boleto da CEF e percebi que no arquivo ACBrBoleto, o método LeRetorno contém um teste que lança uma exceção se o código remessa/retorno for diferente de '2'.

procedure TACBrBoleto.LerRetorno(AStream: TStream);
...
case Length(SlRetorno.Strings[0]) of
        240 :
          begin
            if  (Copy(SlRetorno.Strings[0],143,1) <> '2') then
              Raise Exception.Create( ACBrStr( NomeArq + sLineBreak +
                'Não é um arquivo de Retorno de cobrança com layout CNAB240') );
...

Porém existem outros casos que podem ser tratados e por conta desse teste eu não consigo tratá-los na unit ACBrBancoCaixa.

Não seria melhor transferir esse teste para dentro das units de cada banco? Pois dessa forma cada banco poderia implementar o tratamento para estes outros casos.  

Att.

[José M. S. Junior]

Boa tarde

Aparentemente hoje todos os bancos lêem apena o retorno tipo "2". Para ler arquivos de Pré-Critica, precisaria ser implementado estes layouts, neste caso sim precisaria alterar e colocar uma validação na classe de cada banco.

[Wagner Freitas]

Vou fazer a alteração necessária e posto aqui meu código fonte para análise.

Obrigado pelo retorno.