Problema Layout cobBancodoBrasilAPI

[Hetosoft Sistemas]

Olá.

Atualmente o PDF do Boleto do "Banco do Brasil (CNAB)" mostra o número da agencia e da conta no campo "Agencia/Codigo do Beneficiário", ambos com o dígito verificador. Porém quando o Boleto é do Tipo "Banco do Brasil API" não mostra os dígitos.

Estamos homologando um cliente novo, e o gerente da conta solicitou que os dígidos verificadores aparecessem no boleto. Fizemos um teste alterando a função TACBrBancoBrasil.MontarCampoCodigoCedente. Testamos a impressão, o envio via API, a leitura do código dentro de um aplicativo de banco, e tudo funcionou corretamente.
Gostaria que analisassem uma possível modificação.

Como está atualmente no ACBr

function TACBrBancoBrasil.MontarCampoCodigoCedente (
   const ACBrTitulo: TACBrTitulo ) : String;
begin
  if(ACBrTitulo.ACBrBoleto.Banco.TipoCobranca = cobBancoDoBrasilAPI) then
  begin
    Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'/'+
             IntToStr(StrToIntDef(ACBrTitulo.ACBrBoleto.Cedente.Conta,0));
  end else
  begin
    Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+
             ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+
             IntToStr(StrToIntDef(ACBrTitulo.ACBrBoleto.Cedente.Conta,0)) +'-'+
             ACBrTitulo.ACBrBoleto.Cedente.ContaDigito;
   end;
end;

Alteração que fizemos (aparentemente era assim antes):

function TACBrBancoBrasil.MontarCampoCodigoCedente (
   const ACBrTitulo: TACBrTitulo ) : String;
begin
  Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+
           ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+
           IntToStr(StrToIntDef(ACBrTitulo.ACBrBoleto.Cedente.Conta,0)) +'-'+
           ACBrTitulo.ACBrBoleto.Cedente.ContaDigito;
end;

 

[Alexandre de Paula]

bom dia,

Poderia anexar os arquivos modificados? Facilita bastante para avaliarmos as alterações.

Obrigado.

[Hetosoft Sistemas]

Segue o fonte

ACBrBancoBrasil.pas

[Alexandre de Paula]

Criada a TK-4608 para avaliação.

Obrigado pela contribuição.

[Victor H. Gonzales - Panda]

37 minutos atrás, Hetosoft Sistemas disse:

Olá.

Atualmente o PDF do Boleto do "Banco do Brasil (CNAB)" mostra o número da agencia e da conta no campo "Agencia/Codigo do Beneficiário", ambos com o dígito verificador. Porém quando o Boleto é do Tipo "Banco do Brasil API" não mostra os dígitos.

Estamos homologando um cliente novo, e o gerente da conta solicitou que os dígidos verificadores aparecessem no boleto. Fizemos um teste alterando a função TACBrBancoBrasil.MontarCampoCodigoCedente. Testamos a impressão, o envio via API, a leitura do código dentro de um aplicativo de banco, e tudo funcionou corretamente.
Gostaria que analisassem uma possível modificação.

Como está atualmente no ACBr

function TACBrBancoBrasil.MontarCampoCodigoCedente (
   const ACBrTitulo: TACBrTitulo ) : String;
begin
  if(ACBrTitulo.ACBrBoleto.Banco.TipoCobranca = cobBancoDoBrasilAPI) then
  begin
    Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'/'+
             IntToStr(StrToIntDef(ACBrTitulo.ACBrBoleto.Cedente.Conta,0));
  end else
  begin
    Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+
             ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+
             IntToStr(StrToIntDef(ACBrTitulo.ACBrBoleto.Cedente.Conta,0)) +'-'+
             ACBrTitulo.ACBrBoleto.Cedente.ContaDigito;
   end;
end;

Alteração que fizemos (aparentemente era assim antes):

function TACBrBancoBrasil.MontarCampoCodigoCedente (
   const ACBrTitulo: TACBrTitulo ) : String;
begin
  Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+
           ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+
           IntToStr(StrToIntDef(ACBrTitulo.ACBrBoleto.Cedente.Conta,0)) +'-'+
           ACBrTitulo.ACBrBoleto.Cedente.ContaDigito;
end;

 

Bom dia,

não estou localizando agora a documentação da época, mas tenho desde 2021 diversas API homologadas junto ao Banco do Brasil.

se há esse parâmetro é porque foi solicitado na homologação da implementação, da mesma forma os 000 a frente do nosso numero.

e na documentação interbancária é prefixo da agencia e numero da conta.

https://www.bb.com.br/docs/pub/emp/empl/dwn/Doc5175Bloqueto.pdf?pk_vid=297b8c96bf9dea4916976331773b017a

 

[Hetosoft Sistemas]

Ok. Pode fechar por enquanto. Vou deixar o meu alterado por aqui mesmo.

[Daniel InfoCotidiano]

@Hetosoft Sistemas
Uma pergunta, seu convênio é de quantos dígitos? (no BB)

[Daniel InfoCotidiano]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.