Erro arquivo criptografado

[Werner_Marques]

Boa tarde 

Caro colegas encontro-me com um problema em um determinado cliente que está sendo recorrente. Está apresentando o seguinte erro todas as vezes ao abrir o projeto, sendo que o arquivo encontra-se dentro da pasta.

Arquivo Auxiliar Criptografado "(C:\PDVlite\LISTAECF)" não encontrado.

Ex: Durante uma venda houve uma queda de energia e maquina foi desligada, ao retornar e abrir o sistema, retorna com essa mensagem, sendo que o arquivo ainda encontra-se dentro da pasta. Esse é apenas um exemplo, mais o que está acontecendo frequente, e mesmo ao final do expediente a máquina é desligada normalmente, e ao retornar no outro dia o problema volta a acontecer. Gostaria de saber o que está levando a acontecer isso com frequência? A impressora fiscal BEMATECH mp-2100 fi. 

Código do meu sistema que está sendo executado e o do componente do ACBr:

  ACBrAAC.NomeArquivoAux:= ExtractFileDir(ParamStr(0))+'\ListaECF';
   ACBrAAC.AbrirArquivo;

   try
       for i:= 0 to ACBrAAC.IdentPAF.ECFsAutorizados.Count-1 do begin

            if (TRIM(impfiscal.NumeroSerie) = TRIM(ACBrAAC.IdentPAF.ECFsAutorizados.Objects.NumeroSerie)) and
               (impfiscal.GT = ACBrAAC.IdentPAF.ECFsAutorizados.Objects.ValorGT)  then begin

                result:= True;
                AtivaDesativaMenu(1);
                Break;
            end
            else begin

              if (TRIM(impfiscal.NumeroSerie) <> TRIM(ACBrAAC.IdentPAF.ECFsAutorizados.Objects.NumeroSerie)) then
                showmessage(impfiscal.NumeroSerie+' '+ ACBrAAC.IdentPAF.ECFsAutorizados.Objects.NumeroSerie);

              if (impfiscal.GT <> ACBrAAC.IdentPAF.ECFsAutorizados.Objects.ValorGT)  then
                showmessage(floattostr(impfiscal.GT) +' '+ floattostr(ACBrAAC.IdentPAF.ECFsAutorizados.Objects.ValorGT));

                AtivaDesativaMenu(0);
                result:= False;

            end;
       end;
   except
   end;

 

Componente ACBR:

  GravaLog( 'AbrirArquivo');

  Continua := True;
  if Assigned( fsOnAntesAbrirArquivo ) then
     fsOnAntesAbrirArquivo( Continua );

  if not Continua then
  begin
     GravaLog( 'AbrirArquivo abortado' );
     exit;
  end ;

  if NomeArquivoAux = '' then
     raise EACBrAAC_SemNomeArquivo.Create( ACBrStr('Nome do Arquivo não Informado em: ACBrAAC.NomeArquivoAux') ) ;

  if not FileExists( fsNomeCompleto ) then
     raise EACBrAAC_ArqNaoEncontrado.Create(
        ACBrStr( 'Arquivo Auxiliar Criptografado'+sLineBreak+
                 '"'+NomeArquivoAux+'"'+sLineBreak+
                 'não encontrado') );

..........

[Werner_Marques]

Alguém teria alguma solução ??

[Juliomar Marchetti]

Bom dia!

vi que aponta como se fosse uma pasta e não um arquivo!

tente fazer o seguinte adicionar uma extensão para ele!

ACBrAAC.NomeArquivoAux:= ExtractFileDir(ParamStr(0))+'\ListaECF.minhaextensao';

 

[EMBarbosa]

Talvez alguma confusão no componente entre  fsNomeCompleto e fsNomeArquivoAux.

Se a sugestão do Juliomar acima não resolver, tente alterar a parte que testa se o arquivo existe e levanta a exception para reportar o fsNomeCompleto ao invés de fsNomeArquivoAux.

Veja abaixo:

(...)
  if NomeArquivoAux = '' then
     raise EACBrAAC_SemNomeArquivo.Create( ACBrStr('Nome do Arquivo não Informado em: ACBrAAC.NomeArquivoAux') ) ;

  if not FileExists( fsNomeCompleto ) then
     raise EACBrAAC_ArqNaoEncontrado.Create(
        ACBrStr( 'Arquivo Auxiliar Criptografado'+sLineBreak+
                 '"'+fsNomeCompleto+'"'+sLineBreak+
                 'não encontrado') );