Correção LerRetorno400 SICOOB

[denerbuzato]

Prezados,

Corrigido a procedure “LerRetorno400” da unit “ACBrBancoBancoob”  onde a leitura dos dados do cedente estava sendo feita do registro “header” e o correto é do registro “detalhe”.

Quem usar o LeCedenteRetorno = True e necessitar calcular o digito do nosso numero no retorno, ocorre o erro “'Ç' is not a valid integer value” na function “CalcularDigitoVerificador”,  pois na posição 18 do “header” está “ÇA  “ que faz parte da palavra COBRANÇA.

 

Antes:

      if LeCedenteRetorno then
      begin
        Cedente.Nome          := rCedente;
        Cedente.CNPJCPF       := rCNPJCPF;
        Cedente.Agencia       := trim(copy(ARetorno[0], 18, 4));
        Cedente.AgenciaDigito := trim(copy(ARetorno[0], 22, 1));
        Cedente.Conta         := trim(copy(ARetorno[0], 23, 8));
        Cedente.ContaDigito   := trim(copy(ARetorno[0], 31, 1));

Depois:

      if LeCedenteRetorno then
      begin
        Cedente.Nome          := rCedente;
        Cedente.CNPJCPF       := rCNPJCPF;
        Cedente.Agencia       := trim(copy(ARetorno[1], 18, 4));
        Cedente.AgenciaDigito := trim(copy(ARetorno[1], 22, 1));
        Cedente.Conta         := trim(copy(ARetorno[1], 23, 8));
        Cedente.ContaDigito   := trim(copy(ARetorno[1], 31, 1));

       

ACBrBancoBancoob.pas

[Juliana Tamizou]

Boa noite.

Alteração disponível no svn.

Att.

[denerbuzato]

Bom dia Juliana,

Atualizado, testado e tudo ok!

Muito obrigado!