Linha digitavel - Invalida

[walter faria]

Bom dia,

Estou gerando Boleto - Bradesco pelo componente :

Carteira:09
Banco: Bradesco

1 vez ficou esta linha : 23796.00204 90000.000001 10800.060260 1 67990000041957   DEU ERRO DE VALIDAÇÃO
2 vez ficou esta linha : 23796.00204 90000.000019 08000.602600 2 67990000041957  FICOU OK
3 vez ficou esta linha : 23796.00204 90000.000019 09000.602608 1 67990000041957  FICOU OK

Alguem já passou por isso, não posso liberar o boleto para cliente se linha digitavel ficar errado.

Abaixo como eu gero a impressão do boleto:

Obrigado

Codigo

 //Informações do Banco
 ACBrBoleto1.Cedente.Convenio:= sqlBancosCarteira.AsString;
 ACBrBoleto1.Banco.Numero          := sqlBancosNUMBANCO.AsInteger;
 ACBrBoleto1.Banco.TamanhoMaximoNossoNum:= sqlBancosTamanho.AsInteger;
 ACBrBoleto1.ACBrBoletoFC.Filtro   := fiNenhum;
 ACBrBoleto1.ACBrBoletoFC.LayOut   := lPadrao;
 
 Case sqlBancosNUMBANCO.AsInteger of
  1:   ACBrBoleto1.Banco.TipoCobranca:= cobBancoDoBrasil;
  33:  ACBrBoleto1.Banco.TipoCobranca:= cobSantander;
  104: ACBrBoleto1.Banco.TipoCobranca:= cobCaixaEconomica;
  237: ACBrBoleto1.Banco.TipoCobranca:= cobBradesco;// cobBradescoSICOOB;// cobBradesco;
  341: ACBrBoleto1.Banco.TipoCobranca:= cobItau;
 end;

 //Dados do Cedente
 ACBrBoleto1.Cedente.Nome       := RazaoEmitente;
 ACBrBoleto1.Cedente.CNPJCPF    := RemoverCaracter(CNPJCPF_Emitente);
 ACBrBoleto1.Cedente.Logradouro := EnderecoEmitente;
 ACBrBoleto1.Cedente.NumeroRes  := NumeroEmitente;
 ACBrBoleto1.Cedente.Bairro     := BairroEmitente;
 ACBrBoleto1.Cedente.Cidade     := CidadeEmitente;
 ACBrBoleto1.Cedente.UF         := UFEmitente;
 ACBrBoleto1.Cedente.CEP        := RemoverCaracter(CepEmitente);

 ACBrBoleto1.Cedente.CodigoCedente := sqlBancosCodigoCedente.AsString;
 ACBrBoleto1.Cedente.CodigoTransmissao := sqlBancosCodTransmissao.AsString; //'396200007597045';

 ACBrBoleto1.DirArqRemessa:=  sqlBancosDIRREMESSA.AsString;
 ACBrBoleto1.NomeArqRemessa:= FormatDateTime('DDMMYYYYHHMMSS',Now) + '.TXT';

 ACBrBoleto1.DirArqRetorno:=  sqlBancosDIRRETORNO.AsString;
 ACBrBoleto1.NomeArqRemessa:= 'RETORNO.TXT';

 ACBrBoleto1.LayoutRemessa:= c400;
 ACBrBoleto1.ACBrBoletoFC.LayOut:= lPadrao;

 ACBrBoleto1.ACBrBoletoFC.DirLogo:= ExtractFilePath(ParamStr(0)) + 'Imagens\Logos\Colorido';
 ACBrBoleto1.ACBrBoletoFC.MostrarSetup:= false;

 //Dados da Agencia
 ACBrBoleto1.Cedente.Agencia:=       sqlBancosNUMAGENCIA.AsString;
 ACBrBoleto1.Cedente.AgenciaDigito:= sqlBancosDIGITOAGENCIA.AsString;

 //Dados da Conta
 ACBrBoleto1.Cedente.Conta:=             sqlBancosNUMCONTACORRENTE.AsString;
 ACBrBoleto1.Cedente.ContaDigito:=       sqlBancosDIGITO.AsString;
 ACBrBoleto1.Cedente.CodigoCedente:=     sqlBancosCodigoCedente.AsString;
 ACBrBoleto1.Cedente.CodigoTransmissao:= sqlBancosCodTransmissao.AsString;

 

Obrigado

[Juliana Tamizou]

Boa tarde.

O mesmo problema ocorre com o demo?

Att.

[walter faria]

Boa tarde, Juliana

Acontece sim , coloquei as informações do cliente, valores mandei gerar o boleto.
Dai fui no site do banco e da invalida a linha digitavel.

Obrigado