Código De Barras Com Numeração Diferente A Linha Digitável

[cgarrotti]

Boa tarde,

 

Atualizei hoje o acbr para a versão mais nova do SVN, porém o código de barras lido pelo leitor nao coincide com a linha digitável.

Tal boleto, gerei pelo próprio exemplo do acbr.

O que pode estar acontecendo ?

 

Segue em anexo o print do exemplo e o pdf do boleto gerado.

boleto.pdf

[Juliana Tamizou]

Boa tarde.

 

Você testou com leitor de códigos de barras utilizado pela agencia bancária?

 

Att.

[cgarrotti]

Boa tarde.

 

Você testou com leitor de códigos de barras utilizado pela agencia bancária?

 

Att.

Boa tarde Juliana,

 

Testei com um leitor de código de barras simples e com o Leitor de Código de barras do celular,

tenho outros boleto por exemplo do Itaú emitido por outro software, o leitor de codigo de barras e o do celular lêem normalmente.

Constatei que o ACBrBoleto está gerando a linha digitavel diferente do codigo de barras.

[cgarrotti]

Ninguem tem idéia do q pode estar ocorrendo ?

Sera um erro no componente ACBR Boleto ?

[Juliana Tamizou]

Bom dia.

 

 

Vc debugou o código e por isto chegou a esta conclusão?

 

 

Att.

[Edson Fernandes]

Eu também tenho o mesmo problema, gerei um boleto com a versão anterior, passa normal no banco. Ao se gerar o mesmo boleto, com as mesmas configurações (igual) com a versão atual, o código de barras muda. Pra resolver isso, eu tive que alterar a unit acbrboleto.pas 

***** pessoal, eu sou bem novato nessa parte de mexer em componente, perdoem os modos "medonhos".

//////////////////////////

no cabeçalho da unit...

 

   public
     constructor Create(ACBrBoleto:TACBrBoleto);
     destructor Destroy; override;

     property ACBrBoleto        : TACBrBoleto read fACBrBoleto;

     property con_linhadigitavel    : String      read fcon_linhadigitavel    write fcon_linhadigitavel;    //<===pra guardar a linha digitavel
     property con_codbarras    : String      read fcon_codbarras    write fcon_codbarras;              //<===== pra guardar o código de barras

////////////////////////////////////////////////////////////

 

no objeto tacbrtitulo:

 

  { TACBrTitulo }

  TACBrTitulo = class
  private
    fInstrucao1        : String;
    fInstrucao2        : String;
    fInstrucao3        : String;
    fLocalPagamento    : String;
    fcon_linhadigitavel:string; //gambiarra conectiva
    fcon_codbarras:string; //gambiarra conectiva

 

...

*********************************************

com isso, obtive dois novos campos dentro do titulo: con_CodBarras e con_LinhaDigitavel.

 

na hora de gerar o titulo (criar o boleto) eu seto os valores dos dois campos novos:

 

** procedure ...gerarboleto

begin

      Titulo := ACBrBoleto1.CriarTituloNaLista;
      with Titulo do
      begin

        //la no fim, depois de informar a parcela, valor, data, etc...

        con_CodBarras      := acbrboleto1.Banco.MontarCodigoBarras( Titulo );
        con_LinhaDigitavel := acbrboleto1.Banco.MontarLinhaDigitavel( con_CodBarras,Titulo );

  ...

 

  ...

end;

 

**********************************************************

pronto, guardei os dois campos e na hora de gerar o relatório, eu peço via código pra preencher os campos usando os valores obtidos na hora da geração do titulo

 

////////// acbrboletofcfortesfr.pas

 

procedure TACBrBoletoFCFortesFr.RLBand2BeforePrint(Sender: TObject;
   var PrintIt: boolean);
//Var
//  CodBarras, LinhaDigitavel : String;
begin
  with fBoletoFC.ACBrBoleto do
  begin
     //CodBarras      := Banco.MontarCodigoBarras( Titulo ); //<=== isso monta o código errado
     //LinhaDigitavel := Banco.MontarLinhaDigitavel( CodBarras,Titulo ); //<== isso monta o código errado

     imgBanco3.Picture.Assign(imgBanco2.Picture);
     fBoletoFC.CarregaLogo( imgBanco3.Picture, Banco.Numero );
     txtNumeroBanco3.Caption         := txtNumeroBanco2.Caption;
     txtLocalPagamento3.Lines.Text   := lblLocalPagto.Lines.Text;
     txtDataVencimento3.Caption      := txtDataVencimento2.Caption;
     txtNomeCedente3.Caption         := txtNomeCedente2.Caption;
     txtEndCedente1.Caption          := txtEndCedente.Caption  ;
     txtCodigoCedente3.Caption       := txtCodigoCedente2.Caption;
     txtDataDocumento3.Caption       := txtDataDocumento2.Caption;
     txtNumeroDocumento3.Caption     := txtNumeroDocumento2.Caption;
     txtEspecie3.Caption             := txtEspecie2.Caption;
     txtAceite3.Caption              := txtAceite2.Caption;
     txtDataProcessamento3.Caption   := txtDataProcessamento2.Caption;
     txtNossoNumero3.Caption         := txtNossoNumero2.Caption;
     txtUsoBanco3.Caption            := txtUsoBanco2.Caption;
     txtCarteira3.Caption            := txtCarteira2.Caption;
     txtEspecieDoc3.Caption          := txtEspecieDoc2.Caption;
     txtValorDocumento3.Caption      := txtValorDocumento2.Caption;
     txtNomeSacado3.Caption          := txtNomeSacado2.Caption;
     txtEnderecoSacado3.Caption      := txtEnderecoSacado2.Caption;
     txtCidadeSacado3.Caption        := txtCidadeSacado2.Caption;
     txtCpfCnpjSacado3.Caption       := txtCpfCnpjSacado2.Caption;

     imgCodigoBarra.Caption          := titulo.con_CodBarras; //<== isso foi a gambiarra
     txtLinhaDigitavel.Caption       := titulo.con_LinhaDigitavel; //<== gambiarra
     txtInstrucoes3.Lines.Text       := txtInstrucoes2.Lines.Text;
   end;
end;

 

*********** pessoal, mas uma vez, me desculpem pela bagunça, mas aqui funciona. se precisarem, eu posto as units pra que sejam comparadas

[Juliana Tamizou]

Bom dia.

 

A linha digitável e o código de barras são calculados com os valores do próprio titulo, sendo que a apresentação dos dados em cada um destes campos é diferente, conforme pode ser observado nos manuais fornecidos pelos bancos e disponibilizados no svn...

 

Para que seja possível auxilia-los favor detalhar qual o real o problema, os valores não batem? 

 

 

Att.

[Edson Fernandes]

Bom dia. Juliana, isso mesmo, os valores não batem. Esta linha digitável foi gerada antes de atualizar o ACBR:

748-X 74893.10008 01323.208189 08731.431055 1 62110000025764  <== com esta eu consigo recolher lá no banco

 

e esta depois de atualizar:

748-X 74893.11428 01323.208189 08731.431089 2 62110000025764 <== esta aqui não

================================================================

Editado 10 Outubro, 2014 por EDSON FERNANDES

[Juliana Tamizou]

Bom dia.

 

 

As informações contidas no primeiro e terceiro blocos são diferentes nas duas linhas digitáveis...foram passadas informações diferentes ao componente na geração do boleto?

 

 

Att.