Retorno Banco do Brasil - Convênio de 7 posições e Nosso Número com 17

[brsamn]

Bom Dia.

Tenho um cliente que envia boletos pelo Banco do Brasil. O convênio dele é de 7 posições e a carteira é a 18.

No momento de ler retorno, o componente busca o número do convênio e verifica que tem tamanho 7, e busca o Nosso Número que tem 17 posições o que faz, após a verificação abaixo, o componente cair em uma exceção: "Tamanho Máximo do Nosso Número é 10".

     if (Length(trim(NossoNumero)) > 10) and (wTamConvenio = 6) and
        ((wCarteira = '16') or (wCarteira = '18')) then
        Result:= 17
     else if (wTamConvenio <= 4) then
        Result := 7
     else if ((wTamConvenio > 4) and (wTamConvenio < 6)) or
             ((wTamConvenio = 6) and ((wCarteira = '12') or (wCarteira = '15') or
            (wCarteira = '17'))) then
        Result := 5
     else if (wTamConvenio = 6) then
        Result := 11
     else if (wTamConvenio = 7) then
        Result := 10;

 

Alguém está com essa mesma dificuldade?

 

Obrigado.

[Juliana Tamizou]

Bom dia.

Seria possível anexar o arquivo de retorno para análise (se não puder anexar todo o arquivo, vc pode editá-lo de forma a deixar somente 1 registro de boleto)

Att.

 

[brsamn]

Bom Dia.

Segue o arquivo:

CBR6431551608201510858.ret

Segundo a página 4 deste layout(http://www.bb.com.br/docs/pub/emp/empl/dwn/Doc2628CBR643Pos7.pdf) existe a possibilidade de ter um convênio de 7 posições e 17 posições de Nosso Número.

[Jacinto Junior]

Bom Dia.

Tenho um cliente que envia boletos pelo Banco do Brasil. O convênio dele é de 7 posições e a carteira é a 18.

No momento de ler retorno, o componente busca o número do convênio e verifica que tem tamanho 7, e busca o Nosso Número que tem 17 posições o que faz, após a verificação abaixo, o componente cair em uma exceção: "Tamanho Máximo do Nosso Número é 10".

     if (Length(trim(NossoNumero)) > 10) and (wTamConvenio = 6) and
        ((wCarteira = '16') or (wCarteira = '18')) then
        Result:= 17
     else if (wTamConvenio <= 4) then
        Result := 7
     else if ((wTamConvenio > 4) and (wTamConvenio < 6)) or
             ((wTamConvenio = 6) and ((wCarteira = '12') or (wCarteira = '15') or
            (wCarteira = '17'))) then
        Result := 5
     else if (wTamConvenio = 6) then
        Result := 11
     else if (wTamConvenio = 7) then
        Result := 10;

 

Alguém está com essa mesma dificuldade?

 

Obrigado.

Boa tarde meu caro.

O método abaixo deverá ser alterado, conforme:

function TACBrBancoBrasil.CalcularTamMaximoNossoNumero(
  const Carteira: String; NossoNumero : String = ''): Integer;
var
  wCarteira   : String;
  wTamConvenio: Integer;
begin
   Result := 10;

   if (ACBrBanco.ACBrBoleto.Cedente.Convenio = '') then
      raise Exception.Create(ACBrStr('Banco do Brasil requer que o Convênio do Cedente '+
                                     'seja informado.'));

   if (Carteira = '') then
      raise Exception.Create(ACBrStr('Banco do Brasil requer que a carteira seja '+
                                     'informada antes do Nosso Número.'));

   wCarteira:= Trim(Carteira);
   wTamConvenio:= Length(Trim(ACBrBanco.ACBrBoleto.Cedente.Convenio));

   // DONE -oJacinto Junior: Alterado pois para os convênios de 7 posições e carteira 18 o tamanho do nosso número é 17.
//   if (Length(trim(NossoNumero)) > 10) and (wTamConvenio = 6) and
//      ((wCarteira = '16') or (wCarteira = '18')) then
   if (Length(Trim(NossoNumero)) > 10) and (wTamConvenio in [6, 7]) and
      ((wCarteira = '16') or (wCarteira = '17') or (wCarteira = '18')) then
      Result:= 17
   else if (wTamConvenio <= 4) then
      Result := 7
   else if ((wTamConvenio > 4) and (wTamConvenio < 6)) or
           ((wTamConvenio = 6) and ((wCarteira = '12') or (wCarteira = '15') or
            (wCarteira = '17'))) then
      Result := 5
   else if (wTamConvenio = 6) then
      Result := 11
   else if (wTamConvenio = 7) then
      Result := 10;
end;

Em anexo segue a unit alterada.

ACBrBancoBrasil.pas

[brsamn]

Bom dia amigos, alguma previsão da implementação no repositório dessa alteração sugerida pelo amigo Jacinto Junior?

Obrigado.

[Giovani Da Cruz]

E há mais um detalhe:

Na procedure LerRetorno400Pos7 tem um erro, no caso a carteira deve ser informada antes do Nosso Número, senão da a exception.

Carteira             := Copy(Linha,107,2);
NossoNumero          := Copy(Linha,64,17);

Coloquei isso no arquivo, junto com a alteração do Jacinto Junior.

 

 

ACBrBancoBrasil.pas

Editado 3 Setembro, 2015 por Giovani Da Cruz

[Desenvolvimento Eagle]

Obrigado pessoal!

Resolveu meu problema!

Espero que a repositório seja atualizado o mais breve possível.

Att;

[Juliana Tamizou]

Boa noite.

Alteração disponível  no svn com alguns ajustes.

Att.

[Desenvolvimento Eagle]

Ok Juliana. Obrigado.

[brsamn]

Já baixei aqui. Obrigado.

[brsamn]

Boa Tarde.

Analisando aqui, após algum tempo, verifiquei que para o caso de Nosso Número de 17 posições e Convênio de 7 posições, o seguinte trecho em function TACBrBancoBrasil.FormataNossoNumero (Linha 194 de unit ACBrBancoBrasil) não pode ser da forma como está:

      ANossoNumero := PadLeft(AConvenio, 7, '0') + PadLeft(ANossoNumero, 10, '0');

Da forma como está, com o nosso número de 17 posições, o nosso número no boleto fica 0, já que ele copia as 10 primeiras posições de um campo que tem tamanho 17.

Pensei em fazer um copy para esse ANossoNumero pegando só as últimas 10 posições, mas gostaria que, se possível, algum moderador analisasse essa situação.

Obrigado.

[Juliana Tamizou]

Boa tarde.

Acredito que um rightStr() possa resolver.

Att;

[brsamn]

Bom dia.

Fiz a alteração usando o RightStr.

Segue a unit alterada para avaliação.

Obrigado.

 

ACBrBancoBrasil.pas

[Quality Automação]

Bom dia.

Precisei fazer uma alteração na leitura do retorno também. 

Segue o commit para analise.

commit.diff

[Juliomar Marchetti]

Manda a unit não a diff pois usamos o merge pra comparar

[Quality Automação]

Segue.

ACBrBancoBrasil.pas

[Quality Automação]

Bom dia. Juliomar temos alguma novidade?

[Juliomar Marchetti]

Bom dia. Juliomar temos alguma novidade?

Não.. primeiro você postou a menos de 24 horas !

segundo quem cuida do componente ainda não chegou até aqui pra ler

[brsamn]

Boa tarde.

Sem querer ser chato, mas tem alguma previsão de implementação no repositório das alterações sugeridas?

Obrigado.

[Juliomar Marchetti]

Boa tarde.

Sem querer ser chato, mas tem alguma previsão de implementação no repositório das alterações sugeridas?

Obrigado.

Tem que aguardar até que a pessoa que mantém o componente chegue a ele!

[Juliana Tamizou]

Boa noite.

Alteração disponível no svn.

Att.

[Benjamim Mendes Junior]

Passando para a visar que a atualização funcionou!

[el.lauro]

Alguém poderia conferir os fontes na Revisão 10839 não estão as alterações propostas pelos colegas: 

>Giovani Da Cruz

Carteira             := Copy(Linha,107,2);
NossoNumero          := Copy(Linha,64,17);

>Jacinto Junior

if (Length(Trim(NossoNumero)) > 10) and (wTamConvenio in [6, 7]) and
      ((wCarteira = '16') or (wCarteira = '17') or (wCarteira = '18')) then

Obrigado!

[Juliana Tamizou]

Bom dia.

O commit indicado por você não contém alterações referentes ao boleto. 

De acordo com o post do Benjamim foi possível utilizar corretamente este banco. Qual seria o problema que você está tendo?

Att.

[el.lauro]

O erro esta na leitura do retorno do nosso numero ex: "25674900000000192" ele só lê "00000000192" e com as alterações do propostas pelo colegas esta funcionando.

Att.