Arquivos xml do Sat as vezes não salva na pasta CFesEnviados

[alesteves]

Boa noite! Em alguns clientes acontece esporadicamente de não serem salvos os arquivos xml do SAT na pasta CFesEnviados. Eles ficam gravados no nosso banco, contudo não são gerados na pasta. Alguém aqui já passou por isso?

Obrigado pela ajuda e paciência!

[Juliomar Marchetti]

Essas pastas são locais em cada micro ou é pastas compartilhadas na rede?

[alesteves]

Bom dia Juliomar! Pasta local. Faço isso no onshow do form: 

      ACBrSAT1.ConfigArquivos.PastaCFeCancelamento:=GetCurrentDir+'\CFesCancelados';
      ACBrSAT1.ConfigArquivos.PastaCFeVenda:=GetCurrentDir+'\CFesEnviados';
      ACBrSAT1.ConfigArquivos.PastaEnvio:=GetCurrentDir+'\CFesEnvio';

onde GetCurrentDir é uma função da SysUtils para o path do exe.

O estranho é que a maioria dos arquivos são salvos. Mas de maneira aleatória, até então, alguns não são salvos. De um cliente especifico, por exemplo, em um dia de maior movimento, não salvou nenhum. Contudo houve dias que foram salvos a maioria, mas alguns não.

[Juliana Tamizou]

Bom dia.

Seria interessante adicionar pontos de log em sua aplicação para lhe ajudar nesta analise.

Att.

[alesteves]

Obrigado Juliana! Vou fazer isso. De imediato eu consigo resolver gravando o arquivo pelo campo da minha tabela de sat, fazendo um verificação se existe ou não o arquivo. Postei aqui pensando talvez que já tivesse acontecido com alguém.

Tópico resolvido (onde eu informo isso aqui no ambiente? Ou vcs mesmo fazem isso...)

[Juliana Tamizou]

Bom dia.

Vamos manter o tópico aberto para quando você identificar o problema, poder retornar nele.

Att.

 

[renatojosecampos]

Bom dia !

 

Acredito que sei oque seja, a função GEtCurrentDir pega a pasta atual do seu aplicativo , portanto se sua aplicação exibir o OpenDialog para o usuário salvar ou selecionar algum arquivo em outra rotina isto irá mudar a pasta atual do seu aplicativo ... e portanto o xml será  salvo em outra pasta...

 

Use a seguinte função para obter a Pasta do executável ao invés da pasta atual:

 

ExtractFilePath(Application.ExeName);

 

 

 

 

[alesteves]

Exatamente isso! Brigadão Renato!

Já arrumei e comprovei onde tinha essa falha no nosso sistema.

Resolvido!

[antonio.carlos]

Obrigado por reportar.

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