PDF de Boleto individual

[Eduardo - Nitra Sistemas]

Boa tarde a todos!

Tenho implementado em um dos meus projetos o Acbrboleto e, preciso de uma ajuda.

Eu consigo gerar a remessa e os boletos sem problemas, porém, na hora de gerar os pdf's, eu só consigo gerar tudo em um único pdf, mas preciso que seja gerado os boletos de forma individual, tendo em vista que são para pessoas diferentes.

Andei pesquisando e vi que no MonitorPlus existe um comando: BOLETO.SetDiretorioArquivo(cDirArq,[cNomeArq]), porém não achei isso para o componete AcbrBoleto, se eu passar o nome do arquivo ele aceita, mas só gera um pdf com todos os boletos.

Alguma solução que possam me indicar?

[Juliomar Marchetti]

Está usando Fast Report ou Fortes Report?

Se usou o exemplo svn veja esse trecho para fortes

[Eduardo - Nitra Sistemas]

Obrigado pela ajuda, mas estou usando assim:

      for z := 0 to ACBrBoleto1.ListadeBoletos.Count-1 do
      begin
        ACBrBoletoFCFR1.NomeArquivo := meu_local_pdf+'\'+Format('%6.6d', [StrToIntDef(ACBrBoleto1.ListadeBoletos[z].NumeroDocumento, 0)])+'.pdf';
        ACBrBoleto1.ListadeBoletos[z].GerarPDF;
      end;

No meu caso, a lista de boletos possui 11 registros, ele ta gerando 11 pdf's com os 11 titulos em cada um.

[Juliomar Marchetti]

veja em nenhum momento ele fala isso e o exemplo que passei é em Fortes

agora olhando o seu código último tu mandou informando que é FR Fast Report isso.

[Eduardo - Nitra Sistemas]

5 minutos atrás, Juliomar Marchetti disse:

veja em nenhum momento ele fala isso e o exemplo que passei é em Fortes

agora olhando o seu código último tu mandou informando que é FR Fast Report isso.

Então, esqueci de mencionar este detalhe, uso o FastReport.

Neste caso, faz diferença? Achei que o código fosse universal, ou seja, que mudava apenas o gerador da impressão.

[Juliomar Marchetti]

Tente tirar essa linha

ACBrBoletoFCFR1.NomeArquivo := meu_local_pdf+'\'+Format('%6.6d', [StrToIntDef(ACBrBoleto1.ListadeBoletos[z].NumeroDocumento, 0)])+'.pdf';

e rodar como mostrei anterior

[Eduardo - Nitra Sistemas]

1 hora atrás, Juliomar Marchetti disse:

Tente tirar essa linha

ACBrBoletoFCFR1.NomeArquivo := meu_local_pdf+'\'+Format('%6.6d', [StrToIntDef(ACBrBoleto1.ListadeBoletos[z].NumeroDocumento, 0)])+'.pdf';

e rodar como mostrei anterior

Fiz conforme você indicou:
      ACBrBoletoFCFR1.NomeArquivo := './teste.pdf';
      ACBrBoleto1.GerarPDF;

Gerou um único arquivo nomeado de teste.pdf com os 11 títulos.

Eu preciso que ele gere um arquivo para cada título que está na lista de boletos.

[BigWings]

4 horas atrás, Eduardo - Nitra Sistemas disse:

Obrigado pela ajuda, mas estou usando assim:

      for z := 0 to ACBrBoleto1.ListadeBoletos.Count-1 do
      begin
        ACBrBoletoFCFR1.NomeArquivo := meu_local_pdf+'\'+Format('%6.6d', [StrToIntDef(ACBrBoleto1.ListadeBoletos[z].NumeroDocumento, 0)])+'.pdf';
        ACBrBoleto1.ListadeBoletos[z].GerarPDF;
      end;

No meu caso, a lista de boletos possui 11 registros, ele ta gerando 11 pdf's com os 11 titulos em cada um.

Creio que deve funcionar sim mesmo com FastReport.

Você está com os fontes atualizados?

Citar

Commit [r21084]

11/12/2020 -- ACBrBoletoFCFR, ACBrBoleto --

[+] Adicionado funcionalidade para impressão e geração de pdf individual utilizando a lista de títulos no Fast

 

[Eduardo - Nitra Sistemas]

2 horas atrás, BigWings disse:

Creio que deve funcionar sim mesmo com FastReport.

Você está com os fontes atualizados?

 

Boa noite!

1) Vamos lá, fiz a atualização do componente, realmente estava desatualizado; Isso já apareceu a opção CalcularNomeArquivoPDFIndividual, até então, não estava disponível;

2) Dessa forma não funcionou:

      ACBrBoletoFCFR1.NomeArquivo := meu_local_pdf+'\'+Format('%6.6d', [StrToIntDef(ACBrBoleto1.ListadeBoletos[z].NumeroDocumento, 0)])+'.pdf';
      ACBrBoletoFCFR1.CalcularNomeArquivoPDFIndividual := True;
      ACBrBoleto1.GerarPDF;

3) Desta forma funcionou perfeitamente:

      for z := 0 to ACBrBoleto1.ListadeBoletos.Count-1 do
      begin
        ACBrBoletoFCFR1.NomeArquivo := meu_local_pdf+'\Fatura';
        ACBrBoleto1.ListadeBoletos[z].GerarPDF;
      end;

O resultado, foi que ele gerou na pasta designada os arquivos nomeados com seus respectivos números: Fatura_0000000279.pdf

Agradeço pela ajuda, resolveu meu problema. Fica aí a dica, caso alguém precise.

[Juliomar Marchetti]

3 horas atrás, Eduardo - Nitra Sistemas disse:

Fiz conforme você indicou:
      ACBrBoletoFCFR1.NomeArquivo := './teste.pdf';
      ACBrBoleto1.GerarPDF;

Gerou um único arquivo nomeado de teste.pdf com os 11 títulos.

Eu preciso que ele gere um arquivo para cada título que está na lista de boletos.

Eu disse TIRAR = REMOVER  a linha em questão.

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.