Alterei Leitura de arquivo de RETORNO do Bancoob

[Mario Inacio]

Boa tarde.

Estou configurando para nosso sistema ler aquivos de retorno do Sicoob CNAB 240.

Sempre aparecia erro de conta invalida pois esses campos só eram alimentados após o trecho: 

      if (rConta + rDigitoConta <> OnlyNumber(Cedente.Conta + Cedente.ContaDigito)) then
        raise Exception.CreateFMT('Conta do arquivo %s inválida, config %s',[rConta,OnlyNumber(Cedente.Conta + Cedente.ContaDigito)]);

Então movi para cima o trecho que estava abaixo dessa exceção.

Agora está lendo corretamente.

ACBrBancoBancoob.pas

[José M. S. Junior]

Bom dia

@Mario Inacio as exceções gerada são propositais na validação dos dados da Cedente com os dados do retorno, por isso as variáveis não podem ser atualizadas antes da validação.... Se for diferente deve parar o processo, caso o parâmetro "LeCedendeRetorno" não estiver selecionado.

O que parece estar errado é não estar validando esta flag neste IF... Vamos corrigir isso... Assim poderá ler o arquivo mesmo com dados os do Cedente do retorno diferentes, marcando essa Flag...

[Mario Inacio]

Olá.

Meu cliente recebe os retornos de 3 bancos e coloca todos numa unica pasta, então faço a leitura não sabendo os dados do cedente, sendo que esses dados vou captar no arquivo lido.

Se eu não alterar o fonte, tenho que selecionar o cedente antes de ler cada arquivo.

Ocorre um erro ai tambem que o ACBrBanco.ACBrBoleto.Cedente.TipoInscricao vem sempre como "pOutros".

Segue um arquivo de retorno de testes.

3070_00068870_20171218_C240_00.ret

[José M. S. Junior]

Ok, @Mario Inacio vamos verificar com o arquivo anexo...