Erro na Geracao Linha Digitavel - BRADESCO

[clausqueller]

Bom dia,

Segue correção formação da linha digitavel do banco Bradesco.

function TACBrBancoBradesco.MontarCodigoBarras ( const ACBrTitulo: TACBrTitulo) : String;

var

CodigoBarras, FatorVencimento, DigitoCodBarras:String;

begin

with ACBrTitulo.ACBrBoleto do

begin

FatorVencimento := CalcularFatorVencimento(ACBrTitulo.Vencimento);

CodigoBarras := IntToStr( Numero )+

'9'+

FatorVencimento +

IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10) +

padR(Cedente.Agencia,4,'0') +

ACBrTitulo.Carteira +

ACBrTitulo.NossoNumero +

//Linha corrigida para geracao correta do codigo de barra.

padR(copy(Cedente.Conta, Length(Cedente.Conta) - 6, Length(Cedente.Conta)),7,'0') + '0';

DigitoCodBarras := CalcularDigitoCodigoBarras(CodigoBarras);

end;

Result:= IntToStr(Numero) + '9' + DigitoCodBarras + Copy(CodigoBarras,5,39);

end;

Por favor acrescentar ao fonte do ACBR.

Atenciosamente,

Clausqueller Mitome

[clausqueller]

Segue em anexo arquivo com correcoes do banco Bradesco, de acordo com o layout do dia 19.09.2011.

Mudancas na geracao de remessa e na leitura de retorno.

Atenciosamente,

Clausqueller Mitome

ACBrBancoBradesco.pas

[Juliana Tamizou]

Boa tarde Clausqueller.

Iremos implementar sua modificação o mais breve possível.

Att.

[Juliana Tamizou]

Boa tarde Clausqueller.

Seu ajuste está disponível no svn com relação ao retorno e também a montagem do código de barras estão disponíveis no svn.

Porém na remessa a alteração do Código do Cedente para o Código do Convênio não foi aplicada, pois não entendi a necessidade da alteração.

Att.