Sugestão de ajuste na unit ACBrBancoBancoob CNAB 400

[leandroaoa]

Bom dia realizei uns ajuste na função LerRetorno400 onde esta pegando os dados de cedente errado. conforme trecho abaixo

var
  ContLinha: Integer;
  Titulo   : TACBrTitulo;
  Linha, rCedente, rCNPJCPF : String;
begin

   if (copy(ARetorno.Strings[0],1,9) <> '02RETORNO') then
      raise Exception.Create(ACBrStr(ACBrBanco.ACBrBoleto.NomeArqRetorno +
                             'não é um arquivo de retorno do '+ Nome));

   rCedente := trim(Copy(ARetorno[0],32,8)); ////  AQUI ESTA ERRADO CONFORME MANUAL ///////////

 

ajuste proposto

var
  ContLinha: Integer;
  Titulo   : TACBrTitulo;
  Linha, lNomeCedente, lCodigoCedente, rCNPJCPF : String;
begin

   if (copy(ARetorno.Strings[0],1,9) <> '02RETORNO') then
      raise Exception.Create(ACBrStr(ACBrBanco.ACBrBoleto.NomeArqRetorno +
                             'não é um arquivo de retorno do '+ Nome));

   lCodigoCedente := trim(Copy(ARetorno[0],32,8)) + trim(Copy(ARetorno[0],40,1));
   lNomeCedente   := trim(Copy(ARetorno[0],47,30));
 

segue unit alterada a manual do banco

 

Sicoob 240_400.xls ACBrBancoBancoob.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-2791

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

[leandroaoa]

Bom dia

ficou ok as atualizacoes obrigado

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.