ecf Erro ao enviar comandos para a Impressora Bematech

[Paulo Cesar]

Amigos do fórum,

Estou com um problema ao usar o ACBR com impressoras fiscais Bematech.

Dois clientes usavam uma versão do nosso sistema que não usava o ACBr, somente as DLLs da Bematech. Funcionava normalmente.

Semana passada atualizei para a nova versão, com ACBr Trunk 2.

Em alguns momentos a impressora não responde e retorna "Erro ao enviar comandos para a Impressora Bematech ". O Cliente sai do sistema e volta a funcionar. Passa algumas horas e ocorre novamente o problema.

Um desses clientes, cujo log do acbr está em anexo, usa MP-2100 TH FI no outro é uma MP-4000

Tenho uma MP-2100 aqui na empresa e fiz centenas de testes nela e não ocorre o problema.

Espero que alguém no fórum possa me elucidar pois já não sei mais o que fazer.

ecflog.txt

[Daniel Simoes]

Geralmente esse erro ocorre, quando a porta Serial, ficou indisponível...

Porta USB emulando COM ? se SIM, sempre usa ACBrECF1.ControlePorta := True

Isso forçará o ACBrECF a abrir e fechar a conexão serial, a cada comando enviado

 

 

 

[Paulo Cesar]

Daniel, obrigado pela ajuda.

O pessoal de suporte me informou que as duas ECFs estavam realmente nesta situação que você falou, uma porta USB emulando a COM.

Habilitei a propriedade ControlePorta para que eles possam configurar no cliente.

Editado 9 Junho, 2016 por Paulo Cesar

[Henrique Almeida]

Bom dia preciso de um help, estou com um problema na BEMATECH - MP2100 em um cliente, acontece que as vezes quando fecham o pdv e abrem de novo a impressora perde comunicação , cai num except no comando ecf.ativar , esta usando cabo serial , pois já troquei o cabo e problema persiste , percebi que foi depois de atualizar o componente . existe algo de errado , o trecho de codigo que comunica com a impressora ao abrir o pdv

      // MODELO
      if qryECF.FieldByName('modelo').AsString = 'Bematech' then
      begin
         ecf.Modelo              :=  ecfBematech;
      end
      else if qryECF.FieldByName('modelo').AsString = 'Daruma' then
      begin
         ecf.Modelo              :=  ecfDaruma;
      end
      else if qryECF.FieldByName('modelo').AsString = 'Epson' then
      begin
         ecf.Modelo              :=  ecfEpson;
      end;

      ecf.Device.Baud         := StrToInt(qryECF.FieldByName('velocidade').AsString);
      ecf.Device.Porta        := qryECF.FieldByName('porta').AsString;
      ecf.Device.Parity       := pNone;

      try
        ecf.Ativar;
        lblECF.Caption  := 'ECF OP:';
      except
        ON E: Exception Do
        begin
          mensagemAlerta('ECF não responde.');          
          ecf.Desativar;   
          exit;
        end;
      end;

 

 

[Juliomar Marchetti]

Velocidade geralmente!

pegue o manual dela e veja os dados corretos a serem usados na porta dela!