Digito na coluna 82 (Bradesco)

[Flavio Macedo]

Ola a todos.
Estou implementando o CNAB para o Bradesco com a emissão do boleto pelo banco.

No campo de nosso numero estou enviando 0 pois o banco que vai gerar o boleto porem esta sendo inserido um digito [3] que retorna um erro na validação.

Alguem saberia o que eu estou esquecendo?

Erro:

Car Agên Conta-Produto
009 0284-0036366-9

============================================================================================================================
Linha 1, colunas 027 a 046, Header de arquivo, acessório escritural zerado. INFORMAR 5299557
Linha 2, colunas 071 a 081, Registro tipo 1, Nosso número zerado com dígito na coluna 82. Inválido.

Arquivo:

01REMESSA01COBRANCA       00000000000005299557MAFER SUPRIMENTOS E FERRAMENTA237BRADESCO       160522        MX0000001                                                                                                                                                                                                                                                                                     000001
1000000000000000000000090028400363669                         0000000000000000000300000000002            2  021131-1/1  02062200000001040000000000001N160522000000000000000000000000000000000000000000000000000000000000000154289830000100DOREMUS ALIMENTOS LTDA                  RUA SETE DE SETEMBRO, 800                           18271590                                                            000002
9                                                                                                                        

[Flavio Macedo]

1 hora atrás, Flavio Macedo disse:

Ola a todos.
Estou implementando o CNAB para o Bradesco com a emissão do boleto pelo banco.

No campo de nosso numero estou enviando 0 pois o banco que vai gerar o boleto porem esta sendo inserido um digito [3] que retorna um erro na validação.

Alguem saberia o que eu estou esquecendo?

Erro:

Car Agên Conta-Produto
009 0284-0036366-9

============================================================================================================================
Linha 1, colunas 027 a 046, Header de arquivo, acessório escritural zerado. INFORMAR 5299557
Linha 2, colunas 071 a 081, Registro tipo 1, Nosso número zerado com dígito na coluna 82. Inválido.

Arquivo:

01REMESSA01COBRANCA       00000000000005299557MAFER SUPRIMENTOS E FERRAMENTA237BRADESCO       160522        MX0000001                                                                                                                                                                                                                                                                                     000001
1000000000000000000000090028400363669                         0000000000000000000300000000002            2  021131-1/1  02062200000001040000000000001N160522000000000000000000000000000000000000000000000000000000000000000154289830000100DOREMUS ALIMENTOS LTDA                  RUA SETE DE SETEMBRO, 800                           18271590                                                            000002
9                                                                                                                        

O p´roblema na realidade é somente a linha 2 pois o primeiro já foi resolvido.

[Juliomar Marchetti]

3 horas atrás, Flavio Macedo disse:

O p´roblema na realidade é somente a linha 2 pois o primeiro já foi resolvido.

chegou a corrigir conforme o banco? se sim e quiser contribuir basta anexar a unit

[Flavio Macedo]

Ainda tenho problema com o nosso numero zerado. O digito do nosso numero insiste em sair 3

Alguem tem alguma solução (Bradesco) carteira (09)

[Flavio Macedo]

Resolvido alterando unit ACBrBancoBradesco o codigo de -> para:

Se puderem implementar no codigo para o uso de todos eu agradeço.

procedure TACBrBancoBradesco.ValidaNossoNumeroResponsavel(out ANossoNumero: String; out ADigVerificador: String;
  const ACBrTitulo: TACBrTitulo);
var
  i: Integer;
begin
  ANossoNumero := '0';
  ADigVerificador := '0';

  if (ACBrTitulo.ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) then
  begin
    ANossoNumero := '00000000000';
    ADigVerificador := '0';
  end
  else
  begin
    ANossoNumero := ACBrTitulo.NossoNumero;
    ADigVerificador := CalcularDigitoVerificador(ACBrTitulo);
  end;
end;
 

[Juliomar Marchetti]

Anexe a mesma ao tópico caso queira contribuir e também manual o local.

[Flavio Macedo]

Resolvido alterando unit ACBrBancoBradesco o codigo de -> para:

Se puderem implementar no codigo para o uso de todos eu agradeço.

procedure TACBrBancoBradesco.ValidaNossoNumeroResponsavel(out ANossoNumero: String; out ADigVerificador: String;
  const ACBrTitulo: TACBrTitulo);
var
  i: Integer;
begin
  ANossoNumero := '0';
  ADigVerificador := '0';

  if (ACBrTitulo.ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) then
  begin
    ANossoNumero := '00000000000';
    ADigVerificador := '0';
  end
  else
  begin
    ANossoNumero := ACBrTitulo.NossoNumero;
    ADigVerificador := CalcularDigitoVerificador(ACBrTitulo);
  end;
end;
 

ACBrBancoBradesco.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-2375

[Victor H. Gonzales - Panda]

Em 27/05/2022 at 10:33, Flavio Macedo disse:

Resolvido alterando unit ACBrBancoBradesco o codigo de -> para:

Se puderem implementar no codigo para o uso de todos eu agradeço.

procedure TACBrBancoBradesco.ValidaNossoNumeroResponsavel(out ANossoNumero: String; out ADigVerificador: String;
  const ACBrTitulo: TACBrTitulo);
var
  i: Integer;
begin
  ANossoNumero := '0';
  ADigVerificador := '0';

  if (ACBrTitulo.ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) then
  begin
    ANossoNumero := '00000000000';
    ADigVerificador := '0';
  end
  else
  begin
    ANossoNumero := ACBrTitulo.NossoNumero;
    ADigVerificador := CalcularDigitoVerificador(ACBrTitulo);
  end;
end;
 

ACBrBancoBradesco.pas 60 kB · 0 downloads

Bom dia,

consegue enviar a unit somente com a alteração local, a unit em especifico ela está inteira com alteração, possivelmente vocês usam reordenação de código em lote, isso afeta o merge.

 

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

[Flavio Macedo]

Bom dia Victor / Juliana.

O pacote que atualizaram do banco bradesco esta com caracteres de controle dentro e não compila.

Retirei os caracteres e agora esta certo.

Estou anexando aqui o fonte corrigido.

Se puderem atualizem.

Obrigado e motima semana a todos.

ACBrBancoBradesco.pas

[Victor H. Gonzales - Panda]

1 hora atrás, Flavio Macedo disse:

Bom dia Victor / Juliana.

O pacote que atualizaram do banco bradesco esta com caracteres de controle dentro e não compila.

Retirei os caracteres e agora esta certo.

Estou anexando aqui o fonte corrigido.

Se puderem atualizem.

Obrigado e motima semana a todos.

ACBrBancoBradesco.pas 61 kB · 1 download

Bom dia,

esse arquivo seu está com várias alterações, não é possivel saber o que foi mexido.

não existe nenhum incidente em aberto, o componente está compilando normalmente pelo SVN, tente fazer o revert em todos os seus fontes, e fazer um update depois uma instalação limpa por favor.

 

Obrigado