Ir para conteúdo
  • Cadastre-se

dev botao

Erro arquivo criptografado


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

Recommended Posts

  • Membros Pro

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') );

..........

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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';

 

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Consultores

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') );

 

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

×
×
  • 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.