Epson TM-T800F - Range Check Error

[giulianon]

Boa tarde colegas!

Adquirimos uma EPSON TM-T800F a qual estou testando com o nosso sistema.

Já nos primeiros testes me deparei com o retorno RANGE CHECK ERROR.

Percebi que esse erro acontece sempre nos relatórios gerenciais mas acontece depois de um tempo.

Não consigo reproduzir uma sequência que gere o erro,

Imprimo relatórios gerenciais normalmente e posso repetir o mesmo relatório com o mesmo conteúdo várias vezes sem que o erro aconteça.

Depois de imprimir alguns relatórios o erro acontece e ai qualquer coisa que se tente fazer após esse erro não funciona.

Posso tentar imprimir uma leitura x, um não fiscal, uma venda, etc que todo e qualquer comando retorna esse erro.

Depurando percebi que a exceção é gerada sempre na linha em destaque no fonte abaixo.

function TACBrECFClass.EnviaComando(cmd: AnsiString = ''): AnsiString;
begin
  try
    try
       AtivarPorta;
       GravaLog('-- '+FormatDateTime('hh:nn:ss:zzz',now)+' '+fpComandoLOG,True );

       if Assigned(fpDevice) then
          if (not fpDevice.Ativo) then
             raise EACBrECFNaoInicializado.create( ACBrStr(cACBrECFNaoInicializadoException) );

       if AguardandoResposta then
          raise EACBrECFOcupado.create( ACBrStr(cACBrECFOcupadoException) ) ;

       VerificaEmLinha ;

       fsBytesRec         := 0 ;
       AguardandoResposta := True ;
       try
          Result := EnviaComando_ECF( Cmd ) ;
       finally
          AguardandoResposta  := False ;
          IgnorarErroSemPapel := False;
          GravaLog('   '+FormatDateTime('hh:nn:ss:zzz',now)+' RX <- '+fpRespostaComando, True);

          if ControlePorta then ////////////////////////// AQUI GERA A EXCEÇÃO
             DesativarPorta;
       end ;
    except
       On E: Exception do
       begin
          GravaLog('----------------- ERRO -----------------' + sLineBreak +
                   ACBrStrToAnsi( E.Message ) + sLineBreak +
                   '----------------------------------------' + sLineBreak );
          raise ;
       end ;
    end ;
  finally
     fpComandoLOG := '' ;
  end ;
end;

Estou com a última versão do fontes do trunk atualizado hoje.

Utilizando o ECFTeste não consegui gerar o erro.

Segue anexo o log gerado pelo componente.

Versão do software da impressora é 01.01.00.

Não sei se o problema tem a ver com esse post mas acredito que não http://www.projetoacbr.com.br/forum/topic/23373-protocolo-escecf/

Se alguém tiver alguma dica ou sugestão agradeço.

Att.

 

 

 

ecf_07082015143403.txt

[Daniel Simoes]

Parece ser algo errado em seu ambiente... Veja nos fontes... "ControlePorta" é um Boolean... como ele poderia gerar um "Range check error" ?

Você já testou com o "Trunk2" ?

 

[giulianon]

Psé Daniel eu vi que é um boolean e também achei estranho, mas depurei várias vezes e é exatamente quando passa nesse if que gera a exceção.

Vou testar com o trunk 2 e já dou um retorno.

Att.

 

[Daniel Simoes]

Deve haver uma maneira de desabilitar o "Range Check", em sua IDE, na compilação do EXE (no Lazarus eu sei que tem)

[giulianon]

Na mosca Daniel!

Continuei com o trunk e desmarquei a opção Range Check no projeto.

A partir dai fiz todos os testes sem problema algum.

Em anexo segue o print da opção para caso alguém se depare com o mesmo problema.

Lembro que o meu Delphi é o XE.

Acredito que nas versões seguintes seja no mesmo lugar.

Obrigado mais uma vez!

Att.

 

Editado 10 Agosto, 2015 por giulianon