Ler Retorno 400 Banco do Brasil

[Rafael Cruz]

fala pessoal,

alguem ja tem alguma rotina pra leitura do arquivo retorno do BB 400 posicoes ?

vlw

[lazarinr]

Eu já implementei. E estou utilizando no meu sistema. Inclusive já postei o anexo nesse tópico:

[Rafael Cruz]

perfeito, vou verificar isso.

obrigado pela ajuda !!!

[Juliana Tamizou]

Bom dia.

Esta semana irei subir ao svn diversas contribuições, inclusive o retorno de 400 colunas do BB.

Att.

[Juliana Tamizou]

Bom dia.

Está disponível no svn a unit do Banco do Brasil com a leitura do CNAB400.

Att.

[Rafael Cruz]

boa tarde Juliana,

reinstalei td meu componente de boleto e configurei passando tds os dados da conta p/ o componente com layout cnab400 do banco do brasil e qdo solicito ler o retorno diz que não foi implementado retorno 400 p/ BB.

Alguma sugestao

[]s.

[Rafael Cruz]

boa tarde,

testando observei o seguinte do pq nao estava funcionando no meu..

na ultima atualizacao a funcao LerRetorno400 do ACBrBancoBrasil.pas esta sem a instrucao "override" no final. colocando isso funcionou

e tive que fazer outra alteração no codigo dessa funcao

// if (Copy(Linha,1,1) = '7') or (Copy(Linha,1,1) = '1') then

// Continue;

// Rafael alterou

if (Copy(Linha,1,1) <> '7') and (Copy(Linha,1,1) <> '1') then

Continue;

pois os retornos sempre vem com inicio 7 no arquivo

vlw

[Juliana Tamizou]

Boa tarde Rafael.

Vc poderia anexar aqui sua unit com as correções?

Quanto a alteração da comparação com " = '7' ...", pq vc mudou " <> 7 ..." ?

Att.

[Rafael Cruz]

oi Juliana, sim com certeza,

só estou fazendo mais alguns ajustes que precisei e acabando de testar ja posto pra vc logo amanha cedo

[]s.

[Rafael Cruz]

Oi Juliana,

segue algumas alteracoes que fiz no ACBrBancoBrasil.pas

* informei o overrideno final da declaracao da procedure, pois sem isso informava que não estava implementada a leitura do retorno 400

procedure LerRetorno400(ARetorno: TStringList); override;

* no codigo da procedure criei uma variavel rCodigoCedente, pois tenho cliente com 2 CNPJ diferentes e foi unica forma que achei de não ler o arquivo errado, pois no retorno 400 não vem o CNPJ da empresa. Ai só comparo o cedente do retorno com meu cadastro de carteiras

// Rafael Cruz alterou 29/05/12

rCodigoCedente:= Copy(ARetorno[0],150,7);

* alterei essa parte do codigo, pois sempre caia no Continue e saia do loop for, não lendo os detalhes do registro

// Rafael Cruz alterou 29/05/12

// if (Copy(Linha,1,1) = '7') or (Copy(Linha,1,1) = '1') then

// Continue;

if (Copy(Linha,1,1) <> '7') and (Copy(Linha,1,1) <> '1') then

Continue;

com isso carreguei varios arquivos do meu cliente e aparentemente o retorno com as ocorrencias estao ok

[]s.

ACBrBancoBrasil.pas

[Juliana Tamizou]

Bom dia Rafael.

Correções aplicadas, em breve disponíveis no svn.

Att.

[julianopompilio]

Oi Juliana,

segue algumas alteracoes que fiz no ACBrBancoBrasil.pas

Onde é assim:

rCedente := trim(copy(ARetorno[0], 73, 30));

rCNPJCPF := OnlyNumber( copy(ARetorno[0], 19, 14) );

with ACBrBanco.ACBrBoleto do

begin

if (not LeCedenteRetorno) and (rCNPJCPF <> Cedente.CNPJCPF) then

raise Exception.create(ACBrStr('CNPJ\CPF do arquivo inválido'));

Poderia ficar assim:

rCedente := trim(copy(ARetorno[0], 73, 30));

rCNPJCPF := OnlyNumber( copy(ARetorno[0], 19, 14) );

with ACBrBanco.ACBrBoleto do

begin

if (not LeCedenteRetorno) and (rCNPJCPF <> OnlyNumber(Cedente.CNPJCPF)) then

raise Exception.create(ACBrStr('CNPJ\CPF do arquivo inválido'));

A comparacao de rCNPJCPF com o Cedente.CNPJCPF sempre vai dar raise, pois

no rCNPJCPF vem sem formatações e no Cedente.CNPJCPF tem formatações.

Começou a dar erros de importação e Debuguei o código e vi que era isso.

Desde já agradeço...

.

ACBrBancoBrasil_aterado.pas

[Juliana Tamizou]

Boa tarde Juliano.

Sua correção foi implementada, em breve estará disponível no svn.

Att.