Conta do arquivo 000000040813 inválida, config 0000040813.

[Simbolus]

Boa tarde Pessoal, tudo bem?
Estou com um problema na leitura do retorno sicoob layout cnab240. 

Ocorre aqui:

if ( (not LeCedenteRetorno) and (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)]);    

 

Erro: Conta do arquivo 000000040813 inválida, config 0000040813. Verifiquei que estava com uma quantidade diferente de 0, e acabei testando desta forma:

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

E consegui realizar a leitura do retorno normalmente. Isso está ocorrendo com mais alguém?

[Simbolus]

Hoje está assim:

Citar

     if ( (not LeCedenteRetorno) and (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)]);

     if LeCedenteRetorno then
     begin
       Cedente.Nome    := rCedente;
       Cedente.CNPJCPF := rCNPJCPF;
       Cedente.Agencia := rAgencia;
       Cedente.AgenciaDigito:= '0';
       Cedente.Conta   := rConta;
       Cedente.ContaDigito:= rDigitoConta;
       Cedente.CodigoCedente:= rConta+rDigitoConta;
     end;
     ->>>Cedente.Conta := RemoveZerosEsquerda(Cedente.Conta);

     ListadeBoletos.Clear;

Se eu adicionar :Cedente.Conta := RemoveZerosEsquerda(Cedente.Conta); acima do 1 if também fica ok a validação.

Estaria correto essa alteração?

[Juliana Tamizou]

Boa tarde.

Pelo que observei no fonte, a propriedade conta deveria conter 12 dígitos...confirme por favor se você se refere a unit ACBrBancoBamcoob.pas

Att.

[Simbolus]

19 minutos atrás, Juliana Tamizou disse:

Boa tarde.

Pelo que observei no fonte, a propriedade conta deveria conter 12 dígitos...confirme por favor se você se refere a unit ACBrBancoBamcoob.pas

Att.

Boa tarde,

Exato, trata-se da ACBrBancoBancoob.

 

[Juliana Tamizou]

Estranho, ao setar esta propriedade automaticamente o componente já completa com os "0" a esquerda até dar 12 caracteres.

Você está usando o componente ou o ACBrMonitorPlus?

Att

[Simbolus]

Sim, mas irei fazer mais um teste para tirar a dúvida.