Ler retorno 240 Banco do Brasil

[tuliomac01]

Boa tarde,

Estou com um cliente que estamos com um problema ao ler o NossoNumero no retorno 240 quando o CodigoCedente são 6 dígitos. Foi verificado no fonte que o mesmo pega o código do cedente na unit "ACBrBancoBrasil.pas":

rConvenioCedente:= Trim(Copy(ARetorno[0], 33, 9));

Porém conforme o layout do banco são 9 dígitos preenchidos com zeros a esquerda caso o mesmo não possua todos registros, então por exemplo dessa forma o o meu cliente possui 6 e o resto é preenchido com zero e mais abaixo é pego o NossoNumero com a seguinte linha:

if Length(ACBrBoleto.Cedente.Convenio) = 6 then
    NossoNumero := copy(Linha, 44, 10)
else
    NossoNumero := copy(Linha, 45, 10);

Mas como ele preenche com os zeros, então o mesmo sempre está vindo 9 caracteres, alterei a seguinte linha, para:

rConvenioCedente:= IntToStr(StrToInt((Copy(ARetorno[0], 33, 9))));

Assim na checagem se o mesmo possui 6 caracteres ele está retornando o NossoNumero correto.. OBS: Isso só ocorre se o Covenio do Cedente for com 6 caracteres.

Isso é um erro ou estou fazendo de forma errada?

Ah também alterei o tamanho da conta para 5, pois ao enviar para o banco no boleto estava preenchendo a conta com zeros a esquerda e eles não validaram dessa forma, eu verifiquei que ele pega através do tamanho da conta que vem padrão 12 fpTamanhoConta   := 12; Alterei para: fpTamanhoConta   := 5; e no boleto saiu a conta certa sem os zeros a esquerda.

Segue a minha classe alterada em anexo...

ACBrBancoBrasil.pas

Editado 17 Junho, 2016 por tuliomac01

[Juliana Tamizou]

Bom dia.

Alteração disponível no svn.

Att,

[Guest aoliveira.junior]

Qual é o retorno do banco referente a conta estar com os zeros a esquerda ?

[tuliomac01]

O banco informou que a conta não possuía zeros a esquerda na conta... Diferente do banco da caixa entre outros que permitem zeros a esquerda...

[Juliana Tamizou]

Bom dia.

33 minutos atrás, tuliomac01 disse:

O banco informou que a conta não possuía zeros a esquerda na conta

No caso o problema seria o boleto impresso? Se sim verifique se seus fontes estão atualizados, observe que a função MontarCodigoCedente() já faz um tratamento para evitar os zeros a esquerda.

Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+
             ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+
             IntToStr(StrToIntDef(ACBrTitulo.ACBrBoleto.Cedente.Conta,0)) +'-'+
             ACBrTitulo.ACBrBoleto.Cedente.ContaDigito;  

 

Att,

[tuliomac01]

O problema seria para processar o retorno do CNAB mesmo, na impressão está ok, com essa função que você citou retira os zeros a esquerda..

[Juliana Tamizou]

Bom dia.

Seu problema está confuso, se estamos falando de processar o arquivo retorno, como o banco pode não estar validando?

Em 17/06/2016 at 14:40, tuliomac01 disse:

e eles não validaram dessa forma

Att.

[tuliomac01]

5 minutos atrás, Juliana Tamizou disse:

Bom dia.

Seu problema está confuso, se estamos falando de processar o arquivo retorno, como o banco pode não estar validando?

Att.

Desculpa Juliana, faz um tempinho e não estava lembrando ao que se referia o post, o que eu falei não tem nada haver realmente.
O ocorrido era no momento da impressão, que com a função citada no post está correto.

22 horas atrás, Juliana Tamizou disse:

Bom dia.

Alteração disponível no svn.

Att,

Obrigado!