Problemas Retorno Cef

[mkvendas2006]

Boa Tarde,

 

Estou com problemas no retorno da Caixa Economica Federeal CNAB 240:

 

 

Ele está pegando a agencia com um zero na frente:

 

rAgencia     := trim(Copy(ARetorno[0],53,5));

 

Onde o correto é rAgencia     := trim(Copy(ARetorno[0],54,4));

 

Conforme está no manual, o Nº da conta ele pega no arquivo o código do cendete tb errado.

 

Parei minha rotina por ai, posso corrigir isso no .pas e postar para voces?

Vocês estão conseguindo usar essa rotina sem alterar nada?

 

 

Maicon

 

[Jéter Rabelo Ferreira]

Bom dia.

Caixa -  SICOB ou SIGCB?

Atenciosamente.

Jéter Rabelo Ferreira

[mkvendas2006]

Bom Dia,

 

Desculpe, SICOB.

 

Maicon

[Juliana Tamizou]

Bom dia. 

 

Veja oque diz o manual do banco:

 

Agência Mantenedora da Conta Posição Inicial:53  Posição Final:57 Quantidade de Dígitos:5

 

 

Agência Mantenedora da Conta

Código adotado pelo Banco responsável pela conta, para identificar a qual unidade está vinculada a conta

corrente.

Tamanho 5 posições. Preencher com zero a esquerda.

 

Considerando essa orientação a rotina está correta, caso haja um novo manual por favor anexe aqui para ser analisado.

 

Att.

 

 

 

[mkvendas2006]

Sim,

 

Olhando pelo Manual tudo certo, o problema que estou enfrentando é aqui:

 

 

 

        MAg :=   OnlyNumber(Cedente.Agencia); //Minha var para obter o valor no Debug

        MConta :=  OnlyNumber(Cedente.Conta);

 

     if (not LeCedenteRetorno) and ((rAgencia <> OnlyNumber(Cedente.Agencia)) or

         (rConta <> OnlyNumber(Cedente.Conta))) then

        raise Exception.Create(ACBrStr('Agencia\Conta do arquivo inválido'));

 

 

No caso da agencia ele tira o 0 do cadastro e cai no Exception devido o OnlyNumber;

 

No caso da conta a mesma coisa acima, e ele ta pegando o codigo cedente, devo preencher o Código cedente na conta também? 

 

 

 

Maicon

[mkvendas2006]

Segue o meu arquivo de retorno se quiser ver.

 

 

 

Maicon

ret281.rar

Editado 9 Janeiro, 2013 por mkvendas2006

[Juliana Tamizou]

Bom dia.

 

Na verdade baseado nos testes que fiz com seu arquivo o único problema estava relacionado a conta, pois esta unit não utiliza esta propriedade apenas o CodigoCedente.

 

Estão disponíveis no svn os fontes com um ajustes para que seja feita a validação de forma correta destas informações, após efetuar a atualização do componente o arquivo será processado.

 

Att.

[mkvendas2006]

Boa Tarde Juliana,

 

Observei que mudou alguma coisa, mas ainda falta um detalhe:

 

 

     if (not LeCedenteRetorno) and ((rAgencia <> OnlyNumber(Cedente.Agencia)) or

         (rConta <> OnlyNumber(Cedente.Conta))) then

        raise Exception.Create(ACBrStr('Agencia\Conta do arquivo inválido'));

 

 

Quando da o OnlyNumber ele retira os zeros a esquerda aonde que não fecha.

 

E a Conta quando lê do arquivo precisa pular os 3 primeiros algarismos, pois eles é a operação 870 ou 003. Pois no arquivo tá lendo: 87000000051

 

 

Alterando isso irá resolver, 


Maicon

 

 

[Juliana Tamizou]

Boa tarde.

 

As alterações que fiz foram na unit CaixaEconomica, apesar de estarem corretas não é oque você deve usar.

Está disponível no svn a correção para a unit CaixaEconomicaSicob, onlynumber não remove os "0", oque estava causando o problema era o fato de não estar definido para esta classe o tamanho correto dos campos Agência e Conta..

 

Att.

[mkvendas2006]

Correto Juliana,

 

 

Fiz uma pequena confusão nos .pas aqui, atualizei novamente está perfeito agora.

 

 

Muito obrigado.

 

 

Maicon