Ir para conteúdo
  • Cadastre-se

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

Recommended Posts

Postado

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;
  • 7 meses depois ...
  • Consultores
Postado

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?

 

Consultora ACBr Pro

Juliomar Marchetti

Ajude o Projeto ACBr crescer - Seja Pro

discord: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br

 

MVP_NewLogo_100x100_Transparent-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

  • Este tópico foi criado há 4158 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.