Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

Erro arquivo criptografado


Werner_Marques
  • Este tópico foi criado há 1937 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 to comment
Share on other sites

  • Consultores

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
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other 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
Ajude o Projeto ACBr crescer - Assine o SAC

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 to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.