Converter codigo de barras para linha digital

[sgeinformatica]

Tenho um cliente que quer guardar a linha digitavel dos boletos, mas os numeros do codigo de barras são diferentes que a leitora retorna.

Eu vi que tem uma maneira de chegar na linha digitavel mudando o posicionamento de alguns numeros e efetuando o calculo de alguns digitos de conferencia.

No acbr ja existe alguma função pronta que faça isso?

Nesse site faz essa conversão : http://boletobancario-codigodebarras.blogspot.com.br/

Exemplo de codigo de barras : 03396682100000232009166486700000100090600102

Linha digitavel já convertida : 03399.16645 86700.000101 00906.001029 6 68210000023200

Obrigado

[Juliana Tamizou]

Bom dia.

O método MontarLInhaDigitavel() é publico e pode ser usado, porém antes você deve utilizar o método MontarCodigoBarras() para obter a informação necessária para a montagem da linha digitavel.

CodBarras:= MpontarCodigoBarras(Titulo)

LinhaDigitavel:= MontarLinhaDigitavel(CodBarras)

Att.

[sgeinformatica]

Bom dia Juliana

CodBarras:= MontarCodigoBarras(Titulo)

O titulo que passa como parametro eu teria que informar todos os dados? (conta / agencia / etc ?)

Porque no meu caso eu vou armazenar a linha digitavel de boletos de fornecedores, não dos que eu emito.

[sgeinformatica]

Consegui fazer assim :

procedure TForm1.Button1Click(Sender: TObject);
var
  Titulo : TACBrTitulo;
  LinhaDigitavel, CodBarras : String;
begin
  Titulo := ACBrBoleto1.CriarTituloNaLista;
  CodBarras := '10491682600000050000545006478709270000048974';
  LinhaDigitavel := ACBrBoleto1.Banco.MontarLinhaDigitavel(CodBarras, Titulo);
  ShowMessage(LinhaDigitavel);
end;
 

Obrigado pela ajuda