Arquivos gerados pelo ACBr

[gilowsky]

Boa tarde.

Existe algum problema em apagar os arquivos temporários que são gerados para a emissão NFe. Explicando melhor: nos nossos clientes nós direcionamos uma pasta onde são criados os arquivos .xml os arquivos .pdf e o demais arquivos que o acbr gera, quando uma nota fiscal é aprovada nós tiramos uma cópia do .xml e .pdf para uma pasta específica do mês/Ano da nota para facilitar para o cliente mandar depois estes arquivos para o contador. Só que com o tempo a pasta fica muito grande se eu apagar todos os arquivos que ficam na pasta principal irá gerar problemas no componente?

Att,

Felipe.

[peterson161]

Eu sempre apago os arquivos temporários ao sair do sistema e nunca tive problemas.

[gilowsky]

Ok, vou fazer alguns testes aqui e se der algum problema compartilho com o forum.

Obrigado.

[felipeiw]

boa tarde Peterson, voce poderia nos mostrar como faz para deletar os arquivos temporarios pelo seu sistema ?

Obrigado

[peterson161]

Informações por completo:

1º - Setar as pastas onde deseja salvar os arquivos:

ACBrNFe1.DANFE.PathPDF := ExtractFilePath(Application.ExeName) + 'Dados\' + 'PDF\' + sCNPJEmit + '\';

ACBrNFe1.Configuracoes.Arquivos.PathNFe := ExtractFilePath(Application.ExeName) + 'Dados\' + 'NFe\' + sCNPJEmit + '\';

ACBrNFe1.Configuracoes.Arquivos.PathCan := ExtractFilePath(Application.ExeName) + 'Dados\' + 'Can\' + sCNPJEmit + '\';

ACBrNFe1.Configuracoes.Arquivos.PathInu := ExtractFilePath(Application.ExeName) + 'Dados\' + 'Inu\' + sCNPJEmit + '\';

ACBrNFe1.Configuracoes.Arquivos.PathDPEC := ExtractFilePath(Application.ExeName) + 'Dados\' + 'DPEC\' + sCNPJEmit + '\';


ACBrNFe1.Configuracoes.Arquivos.Salvar := True;

ACBrNFe1.Configuracoes.Arquivos.EmissaoPathNFe := True;

2º - Setar a pasta de arquivos gerais:

ACBrNFe1.Configuracoes.Geral.PathSalvar :=

                                  ExtractFilePath(Application.ExeName) + 'Dados\' + 'Temp\' + sCNPJEmit + '\';

ACBrNFe1.Configuracoes.Geral.Salvar := True;

3º - Apagar os arquivos temporários da pasta {Sistema}\Temp:

  // Apaga os arquivos temporários da pasta {Sistema}\Temp

  sCaminho := ExtractFilePath(Application.ExeName) + 'Dados\' + 'Temp\' + sCNPJEmit + '\';

  i := FindFirst(sCaminho + '*.*', faAnyFile, SR);

  while i = 0 do

    begin

      if (SR.Attr and faDirectory) <> faDirectory then

        if not DeleteFile(sCaminho + SR.Name) then

          ShowMessage('Não foi possível excluir ' + sCaminho);


      i := FindNext(SR);

    end;