PDF dos boletos duplicando dados

[Maurício C. O. Medeiros]

bom dia.

tenho uma rotina de emissão de boleto onde:

1 - consulto a tabela de boleto

2 - dentro de um laço de repetição, mando as informações para o ACBrBoleto e salvo em PDF

4 - faço a impressão de todos os boletos

5 - por fim, faço o envio do PDF por e-mail

os PDF são salvos separadamente, cada um com sua numeração, mas as informações (valor, cliente, etc) do primeiro boleto são repetidas para os demais.

eu quero salvar um PDF para cada boleto.

alguém já passou por isso? estou fazendo algo errado? tem alguma solução?

desde já agradeço.

Editado 24 Março, 2018 por Maurício C. O. Medeiros

[Sérgio Assunção]

1 hora atrás, Maurício C. O. Medeiros disse:

bom dia.

tenho uma rotina de emissão de boleto onde:

1 - consulto a tabela de boleto

2 - dentro de um laço de repetição, mando as informações para o ACBrBoleto e salvo em PDF

4 - faço a impressão de todos os boletos

5 - por fim, faço o envio do PDF por e-mail

os PDF são salvos separadamente, cada um com sua numeração, mas as informações (valor, cliente, etc) do primeiro boleto são repetidas para os demais.

eu quero salvar um PDF para cada boleto.

alguém já passou por isso? estou fazendo algo errado? tem alguma solução?

desde já agradeço.

O problema deve estar nesse seu laço.
Consegue colar (se não for muito extenso) ou anexar esse código ?

[Maurício C. O. Medeiros]

o laço é grande, sim.

resumindo, faço o seguinte:

with cdsBoletos do

begin

  Close;

  CommandText := 'consulta boletos';

end;

ACBrBoleto.ListadeBoletos.Clear;

while not(cdsBoletos.Eof)do

begin

  with ACBrBoleto do

  begin

    //informo os dados do boleto

    //banco, cedente, vencimento, valor, observações

  end

  ACBrBoleto.ACBrBoletoFC.NomeArquivo:='diretorio do arquivo PDF';
  ACBrBoleto.GerarPDF;

  cdsBoletos.Next;

end;

ACBrBoleto.Imprimir;

//daqui para frente eu tenho um código para encontrar o arquivo PDF e enviá-lo por e-mail como anexo.

a impressão sai correta, mas os PDF são iguais.

obrigado.

[Maurício C. O. Medeiros]

consegui resolver, mas não sei se é a melhor solução.

eu adicionei um segundo componente ao formulário. ambos são preenchidos com os dados do boleto, mas um, o que grava o PDF, eu limpo a lista a cada registro, o outro uso para imprimir os boletos.