Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 2466 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado (editado)

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 por Maurício C. O. Medeiros
Postado
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 ?

Equipe ACBr Sérgio Assunção
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

[email protected]

Postado

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.

  • Este tópico foi criado há 2466 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...