Retorno banco Sicoob

[FabioTellini]

Boa tarde.

Na leitura do arquivo de retorno do banco sicoob está gerando uma exceção na rotina TACBrBancoob.MontarCodigoBarras, onde a propriedade ACBrTitulo.Carteira deve ter o valor 1 ou 3.

    if (ACBrTitulo.Carteira = '1') or (ACBrTitulo.Carteira = '3')then
       ACarteira := ACBrTitulo.Carteira
    else
       raise Exception.Create( ACBrStr('Carteira Inválida.'+sLineBreak+'Utilize "1" ou "3".') );

Na rotina TACBrBancoob.LerRetorno400 a propriedade Titulo.Carteira está recebendo a posição 86 da linha do arquivo (Carteira := Copy(Linha,86,3)).

Consultando o manual, o campo Carteira está na posição 107-108.

Realizei os testes após o ajuste e a leitura do arquivo foi realizada normalmente.

Segue em anexo a unit alterada para validação.

Obrigado.

 

ACBrBancoBancoob.pas Sicoob 240_400.xls

[Juliana Tamizou]

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

TK-4929

[Victor H. Gonzales - Panda]

Boa tarde,

O Cnab400 pelo Bancoob é descontinuado, se não me falha a memória desde 2014.

Na função referente a carteira não foi alterado nada, mas a sua Unit está bem diferente da Unit atual do componente.

Referente a Carteira, no manual a validação está seguindo o que está descrito.

 

Qual a carteira utilizada em questão que você está tendo problemas no calculo do DV?

 

[Victor H. Gonzales - Panda]

Tópico fechado por falta de retorno do usuário