Erro Ao Enviar O Boleto Por E-Mail

[Embrati]

Galera, boa tarde...

 

Abaixo segue correção para envio do boleto via e-mail.

O erro acontece quando o sistema é executado na área de trabalho através de atalho.

Acontece que a variável NomeArquivo recebe somente o nome do arquivo sem o caminho, então o sistema utiliza a pasta de execução para gerar o PDF, ou seja, a área de trabalho, mas na hora de anexar o sistema não localiza o arquivo gerado.

Com esta correção o funcionamento fica perfeito.

 

 

*** ERRADO ***

 

    if (EnviaPDF) then

    begin

      ACBrBoletoFC.DirArqPDF_HTML:=ExtractFilePath(Application.ExeName);

      ACBrBoletoFC.NomeArquivo :='boleto.pdf';

       NomeArq:=ExtractFilePath(Application.ExeName)+'boleto.pdf';

       GerarPDF;

       m.AddPartBinaryFromFile(NomeArq, p);

 

    end else

     begin

      ACBrBoletoFC.DirArqPDF_HTML:=ExtractFilePath(Application.ExeName);

      ACBrBoletoFC.NomeArquivo :='boleto.html';

       NomeArq:=ExtractFilePath(Application.ExeName)+'boleto.html';

       GerarHTML;

       m.AddPartBinaryFromFile(NomeArq, p);

     end;

 

*** CERTO ***

if (EnviaPDF) then

    begin

      ACBrBoletoFC.DirArqPDF_HTML:=ExtractFilePath(Application.ExeName);

      NomeArq := ExtractFilePath(Application.ExeName)+'boleto.pdf';

      ACBrBoletoFC.NomeArquivo := NomeArq;

      GerarPDF;

      m.AddPartBinaryFromFile(NomeArq, p);

 

    end else

     begin

      ACBrBoletoFC.DirArqPDF_HTML:=ExtractFilePath(Application.ExeName);

      NomeArq := ExtractFilePath(Application.ExeName)+'boleto.html';

      ACBrBoletoFC.NomeArquivo := NomeArq;

      GerarHTML;

      m.AddPartBinaryFromFile(NomeArq, p);

     end;

 

[Juliomar Marchetti]

Anexa a unit para efetuar o merge

[Embrati]

Segue Unit.

ACBrBoleto.pas

[Juliana Tamizou]

Bom dia.

 

Correção disponível no svn.

 

Att.

[Daniel Simoes]

Parece que o componente não está considerando a Propriedade

ACBrBoletoFC.DirArqPDF_HTML:=ExtractFilePath(Application.ExeName);

(Isso pode causar outros bugs)

[Juliana Tamizou]

Boa tarde.

 

Efetuado modificação no componente para que o path para o arquivo gerado seja sempre informado no campo NomeArquivo, devido a não ser mais necessária foi removida a propriedade fDirArqPDF_HTML.

 

Quando apenas o nome do arquivo é informado na propriedade NomeArquivo o próprio componente cálculo como diretório de destino a pasta da aplicação.

 

 

 

Após efetuar a atualização e compilação dos componentes provavelmente ocorrerá um erro de compilação dos projetos que usam este componente, para resolver  basta informar na propriedade NomeArquivo o path completo ou se desejar que seja gravado na mesma pasta do aplicativo, apenas o nome do arquivo.