Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 397 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
Postado

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;

 

  • Consultores
Postado

bom dia,

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

Obrigado.

Consultor SAC ACBr

Alexandre de Paula
Ajude o Projeto ACBr crescer - Assine o SAC                    

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  ícone Discórdia Discord   

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

 

  • Consultores
Postado

Criada a TK-4608 para avaliação.

Obrigado pela contribuição.

Consultor SAC ACBr

Alexandre de Paula
Ajude o Projeto ACBr crescer - Assine o SAC                    

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  ícone Discórdia Discord   

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

 

  • Consultores
Postado
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.

image.png

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

 

  • Curtir 2
Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

  • Este tópico foi criado há 397 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.