Ir para conteúdo
  • Cadastre-se

dev botao

Gerar Pdf De Forma Separada


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

Recommended Posts

Olá galera, estou recebendo um erro de "Access violation" quando tento gerar pdf separados de boletos.
 
Tenho uma instancia do ACBrBoleto para o uso geral, e criei uma instancia separada do ACBrBoleto para dar loop na lista geral e ir imprimindo um por um.
 
Porém quando efetuo o "Clear" ao final do ACBrBoleto ele dispara o erro. Tem algo a ver as duas instancias ? mesmo separadas ?

 

Trecho do Código:

ACBrAux := TACBrBoleto.Create(nil);
        try
          try
            ACBrAux.Cedente := Titulo.Cedente;
            ACBrAux.Banco := Titulo.Banco;
            ACBrAux.ACBrBoletoFC := BoletoFortesReport;
            for i := 0 to Pred(Titulo.ListadeBoletos.Count) do
            begin
              ACBrAux.ListadeBoletos.Add(Titulo.ListadeBoletos.Objects[i]);

              ACBrAux.ACBrBoletoFC.NomeArquivo := 'BO' + ACBrAux.ListadeBoletos.Objects[0].NossoNumero + '-' + BancoAux + '.PDF';
              ACBrAux.GerarPDF;

              RedirecionaArquivo(ACBrAux.ACBrBoletoFC.NomeArquivo, XTelaPrincipalF.Dir_Boletos +
                'Boletos Emitidos\BO' +
                ACBrAux.ListadeBoletos.Objects[0].NossoNumero + '-' +
                BancoAux + '.PDF');
              DeleteFile(ACBrAux.ACBrBoletoFC.NomeArquivo);
              ACBrAux.ListadeBoletos.Clear;
            end;
          except on e: Exception do
            begin
              TMsgGen.MsgAviso('Erro: ' + e.Message);
              Exit;
            end;
          end;
        finally
          dmCadastroF.QryConfiguracoes.Close;
        end;
      end;

    except on e: Exception do
      begin
        TMsgGen.MsgAviso('Erro: ' + e.Message);
        Exit;
      end;

    end;

  finally
    Titulo.ListadeBoletos.Clear;
Link para o comentário
Compartilhar em outros sites

  • 7 meses depois ...
  • Moderadores

Bom dia,

 

Conseguiu resolver o problema ? estou com o mesmo erro aqui....

 

Pela atenção, obrigado

Veja a data do post! 

vi que também postou em outro! olhou a data dos mesmos? será que pessoal não resolveu com uma simples atualização e nem voltou para responder?

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3388 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.